tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Removed 'file:' from link description.

This commit is contained in:
Phil Jackson 2008-03-05 10:26:40 +00:00
parent 2a5f2004ba
commit 3752a0f01d
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
CONTRIB/lisp/org-annotate-file.el
View File

@ -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))