yas--document-symbol: reindent

This commit is contained in:
Noam Postavsky 2013-11-28 22:06:06 -05:00
parent 46c378d738
commit 21914cfe32

View File

@ -65,13 +65,16 @@
;; FOO becomes /foo/ ;; FOO becomes /foo/
;; `bar' becomes [[#bar][=bar=]] ;; `bar' becomes [[#bar][=bar=]]
(setq body (replace-regexp-in-string (setq body (replace-regexp-in-string
"[A-Z][A-Z-]+" #'(lambda (match) "[A-Z][A-Z-]+"
#'(lambda (match)
(setq match (downcase match)) (setq match (downcase match))
(format (if (member match args) (format (if (member match args)
"=%s=" "/%s/") "=%s=" "/%s/")
match)) match))
body t) body t)
body (replace-regexp-in-string "`\\([a-z-]+\\)'" #'(lambda (match) body (replace-regexp-in-string
"`\\([a-z-]+\\)'"
#'(lambda (match)
(let* ((name (downcase (match-string 1 match))) (let* ((name (downcase (match-string 1 match)))
(sym (intern name))) (sym (intern name)))
(if (and (or (boundp sym) (if (and (or (boundp sym)