Emacs: Added file init-functions.el which I'll use for handy functions
This commit is contained in:
parent
c8dc574fcd
commit
90f95a6a3d
1 changed files with 23 additions and 0 deletions
23
init-functions.el
Normal file
23
init-functions.el
Normal file
|
@ -0,0 +1,23 @@
|
||||||
|
;; 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"
|
||||||
|
|
||||||
|
;; Ensure the directory exists
|
||||||
|
(unless (file-exists-p "~/.emacs.d/themes")
|
||||||
|
(make-directory "~/.emacs.d/themes"))
|
||||||
|
|
||||||
|
;; Adds the themes folder to the theme load path (if not already
|
||||||
|
;; there)
|
||||||
|
(unless (member "~/.emacs.d/themes" custom-theme-load-path)
|
||||||
|
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes"))
|
||||||
|
|
||||||
|
;; Download file if it doesn't exist.
|
||||||
|
|
||||||
|
(let ((file
|
||||||
|
(concat "~/.emacs.d/themes/" filename)))
|
||||||
|
(unless (file-exists-p file)
|
||||||
|
(url-copy-file url file))))
|
Loading…
Reference in a new issue