diff options
-rw-r--r-- | init.el | 2 | ||||
-rw-r--r-- | lisp/acdw.el | 10 |
2 files changed, 11 insertions, 1 deletions
diff --git a/init.el b/init.el index 478b735..f5b8ab3 100644 --- a/init.el +++ b/init.el | |||
@@ -589,7 +589,7 @@ | |||
589 | org-fontify-done-headline t | 589 | org-fontify-done-headline t |
590 | org-fontify-quote-and-verse-blocks t | 590 | org-fontify-quote-and-verse-blocks t |
591 | org-fontify-whole-heading-line t | 591 | org-fontify-whole-heading-line t |
592 | org-hide-emphasis-markers nil | 592 | org-hide-emphasis-markers t |
593 | org-html-coding-system 'utf-8-unix | 593 | org-html-coding-system 'utf-8-unix |
594 | org-image-actual-width (list (* (window-font-width) | 594 | org-image-actual-width (list (* (window-font-width) |
595 | (- fill-column 8))) | 595 | (- 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." | |||
447 | #'end-of-line | 447 | #'end-of-line |
448 | #'beginning-of-line-text))))) | 448 | #'beginning-of-line-text))))) |
449 | 449 | ||
450 | (defun +crm-indicator (args) | ||
451 | "AROUND advice for `completing-read-multiple'." | ||
452 | ;; [[https://github.com/minad/vertico/blob/8ab2cddf3a1fb8799611b1d35118bf579aaf3154/README.org][from vertico's README]] | ||
453 | (cons (format "[CRM%s] %s" | ||
454 | (replace-regexp-in-string | ||
455 | "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" "" | ||
456 | crm-separator) | ||
457 | (car args)) | ||
458 | (cdr args))) | ||
459 | |||
450 | (provide 'acdw) | 460 | (provide 'acdw) |
451 | ;;; acdw.el ends here | 461 | ;;; acdw.el ends here |