From 82be9da21fc7d0d96ae410486113486a5d0c81a9 Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Tue, 1 Oct 2019 02:25:36 -0400 Subject: [PATCH] Refactor init file-specific function names --- init.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/init.el b/init.el index cee4946..320bfab 100644 --- a/init.el +++ b/init.el @@ -263,34 +263,34 @@ ;; Init File ;;==================== -(defun init-file/download-latest () +(defun init-file/download-latest-init-file () "Download the latest init file from jessieh.net." (interactive) (when (yes-or-no-p "Download latest init file from jessieh.net? ") (message "Updating init file...") (url-copy-file "https://jessieh.net/emacs" (concat user-emacs-directory "init.el") t) - (init-file/byte-compile))) + (init-file/byte-compile-init-file))) -(defun init-file/byte-compile () +(defun init-file/byte-compile-init-file () "Byte compile the init file." (interactive) (save-restriction (message "Byte-compiling init file...") (byte-compile-file (concat user-emacs-directory "init.el")))) -(defun init-file/redownload-packages () - "Redownload all packages that have been configured in the init file." +(defun init-file/refresh-packages () + "Refresh all packages that have been configured for use in the init file." (interactive) - (when (yes-or-no-p "Redownload and reconfigure packages? ") - (message "Redownloading packages...") + (when (yes-or-no-p "Redownload and refresh packages? ") + (message "Refreshing packages...") (delete-directory package-user-dir t) - (init-file/byte-compile))) + (init-file/byte-compile-init-file))) ;; Make sure that this init file is byte-compiled whenever it changes. (if (file-newer-than-file-p (concat user-emacs-directory "init.el") (concat user-emacs-directory "init.elc")) - (add-hook 'emacs-startup-hook 'init-file/byte-compile)) + (add-hook 'emacs-startup-hook 'init-file/byte-compile-init-file)) ;;========================================