fix: Fix warnings & errors detected by elisp compiler

Minor things that came up when byte-compiling the configuration.
This commit is contained in:
Vincent Ambo 2017-11-12 22:41:54 +01:00 committed by Vincent Ambo
parent 0d5bdbd7ce
commit 0511e7eb97
4 changed files with 8 additions and 11 deletions

1
.gitignore vendored
View file

@ -8,3 +8,4 @@ local.el
other/
scripts/
themes/
*.elc

View file

@ -13,7 +13,7 @@
(package-initialize)
;; This variable controls all packages that should be installed.
(setq-local desired-packages
(defvar desired-packages
'(;; elisp libraries
dash
dash-functional
@ -25,6 +25,7 @@
ag
browse-kill-ring
cargo
company
confluence
dash
dockerfile-mode

View file

@ -1,3 +1,4 @@
(require 's)
;; A few handy functions I use in init.el (or not, but they're nice to
;; have)
@ -22,11 +23,11 @@
(defun custom-download-script (url filename)
"Downloads an Elisp script, places it in ~/.emacs/other and then loads it"
;; Ensure the directory exists
(unless (file-exists-p "~/.emacs.d/other")
(make-directory "~/.emacs.d/other"))
;; Download file if it doesn't exist.
(let ((file
(concat "~/.emacs.d/other/" filename)))
@ -99,13 +100,6 @@ Including indent-buffer, which should not be called automatically on save."
(find-file (concat "/sudo:root@localhost:" (read-file-name "File: ")))
(find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name))))
;; Evaluate sexp and replace it with result
(defun replace-last-sexp ()
(interactive)
(let ((value (eval (preceding-sexp))))
(kill-sexp -1)
(insert (format "%S" value))))
;; Open Fefes blog
(defun fefes-blog ()
(interactive)
@ -125,6 +119,6 @@ Including indent-buffer, which should not be called automatically on save."
(defun insert-nix-store-path ()
(interactive)
(let ((derivation (read-string "Derivation name (in <nixos>): ")))
(insert-string (nix-store-path derivation))))
(insert (nix-store-path derivation))))
(provide 'functions)

View file

@ -1,3 +1,4 @@
(require 'company)
(require 'rust-mode)
;; Enable cargo-related (C-c C-c C-...) commands.