Overview
Comment: | Add sbbs-open-at-last-post for compose buffers |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
651e7552b580a76a878a3dd48737e111 |
User & Date: | zge on 2021-05-28 11:58:33 |
Other Links: | branch diff | manifest | tags |
Context
2021-05-28
| ||
11:58 | Fix broken defcustom check-in: a9c36f03bb user: zge tags: master, trunk | |
11:58 | Add sbbs-open-at-last-post for compose buffers check-in: 651e7552b5 user: zge tags: master, trunk | |
11:56 | Process recursive markup correctly check-in: d3eb8c5431 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [1d77173350] to [8c4c1d7d44].
54 54 "Jump to first link after narrowing posts." 55 55 :type 'boolean) 56 56 57 57 (defcustom sbbs-recenter-to-top t 58 58 "Move point to top of frame when moving through posts." 59 59 :type 'boolean) 60 60 61 -(defcustom sbbs-open-at-last-post t 61 +(defcustom t 62 62 "Jump to last post in a thread when opening a thread." 63 63 :type 'boolean) 64 64 65 +(defface sbbs--semi-spoiler-face 66 + '((((background light)) :background "gray80" :foreground "black") 67 + (((background dark)) :background "gray20" :foreground "white")) 68 + "Face for spoiler text in threads.") 69 + 65 70 (defface sbbs--spoiler-face 66 71 '((((background light)) :background "black" :foreground "black") 67 72 (((background dark)) :background "white" :foreground "white")) 68 73 "Face for spoiler text in threads.") 69 74 70 75 (defface sbbs--uncover-spoiler-face 71 76 '((((background light)) :background "black" :foreground "white") ................................................................................ 780 785 ;; bold 781 786 ("\\*\\*[^ ].*?\\*\\*" . 'bold) 782 787 ;; italic 783 788 ("__[^ ].*?__" . 'italic) 784 789 ;; monospaced 785 790 ("==[^ ].*?==" . 'shadow) 786 791 ;; spoiler 787 - ("~~[^ ].*?~~" . 'sbbs--spoiler-face) 792 + ("~~[^ ].*?~~" . 'sbbs--semi-spoiler-face) 788 793 ;; references 789 794 (">>\\([[:digit:]]+\\(?:-[[:digit:]]+\\)?\\(?:,[[:digit:]]+\\(?:-[[:digit:]]+\\)?\\)*\\)" 790 795 . 'link) 791 796 ;; quotes 792 797 ("^>.*" . font-lock-comment-face)) 793 798 "Highlighting for SchemeBBS posts.") 794 799