ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-14 05:23:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhancement: introduced yas/auto-compile-snippets

Browse Source
This commit is contained in:
João Távora 2012-06-30 21:48:44 +01:00
parent e1891a4fb5
commit 72d8481910
1 changed files with 54 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
yasnippet.el
View File

@ -401,8 +401,8 @@ the trigger key itself."
:type '(repeat function) :type '(repeat function)
:group 'yasnippet) :group 'yasnippet)
(defcustom yas/compile-on-load-dir t (defcustom yas/auto-compile-snippets t
"Defines if the snippets should be compiled when loading (if they are not already compiled)." "Decides if the snippets should be compiled when loading."
:type 'boolean :type 'boolean
:group 'yasnippet) :group 'yasnippet)
@ -1675,18 +1675,35 @@ Optional USE-JIT use jit-loading of snippets."
(defun yas/load-directory-1 (directory mode-sym parents &optional no-compiled-snippets) (defun yas/load-directory-1 (directory mode-sym parents &optional no-compiled-snippets)
"Recursively load snippet templates from DIRECTORY." "Recursively load snippet templates from DIRECTORY."
(flet ((most-recent-file (directory)
(reduce #'(lambda (f1 f2)
(if (time-less-p (nth 5 (file-attributes f1))
(nth 5 (file-attributes f2)))
f2 f1))
(directory-files directory 'full "^[^.]"))))
(unless (file-exists-p (concat directory "/" ".yas-skip")) (unless (file-exists-p (concat directory "/" ".yas-skip"))
(when (and (not no-compiled-snippets) yas/compile-on-load-dir (if no-compiled-snippets
(not (or (yas/load-directory-2 directory mode-sym)
(file-exists-p (expand-file-name ".yas-compiled-snippets.el" directory)) ;; handle the loading and auto-generation of a possible
(file-exists-p (expand-file-name ".yas-compiled-snippets.elc" directory))))) ;; .yas-compiled-snippets
(yas/message 3 "Compiling snippets for %s!" directory) ;;
(yas/compile-directory directory)) (let ((compiled (directory-files directory 'full ".yas-compiled-snippets")))
(when yas/auto-compile-snippets
(if (and (not no-compiled-snippets) ;; auto-compile just this directory if we can't find any
(load (expand-file-name ".yas-compiled-snippets" directory) 'noerror (<= yas/verbosity 2))) ;; previous .yas-compiled-snippets files or if they are
(yas/message 2 "Loading much faster .yas-compiled-snippets from %s" directory) ;; out-of-date
;;
(when (or (not compiled)
(not (string= ".yas-compiled-snippets.el"
(file-name-nondirectory (most-recent-file directory)))))
(yas/with-compilation-flets
(yas/load-directory-2 directory mode-sym)))) (yas/load-directory-2 directory mode-sym))))
;; load the .yas-compiled-snippets.el if we can find it
;; (might have just been generated from the previous step)
;;
(if (load (expand-file-name ".yas-compiled-snippets" directory) 'noerror (<= yas/verbosity 2))
(yas/message 2 "Loading much faster .yas-compiled-snippets from %s" directory)
(yas/load-directory-2 directory mode-sym)))))))
(defun yas/load-directory-2 (directory mode-sym) (defun yas/load-directory-2 (directory mode-sym)
;; Load .yas-setup.el files wherever we find them ;; Load .yas-setup.el files wherever we find them
@ -1804,12 +1821,7 @@ foo\"bar\\! -> \"foo\\\"bar\\\\!\""
"For backward compatibility, enable `yas/minor-mode' globally" "For backward compatibility, enable `yas/minor-mode' globally"
(yas/global-mode 1)) (yas/global-mode 1))
(defun yas/compile-directory (top-level-dir) (defun yas/call-with-compilation-flets (fn)
"Create .yas-compiled-snippets.el files under subdirs of TOP-LEVEL-DIR.
This works by stubbing a few functions, then calling
`yas/load-directory'."
(interactive "DTop level snippet directory?")
(flet ((yas/load-yas-setup-file (flet ((yas/load-yas-setup-file
(file) (file)
(let ((elfile (concat file ".el"))) (let ((elfile (concat file ".el")))
@ -1847,12 +1859,28 @@ This works by stubbing a few functions, then calling
(insert "\n\n"))) (insert "\n\n")))
(yas/load-directory-1 (yas/load-directory-1
(dir mode parents &rest ignore) (dir mode parents &rest ignore)
(yas/compile-directory-1 dir mode)))
(funcall fn)))
(defmacro yas/with-compilation-flets (&rest body)
`(yas/call-with-compilation-flets #'(lambda () ,@body)))
(defun yas/compile-directory (top-level-dir)
"Create .yas-compiled-snippets.el files under subdirs of TOP-LEVEL-DIR.
This works by stubbing a few functions, then calling
`yas/load-directory'."
(interactive "DTop level snippet directory?")
(yas/with-compilation-flets
(yas/load-directory top-level-dir)))
(defun yas/compile-directory-1 (dir mode)
"Must be called from within `yas/with-compilation-flets'."
(let ((output-file (concat (file-name-as-directory dir) ".yas-compiled-snippets.el"))) (let ((output-file (concat (file-name-as-directory dir) ".yas-compiled-snippets.el")))
(with-temp-file output-file (with-temp-file output-file
(insert (format ";;; Compiled snippets and support files for `%s'\n" mode)) (insert (format ";;; Compiled snippets and support files for `%s'\n" mode))
(yas/load-directory-2 dir mode) (yas/load-directory-2 dir mode)
(insert (format ";;; Do not edit! File generated at %s\n" (current-time-string))))))) (insert (format ";;; Do not edit! File generated at %s\n" (current-time-string))))))
(yas/load-directory top-level-dir nil)))
(defun yas/recompile-all () (defun yas/recompile-all ()
"Compile every dir in `yas/snippet-dirs'." "Compile every dir in `yas/snippet-dirs'."