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

Factor out embedded elisp code

Browse Source 
* yasnippet.el (yas--key-from-desc): Added
This commit is contained in:
thisirs 2013-08-19 22:47:14 +02:00
parent 3acb8c5773
commit 80bb95326b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yasnippet.el
View File

@ -190,7 +190,7 @@ as the default for storing the user's new snippets."
(defcustom yas-new-snippet-default "\
# -*- mode: snippet -*-
# name: $1
# key: ${2:${1:$(replace-regexp-in-string \"\\\\\\\\(\\\\\\\\w+\\\\\\\\).*\" \"\\\\\\\\1\" yas-text)}}${3:
# key: ${2:${1:$(yas--key-from-desc yas-text)}}${3:
# binding: ${4:direct-keybinding}}${5:
# expand-env: ((${6:some-var} ${7:some-value}))}${8:
# type: command}
@ -1523,6 +1523,10 @@ Here's a list of currently recognized directives:
(cdr where)
(yas--template-expand-env yas--current-template)))))))
(defun yas--key-from-desc (text)
"Return a yasnippet key from a description string TEXT."
(replace-regexp-in-string "\\(\\w+\\).*" "\\1" text))
;;; Popping up for keys and templates