acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Set `lui-formatting-list'

This commit is contained in:
Case Duckworth 2021-12-18 14:33:49 -06:00
parent ccff884113
commit 6bef88b512
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
init.el
View File

@ -351,7 +351,13 @@
lui-time-stamp-format "[ %H:%M"
lui-track-behavior 'before-switch-to-buffer
lui-track-indicator 'fringe
lui-fill-remove-face-from-newline nil)
lui-fill-remove-face-from-newline nil
lui-formatting-list `((,(+lui-make-formatting-list-rx "*")
1 lui-strong-face)
(,(+lui-make-formatting-list-rx "_")
1 lui-emphasis-face)
(,(+lui-make-formatting-list-rx "/")
1 lui-emphasis-face)))
(:hook 'visual-line-mode
'enable-lui-track
'visual-fill-column-mode)

7
lisp/+circe.el
View File

@ -56,6 +56,13 @@ message the current topic.")
"Return a format string for `lui-format' for metadata messages."
(format "{nick:%1$d.%1$ds} *** %s" (- +circe-left-margin 3) string))
(defmacro +lui-make-formatting-list-rx (char)
"Make a formatting regex for CHAR delimiters.
For entry into `lui-formatting-list'."
`(rx (or bol whitespace)
(group ,char (+? (not (any whitespace ,char))) ,char)
(or eol whitespace)))
;;; Hooks & Advice
(defun +circe-chat@set-prompt ()