(abbreviate-file-name (or (buffer-file-name) buffer)))
(defun get-link (filename)
- (org-make-link-string (concat "file:" filename)))
+ ; TODO make this handle non-file links
+ ; like docview: or html: links.
+ (org-store-link (point-at-bol)))
(defun org-annotate-file-add-upper-level (link)
+ "Something causes ']' to fall off the end of the link. This
+ugly hack is required to work around the limitation."
(defun org-annotate-file-add-second-level (link)
"Safely positions cursor for a new entry."
(unless (= (char-before) 10)
(defun put-cursor-in-annotation ()
"After a link is inserted, position cursor with newlines to avoid