I've noticed 2 weirdnesses in the behavior of the
`CLOCK_MODELINE_TOTAL: today` property in recent versions of org-mode:
1. First, the clocked total for today resets at midnight UTC, not
midnight local time. This seems odd because all other times in Org
mode, including the times in the logbook, are recorded in local time,
and there's no provision for timezones in any Org-mode timestamps that
I've seen. I believe this arose due to this line in org-clock.el,
which requests time in UTC rather than local time using
org-decode-time:
http://orgmode.org/cgit.cgi/org-mode.git/tree/lisp/org- .clock.el?id= 04e0532ef53b17c482fb81da2687fb 403207eb55#n1454
2. Second, I have a particular heading in one of my org mode that
always resets the time clocked on it every time it's clocked out. It
acts as if it had `CLOCK_MODELINE_TOTAL: current`, even though it
actually has `CLOCK_MODELINE_TOTAL: today`. Other headings with
`CLOCK_MODELINE_TOTAL: today` seem to work as expected.
Modifying the org-decode-time line mentioned above to request local
time rather than UTC seems to fix both issues for me, but I don't know
why it fixes the second.
------------------------------------------------------------ ------------
Emacs : GNU Emacs 25.3.1 (x86_64-apple-darwin16.7.0, NS
appkit-1504.83 Version 10.12.6 (Build 16G29))
of 2017-09-18
Package: Org mode version 9.1.2 (9.1.2-37-g3f8d67-elpaplus @
~/path/to/orgdir2/.emacs.d/elpa/org-plus-contrib- 20171113/)
current state:
==============
(setq
org-protocol-default-template-key "p"
org-clock-clocked-in-display 'frame-title
org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-agenda-skip-deadle-prewarning-if-scheduled t
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate
org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
(insert (format "cite:%s\n"
(org-entry-get (point) "Custom_ID"))))
)
org-ref-pdf-directory "~/path/to/orgdir2/lib/"
org-agenda-auto-exclude-function 'my-org-auto-exclude-function
org-clock-history-length 23
org-occur-hook '(org-first-headline-recenter)
org-clock-in-prepare-hook '(my-org-mode-ask-effort)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-agenda-start-on-weekday nil
org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
org-log-done 'time
org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
org-confirm-shell-link-function 'yes-or-no-p
org-drill-scope 'agenda-with-archives
org-id-link-to-org-use-id t
org-columns-default-format "%60ITEM(Task) %10Effort(Effort){:}
%10CLOCKSUM %10CLOCKSUM_T"
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask- default
org-ref-open-pdf-function 'org-ref-open-pdf-at-point
org-clock-idle-time 15
org-ref-cite-onclick-function 'org-ref-cite-click-helm
org-pomodoro-started-hook '(my-org-pomodoro-caffeinate)
org-ref-insert-label-function 'org-ref-helm-insert-label-link
org-agenda-sticky t
org-ref-default-bibliography '("~/path/to/orgdir2/index.bib")
org-pretty-entities t
org-special-ctrl-a/e t
org-agenda-todo-ignore-scheduled 'future
org-agenda-skip-scheduled-if-done t
org-font-lock-hook '(org-inlinetask-fontify)
org-agenda-custom-commands '(("D" "Like d but include all TODOs (slow)"
((tags "PRIORITY=\"A\""
((org-agenda-skip-function
(quote (org-agenda-skip-entry-if
(quote todo) (quote done))))
(org-agenda-overriding-header
"High-priority unfinished tasks:")
)
)
(agenda ""
((org-agenda-ndays 1)
(org-agenda-overriding-header "Schedule"))
)
(alltodo ""
((org-agenda-skip-function
(quote
(or (air-org-skip-subtree-if-habit)
(air-org-skip-subtree-if-priority 65)
(org-agenda-skip-if nil (quote
(scheduled deadline))))
)
)
(org-agenda-overriding-header "ALL
normal priority tasks:"))
)
)
((org-agenda-compact-blocks t)))
("d" "Daily agenda with high-priority
items isolated (slow)"
((tags "PRIORITY=\"A\""
((org-agenda-skip-function
(quote (org-agenda-skip-entry-if
(quote todo) (quote done))))
(org-agenda-overriding-header
"High-priority unfinished tasks:")
)
)
(agenda ""
((org-agenda-ndays 1)
(org-agenda-overriding-header "Schedule"))
)
)
((org-agenda-compact-blocks t)))
("R" "Week in review" agenda ""
((org-agenda-span (quote week)
(org-agenda-start-on-weekday 0)
(org-agenda-overriding-header "Week in Review")
(org-agenda-files
(let
((org-agenda-files org-timeline-files)
(org-agenda-files nil (quote ifmode)))
)
)
(org-agenda-start-with-log-mode t)
(org-agenda-log-mode-items (quote
(clock state closed)))
(org-agenda-archives-mode t))
)
)
("Q/" "Archive occur"
(lambda (unused)
(let*
((tmp
(if (boundp (quote
org-agenda-text-search-extra-files))
org-agenda-text-search-extra-files
(quote nil))
)
(org-agenda-text-search-extra-files
(cond ((null tmp) (quote (agenda-archives)))
((equal (car tmp) (quote
agenda-archives)) tmp)
(t (cons (quote agenda-archives) tmp)))
)
)
(call-interactively (quote
org-occur-in-agenda-files)))
)
"")
("Q" . "Custom queries")
("u" "Unscheduled TODOs" todo ""
((org-agenda-skip-function
(quote
(org-agenda-skip-entry-if (quote
scheduled) (quote deadline)
(quote regexp) "\n]+>")
)
)
(org-agenda-overriding-header
"Unscheduled TODO entries: ")
(org-agenda-sorting-strategy (quote
(time-down))))
)
("n" "Agenda and all TODOs" ((agenda "")
(alltodo)))
("n" "Agenda and all TODOs" ((agenda "")
(alltodo ""))))
org-use-sub-superscripts '{}
org-ref-bibliography-notes "~/path/to/orgdir2/index.org"
org-latex-format-headline-function 'org-latex-format-headline- default-function
org-show-notification-handler '(closure (t) (message)
(terminal-notifier-notify "Org Mode" message))
org-default-notes-file "~/path/to/orgdir1/notes.org"
org-clock-in-resume t
org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)
("NEXT" :foreground "blue" :weight bold)
("DONE" :foreground "forest green" :weight bold)
("WAITING" :foreground "orange" :weight bold)
("HOLD" :foreground "magenta" :weight bold)
("CANCELLED" :foreground "forest green" :weight bold)
("MEETING" :foreground "forest green" :weight bold)
("PHONE" :foreground "forest green" :weight bold))
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
org-odt-format-headline-function 'org-odt-format-headline- default-function
org-drill-learn-fraction 0.3
org-from-is-user-regexp "\\<Robert Irelan\\>"
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-drill-adjust-intervals-for-early-and-late- repetitions-p t
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-drill-left-cloze-delimiter "!|"
org-babel-pre-tangle-hook '(save-buffer)
org-font-lock-set-keywords-hook '(org-drill-add-cloze- fontification)
org-log-redeadline 'time
org-global-properties '(("Effort_ALL" .
"0:05 0:10 0:15 0:30 0:45 1:00 2:00 3:00
4:00 5:00 6:00 8:00")
("SYTLE_ALL" . "habit"))
org-mode-hook '(org-ref-org-menu org-clock-load
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-show-block-all
append local] 5]
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook
org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes
org-eldoc-load)
org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
"\n\n(fn ENTRY)"]
org-outline-path-complete-in-steps nil
org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t))
("WAITING" ("WAITING" . t))
("HOLD" ("WAITING") ("HOLD" . t))
(done ("WAITING") ("HOLD"))
("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
("DONE" ("WAITING") ("CANCELLED") ("HOLD")))
org-archive-hook '(org-attach-archive-delete-maybe)
org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME
CONTENTS WIDTH)"]
org-pomodoro-ticking-sound
"~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/ tick.wav"
org-odt-format-inlinetask-function 'org-odt-format-inlinetask- default-function
org-clock-persist t
org-refile-use-outline-path t
org-clock-in-switch-to-state 'bh/clock-in-to-next
org-directory "~/path/to/orgdir1"
org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
org-enforce-todo-dependencies t
org-cycle-hook '(org-inlinetask-hide-tasks org-cycle-hide-archived-subtrees
org-cycle-hide-drawers org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-agenda-start-with-log-mode t
org-pomodoro-start-sound
"~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/ bell.wav"
org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
org-export-before-processing-hook '(gsc/drill-cloze-removal)
org-agenda-text-search-extra-files '(agenda-archives
"~/path/to/orgdir1/notes.org"
"~/path/to/orgdir2/notes.org")
org-clock-persist-query-resume nil
org-log-reschedule 'time
org-ref-clean-bibtex-key-function '(lambda (key)
(replace-regexp-in-string ":" "" key))
org-refile-allow-creating-parent-nodes 'confirm
org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
(sequence "WAITING(w@/!)" "HOLD(h@/!)" "|"
"CANCELLED(c@/!)" "PHONE"
"MEETING")
)
org-ref-notes-directory "~/path/to/orgdir2"
org-clock-frame-title-format '("" "%b - " org-mode-line-string)
org-ref-clean-bibtex-entry-hook '(org-ref-bibtex-format-url- if-doi
orcb-key-comma
org-ref-replace-nonascii orcb-& orcb-%
org-ref-title-case-article
orcb-clean-year orcb-key
orcb-clean-doi orcb-clean-pages
orcb-check-journal
org-ref-sort-bibtex-entry)
org-capture-before-finalize-hook '(org-gcal--capture-post)
org-clock-report-include-clocking-task t
org-agenda-span 1
org-drill-right-cloze-delimiter "|!"
org-gcal-client-secret "iE58YC1w8UFlQbuub7UlcjMR"
org-confirm-elisp-link-function 'yes-or-no-p
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-pomodoro-finished-hook '(my-org-pomodoro-lock-screen
my-org-pomodoro-finished-notify-hook)
org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
org-blocker-hook '(org-block-todo-from-children-or-siblings-or- parent)
org-ref-open-notes-function '(lambda nil (org-show-entry)
(outline-show-branches)
(outline-show-children) (org-cycle (quote (64)))
(recenter-top-bottom 0))
org-agenda-skip-deadline-if-done t
org-html-format-headline-function 'org-html-format-headline- default-function
org-link-parameters '(("printindex" :follow org-ref-index :export
(lambda (path desc format)
(cond ((eq format (quote latex)) (format
"printindex"))))
)
("index" :follow (lambda (path) (occur path)) :export
(lambda (path desc format)
(cond ((eq format (quote latex)) (format
"\\index{%s}" path))))
)
("bibentry" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-bibentry :complete
org-bibentry-complete-link :help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("Autocites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-Autocites :complete
org-Autocites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("autocites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-autocites :complete
org-autocites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("supercites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-supercites :complete
org-supercites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("Textcites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-Textcites :complete
org-Textcites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("textcites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-textcites :complete
org-textcites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("Smartcites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-Smartcites :complete
org-Smartcites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("smartcites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-smartcites :complete
org-smartcites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("footcitetexts" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-footcitetexts :complete
org-footcitetexts-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("footcites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-footcites :complete
org-footcites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("Parencites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-Parencites :complete
org-Parencites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("parencites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-parencites :complete
org-parencites-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("Cites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-Cites :complete
org-Cites-complete-link :help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("cites" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-cites :complete
org-cites-complete-link :help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("fnotecite" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-fnotecite :complete
org-fnotecite-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("Pnotecite" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-Pnotecite :complete
org-Pnotecite-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("pnotecite" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-pnotecite :complete
org-pnotecite-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("Notecite" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-Notecite :complete
org-Notecite-complete-link :help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("notecite" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-notecite :complete
org-notecite-complete-link :help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("footfullcite" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-footfullcite :complete
org-footfullcite-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("fullcite" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-fullcite :complete
org-fullcite-complete-link :help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("citeurl" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-citeurl :complete
org-citeurl-complete-link :help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("citedate*" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-citedate* :complete
org-citedate*-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("citedate" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-citedate :complete
org-citedate-complete-link :help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("citetitle*" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-citetitle* :complete
org-citetitle*-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)
(16777317 lambda nil "Email entry at point"
(interactive)
(org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
(16777315 . org-ref-wos-citing-at-point)
(16777330 . org-ref-wos-related-at-point)
(16777326 . org-ref-open-notes-at-point)
(16777328 . org-ref-open-pdf-at-point)
(16777333 . org-ref-open-url-at-point)
(16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
)
("citetitle" :follow
(lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
org-ref-format-citetitle :complete
org-citetitle-complete-link
:help-echo
(lambda (window object position)
(when org-ref-show-citation-on-enter
(save-excursion (goto-char position)
(let
((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
(with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
)
)
)
:face org-ref-cite-link-face-fn :display full :keymap
(keymap (S-up . org-ref-sort-citation-link)
(S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
(S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
(C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
(16777337 lambda nil
"Paste key at point. Assumes the first thing
in the killring is a key."
(interactive) (org-ref-insert-key-at-point
(car kill-ring)))
(16777303 lambda nil "Copy all the keys at
point." (interactive)
(kill-new (org-element-property :path
(org-element-context))))
(16777335 lambda nil (interactive)
(kill-new (car (org-ref-get-bibtex-key-and-file))))
(16777318 lambda nil (interactive)
(save-excursion (org-ref-open-citation-at-point)
(kill-new (org-ref-format-bibtex-entry-at-point)))
)
(16777319 . org-ref-google-scholar-at-point)