X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=1e03bdfb64fddae469e20ef88c1c759abdfd7da4;hp=858ab3798d3be5776eedcc66df196022600d94d9;hb=b23aa62a179b619eaf100f77567db087fe48c712;hpb=4144df0efbeb417b15863cf7338afb4b857023aa

diff --git a/org-ref.org b/org-ref.org
index 858ab37..1e03bdf 100644
--- a/org-ref.org
+++ b/org-ref.org
@@ -218,11 +218,35 @@ We setup reftex here. We use a custom insert cite link function defined here: [[
 	 ;; 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)
 
@@ -2716,8 +2740,8 @@ ref:test citep:test  label:rett
   (interactive)
   (let* ((object (org-element-context))
 	 (type (org-element-property :type object)))
-
-    (cond
+    (save-excursion
+      (cond
      ;; cite links
      ((-contains? org-ref-cite-types type)
       (message (org-ref-get-citation-string-at-point)))
@@ -2741,11 +2765,7 @@ ref:test citep:test  label:rett
 		  " occurence"
 		  (when (or (= count 0)
 			    (> count 1))
-		    "s"))))))))
-
-
-(when org-ref-show-citation-on-enter
- (add-hook 'post-command-hook 'org-ref-link-message))
+		    "s")))))))))
 #+END_SRC
 
 * Aliases
@@ -2822,12 +2842,14 @@ Technically, this function should return a string that is inserted by helm. This
      (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))))))
-;; return empty string for helm
-"")
+  ;; return empty string for helm
+  "")
 
 (setq helm-bibtex-format-citation-functions
       '((org-mode . helm-bibtex-format-org-ref)))