787
788
789
790
791
792
793
794
795
796
797
798
799
800
|
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
|
+
+
|
(define-key map (kbd "c") #'sbbs-view-compose)
map))
(define-derived-mode sbbs-view-mode tabulated-list-mode "SchemeBBS Browse"
"Major mode for browsing a SchemeBBS board."
(buffer-disable-undo)
(push '(nobreak-space . default)
(buffer-local-value 'face-remapping-alist (current-buffer)))
(setq tabulated-list-format [("Date" 16 t)
("#" 3 t :right-align t)
("Headline" 0 nil)]
tabulated-list-sort-key '("Date" . t))
(add-hook 'quit-window-hook
'sbbs--cleanup-board
nil t)
|
822
823
824
825
826
827
828
829
830
831
832
833
834
835
|
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
|
+
+
|
(define-key map (kbd ">") #'sbbs-goto-end)
map))
(define-derived-mode sbbs-read-mode special-mode "SchemeBBS Read"
"Major mode for reading a thread."
(buffer-disable-undo)
(visual-line-mode t)
(push '(nobreak-space . default)
(buffer-local-value 'face-remapping-alist (current-buffer)))
(setq-local revert-buffer-function #'sbbs--reload-thread)
(add-hook 'post-command-hook #'sbbs--uncover-spoiler
nil t))
(defvar sbbs-compose-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-f C-b") #'sbbs-compose-format-bold)
|