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

yas--document-symbol: reindent

Browse Source
This commit is contained in:
Noam Postavsky 2013-11-28 22:06:06 -05:00
parent 46c378d738
commit 21914cfe32
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
doc/yas-doc-helper.el
View File

@ -65,23 +65,26 @@
;; FOO becomes /foo/
;; `bar' becomes [[#bar][=bar=]]
(setq body (replace-regexp-in-string
"[A-Z][A-Z-]+" #'(lambda (match)
(setq match (downcase match))
(format (if (member match args)
"=%s=" "/%s/")
match))
"[A-Z][A-Z-]+"
#'(lambda (match)
(setq match (downcase match))
(format (if (member match args)
"=%s=" "/%s/")
match))
body t)
body (replace-regexp-in-string "`\\([a-z-]+\\)'" #'(lambda (match)
(let* ((name (downcase (match-string 1 match)))
(sym (intern name)))
(if (and (or (boundp sym)
(fboundp sym))
(save-match-data
(string-match "^yas-" name)))
(format "[[#%s][=%s=]]"
name name)
(format "=%s=" name))))
body))
body (replace-regexp-in-string
"`\\([a-z-]+\\)'"
#'(lambda (match)
(let* ((name (downcase (match-string 1 match)))
(sym (intern name)))
(if (and (or (boundp sym)
(fboundp sym))
(save-match-data
(string-match "^yas-" name)))
(format "[[#%s][=%s=]]"
name name)
(format "=%s=" name))))
body))
;; output the paragraph
;;
(concat-lines heading