Permalink
Browse files

Load encrypted elisp files.

  • Loading branch information...
1 parent 23e7651 commit 67a8c09e8009171cc9ffa6af6f62b2a9f696927c @eschulte eschulte committed Jan 12, 2012
Showing with 11 additions and 8 deletions.
  1. +2 −1 .gitignore
  2. +9 −7 starter-kit.org
View
@@ -20,7 +20,8 @@ src/*
themes/*
url/*
-## exported files
+## exported and encrypted files
+*gpg
*el
*elc
*html
View
@@ -415,14 +415,16 @@ After we've loaded all the Starter Kit defaults, lets load the User's stuff.
#+name: starter-kit-load-files
#+begin_src emacs-lisp
(flet ((sk-load (base)
- (let* ((path (expand-file-name base starter-kit-dir))
- (literate (concat path ".org"))
- (encrypted (concat path ".org.gpg"))
- (plain (concat path ".el")))
+ (let* ((path (expand-file-name base starter-kit-dir))
+ (literate (concat path ".org"))
+ (encrypted-org (concat path ".org.gpg"))
+ (plain (concat path ".el"))
+ (encrypted-el (concat path ".el.gpg")))
(cond
- ((file-exists-p encrypted) (org-babel-load-file literate))
- ((file-exists-p literate) (org-babel-load-file literate))
- ((file-exists-p plain) (load plain))))))
+ ((file-exists-p encrypted-org) (org-babel-load-file encrypted-org))
+ ((file-exists-p encrypted-el) (load encrypted-el))
+ ((file-exists-p literate) (org-babel-load-file literate))
+ ((file-exists-p plain) (load plain))))))
(let ((elisp-dir (expand-file-name "src" starter-kit-dir))
(user-dir (expand-file-name user-login-name starter-kit-dir)))
;; add the src directory to the load path

0 comments on commit 67a8c09

Please sign in to comment.