diff --git a/emacs.d/init-functions.el b/emacs.d/init-functions.el index 5ede8ee7d..c627a5df9 100644 --- a/emacs.d/init-functions.el +++ b/emacs.d/init-functions.el @@ -1,8 +1,6 @@ ;; A few handy functions I use in init.el (or not, but they're nice to ;; have) -;; Ensure that the themes folder exists - (defun custom-download-theme (url filename) "Downloads a theme through HTTP and places it in ~/.emacs.d/themes" @@ -22,6 +20,21 @@ (unless (file-exists-p file) (url-copy-file url file)))) +(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/" filename))) + (unless (file-exists-p file) + (url-copy-file url file)) + + (load file))) + ;; These come from the emacs starter kit (defun esk-pretty-lambdas ()