diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-21 17:53:52 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-21 17:53:52 -0200 |
| commit | 85dc0ab2137d793a43967e8771933161b1701c47 (patch) | |
| tree | 3c2afaee1470e22cc31eff3d1a629a2a278791b2 /sx-question-print.el | |
| parent | 5f2a058a088229264c9e900527c7be7d915b43b9 (diff) | |
| parent | ca121c0c65e0e689af2ee859fdd8ebea8bc44bc5 (diff) | |
Merge branch 'master' into images
Diffstat (limited to 'sx-question-print.el')
| -rw-r--r-- | sx-question-print.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index 9f51b4c..6c85d5f 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -238,7 +238,7 @@ DATA can represent a question or an answer." ;; Tags (sx-question-mode--insert-header sx-question-mode-header-tags - (mapconcat #'sx-tag--format .tags " ") + (sx-tag--format-tags .tags .site_par) nil)) ;; Body (insert "\n" @@ -335,8 +335,9 @@ E.g.: (defconst sx-question-mode--link-regexp ;; Done at compile time. - (rx (or (and "[tag:" (group-n 5 (+ (not (any " ]")))) "]") - (and (opt "!") "[" (group-n 1 (1+ (not (any "[]")))) "]" + (rx (or (and "[" (optional (group-n 6 "meta-")) "tag:" + (group-n 5 (+ (not (any " ]")))) "]") + (and (opt "!") "[" (group-n 1 (1+ (not (any "]")))) "]" (or (and "(" (group-n 2 (1+ (not (any ")")))) ")") (and "[" (group-n 3 (1+ (not (any "]")))) "]"))) (group-n 4 (and (and "http" (opt "s") "://") "" @@ -390,7 +391,8 @@ Image links are downloaded and displayed, if (let ((tag (match-string-no-properties 5))) (if (and tag (> (length tag) 0)) (progn (replace-match "") - (sx-tag--insert tag)) + ;; `match-string' 6 is the "meta-" prefix. + (sx-tag--insert tag (match-string 6))) ;; Other links are link-buttons. (let* ((text (match-string-no-properties 1)) (url (or (match-string-no-properties 2) |