mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Emacs: Added file init-functions.el which I'll use for handy functions

Browse source
This commit is contained in:
Vincent Ambo 2013-07-08 00:16:17 +02:00
parent c8dc574fcd
commit 90f95a6a3d
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
init-functions.el Normal file
View 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))))