diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-04-02 20:34:09 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-04-02 20:34:09 +0100 |
| commit | 23a617eb0dead4ef3c1398c09eb5185294c87bc4 (patch) | |
| tree | 776fbcf1a96112c0a6df839e26205cc7cd1a4f9c /sx-question-print.el | |
| parent | eb62c729042c55ac7335ecee807b82e3c4c7fc5b (diff) | |
Improve separator appearance.
Diffstat (limited to 'sx-question-print.el')
| -rw-r--r-- | sx-question-print.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index 7f312eb..6a7607d 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -126,7 +126,9 @@ the editor's name." :group 'sx-question-mode) (defcustom sx-question-mode-separator - (concat (make-string 69 ?_) "\n") + (concat (propertize (make-string 72 ?\s) + 'face '(underline sx-question-mode-header)) + "\n") "Separator used between header and body." :type 'string :group 'sx-question-mode) @@ -329,16 +331,12 @@ DATA can represent a question or an answer." (sx-tag--format-tags .tags .site_par) nil)) ;; Body - (insert "\n" - (propertize sx-question-mode-separator - 'face 'sx-question-mode-header)) + (insert "\n" sx-question-mode-separator) (sx--wrap-in-overlay '(face sx-question-mode-content-face) (insert "\n") (sx-question-mode--insert-markdown .body_markdown) - (insert "\n" - (propertize sx-question-mode-separator - 'face 'sx-question-mode-header))) + (insert "\n" sx-question-mode-separator)) ;; Clean up commments manually deleted. The `append' call is ;; to ensure `comments' is a list and not a vector. (let ((comments (cl-remove-if #'sx--deleted-p (append .comments nil)))) |