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

* Empty fields that are the last of the list *and* match the

Browse Source 
snippet's exit are skipped automatically.
* Added a printf snippet to show off. 
* The printf snippet also exhibits the back-adjacent mirror bug
This commit is contained in:
capitaomorte 2009-07-25 16:26:27 +00:00
parent 17908a90cb
commit 3b6e9dda59
3 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
snippets/text-mode/cc-mode/c-mode/printf Normal file
View File

@ -0,0 +1,20 @@
# name : printf
# contributor : joaotavora
# description : a snippet that is very slightly buggy in 0.6.0b. There *must* be a space before the $2!
#
# While a per-snippet exit-hook property does not exist, this can be fixed with
# this in your .emacs
#
# (setq yas/after-exit-snippet-hook '(yas/munch-useless-spaces-at-end))
#
# (defun yas/munch-useless-spaces-at-end ()
# (let ((end (1- yas/snippet-end)))
# (while (= (char-after end) ?\s)
# (setq end (1- end))
# (backward-char))
# (delete-region (point) yas/snippet-end)))
#
# but this might break some other snippets...
#
# --
printf ("${1:%s}\\n"${1:$(if (string-match "%" text) "," "\);")} $2${1:$(if (string-match "%" text) "\);" "")}

3
snippets/text-mode/snippet-mode/mirror
View File

@ -2,5 +2,4 @@
# key : $m # key : $m
# contributor : joaotavora # contributor : joaotavora
# -- # --
\${${2:n}:${4:\$(${5:reflection-fn})}\}$0 \${${2:n}:${4:\$(${5:reflection-fn})}\}$0

13
yasnippet.el
View File

@ -1598,10 +1598,12 @@ have, compare through the field's start point"
(< (yas/field-start field1) (< (yas/field-start field1)
(yas/field-start field2)))))) (yas/field-start field2))))))
(defun yas/field-probably-deleted-p (field) (defun yas/field-probably-deleted-p (snippet field)
"Guess if FIELD was deleted because of his parent-field" "Guess if SNIPPET's FIELD should be skipped."
(and (zerop (- (yas/field-start field) (yas/field-end field))) (and (zerop (- (yas/field-start field) (yas/field-end field)))
(yas/field-parent-field field))) (or (yas/field-parent-field field)
(and (eq field (car (last (yas/snippet-fields snippet))))
(= (yas/field-start field) (overlay-end (yas/snippet-control-overlay snippet)))))))
(defun yas/snippets-at-point (&optional all-snippets) (defun yas/snippets-at-point (&optional all-snippets)
"Return a sorted list of snippets at point, most recently "Return a sorted list of snippets at point, most recently
@ -1636,7 +1638,7 @@ delegate to `yas/next-field'."
(active-field (overlay-get yas/active-field-overlay 'yas/field)) (active-field (overlay-get yas/active-field-overlay 'yas/field))
(live-fields (remove-if #'(lambda (field) (live-fields (remove-if #'(lambda (field)
(and (not (eq field active-field)) (and (not (eq field active-field))
(yas/field-probably-deleted-p field))) (yas/field-probably-deleted-p snippet field)))
(yas/snippet-fields snippet))) (yas/snippet-fields snippet)))
(active-field-pos (position active-field live-fields)) (active-field-pos (position active-field live-fields))
(target-pos (and active-field-pos (+ arg active-field-pos))) (target-pos (and active-field-pos (+ arg active-field-pos)))
@ -1848,7 +1850,8 @@ snippet, if so cleans up the whole snippet up."
;; ;;
(let* ((snippet (car (yas/snippets-at-point))) (let* ((snippet (car (yas/snippets-at-point)))
(target-field (and snippet (target-field (and snippet
(find-if-not #'yas/field-probably-deleted-p (find-if-not #'(lambda (field)
(yas/field-probably-deleted-p snippet field))
(remove nil (remove nil
(cons (yas/snippet-active-field snippet) (cons (yas/snippet-active-field snippet)
(yas/snippet-fields snippet))))))) (yas/snippet-fields snippet)))))))