From 1375113b0e308a4f0787f05c1e14028686c344ab Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 10 May 2022 13:57:28 -0500 Subject: meh --- init.el | 2 +- lisp/acdw.el | 10 ++++++++++ 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 478b735..f5b8ab3 100644 --- a/init.el +++ b/init.el @@ -589,7 +589,7 @@ org-fontify-done-headline t org-fontify-quote-and-verse-blocks t org-fontify-whole-heading-line t - org-hide-emphasis-markers nil + org-hide-emphasis-markers t org-html-coding-system 'utf-8-unix org-image-actual-width (list (* (window-font-width) (- fill-column 8))) diff --git a/lisp/acdw.el b/lisp/acdw.el index 6707e76..3052976 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -447,5 +447,15 @@ sort order." #'end-of-line #'beginning-of-line-text))))) +(defun +crm-indicator (args) + "AROUND advice for `completing-read-multiple'." + ;; [[https://github.com/minad/vertico/blob/8ab2cddf3a1fb8799611b1d35118bf579aaf3154/README.org][from vertico's README]] + (cons (format "[CRM%s] %s" + (replace-regexp-in-string + "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" "" + crm-separator) + (car args)) + (cdr args))) + (provide 'acdw) ;;; acdw.el ends here -- cgit 1.4.1-21-gabe81