diff options
| author | Vivien <vivien@pruneau.lan> | 2022-01-07 18:03:17 +0100 |
|---|---|---|
| committer | Vivien <vivien@pruneau.lan> | 2022-01-07 18:18:25 +0100 |
| commit | 8503ef8c6f245dcbe1b1cb49626bffbb22a1de19 (patch) | |
| tree | ff41214e440e578ad609b40b83c4d8724781842b | |
| parent | 609f38bcca7ac14a78e1f04474d37a542f84f610 (diff) | |
Set emacs load path
| -rw-r--r-- | vkraus/packages/blog.scm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/vkraus/packages/blog.scm b/vkraus/packages/blog.scm index 958b36e..92ac081 100644 --- a/vkraus/packages/blog.scm +++ b/vkraus/packages/blog.scm @@ -40,17 +40,25 @@ (lambda* (#:key outputs inputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")) (bash-in (search-input-file inputs "/bin/bash")) - (emacs-in (search-input-file inputs "/bin/emacs"))) + (emacs-in (search-input-file inputs "/bin/emacs")) + (set-load-path + (let compose-load-path ((dirs (search-path-as-list "share/emacs/site-lisp" + inputs)) + (set '())) + (if (null? dirs) + set + (compose-load-path (cdr dirs) `("-L" ,(car dir))))))) (mkdir out) (setenv "PREFIX" out) (setenv "HOME" ".home") (mkdir ".build") (with-directory-excursion ".build" - (invoke emacs-in "--batch" - "--file" "../init.org" - "--eval" "(setq org-confirm-babel-evaluate nil)" - "-f" "org-babel-tangle") + (apply invoke emacs-in "--batch" + `(,@set-load-path + "--file" "../init.org" + "--eval" "(setq org-confirm-babel-evaluate nil)" + "-f" "org-babel-tangle")) (invoke bash-in "../build")))))))) (native-inputs (list emacs bash jekyll emacs-org emacs-htmlize)) |