diff options
Diffstat (limited to 'oni')
| -rw-r--r-- | oni/home/config/rincewind.scm | 2 | ||||
| -rw-r--r-- | oni/home/services/emacs.scm | 11 |
2 files changed, 10 insertions, 3 deletions
diff --git a/oni/home/config/rincewind.scm b/oni/home/config/rincewind.scm index 1f58442..4185a7a 100644 --- a/oni/home/config/rincewind.scm +++ b/oni/home/config/rincewind.scm @@ -242,7 +242,7 @@ (yasnippet-capf (home-emacs-yasnippet-capf-configuration)) (yasnippet-snippet-directories - '("emacs/.emacs.d/snippets")) + '("../../../emacs/.emacs.d/snippets")) (envrc (home-emacs-envrc-configuration)) (configurations diff --git a/oni/home/services/emacs.scm b/oni/home/services/emacs.scm index 4e142c1..0e20a5b 100644 --- a/oni/home/services/emacs.scm +++ b/oni/home/services/emacs.scm @@ -40,6 +40,7 @@ mixed-text-file)) #:use-module ((guix packages) #:select (package?)) + #:use-module (guix utils) #:use-module (oni packages emacs) #:use-module ((rosenthal packages binaries) #:select (wakatime-cli-bin)) @@ -261,9 +262,15 @@ (stop #~(make-kill-destructor))))) (define (home-emacs-configuration-collect-snippets config) + (define (resolve directory) + (if (string-prefix? "/" directory) + directory + (in-vicinity (current-source-directory) directory))) + (define (collect-snippets-from-dir dir) - (let* ((snippets (file-system-tree dir)) - (base-prefix (string-drop-right dir (string-length (car snippets))))) + (let* ((absolute-dir (resolve dir)) + (snippets (file-system-tree absolute-dir)) + (base-prefix (string-drop-right absolute-dir (string-length (car snippets))))) (apply append (let loop ((prefix (car snippets)) (current-file (car snippets)) (files (cddr snippets))) |