diff options
| author |  Tom Willemse | 2026-09-12 02:00:28 -0700 |
|---|---|---|
| committer | Tom Willemse | 2026-09-12 02:00:28 -0700 |
| commit | ab357d3c1032b64a5403b5b66d8bd781346dbdb6 (patch) | |
| tree | 80a180c3581f0bccf0c926aac46c228901e1e0cc | |
| parent | 9d4d0da05269e2578fb7240f41c1dbfa5947c790 (diff) | |
| download | new-dotfiles-ab357d3c1032b64a5403b5b66d8bd781346dbdb6.tar.gz new-dotfiles-ab357d3c1032b64a5403b5b66d8bd781346dbdb6.zip | |
emacs: Add all snippets files into my guix configuration
| -rw-r--r-- | oni/home/services/emacs.scm | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/oni/home/services/emacs.scm b/oni/home/services/emacs.scm index cf8b862..7d0c168 100644 --- a/oni/home/services/emacs.scm +++ b/oni/home/services/emacs.scm @@ -1,4 +1,5 @@ (define-module (oni home services emacs) + #:use-module (ice-9 ftw) #:use-module ((gnu services configuration) #:select (serialize-package define-configuration @@ -202,6 +203,9 @@ (org-caldav maybe-home-emacs-org-caldav-configuration "Configuration for org-caldav.") + (yasnippet-snippet-directories + (list-of-strings '()) + "The list of directiories that need to be scanned for yasnippet snippets.") (configurations (text-config '()) "A list of other configuration files to autoload")) @@ -256,6 +260,22 @@ #:log-file (format #f "~a/.local/var/log/emacs.log" (getenv "HOME")))) (stop #~(make-kill-destructor))))) +(define (home-emacs-configuration-collect-snippets config) + (let ((snippets (file-system-tree "emacs/.emacs.d/snippets"))) + (apply append (let loop ((prefix (car snippets)) + (current-file (car snippets)) + (files (cddr snippets))) + (if (null? files) + (list (string-append ".emacs.d/" prefix) + (local-file (string-append "emacs/.emacs.d/" prefix) + (if (string-prefix? "." current-file) + (string-drop current-file 1) + current-file))) + (map (lambda (f) (loop (string-append prefix "/" (car f)) + (car f) + (cddr f))) + files)))))) + (define (home-emacs-config-files config) `((".emacs.d/init.el" ,(mixed-text-file @@ -321,7 +341,8 @@ (home-emacs-configuration-custom-file config)) "(load custom-file :noerror)\n" "(provide 'init)\n" - ";;; init.el ends here\n")))) + ";;; init.el ends here\n")) + ,@(home-emacs-configuration-collect-snippets config))) (define home-emacs-service-type (service-type |