diff options
author | Phil Jackson <phil@shellarchive.co.uk> | 2008-03-05 10:26:40 +0000 |
---|---|---|
committer | Phil Jackson <phil@shellarchive.co.uk> | 2008-03-05 10:26:40 +0000 |
commit | 3752a0f01dafeaac5e80a71e009e307354e2a145 (patch) | |
tree | 95c6baaf795a6d8edfa3a6cf380af18131bb432d | |
parent | 2a5f2004ba2fbf9ac84287ddad7030d6d0cf9cc9 (diff) | |
download | org-mode-3752a0f01dafeaac5e80a71e009e307354e2a145.tar.gz |
Removed 'file:' from link description.
-rw-r--r-- | CONTRIB/lisp/org-annotate-file.el | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/CONTRIB/lisp/org-annotate-file.el b/CONTRIB/lisp/org-annotate-file.el index 3feabce..9ea9015 100644 --- a/CONTRIB/lisp/org-annotate-file.el +++ b/CONTRIB/lisp/org-annotate-file.el @@ -68,15 +68,18 @@ location in the file") "non-nil means always expand the full tree when you visit `org-annotate-file-storage-file'.") -(defun org-annotate-file-prettyfy-desc (string) +(defun org-annotate-file-elipsify-desc (string &optional after) "Strip starting and ending whitespace and replace any chars -after the 60th with '...'" - (let ((replace-map '(("^[ \t]*" . "") - ("[ \t]*$" . "") - ("^\\(.\\{60\\}\\).*" . "\\1...")))) - (dolist (replace replace-map) - (when (string-match (car replace) string) - (setq string (replace-match (cdr replace) nil nil string)))) +that appear after the value in `after' with '...'" + (let* ((after (number-to-string (or after 30))) + (replace-map (list (cons "^[ \t]*" "") + (cons "[ \t]*$" "") + (cons (concat "^\\(.\\{" after + "\\}\\).*") "\\1...")))) + (mapc (lambda (x) + (when (string-match (car x) string) + (setq string (replace-match (cdr x) nil nil string)))) + replace-map) string)) (defun org-annotate-file () @@ -91,10 +94,10 @@ after the 60th with '...'" show the relevant section" (let* ((filename (abbreviate-file-name (or buffer (buffer-file-name)))) (line (buffer-substring-no-properties (point-at-bol) (point-at-eol))) - (link (org-make-link-string (concat "file:" filename))) + (link (org-make-link-string (concat "file:" filename) filename)) (search-link (org-make-link-string (concat "file:" filename "::" line) - (org-annotate-file-prettyfy-desc line)))) + (org-annotate-file-elipsify-desc line)))) (with-current-buffer (find-file org-annotate-file-storage-file) (unless (org-mode-p) (org-mode)) |