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/ other/
scripts/ scripts/
themes/ themes/
*.elc

View file

@ -13,7 +13,7 @@
(package-initialize) (package-initialize)
;; This variable controls all packages that should be installed. ;; This variable controls all packages that should be installed.
(setq-local desired-packages (defvar desired-packages
'(;; elisp libraries '(;; elisp libraries
dash dash
dash-functional dash-functional
@ -25,6 +25,7 @@
ag ag
browse-kill-ring browse-kill-ring
cargo cargo
company
confluence confluence
dash dash
dockerfile-mode 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 ;; A few handy functions I use in init.el (or not, but they're nice to
;; have) ;; have)
@ -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-file (concat "/sudo:root@localhost:" (read-file-name "File: ")))
(find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name)))) (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 ;; Open Fefes blog
(defun fefes-blog () (defun fefes-blog ()
(interactive) (interactive)
@ -125,6 +119,6 @@ Including indent-buffer, which should not be called automatically on save."
(defun insert-nix-store-path () (defun insert-nix-store-path ()
(interactive) (interactive)
(let ((derivation (read-string "Derivation name (in <nixos>): "))) (let ((derivation (read-string "Derivation name (in <nixos>): ")))
(insert-string (nix-store-path derivation)))) (insert (nix-store-path derivation))))
(provide 'functions) (provide 'functions)

View file

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