;; I do not remember why I put this next line in. It doesn't
;; work for org-files. Nothing very bad happens, but it gives
;; an annoying error. Commenting it out for now.
- ;(reftex-parse-all)
+ ;(reftex-parse-all
)
(make-local-variable 'reftex-cite-format)
- (setq reftex-cite-format 'org)
- (define-key org-mode-map (kbd org-ref-insert-cite-key) org-ref-insert-cite-function))
+ (setq reftex-cite-format 'org))
+
+;; define key for inserting citations
+(define-key org-mode-map
+ (kbd org-ref-insert-cite-key)
+ org-ref-insert-cite-function)
+
+(when org-ref-show-citation-on-enter
+ (setq org-ref-message-timer
+ (run-with-idle-timer 0.5 t 'org-ref-link-message)))
+
+(defun org-ref-show-link-messages ()
+ "Turn on link messages. You will see a message in the
+minibuffer when on a cite, ref or label link."
+ (interactive)
+ (setq org-ref-message-timer
+ (run-with-idle-timer 0.5 t 'org-ref-link-message))
+ )
+(defun org-ref-cancel-link-messages ()
+ "Stop showing messages in minibuffer when on a link."
+ (interactive)
+ (cancel-timer org-ref-message-timer))
+
+;; this approach caused the selected region to not be highlighted any more.
+; (add-hook 'post-command-hook 'org-ref-link-message))
+; (remove-hook 'post-command-hook 'org-ref-link-message))
(add-hook 'org-mode-hook 'org-mode-reftex-setup)
(when (or (= count 0)
(> count 1))
"s")))))))))
-
-
-(when org-ref-show-citation-on-enter
- (add-hook 'post-command-hook 'org-ref-link-message))
#+END_SRC
* Aliases
"Insert selected KEYS as cite link. Append KEYS if you are on a link.
Technically, this function should return a string that is inserted by helm. This function does the insertion and gives helm an empty string to insert. This lets us handle appending to a link properly."
(let* ((object (org-element-context)))
- (message-box "prefix is %s" helm-current-prefix-arg)
(cond
;; case where we are in a link
((and (equal (org-element-type object) 'link)
(t
(insert
(concat (if helm-current-prefix-arg
- (ido-completing-read "Type: " org-ref-cite-types)
+ (helm :sources `((name . "link types")
+ (candidates . ,org-ref-cite-types)
+ (action . (lambda (x) x))))
org-ref-default-citation-link)
":"
(s-join "," keys))))))