diff options
| author | Case Duckworth | 2022-05-10 13:57:28 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-05-10 13:57:28 -0500 |
| commit | 1375113b0e308a4f0787f05c1e14028686c344ab (patch) | |
| tree | 37ad6f59f76a49f5f408c0fb75d826c613b11731 | |
| parent | Further mode line changes (diff) | |
| download | emacs-1375113b0e308a4f0787f05c1e14028686c344ab.tar.gz emacs-1375113b0e308a4f0787f05c1e14028686c344ab.zip | |
meh
| -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 |