33 lines
1.3 KiB
EmacsLisp
33 lines
1.3 KiB
EmacsLisp
(defvar ambrevar/guix-checkout-directory (expand-file-name "~/projects/guix"))
|
|
|
|
(with-eval-after-load 'geiser-guile
|
|
(when (require 'yasnippet nil t)
|
|
(yas-global-mode 1)
|
|
;; This is not enough since COMMIT_MSG is not in scheme-mode.
|
|
;; TODO: Add to find-file-hook instead and check if parent folder is ~/projects/guix.
|
|
;; (add-hook 'scheme-mode-hook 'yas-minor-mode)
|
|
(with-eval-after-load 'yasnippet
|
|
(add-to-list 'yas-snippet-dirs
|
|
(expand-file-name "etc/snippets"
|
|
ambrevar/guix-checkout-directory))))
|
|
(add-to-list 'geiser-guile-load-path ambrevar/guix-checkout-directory))
|
|
|
|
;; To use package declaration from the local checkout:
|
|
;; (setq guix-load-path ambrevar/guix-checkout-directory)
|
|
|
|
(defun ambrevar/init-guix ()
|
|
(and buffer-file-name
|
|
(string-match "\\<guix\\>" buffer-file-name)
|
|
(guix-devel-mode)))
|
|
(add-hook 'scheme-mode-hook 'ambrevar/init-guix)
|
|
|
|
(defun ambrevar/guix-debbugs-gnu (&optional severities packages archivedp suppress tags)
|
|
"Like `debbugs-gnu' but for the Guix project."
|
|
(interactive)
|
|
(let ((debbugs-gnu-default-packages '("guix-patches" "guix")))
|
|
(if (called-interactively-p)
|
|
(call-interactively 'debbugs-gnu)
|
|
(debbugs-gnu severities packages archivedp suppress tags))))
|
|
|
|
(provide 'init-guix)
|