[emacs] org-remark note headlines should be shorterHEADmaster

1 files changed, 24 insertions, 3 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-editing.el b/emacs/.emacs.d/lisp/my/my-editing.el
index 0775063..13d80f8 100644
--- a/emacs/.emacs.d/lisp/my/my-editing.el
+++ b/emacs/.emacs.d/lisp/my/my-editing.el
@@ -546,11 +546,32 @@ With an prefix-arg, copy the file name relative to project root."
 
 (defun my-elide-region (b e)
   (interactive "r")
-  (let ((message-elide-ellipsis (concat comment-start
-                                        " [... %l lines elided]
-")))
+  (let ((message-elide-ellipsis
+         (if (> 1 (count-lines b (min (1+ e) (point-max))))
+             (concat comment-start
+                     " [... %l lines elided]
+")
+           (format " [... %d words elided]" (count-words b e)))))
     (message-elide-region b e)))
 
+(defun my-elide-text (text limit)
+  "Elide TEXT to about LIMIT characters."
+  (let ((keep (- limit 25)))
+    (when (< keep 0)
+      (error "Too few characters to limit to. Should be at least 25."))
+    (with-temp-buffer
+      (insert text)
+      (goto-char (point-min))
+      (while (and (<= (point) keep) (< (point) (point-max)))
+        (forward-word))
+      (cond ((> (point) keep)
+             (backward-word)
+             (my-elide-region (point) (point-max))
+             (buffer-string))
+            (t text))
+      ))
+  )
+
 (defun my-replace-no-filter (old-fun &rest r)
   (let ((search-invisible t))
     (apply old-fun r)))