Changeset 8612 for lang/elisp

Timestamp:

04/01/08 22:21:43 (5 years ago)

Author:

imakado

Message:

lang/elisp/anything-c-yasnippet/anything-c-yasnippet.el:
defvar -> defcustom
ActionsにCreate? new snippet on region、Reload All Snippts、Rename snippet file、Delete snippet fileを追加。
ライセンスを書いた。
バージョンを書いた。(0.3)

Files:

• lang/elisp/anything-c-yasnippet/anything-c-yasnippet.el (modified) (9 diffs)

lang/elisp/anything-c-yasnippet/anything-c-yasnippet.el

@@ -1 +1 @@
 ;;; anything-c-yasnippet.el --- anything config for yasnippet.el
-;; TODO: defvar => defcustom
+
+;; Author: Kenji.I (Kenji Imakado) <ken.imakaado@gmail.com>
+;; Version: 0.3
+;; Keywords: anything yasnippet
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
@@ -53 +71 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defvar anything-c-yas-appear-rule nil) ;; customizable e.i (add-to-list 'anything-c-yas-appear-rule '(ruby-mode . (text-mode html-mode)))
-(defvar anything-c-yas-not-display-dups t) ;; customizable
-(defvar anything-c-yas-display-msg-after-complete t) ;; customizable
-(defvar anything-c-yas-snippets-dir-list nil) ;;customizable list of path(string) for finding snippet file in Action
-(defvar anything-c-yas-space-match-any-greedy nil
-  "non-nil anything pattern, space match anyword greedy.
+;;; Code
+(defvar anything-c-yas-version "0.3" "Version of anything-c-yasnippet")
+
+(defgroup anything-c-yasnippet nil
+  "anything config yasnippet")
+
+(defcustom anything-c-yas-not-display-dups t
+  "if non-nil not display duplicate snippet otherwise display all snippet"
+  :type 'boolean
+  :group 'anything-c-yasnippet)
+
+(defcustom anything-c-yas-display-msg-after-complete t
+  "if non-nil display snippet key message in minibuffer after Complete"
+  :type 'boolean
+  :group 'anything-c-yasnippet)
+
+;(defvar anything-c-yas-snippets-dir-list nil) ;;customizable list of path(string) for finding snippet file in Action
+(defcustom anything-c-yas-snippets-dir-list nil
+  "list of directory used to find snippet file"
+  :type '(repeat (directory
+                  :tag "snippet-directory"))
+  :group 'anything-c-yasnippet)
+
+(defcustom anything-c-yas-space-match-any-greedy nil
+  "if non-nil anything pattern space match anyword greedy.
 pattern regexp: \"if else\" replace to \"if.*else\"
-so match \"if (...) { ... } else { ... }\" and \"if, elsif, else ...\"
-quite convenience") ;; customizable
+match \"if (...) { ... } else { ... }\" and \"if, elsif, else ...\"
+quite convenience
+Default: nil"
+  :type 'boolean
+  :group 'anything-c-yasnippet)
 
 
@@ -71 +111 @@
   ad-do-it)
 
+
+(defun anything-c-yas-create-new-snippet (selected-text)
+  (let* ((mode-name (symbol-name anything-c-yas-cur-major-mode))
+         (root-dir (expand-file-name yas/root-directory))
+         (default-snippet-dir (anything-c-yas-find-recursively mode-name root-dir 'dir))
+         (dir (read-file-name "create snippet : " default-snippet-dir default-snippet-dir)))
+    (condition-case e
+        (progn (when (file-exists-p dir)
+                 (error "can't create file [%s] already exists" (file-name-nondirectory dir)))
+               ;; create buffer, insert template
+               (find-file dir)
+               (insert "#name : \n# --\n " selected-text))
+      (message "%s" (error-message-string e)))))
+
+(defun anything-c-yas-find-recursively (regexp &optional directory predicate)
+  (let ((directory (or directory default-directory))
+        (predfunc (case predicate
+                    (dir 'file-directory-p)
+                    (file 'file-regular-p)
+                    (otherwise 'identity)))
+        (files (remove-if (lambda (s) (string-match "^\\." (file-name-nondirectory  s))) (directory-files directory t)))
+        (found nil)
+        (result nil))
+    (loop for file in files
+          unless found
+          do (if (and (funcall predfunc file)
+                      (string-match regexp file))
+                 (progn (setq found t)
+                        (return (file-name-as-directory file)))
+               (when (file-directory-p file)
+                 (setq result (anything-c-yas-find-recursively regexp file predicate))))
+          finally (return result))))
 
 (defun anything-c-yas-build-cur-snippets-alist (&optional table)
@@ -106 +178 @@
 (defun anything-c-yas-get-modes ()
   (let ((cur-major-mode anything-c-yas-cur-major-mode))
-    (delete-dups (cons cur-major-mode (assoc-default cur-major-mode anything-c-yas-appear-rule)))))
+    (list cur-major-mode)))
 
 (defun anything-c-yas-get-cmp-context ()
@@ -116 +188 @@
     (condition-case nil
         (save-excursion
+          (when mark-active
+            (error ""))
           (skip-syntax-backward syntax)
           (setq start (point))
@@ -166 +240 @@
 
 (defun anything-c-yas-find-file-snippet-by-template (template &optional other-window)
+  (let* ((path (anything-c-yas-get-path-by-template template))
+         (ff-func (if other-window 'find-file-other-window 'find-file)))
+    (if path
+        (funcall ff-func path)
+      (message "not found snippet file"))))
+
+(defun anything-c-yas-get-path-by-template (template)
   (let* ((key (anything-c-yas-get-key-by-template template anything-c-yas-cur-snippets-alist))
-         (path (anything-c-yas-find-snippet-file-by-key key))
-         (ff-func (if other-window 'find-file-other-window 'find-file)))
-    (when path
-      (funcall ff-func path))))
+         (path (anything-c-yas-find-snippet-file-by-key key)))
+    path))
 
 (defun anything-c-yas-match (candidate)
@@ -187 +266 @@
 (defvar anything-c-yas-point-end nil)
 (defvar anything-c-yas-cur-major-mode nil)
+(defvar anything-c-yas-selected-text "" "region text if mark-active otherwise \"\"") 
 (defvar anything-c-source-yasnippet
   `((name . "Yasnippet")
     (init . (lambda ()
               (setq anything-c-yas-cur-major-mode major-mode)
-              (multiple-value-setq (anything-c-yas-initial-input anything-c-yas-point-start anything-c-yas-point-end)
-                                   (anything-c-yas-get-cmp-context)) ;return values(str point point)
+              (setq anything-c-yas-selected-text (if mark-active (buffer-substring-no-properties (region-beginning) (region-end)) ""))
+              (multiple-value-setq
+                  (anything-c-yas-initial-input anything-c-yas-point-start anything-c-yas-point-end) (anything-c-yas-get-cmp-context)) ;return values(str point point)
               (setq anything-c-yas-cur-snippets-alist (anything-c-yas-build-cur-snippets-alist))))
-    (candidates . (lambda ()
-                    (anything-c-yas-get-candidates anything-c-yas-cur-snippets-alist)))
+;;     (candidates . (lambda ()
+;;                     (anything-c-yas-get-candidates anything-c-yas-cur-snippets-alist)))
+    (candidates . (anything-c-yas-get-candidates anything-c-yas-cur-snippets-alist))
     (candidate-transformer . (lambda (candidates)
                                (anything-c-yas-get-transformed-list anything-c-yas-cur-snippets-alist anything-c-yas-initial-input)))
@@ -204 +286 @@
                                                 (anything-c-yas-get-key-by-template template anything-c-yas-cur-snippets-alist)))))
                ("Open snippet file" . (lambda (template)
-                                   (anything-c-yas-find-file-snippet-by-template template)))
+                                        (anything-c-yas-find-file-snippet-by-template template)))
                ("Open snippet file other window" . (lambda (template)
-                                                (anything-c-yas-find-file-snippet-by-template template t)))))
+                                                     (anything-c-yas-find-file-snippet-by-template template t)))
+               ("Create new snippet on region" . (lambda (template)
+                                                   (anything-c-yas-create-new-snippet anything-c-yas-selected-text)))
+               ("Reload All Snippts" . (lambda (template)
+                                         (yas/reload-all)
+                                         (message "Reload All Snippts done")))
+               ("Rename snippet file" . (lambda (template)
+                                       (let* ((path (or (anything-c-yas-get-path-by-template template) ""))
+                                              (dir (file-name-directory path))
+                                              (filename (file-name-nondirectory path))
+                                              (rename-to (read-string (concat "rename [" filename "] to: "))))
+                                         (rename-file path (concat dir rename-to))
+                                         (yas/reload-all))))
+               ("Delete snippet file" . (lambda (template)
+                                          (let ((path (or (anything-c-yas-get-path-by-template template) "")))
+                                            (when (y-or-n-p "really delete?")
+                                              (delete-file path)
+                                              (yas/reload-all)))))))
     (persistent-action . (lambda (template)
                            (anything-c-yas-find-file-snippet-by-template template)))
     (match . (anything-c-yas-match))))
 
-
-
-;;; Command
+
+;;; Commands
 (defun anything-c-yas-complete ()
   (interactive)
@@ -219 +317 @@
     (anything)))
 
+(defun anything-c-yas-create-snippet-on-regin (&optional start end)
+  (interactive "r")
+  (let ((str (buffer-substring-no-properties start end)))
+    (anything-c-yas-create-new-snippet str)))
+  
+
 (provide 'anything-c-yasnippet)
 ;; anything-c-yasnippet.el ends here