Last active
September 10, 2017 13:04
-
-
Save fleimgruber/ba9b6c19d5fc0097da4fc094ab482d3c to your computer and use it in GitHub Desktop.
org-ref parsing traceback
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Debugger entered--Lisp error: (error #(": o4c.bib does not seem to exist" 0 9 (fontified nil))) | |
signal(error (#(": o4c.bib does not seem to exist" 0 9 (fontified nil)))) | |
error("%s does not seem to exist" #(": o4c.bib" 0 9 (fontified nil))) | |
org-ref-find-bibliography() | |
org-ref-cite-link-face-fn("`shakouri_g._multi-objective_2017") | |
funcall(org-ref-cite-link-face-fn "`shakouri_g._multi-objective_2017") | |
(let ((face val)) (funcall face path)) | |
(cond ((functionp val) (let ((face val)) (funcall face path))) ((or (facep val) (consp val)) (let ((face val)) face)) (t (let nil (quote org-link)))) | |
(let* ((val (org-link-get-parameter type :face))) (cond ((functionp val) (let ((face val)) (funcall face path))) ((or (facep val) (consp val)) (let ((face val)) face)) (t (let nil (quote org-link))))) | |
(list (quote face) (let* ((val (org-link-get-parameter type :face))) (cond ((functionp val) (let ((face val)) (funcall face path))) ((or (facep val) (consp val)) (let ((face val)) face)) (t (let nil (quote org-link))))) (quote mouse-face) (or (org-link-get-parameter type :mouse-face) (quote highlight)) (quote keymap) (or (org-link-get-parameter type :keymap) org-mouse-map) (quote help-echo) (let* ((val (org-link-get-parameter type :help-echo))) (if (or (stringp val) (functionp val)) (let ((echo val)) echo) (let nil (concat "LINK: " link)))) (quote htmlize-link) (let* ((val (org-link-get-parameter type :htmlize-link))) (if (functionp val) (let ((f val)) (funcall f)) (let nil (list (quote :uri) link)))) (quote font-lock-multiline) t) | |
(let* ((link-object (save-excursion (goto-char start) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-element-link-parser)) (set-match-data save-match-data-internal (quote evaporate)))))) (link (org-element-property :raw-link link-object)) (type (org-element-property :type link-object)) (path (org-element-property :path link-object)) (properties (list (quote face) (let* ((val (org-link-get-parameter type :face))) (cond ((functionp val) (let ... ...)) ((or ... ...) (let ... face)) (t (let nil ...)))) (quote mouse-face) (or (org-link-get-parameter type :mouse-face) (quote highlight)) (quote keymap) (or (org-link-get-parameter type :keymap) org-mouse-map) (quote help-echo) (let* ((val (org-link-get-parameter type :help-echo))) (if (or (stringp val) (functionp val)) (let (...) echo) (let nil (concat "LINK: " link)))) (quote htmlize-link) (let* ((val (org-link-get-parameter type :htmlize-link))) (if (functionp val) (let (...) (funcall f)) (let nil (list ... link)))) (quote font-lock-multiline) t))) (org-remove-flyspell-overlays-in start end) (org-rear-nonsticky-at end) (if (not (eq (quote bracket) style)) (add-text-properties start end properties) (remove-text-properties start end (quote (invisible nil))) (let ((hidden (append (list (quote invisible) (or ... ...)) properties)) (visible-start (or (match-beginning 4) (match-beginning 2))) (visible-end (or (match-end 4) (match-end 2)))) (add-text-properties start visible-start hidden) (add-text-properties visible-start visible-end properties) (add-text-properties visible-end end hidden) (org-rear-nonsticky-at visible-start) (org-rear-nonsticky-at visible-end))) (let ((f (org-link-get-parameter type :activate-func))) (if (functionp f) (progn (funcall f start end path (eq style (quote bracket)))))) (throw :exit t)) | |
(progn (let* ((link-object (save-excursion (goto-char start) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))))) (link (org-element-property :raw-link link-object)) (type (org-element-property :type link-object)) (path (org-element-property :path link-object)) (properties (list (quote face) (let* ((val ...)) (cond (... ...) (... ...) (t ...))) (quote mouse-face) (or (org-link-get-parameter type :mouse-face) (quote highlight)) (quote keymap) (or (org-link-get-parameter type :keymap) org-mouse-map) (quote help-echo) (let* ((val ...)) (if (or ... ...) (let ... echo) (let nil ...))) (quote htmlize-link) (let* ((val ...)) (if (functionp val) (let ... ...) (let nil ...))) (quote font-lock-multiline) t))) (org-remove-flyspell-overlays-in start end) (org-rear-nonsticky-at end) (if (not (eq (quote bracket) style)) (add-text-properties start end properties) (remove-text-properties start end (quote (invisible nil))) (let ((hidden (append (list ... ...) properties)) (visible-start (or (match-beginning 4) (match-beginning 2))) (visible-end (or (match-end 4) (match-end 2)))) (add-text-properties start visible-start hidden) (add-text-properties visible-start visible-end properties) (add-text-properties visible-end end hidden) (org-rear-nonsticky-at visible-start) (org-rear-nonsticky-at visible-end))) (let ((f (org-link-get-parameter type :activate-func))) (if (functionp f) (progn (funcall f start end path (eq style (quote bracket)))))) (throw :exit t))) | |
(if (and (memq style org-highlight-links) (not (and (eq style (quote plain)) (let ((face (get-text-property ... ...))) (if (consp face) (memq (quote org-tag) face) (eq (quote org-tag) face)))))) (progn (let* ((link-object (save-excursion (goto-char start) (let (...) (unwind-protect ... ...)))) (link (org-element-property :raw-link link-object)) (type (org-element-property :type link-object)) (path (org-element-property :path link-object)) (properties (list (quote face) (let* (...) (cond ... ... ...)) (quote mouse-face) (or (org-link-get-parameter type :mouse-face) (quote highlight)) (quote keymap) (or (org-link-get-parameter type :keymap) org-mouse-map) (quote help-echo) (let* (...) (if ... ... ...)) (quote htmlize-link) (let* (...) (if ... ... ...)) (quote font-lock-multiline) t))) (org-remove-flyspell-overlays-in start end) (org-rear-nonsticky-at end) (if (not (eq (quote bracket) style)) (add-text-properties start end properties) (remove-text-properties start end (quote (invisible nil))) (let ((hidden (append ... properties)) (visible-start (or ... ...)) (visible-end (or ... ...))) (add-text-properties start visible-start hidden) (add-text-properties visible-start visible-end properties) (add-text-properties visible-end end hidden) (org-rear-nonsticky-at visible-start) (org-rear-nonsticky-at visible-end))) (let ((f (org-link-get-parameter type :activate-func))) (if (functionp f) (progn (funcall f start end path (eq style ...))))) (throw :exit t)))) | |
(let* ((start (match-beginning 0)) (end (match-end 0)) (style (cond ((eq 60 (char-after start)) (quote angle)) ((eq 91 (char-after (1+ start))) (quote bracket)) (t (quote plain))))) (if (and (memq style org-highlight-links) (not (and (eq style (quote plain)) (let ((face ...)) (if (consp face) (memq ... face) (eq ... face)))))) (progn (let* ((link-object (save-excursion (goto-char start) (let ... ...))) (link (org-element-property :raw-link link-object)) (type (org-element-property :type link-object)) (path (org-element-property :path link-object)) (properties (list (quote face) (let* ... ...) (quote mouse-face) (or ... ...) (quote keymap) (or ... org-mouse-map) (quote help-echo) (let* ... ...) (quote htmlize-link) (let* ... ...) (quote font-lock-multiline) t))) (org-remove-flyspell-overlays-in start end) (org-rear-nonsticky-at end) (if (not (eq (quote bracket) style)) (add-text-properties start end properties) (remove-text-properties start end (quote (invisible nil))) (let ((hidden ...) (visible-start ...) (visible-end ...)) (add-text-properties start visible-start hidden) (add-text-properties visible-start visible-end properties) (add-text-properties visible-end end hidden) (org-rear-nonsticky-at visible-start) (org-rear-nonsticky-at visible-end))) (let ((f (org-link-get-parameter type :activate-func))) (if (functionp f) (progn (funcall f start end path ...)))) (throw :exit t))))) | |
(while (re-search-forward org-any-link-re limit t) (let* ((start (match-beginning 0)) (end (match-end 0)) (style (cond ((eq 60 (char-after start)) (quote angle)) ((eq 91 (char-after ...)) (quote bracket)) (t (quote plain))))) (if (and (memq style org-highlight-links) (not (and (eq style (quote plain)) (let (...) (if ... ... ...))))) (progn (let* ((link-object (save-excursion ... ...)) (link (org-element-property :raw-link link-object)) (type (org-element-property :type link-object)) (path (org-element-property :path link-object)) (properties (list ... ... ... ... ... ... ... ... ... ... ... t))) (org-remove-flyspell-overlays-in start end) (org-rear-nonsticky-at end) (if (not (eq ... style)) (add-text-properties start end properties) (remove-text-properties start end (quote ...)) (let (... ... ...) (add-text-properties start visible-start hidden) (add-text-properties visible-start visible-end properties) (add-text-properties visible-end end hidden) (org-rear-nonsticky-at visible-start) (org-rear-nonsticky-at visible-end))) (let ((f ...)) (if (functionp f) (progn ...))) (throw :exit t)))))) | |
(catch :exit (while (re-search-forward org-any-link-re limit t) (let* ((start (match-beginning 0)) (end (match-end 0)) (style (cond ((eq 60 ...) (quote angle)) ((eq 91 ...) (quote bracket)) (t (quote plain))))) (if (and (memq style org-highlight-links) (not (and (eq style ...) (let ... ...)))) (progn (let* ((link-object ...) (link ...) (type ...) (path ...) (properties ...)) (org-remove-flyspell-overlays-in start end) (org-rear-nonsticky-at end) (if (not ...) (add-text-properties start end properties) (remove-text-properties start end ...) (let ... ... ... ... ... ...)) (let (...) (if ... ...)) (throw :exit t)))))) nil) | |
org-activate-links(353959) | |
#[(start end &optional loudly) "@\306=\204 \307! AA\310 \311\312 \313\211\211&'()(\203\357*\203< |