fix: Fix warnings & errors detected by elisp compiler
Minor things that came up when byte-compiling the configuration.
This commit is contained in:
parent
0d5bdbd7ce
commit
0511e7eb97
4 changed files with 8 additions and 11 deletions
1
.gitignore
vendored
1
.gitignore
vendored
|
@ -8,3 +8,4 @@ local.el
|
||||||
other/
|
other/
|
||||||
scripts/
|
scripts/
|
||||||
themes/
|
themes/
|
||||||
|
*.elc
|
||||||
|
|
3
init.el
3
init.el
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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.
|
||||||
|
|
Loading…
Reference in a new issue