diff options
| author | Alex Kost <alezost@gmail.com> | 2016-02-08 20:18:25 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-02-18 11:59:03 +0300 |
| commit | 19a9c6f47c9161f6596c31625531c83b13f4d4ae (patch) | |
| tree | bb9ef98d2dafe2b0840e9fe4bb95ac3e6ad88c76 /emacs | |
| parent | 5dccaffe64d6422049815115831373e8b4ffa8ec (diff) | |
| download | patches-19a9c6f47c9161f6596c31625531c83b13f4d4ae.tar 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.el | 3 | ||||
| -rw-r--r-- | emacs/guix-devel.el | 3 | ||||
| -rw-r--r-- | emacs/guix-init.el | 3 |
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) |