From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Sat, 2 May 2015 18:37:46 +0000 (+0200)
Subject: added helm-c-yasnippet and bound to C-c y.
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=83f9fad8588dd6619015329ddb34fdc886ef729d;p=emacsconfig.git

added helm-c-yasnippet and bound to C-c y.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/bba.org b/bba.org
index 2ac7fd59..f5ed5a74 100644
--- a/bba.org
+++ b/bba.org
@@ -177,7 +177,7 @@ See [[https://github.com/toctan/smartparens][Smartparens on github]].
   (require 'yasnippet)
   (setq yas-snippet-dirs '("~/.emacs.d/snippets"))
   (yas-global-mode 1)
-
+  (define-key global-map "\C-cy" 'yas/insert-snippet)
 #+END_SRC
 *** [[https://github.com/flycheck/flycheck][flycheck]]
 
@@ -1308,6 +1308,8 @@ Some links you might check out:
         (global-set-key "\C-cr" 'helm-recentf)
         (global-set-key (kbd "M-s o") 'helm-occur)
         (define-key global-map "\C-x\C-b" 'helm-buffers-list)
+        (define-key global-map "\C-cy" 'helm-yas-complete)
+        (setq helm-yas-display-key-on-candidate t)
 
         (add-hook 'eshell-mode-hook
                   #'(lambda()
@@ -1373,57 +1375,55 @@ to convert hard tabs to the appropriate number of spaces, and a tabify
 function to convert groups of spaces to hard tabs.
 
 #+BEGIN_SRC emacs-lisp
-    (define-key bba/toggle "w" 'whitespace-mode)
+  (define-key bba/toggle "w" 'whitespace-mode)
 
-    (define-prefix-command 'bba/launcher)
-    (define-key global-map "\C-xl" 'bba/launcher)
+  (define-prefix-command 'bba/launcher)
+  (define-key global-map "\C-xl" 'bba/launcher)
 
-    (define-key bba/launcher "b" 'browse-url-at-point)
-    (define-key bba/launcher "c" 'calculator)
-    (define-key bba/launcher "d" 'ediff-buffers)
-    (define-key bba/launcher "e" 'elfeed)
-    (define-key bba/launcher "i" 'ielm)
-    (define-key bba/launcher "s" 'shell)
-    (define-key bba/launcher "S" 'synonyms)
-    (define-key bba/launcher "t" 'git-timemachine)
-    (define-key bba/launcher "T" 'twittering-mode)
+  (define-key bba/launcher "b" 'browse-url-at-point)
+  (define-key bba/launcher "c" 'calculator)
+  (define-key bba/launcher "d" 'ediff-buffers)
+  (define-key bba/launcher "e" 'elfeed)
+  (define-key bba/launcher "i" 'ielm)
+  (define-key bba/launcher "s" 'shell)
+  (define-key bba/launcher "S" 'synonyms)
+  (define-key bba/launcher "t" 'git-timemachine)
+  (define-key bba/launcher "T" 'twittering-mode)
 
-    (define-key global-map "\C-c\C-t" 'insert-timestamp)
-    (define-key global-map "\C-c\M-c" 'centered-cursor-mode)
+  (define-key global-map "\C-c\C-t" 'insert-timestamp)
+  (define-key global-map "\C-c\M-c" 'centered-cursor-mode)
 
-    (define-key global-map "\C-ci" 'imenu)
-    (define-key global-map "\C-c\S-g" 'rgrep)
-    (define-key global-map "\C-cf" 'load-git-cfengine)
+  (define-key global-map "\C-ci" 'imenu)
+  (define-key global-map "\C-c\S-g" 'rgrep)
+  (define-key global-map "\C-cf" 'load-git-cfengine)
 
-    (define-key global-map "\C-c\C-w" 'fixup-whitespace)
+  (define-key global-map "\C-c\C-w" 'fixup-whitespace)
 
-    (define-key global-map "\M-g\M-d" 'magit-diff-unstaged)
-    (define-key global-map "\M-g\M-b" 'magit-branch-manager)
-    (define-key global-map "\M-gb" 'magit-blame-mode)
-    (define-key global-map "\C-cm" 'magit-status)
-
-    (define-key global-map "\C-c\S-f" (lambda()
-                                     (interactive)
-                                     (message (buffer-file-name))))
+  (define-key global-map "\M-g\M-d" 'magit-diff-unstaged)
+  (define-key global-map "\M-g\M-b" 'magit-branch-manager)
+  (define-key global-map "\M-gb" 'magit-blame-mode)
+  (define-key global-map "\C-cm" 'magit-status)
 
-    (if (<= emacs-major-version 23)
-        (progn
-          (define-key global-map "\C-cw" (lambda ()
-                                           (interactive)
-                                           (let ((woman-use-topic-at-point t))
-                                             (woman))))
-          (define-key global-map "\C-x\C-b" 'ibuffer)
-          )
-    )
+  (define-key global-map "\C-c\S-f" (lambda()
+                                   (interactive)
+                                   (message (buffer-file-name))))
 
-    (define-key global-map "\C-cy" 'yas/insert-snippet)
+  (if (<= emacs-major-version 23)
+      (progn
+        (define-key global-map "\C-cw" (lambda ()
+                                         (interactive)
+                                         (let ((woman-use-topic-at-point t))
+                                           (woman))))
+        (define-key global-map "\C-x\C-b" 'ibuffer)
+        )
+  )
 
-    (define-key global-map "\C-c\M-d" 'diff-buffer-with-file)
+  (define-key global-map "\C-c\M-d" 'diff-buffer-with-file)
 
-    ;;; ** Use C-+ and C-- to adjust font size
+  ;;; ** Use C-+ and C-- to adjust font size
 
-    (define-key global-map (kbd "C-+") 'text-scale-increase)
-    (define-key global-map (kbd "C--") 'text-scale-decrease)
+  (define-key global-map (kbd "C-+") 'text-scale-increase)
+  (define-key global-map (kbd "C--") 'text-scale-decrease)
 
 
 
diff --git a/custom.el b/custom.el
index 706cd7e1..4316c884 100644
--- a/custom.el
+++ b/custom.el
@@ -22,6 +22,7 @@
  ;; If there is more than one, they won't work right.
  '(default ((t (:inherit nil :stipple nil :background "black" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 1 :width normal :foundry "default" :family "default"))))
  '(cursor ((t (:foreground "red"))))
+ '(helm-selection ((((background dark)) (:background "white" :distant-foreground "black")) (((background light)) (:background "#b5ffd1" :distant-foreground "black"))))
  '(rainbow-delimiters-depth-1-face ((((background dark)) (:foreground "gray90"))))
  '(rainbow-delimiters-depth-2-face ((((background dark)) (:foreground "#ff82ab"))))
  '(rainbow-delimiters-depth-3-face ((((background dark)) (:foreground "#66ffff"))))
diff --git a/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet-autoloads.el b/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet-autoloads.el
new file mode 100644
index 00000000..faa11e92
--- /dev/null
+++ b/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet-autoloads.el
@@ -0,0 +1,40 @@
+;;; helm-c-yasnippet-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (helm-yas-create-snippet-on-region helm-yas-visit-snippet-file
+;;;;;;  helm-yas-complete) "helm-c-yasnippet" "helm-c-yasnippet.el"
+;;;;;;  (21827 20380 0 0))
+;;; Generated autoloads from helm-c-yasnippet.el
+
+(autoload 'helm-yas-complete "helm-c-yasnippet" "\
+List of yasnippet snippets using `helm' interface.
+
+\(fn)" t nil)
+
+(autoload 'helm-yas-visit-snippet-file "helm-c-yasnippet" "\
+List of yasnippet snippet files
+
+\(fn)" t nil)
+
+(autoload 'helm-yas-create-snippet-on-region "helm-c-yasnippet" "\
+Create a snippet from region.
+
+\(fn &optional START END FILE-NAME)" t nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("helm-c-yasnippet-pkg.el") (21827 20380
+;;;;;;  405368 0))
+
+;;;***
+
+(provide 'helm-c-yasnippet-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; helm-c-yasnippet-autoloads.el ends here
diff --git a/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet-pkg.el b/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet-pkg.el
new file mode 100644
index 00000000..66694c0b
--- /dev/null
+++ b/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet-pkg.el
@@ -0,0 +1 @@
+(define-package "helm-c-yasnippet" "20140131.226" "helm source for yasnippet.el" (quote ((helm "1.5.8") (yasnippet "0.8.0") (cl-lib "0.3"))))
diff --git a/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet.el b/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet.el
new file mode 100644
index 00000000..68081cb5
--- /dev/null
+++ b/elpa/helm-c-yasnippet-20140131.226/helm-c-yasnippet.el
@@ -0,0 +1,406 @@
+;;; helm-c-yasnippet.el --- helm source for yasnippet.el
+
+;; Copyright (C) 2008, 2009, 2010, 2011 Kenji.I (Kenji Imakado) <ken.imakaado@gmail.com>
+;; Copyright (C) 2012,2013 Yuhei Maeda <yuhei.maeda_at_gmail.com>
+;; Copyright (C) 2014 Yuhei Maeda <yuhei.maeda_at_gmail.com>, Yasuyuki Oka <yasuyk_at_gmail.com>
+
+;; Author: Kenji.I (Kenji Imakado) <ken.imakaado@gmail.com>
+;; Version: 0.6.6
+;; Package-Version: 20140131.226
+;; Package-Requires: ((helm "1.5.8")(yasnippet "0.8.0") (cl-lib "0.3"))
+;; Keywords: convenience, emulation
+
+;; 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:
+
+;; Actions: Insert snippet, Open snippet file, Open snippet file other window
+;; C-z: execute-persistent-action
+
+;;; Changelog:
+;;  2012/08/11   Port to helm
+;;               Fixed bug on yasnippet 0.7.0
+;;  2012/08/23   Support yasnippet 0.8.0
+;;
+
+;;; Commands:
+;;
+;; Below are complete command list:
+;;
+;;  `helm-yas-complete'
+;;    List of yasnippet snippets using `helm' interface.
+;;  `helm-yas-create-snippet-on-region'
+;;    Create a snippet from region.
+;;
+;;; Customizable Options:
+;;
+;; Below are customizable option list:
+;;
+;;  `helm-yas-not-display-dups'
+;;    if non-nil not display duplicate snippet otherwise display all snippet
+;;    default = t
+;;  `helm-yas-display-msg-after-complete'
+;;    if non-nil display snippet key message in minibuffer after Complete
+;;    default = t
+;;  `helm-yas-space-match-any-greedy'
+;;    if non-nil helm pattern space match anyword greedy.
+;;    default = nil
+;;  `helm-yas-display-key-on-candidate'
+;;    if non-nil helm display candidate(snippet name) include key
+;;    default = nil
+
+;; here's my yasnippet's configuration
+;; (require 'yasnippet)
+;; (require 'helm-c-yasnippet)
+;; (setq helm-yas-space-match-any-greedy t) ;[default: nil]
+;; (global-set-key (kbd "C-c y") 'helm-yas-complete)
+;; (yas-global-mode 1)
+;; (yas-load-directory "<path>/<to>/snippets/")
+
+;;; Code:
+(require 'cl-lib)
+(require 'helm)
+(require 'yasnippet)
+
+(defgroup helm-yasnippet nil
+  "helm config yasnippet"
+  :group 'helm)
+
+(defcustom helm-yas-not-display-dups t
+  "if non-nil not display duplicate snippet otherwise display all snippet"
+  :type 'boolean
+  :group 'helm-yasnippet)
+
+(defcustom helm-yas-display-msg-after-complete t
+  "if non-nil display snippet key message in minibuffer after Complete"
+  :type 'boolean
+  :group 'helm-yasnippet)
+
+(defcustom helm-yas-space-match-any-greedy nil
+  "if non-nil helm pattern space match anyword greedy.
+pattern regexp: \"if else\" replace to \"if.*else\"
+match \"if (...) { ... } else { ... }\" and \"if, elsif, else ...\"
+quite convenience
+Default: nil"
+  :type 'boolean
+  :group 'helm-yasnippet)
+
+(defcustom helm-yas-display-key-on-candidate nil
+  "if non-nil helm display candidate(snippet name) include key
+ex. [for] for (...) { ... }
+otherwise display just name
+ex. for (...) { ... }"
+  :type 'boolean
+  :group 'helm-yasnippet)
+
+(defcustom helm-yas-create-new-snippet-insert-function
+  'helm-yas-create-new-snippet-insert
+  "Function to be called when create new insert file."
+  :type 'function
+  :group 'helm-yasnippet)
+
+(defvar helm-yas-cur-snippets-alist nil)
+
+(defun helm-yas-create-new-snippet-insert (selected-text snippet-file)
+  "Insert SELECTED-TEXT into SNIPPET-FILE."
+  (let* ((name (file-name-sans-extension
+                (file-name-nondirectory
+                 (directory-file-name snippet-file))))
+         (string-format "# -*- mode: snippet -*-\n#name : %s\n#key : %s\n#contributor : %s\n# --\n"))
+    (insert (format string-format name name user-full-name) selected-text)))
+
+(defun helm-yas-create-new-snippet-file (selected-text snippet-file)
+  "Create snippet file with inserted SELECTED-TEXT into SNIPPET-FILE."
+  (with-current-buffer (find-file snippet-file)
+    (snippet-mode)
+    (funcall helm-yas-create-new-snippet-insert-function selected-text snippet-file)))
+
+(defun helm-yas-create-new-snippet (selected-text &optional snippet-file)
+  "Create snippet from SELECTED-TEXT into SNIPPET-FILE.
+If SNIPPET-FILE is nil, asks file name.
+If SNIPPET-FILE does not contain directory, it is placed in default snippet directory."
+  (let* ((major-mode-dir (regexp-quote (symbol-name major-mode)))
+         (yas-dir (expand-file-name (or (car-safe yas/root-directory) yas/root-directory)))
+         (snippet-dir
+          (or (helm-yas-find-recursively major-mode-dir yas-dir 'snippet-file)
+              (let ((target-dir (format "%s/%s/" yas-dir major-mode-dir)))
+                (if (yes-or-no-p (format "%s doesn't exist. Would you like to create this directory?" target-dir))
+                    (progn (make-directory target-dir)
+                           (setq snippet-dir target-dir))
+                  (deactivate-mark)
+                  (error "Snippet creation failed"))))))
+    (setq snippet-file
+          (helm-aif snippet-file
+              (expand-file-name snippet-file snippet-dir)
+            (read-file-name "create snippet : " snippet-dir snippet-dir)))
+    (when (file-exists-p snippet-file)
+      (error "can't create file [%s] already exists" (file-name-nondirectory snippet-file)))
+    (helm-yas-create-new-snippet-file selected-text snippet-file)))
+
+(defun helm-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 (cl-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 (helm-yas-find-recursively regexp file predicate))))
+          finally (return result))))
+
+
+(defun helm-yas-build-cur-snippets-alist (&optional table)
+  (let ((yas-choose-keys-first nil)
+        (yas-choose-tables-first nil)
+        (yas-buffer-local-condition 'always))
+    (let* ((result-alist '((candidates) (transformed) (template-key-alist) (template-file-alist)))
+           (cur-tables
+            (if table
+                (list table)
+              (yas--get-snippet-tables)))
+           (hash-value-alist nil))
+      (let ((hashes (loop for table in cur-tables
+                          collect (yas--table-hash table))))
+        (loop for hash in hashes
+              do (maphash (lambda (k v)
+                            (let (a)
+                              (maphash (lambda (n te)
+                                         (setq a (append (list (cons k te)) a)))
+                                       v)
+                              (setq hash-value-alist (append a hash-value-alist))))
+                          hash))
+        (loop with transformed
+              with templates
+              with template-key-alist
+              with template-file-alist
+              for lst in hash-value-alist
+              for key = (car lst)
+              for template-struct = (cdr lst)
+              for name = (yas--template-name template-struct) ;`yas--template-name'
+              for template = (yas--template-content template-struct) ;`yas--template-content'
+              for file = (yas--template-file template-struct) ;`yas--template-content'
+              do (progn (push template templates)
+                        (push `(,name . ,template) transformed)
+                        (push `(,template . ,key) template-key-alist)
+                        (push `(,template . ,file) template-file-alist)
+                        )
+              finally (progn (push `(candidates . ,templates) result-alist)
+                             (push `(transformed . ,transformed) result-alist)
+                             (push `(template-file-alist . ,template-file-alist) result-alist)
+                             (push `(template-key-alist . ,template-key-alist) result-alist)))
+        result-alist)
+      )))
+
+(defun helm-yas-get-cmp-context ()
+  "Return list (initial-input point-start point-end)
+like `yas--current-key'"
+  (let ((start (point))
+        (end (point))
+        (syntax "w_"))
+    (condition-case nil
+        (save-excursion
+          (when mark-active
+            (error ""))
+          (skip-syntax-backward syntax)
+          (setq start (point))
+          (values (buffer-substring-no-properties start end) start end))
+      (error (values "" (point) (point))))))
+
+(defun helm-yas-get-key-by-template (template alist) ;str template
+  "Return key"
+  (assoc-default template (assoc-default 'template-key-alist alist)))
+
+(defun helm-yas-get-candidates (alist)
+  "Return list of template"
+  (assoc-default 'candidates alist 'eq))
+
+(defun helm-yas-get-transformed-list (alist initial-input)
+  "Return list of dotlist, (DISPLAY . REAL) DISPLAY is name of snippet, REAL is template of snippet"
+  (let ((transformed-list (assoc-default 'transformed alist 'eq)))
+    (cond
+     ;; display key on candidate ex: [for] for (...) { ... }
+     (helm-yas-display-key-on-candidate
+      (setq transformed-list (cl-remove-if-not (lambda (lst)
+                                                 (string-match (concat "^" (regexp-quote initial-input)) (car lst)))
+                                               transformed-list))
+      (setq transformed-list (loop for dotlst in transformed-list
+                                   for name = (car dotlst)
+                                   for template = (cdr dotlst)
+                                   for key = (helm-yas-get-key-by-template template alist)
+                                   for name-inc-key = (concat "[" key "] " name)
+                                   collect `(,name-inc-key . ,template))))
+     ;; default ex: for (...) { ... }
+     (t
+      (setq transformed-list (cl-remove-if-not (lambda (lst)
+                                                 (string-match (concat "^" (regexp-quote initial-input)) (car lst)))
+                                               transformed-list))))
+    (when helm-yas-not-display-dups
+      (setq transformed-list (delete-dups transformed-list)))
+    ;; sort
+    (setq transformed-list (cl-sort transformed-list 'string< :key 'car))
+    transformed-list))
+
+(defun helm-yas-find-file-snippet-by-template (template &optional other-window)
+ (let* ((path (helm-yas-get-path-by-template template))
+;;  (let* ((path (assoc-default template (assoc-default 'template-file-alist helm-yas-cur-snippets-alist)))
+         (ff-func (if other-window 'find-file-other-window 'find-file)))
+    (if path
+        (funcall ff-func path)
+      (message "not found snippet file"))))
+
+(defun helm-yas-get-path-by-template (template)
+  (assoc-default template (assoc-default 'template-file-alist helm-yas-cur-snippets-alist)))
+
+(defun helm-yas-match (candidate)
+  "if customize variable `helm-yas-space-match-any-greedy' is non-nil
+space match anyword greedy"
+  (cond
+   (helm-yas-space-match-any-greedy
+    (let ((re (replace-regexp-in-string "[ \t]+" ".*" helm-pattern)))
+      (string-match re candidate)))
+   (t
+    (string-match helm-pattern candidate))))
+
+(defvar helm-yas-initial-input "")
+(defvar helm-yas-point-start nil)
+(defvar helm-yas-point-end nil)
+(defvar helm-yas-selected-text "" "region text if mark-active otherwise \"\"")
+(defvar helm-source-yasnippet
+  `((name . "Yasnippet")
+    (init . (lambda ()
+              (setq helm-yas-selected-text (if mark-active (buffer-substring-no-properties (region-beginning) (region-end)) ""))
+              (multiple-value-setq
+                  (helm-yas-initial-input helm-yas-point-start helm-yas-point-end) (helm-yas-get-cmp-context)) ;return values(str point point)
+              (setq helm-yas-cur-snippets-alist (helm-yas-build-cur-snippets-alist))))
+    (candidates . (helm-yas-get-candidates helm-yas-cur-snippets-alist))
+    (candidate-transformer . (lambda (candidates)
+                               (helm-yas-get-transformed-list helm-yas-cur-snippets-alist helm-yas-initial-input)))
+    (action . (("Insert snippet" . (lambda (template)
+                                     (yas-expand-snippet template helm-yas-point-start helm-yas-point-end)
+                                     (when helm-yas-display-msg-after-complete
+                                       (message "this snippet is bound to [ %s ]"
+                                                (helm-yas-get-key-by-template template helm-yas-cur-snippets-alist)))))
+               ("Open snippet file" . (lambda (template)
+										(helm-yas-find-file-snippet-by-template template)))
+               ("Open snippet file other window" . (lambda (template)
+                                                     (helm-yas-find-file-snippet-by-template template t)))
+               ("Create new snippet on region" . (lambda (template)
+                                                   (helm-yas-create-new-snippet helm-yas-selected-text)))
+               ("Reload All Snippts" . (lambda (template)
+                                         (yas-reload-all)
+                                         (message "Reload All Snippts done")))
+               ("Rename snippet file" . (lambda (template)
+                                       (let* ((path (or (helm-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 (helm-yas-get-path-by-template template) "")))
+                                            (when (y-or-n-p "really delete?")
+                                              (delete-file path)
+                                              (yas-reload-all)))))))
+    (persistent-action . (lambda (template)
+                           (helm-yas-find-file-snippet-by-template template)))
+    (match . (helm-yas-match))))
+
+
+;;; visit template
+(defun helm-yas-all-templates ()
+  (let ((tables (yas--get-snippet-tables)))
+    (loop for table in tables
+          append (yas--table-templates table))))
+
+(defun helm-yas-snippet-files-candidates ()
+  "called in `helm-source-yasnippet-snippet-files' candidates"
+  (let ((yas-choose-keys-first nil)
+        (yas-choose-tables-first nil)
+        (yas-buffer-local-condition 'always))
+    (with-current-buffer helm-current-buffer
+      (cl-mapcar 'yas--template-file
+                 (mapcar 'cdr
+                         (helm-yas-all-templates))))))
+
+;; (helm 'helm-source-yasnippet-snippet-files)
+(defvar helm-source-yasnippet-snippet-files
+  '((name . "yasnippet snippet files")
+    (candidates . helm-yas-snippet-files-candidates)
+    (type . file)
+    ))
+
+
+;;; Commands
+
+;;;###autoload
+(defun helm-yas-complete ()
+  "List of yasnippet snippets using `helm' interface."
+  (interactive)
+  (helm 'helm-source-yasnippet))
+
+;;;###autoload
+(defun helm-yas-visit-snippet-file ()
+  "List of yasnippet snippet files"
+  (interactive)
+  (helm 'helm-source-yasnippet-snippet-files))
+
+;;;###autoload
+(defun helm-yas-create-snippet-on-region (&optional start end file-name)
+  "Create a snippet from region."
+  (interactive "r")
+  (let ((str (buffer-substring-no-properties start end)))
+    (helm-yas-create-new-snippet str file-name)))
+;; (helm-yas-create-snippet-on-region (region-beginning) (region-end) "aaaa")
+
+
+(define-obsolete-variable-alias 'helm-c-yas-not-display-dups 'helm-yas-not-display-dups "0.6.4")
+(define-obsolete-variable-alias 'helm-c-yas-display-msg-after-complete 'helm-yas-display-msg-after-complete "0.6.4")
+(define-obsolete-variable-alias 'helm-c-yas-space-match-any-greedy 'helm-yas-space-match-any-greedy "0.6.4")
+(define-obsolete-variable-alias 'helm-c-yas-display-key-on-candidate 'helm-yas-display-key-on-candidate "0.6.4")
+(define-obsolete-variable-alias 'helm-c-yas-cur-snippets-alist 'helm-yas-cur-snippets-alist "0.6.4")
+(define-obsolete-variable-alias 'helm-c-yas-initial-input 'helm-yas-initial-input "0.6.4")
+(define-obsolete-variable-alias 'helm-c-yas-point-start 'helm-yas-point-start "0.6.4")
+(define-obsolete-variable-alias 'helm-c-yas-point-end 'helm-yas-point-end "0.6.4")
+(define-obsolete-variable-alias 'helm-c-yas-selected-text 'helm-yas-selected-text "0.6.4")
+(define-obsolete-variable-alias 'helm-c-source-yasnippet 'helm-source-yasnippet "0.6.4")
+(define-obsolete-variable-alias 'helm-c-source-yasnippet-snippet-files 'helm-source-yasnippet-snippet-files "0.6.4")
+
+(define-obsolete-function-alias 'helm-c-yas-create-new-snippet 'helm-yas-create-new-snippet "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-find-recursively 'helm-yas-find-recursively "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-build-cur-snippets-alist 'helm-yas-build-cur-snippets-alist "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-get-cmp-context 'helm-yas-get-cmp-context "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-get-key-by-template 'helm-yas-get-key-by-template "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-get-candidates 'helm-yas-get-candidates "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-get-transformed-list 'helm-yas-get-transformed-list "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-find-file-snippet-by-template 'helm-yas-find-file-snippet-by-template "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-get-path-by-template 'helm-yas-get-path-by-template "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-match 'helm-yas-match "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-all-templates 'helm-yas-all-templates "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-snippet-files-candidates 'helm-yas-snippet-files-candidates "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-complete 'helm-yas-complete "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-visit-snippet-file 'helm-yas-visit-snippet-file "0.6.4")
+(define-obsolete-function-alias 'helm-c-yas-create-snippet-on-region 'helm-yas-create-snippet-on-region "0.6.4")
+
+(provide 'helm-c-yasnippet)
+;;; helm-c-yasnippet.el ends here
diff --git a/elpa/helm-c-yasnippet-readme.txt b/elpa/helm-c-yasnippet-readme.txt
new file mode 100644
index 00000000..934b2f02
--- /dev/null
+++ b/elpa/helm-c-yasnippet-readme.txt
@@ -0,0 +1,2 @@
+Actions: Insert snippet, Open snippet file, Open snippet file other window
+C-z: execute-persistent-action