sbbs.el

Check-in [c728f51a59]
Login
Overview
Comment:Prevent nobreak-space from being highlighted
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: c728f51a59c902d54d7964076205bc7fb07ae2d53860c8704e06bbabcd0f5e1a
User & Date: zge on 2022-01-24 09:30:16
Other Links: branch diff | manifest | tags
Context
2022-01-24
09:35
Replace formatting when using a prefix argument check-in: 1db3d1b5c3 user: zge tags: master, trunk
09:30
Prevent nobreak-space from being highlighted check-in: c728f51a59 user: zge tags: master, trunk
09:22
Add sbbs-format-word-at-point user option check-in: 4d43170777 user: zge tags: master, trunk
Changes

Modified sbbs.el from [a32d58a0ff] to [2a852168db].

787
788
789
790
791
792
793


794
795
796
797
798
799
800
    (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)



  (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)







>
>







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
    (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)


  (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)







>
>







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)