Emacs: Лучшая практика для ленивых режимов загрузки в .emacs? - PullRequest
Новая
       5

Emacs: Лучшая практика для ленивых режимов загрузки в .emacs?

10 голосов
/ 04 августа 2011

Есть ли рекомендация относительно ленивых режимов загрузки при обнаружении соответствующего расширения файла?

На данный момент у меня установлено примерно 25 различных режимов Emacs, и запуск стал медленным. Например, хотя хорошо иметь clojure-режим наготове, я редко им пользуюсь и хочу вообще не загружать его, если я не открою файл с расширением .clj. Такая функциональность «ленивый запрос» в целом кажется правильным способом настройки режима.

Я ничего не нашел в Интернете, поэтому я сам взломал это.

Вместо: 

(require 'clojure-mode)
(require 'tpl-mode)

У меня есть это: 

(defun lazy-require (ext mode)
  (add-hook
   'find-file-hook
   `(lambda ()
      (when (and (stringp buffer-file-name)
                 (string-match (concat "\\." ,ext "\\'") buffer-file-name))
        (require (quote ,mode))
        (,mode)))))

(lazy-require "soy" 'soy-mode)
(lazy-require "tpl" 'tpl-mode)

Похоже, это работает (я новичок в elisp, поэтому комментарии приветствуются!), Но я нервничаю из-за того, что ничего не написал по этой теме в Интернете. Это разумный подход?

Ответы [ 2 ]

16 голосов
/ 04 августа 2011

Объект, который вы хотите, называется автозагрузка . Исходный файл clojure-mode, clojure-mode.el , содержит комментарий о том, как это устроить: 

;;     Add these lines to your .emacs:
;;       (autoload 'clojure-mode "clojure-mode" "A major mode for Clojure" t)
;;       (add-to-list 'auto-mode-alist '("\\.clj$" . clojure-mode))
3 голосов
/ 04 августа 2011

Это один из способов, 

(provide 'my-slime)
(eval-after-load "slime"
  '(progn
     (setq slime-lisp-implementations
           '((sbcl ("/usr/bin/sbcl"))
             (clisp ("/usr/bin/clisp")))
           common-lisp-hyperspec-root "/home/sujoy/documents/hyperspec/")
     (slime-setup '(slime-asdf
                    slime-autodoc
                    slime-editing-commands
                    slime-fancy-inspector
                    slime-fontifying-fu
                    slime-fuzzy
                    slime-indentation
                    slime-mdot-fu
                    slime-package-fu
                    slime-references
                    slime-repl
                    slime-sbcl-exts
                    slime-scratch
                    slime-xref-browser))
     (slime-autodoc-mode)
     (setq slime-complete-symbol*-fancy t)
     (setq slime-complete-symbol-function 'slime-fuzzy-complete-symbol)
(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))))

(require 'slime)

вместе с 

;; slime mode
(autoload 'slime "my-slime" "Slime mode." t)
(autoload 'slime-connect "my-slime" "Slime mode." t)
...