jessieh/dot-emacs
jessieh/dot-emacs
1
Fork 0
Code

Fix inconsistent custom function names

Browse Source
This commit is contained in:
Jessie Hildebrandt 2019-09-12 20:17:37 -04:00
parent e7d4fc9953
commit c9fc29a574
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
init.el
View File

@ -263,34 +263,34 @@
;; Init File ;; Init File
;;==================== ;;====================
(defun update-init-file () (defun init-file/download-latest ()
"Download the latest init file from jessieh.net." "Download the latest init file from jessieh.net."
(interactive) (interactive)
(when (yes-or-no-p "Download latest init file from jessieh.net? ") (when (yes-or-no-p "Download latest init file from jessieh.net? ")
(message "Updating init file...") (message "Updating init file...")
(url-copy-file "https://jessieh.net/emacs" (concat user-emacs-directory "init.el") t) (url-copy-file "https://jessieh.net/emacs" (concat user-emacs-directory "init.el") t)
(byte-compile-init-file))) (init-file/byte-compile)))
(defun byte-compile-init-file () (defun init-file/byte-compile ()
"Byte compile the init file." "Byte compile the init file."
(interactive) (interactive)
(save-restriction (save-restriction
(message "Byte-compiling init file...") (message "Byte-compiling init file...")
(byte-compile-file (concat user-emacs-directory "init.el")))) (byte-compile-file (concat user-emacs-directory "init.el"))))
(defun refresh-init-file-packages () (defun init-file/redownload-packages ()
"Redownload all packages that have been configured in the init file." "Redownload all packages that have been configured in the init file."
(interactive) (interactive)
(when (yes-or-no-p "Redownload and reconfigure packages? ") (when (yes-or-no-p "Redownload and reconfigure packages? ")
(message "Refreshing packages...") (message "Redownloading packages...")
(delete-directory package-user-dir t) (delete-directory package-user-dir t)
(byte-compile-init-file))) (init-file/byte-compile)))
;; Make sure that this init file is byte-compiled whenever it changes. ;; Make sure that this init file is byte-compiled whenever it changes.
(if (file-newer-than-file-p (if (file-newer-than-file-p
(concat user-emacs-directory "init.el") (concat user-emacs-directory "init.el")
(concat user-emacs-directory "init.elc")) (concat user-emacs-directory "init.elc"))
(add-hook 'emacs-startup-hook 'byte-compile-init-file)) (add-hook 'emacs-startup-hook 'init-file/byte-compile))
;;======================================== ;;========================================