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/
 | 
			
		||||
scripts/
 | 
			
		||||
themes/
 | 
			
		||||
*.elc
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										3
									
								
								init.el
									
										
									
									
									
								
							
							
						
						
									
										3
									
								
								init.el
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,3 +1,4 @@
 | 
			
		|||
(require 'company)
 | 
			
		||||
(require 'rust-mode)
 | 
			
		||||
 | 
			
		||||
;; Enable cargo-related (C-c C-c C-...) commands.
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue