From 8503ef8c6f245dcbe1b1cb49626bffbb22a1de19 Mon Sep 17 00:00:00 2001 From: Vivien Date: Fri, 7 Jan 2022 18:03:17 +0100 Subject: Set emacs load path --- vkraus/packages/blog.scm | 18 +++++++++++++----- 1 file 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)) -- cgit v1.2.3