summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-02-08 20:18:25 +0300
committerAlex Kost <alezost@gmail.com>2016-02-18 11:59:03 +0300
commit19a9c6f47c9161f6596c31625531c83b13f4d4ae (patch)
treebb9ef98d2dafe2b0840e9fe4bb95ac3e6ad88c76 /emacs
parent5dccaffe64d6422049815115831373e8b4ffa8ec (diff)
downloadguix-patches-19a9c6f47c9161f6596c31625531c83b13f4d4ae.tar
guix-patches-19a9c6f47c9161f6596c31625531c83b13f4d4ae.tar.gz
emacs: Autoload hooks instead of putting them in 'guix-init'.
* emacs/guix-init.el: Move adding hooks to... * emacs/guix-build-log.el: ... here. * emacs/guix-devel.el: ... and here.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/guix-build-log.el3
-rw-r--r--emacs/guix-devel.el3
-rw-r--r--emacs/guix-init.el3
3 files changed, 6 insertions, 3 deletions
diff --git a/emacs/guix-build-log.el b/emacs/guix-build-log.el
index e08a88f6cc..f67be16326 100644
--- a/emacs/guix-build-log.el
+++ b/emacs/guix-build-log.el
@@ -367,6 +367,9 @@ programmatically using hooks:
(guix-build-log-mode))
;;;###autoload
+(add-hook 'shell-mode-hook 'guix-build-log-minor-mode-activate-maybe)
+
+;;;###autoload
(add-to-list 'auto-mode-alist
;; Regexp for log files (usually placed in /var/log/guix/...)
(cons (rx "/guix/drvs/" (= 2 alnum) "/" (= 30 alnum)
diff --git a/emacs/guix-devel.el b/emacs/guix-devel.el
index 8eb030942c..ee8371ce81 100644
--- a/emacs/guix-devel.el
+++ b/emacs/guix-devel.el
@@ -364,6 +364,9 @@ bindings:
(when guix-devel-activate-mode
(guix-devel-mode)))
+;;;###autoload
+(add-hook 'scheme-mode-hook 'guix-devel-activate-mode-maybe)
+
(defvar guix-devel-emacs-font-lock-keywords
(eval-when-compile
diff --git a/emacs/guix-init.el b/emacs/guix-init.el
index 47ced6abaa..1d7d258f69 100644
--- a/emacs/guix-init.el
+++ b/emacs/guix-init.el
@@ -1,7 +1,4 @@
(require 'guix-autoloads)
(require 'guix-emacs)
-(add-hook 'scheme-mode-hook 'guix-devel-activate-mode-maybe)
-(add-hook 'shell-mode-hook 'guix-build-log-minor-mode-activate-maybe)
-
(provide 'guix-init)