emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[BUG] Let org-latex-compile fall back on org-latex-compiler as the defau


From: daanturo
Subject: [BUG] Let org-latex-compile fall back on org-latex-compiler as the default instead of "pdflatex" [9.6 (9.6-??-4f0f24447 @ /home/dan/.emacsen/doom-emacs/.local/straight/build-29.0.50/org/)]
Date: Sat, 21 May 2022 14:48:58 +0700
User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.9.0

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See

https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

Having set `org-latex-compiler` to `lualatex`, when exporting with
`org-latex-export-to-pdf`, I expected that `lualatex` is the compiler to
be used but `org-latex-compile` falled back on `pdflatex` instead.


Emacs  : GNU Emacs 29.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.34, 
cairo version 1.17.6)
 of 2022-05-20
Package: Org mode version 9.6 (9.6-??-4f0f24447 @ 
/home/dan/.emacsen/doom-emacs/.local/straight/build-29.0.50/org/)
 
current state:
==============
(setq
 org-link-elisp-confirm-function nil
 org-directory "~/Documents/org"
 org-after-refile-insert-hook '(save-buffer)
 org-indirect-buffer-display 'current-window
 org-crypt-key nil
 org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn 
ENTRY)"]
 org-load-hook '(+org-init-org-directory-h
                 +org-init-appearance-h +org-init-agenda-h
                 +org-init-attachments-h +org-init-babel-h
                 +org-init-babel-lazy-loader-h
                 +org-init-capture-defaults-h
                 +org-init-capture-frame-h
                 +org-init-custom-links-h +org-init-export-h
                 +org-init-habit-h +org-init-hacks-h
                 +org-init-keybinds-h +org-init-popup-rules-h
                 +org-init-protocol-h
                 +org-init-protocol-lazy-loader-h
                 +org-init-smartparens-h)
 org-startup-folded nil
 org-babel-after-execute-hook '(+org-redisplay-inline-images-in-babel-result-h)
 org-link-abbrev-alist '(("doom-repo" .
                          "https://github.com/hlissner/doom-emacs/%s";)
                         ("wolfram" .
                          "https://wolframalpha.com/input/?i=%s";)
                         ("wikipedia" .
                          "https://en.wikipedia.org/wiki/%s";)
                         ("duckduckgo" .
                          "https://duckduckgo.com/?q=%s";)
                         ("gmap" .
                          "https://maps.google.com/maps?q=%s";)
                         ("gimages" .
                          "https://google.com/images?q=%s";)
                         ("google" .
                          "https://google.com/search?q=";)
                         ("youtube" .
                          "https://youtube.com/watch?v=%s";)
                         ("github" . "https://github.com/%s";))
 org-agenda-files '("~/Documents/org")
 org-capture-templates '(("t" "Personal todo" entry
                          (file+headline
                           +org-capture-todo-file "Inbox")
                          "* [ ] %?\n%i\n%a" :prepend t)
                         ("n" "Personal notes" entry
                          (file+headline
                           +org-capture-notes-file "Inbox")
                          "* %u %?\n%i\n%a" :prepend t)
                         ("j" "Journal" entry
                          (file+olp+datetree
                           +org-capture-journal-file)
                          "* %U %?\n%i\n%a" :prepend t)
                         ("p" "Templates for projects")
                         ("pt" "Project-local todo" entry
                          (file+headline
                           +org-capture-project-todo-file
                           "Inbox")
                          "* TODO %?\n%i\n%a" :prepend t)
                         ("pn" "Project-local notes" entry
                          (file+headline
                           +org-capture-project-notes-file
                           "Inbox")
                          "* %U %?\n%i\n%a" :prepend t)
                         ("pc" "Project-local changelog" entry
                          (file+headline
                           +org-capture-project-changelog-file
                           "Unreleased")
                          "* %U %?\n%i\n%a" :prepend t)
                         ("o"
                          "Centralized templates for projects")
                         ("ot" "Project todo" entry
                          #'+org-capture-central-project-todo-file "* TODO %?\n 
%i\n %a" :heading "Tasks" :prepend nil)
                         ("on" "Project notes" entry
                          #'+org-capture-central-project-notes-file "* %U %?\n 
%i\n %a" :heading "Notes" :prepend t)
                         ("oc" "Project changelog" entry
                          #'+org-capture-central-project-changelog-file "* %U 
%?\n %i\n %a" :heading "Changelog" :prepend t)
                         )
 org-persist-after-read-hook '(org-element--cache-persist-after-read)
 org-re-reveal-root 
"/home/dan/.emacsen/doom-emacs/.local/straight/build-29.0.50/revealjs/"
 org-refile-targets '((nil :maxlevel . 3)
                      (org-agenda-files :maxlevel . 3))
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-latex-compiler "lualatex"
 org-cycle-tab-first-hook '(+org-yas-expand-maybe-h
                            +org-indent-maybe-h
                            org-babel-hide-result-toggle-maybe
                            org-babel-header-arg-expand
                            +org-clear-babel-results-h
                            +org-cycle-only-current-subtree-h)
 org-default-notes-file "/home/dan/Documents/org/notes.org"
 org-refile-use-outline-path 'file
 org-publish-timestamp-directory 
"/home/dan/.emacsen/doom-emacs/.local/cache/org-timestamps/"
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-file-apps '((remote . emacs) (auto-mode . emacs)
                 (directory . emacs) ("\\.mm\\'" . default)
                 ("\\.x?html?\\'" . default)
                 ("\\.pdf\\'" . default))
 org-columns-default-format "%ITEM %TIMESTAMP %SCHEDULE %DEADLINE %TODO 
%3PRIORITY %TAGS"
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS 
WIDTH)"]
 org-cycle-hook '(org-cycle-hide-archived-subtrees
                  org-cycle-show-empty-lines
                  org-cycle-optimize-window-after-visibility-change)
 org-latex-listings-options '(("breaklines" "true")
                              ("breakwhitespace" "true"))
 org-persist-before-read-hook '(org-element--cache-persist-before-read)
 org-font-lock-set-keywords-hook '(doom-themes-enable-org-fontification)
 org-modules '(ol-bibtex)
 org-image-actual-width 1536
 org-attach-use-inheritance t
 org-mode-local-vars-hook '(+indent-guides-disable-maybe-h
                            +org-init-gifs-h eldoc-mode)
 org-mode-hook '(er/add-org-mode-expansions
                 +lookup--init-org-mode-handlers-h
                 (closure
                  ((hook . org-mode-hook) (--dolist-tail--) t)
                  (&rest _)
                  (add-hook 'before-save-hook
                   'org-encrypt-entries nil t)
                  )
                 #[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook
                    org-fold-show-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
                 #[0 "\301\211\207"
                   [imenu-create-index-function
                    org-imenu-get-tree]
                   2]
                 org-cdlatex-mode writegood-mode flyspell-mode
                 doom-disable-show-paren-mode-h
                 doom-disable-show-trailing-whitespace-h
                 +org-enable-auto-reformat-tables-h
                 +org-enable-auto-update-cookies-h
                 +org-make-last-point-visible-h evil-org-mode
                 toc-org-enable embrace-org-mode-hook
                 org-eldoc-load)
 org-babel-load-languages '((scheme . t) (emacs-lisp . t))
 org-src-window-setup 'other-window
 outline-minor-mode-hook '(my-turn-on-outline-comment-mode)
 org-id-locations-file 
"/home/dan/.emacsen/doom-emacs/.local/straight/build-29.0.50/ob-go/.test-org-id-locations"
 org-agenda-span 60
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-priority-faces '((65 . error) (66 . warning)
                      (67 . success))
 org-agenda-show-all-dates nil
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-reveal-start-hook '(org-decrypt-entry)
 org-agenda-skip-unavailable-files t
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 outline-isearch-open-invisible-function 'outline-isearch-open-invisible
 org-use-sub-superscripts '{}
 org-html-validation-link nil
 org-startup-indented t
 org-latex-classes '(("beamer"
                      "\\documentclass[presentation]{beamer}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" .
                       "\\subsection*{%s}")
                      ("\\subsubsection{%s}" .
                       "\\subsubsection*{%s}")
                      )
                     ("article"
                      "\\documentclass[11pt]{article}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" .
                       "\\subsection*{%s}")
                      ("\\subsubsection{%s}" .
                       "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" .
                       "\\subparagraph*{%s}")
                      )
                     ("report" "\\documentclass[11pt]{report}"
                      ("\\part{%s}" . "\\part*{%s}")
                      ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" .
                       "\\subsection*{%s}")
                      ("\\subsubsection{%s}" .
                       "\\subsubsection*{%s}")
                      )
                     ("book" "\\documentclass[11pt]{book}"
                      ("\\part{%s}" . "\\part*{%s}")
                      ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" .
                       "\\subsection*{%s}")
                      ("\\subsubsection{%s}" .
                       "\\subsubsection*{%s}")
                      )
                     )
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-agenda-mode-hook '(+org-habit-resize-graph-h
                        evil-org-agenda-mode)
 org-link-translation-function 'toc-org-unhrefify
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-src-preserve-indentation t
 org-latex-packages-alist '(("newfloat" "minted")
                            ("" "listings") ("" "mathtools" t)
                            ("" "indentfirst") ("" "color"))
 org-entities-user '(("flat" "\\flat" nil "" "" "266D" "♭")
                     ("sharp" "\\sharp" nil "" "" "266F" "♯"))
 org-src-mode-hook '(doom-modeline-set-org-src-modeline
                     org-src-babel-configure-edit-buffer
                     org-src-mode-configure-edit-buffer)
 org-agenda-window-setup 'current-window
 org-latex-src-block-backend 'engraved
 org-tags-exclude-from-inheritance '("crypt")
 org-clock-out-remove-zero-time-clocks t
 org-hide-leading-stars t
 org-todo-keywords '((sequence "TODO(t)" "PROJ(p)" "LOOP(r)"
                      "STRT(s)" "WAIT(w)" "HOLD(h)" "IDEA(i)"
                      "|" "DONE(d)" "KILL(k)")
                     (sequence "[ ](T)" "[-](S)" "[?](W)" "|"
                      "[X](D)")
                     (sequence "|" "OKAY(o)" "YES(y)" "NO(n)"))
 org-agenda-inhibit-startup t
 org-preview-latex-process-alist '((lua-dvipng :programs
                                    ("lualatex" "dvipng")
                                    :description "dvi > png"
                                    :message
                                    "you need to install the programs: lualatex 
and dvipng."
                                    :image-input-type "dvi"
                                    :image-output-type "png"
                                    :image-size-adjust
                                    (1.0 . 1.0)
                                    :latex-compiler
                                    ("lualatex -shell-escape 
-interaction=nonstopmode -output-directory=%o %f")
                                    :image-converter
                                    ("dvipng -D %D -T tight -o %O %f")
                                    :transparent-image-converter
                                    ("dvipng -D %D -T tight -bg Transparent -o 
%O %f")
                                    )
                                   (dvipng :programs
                                    ("latex" "dvipng")
                                    :description "dvi > png"
                                    :message
                                    "you need to install the programs: latex 
and dvipng."
                                    :image-input-type "dvi"
                                    :image-output-type "png"
                                    :image-size-adjust
                                    (1.0 . 1.0)
                                    :latex-compiler
                                    ("latex -interaction nonstopmode 
-output-directory %o %f")
                                    :image-converter
                                    ("dvipng -D %D -T tight -o %O %f")
                                    :transparent-image-converter
                                    ("dvipng -D %D -T tight -bg Transparent -o 
%O %f")
                                    )
                                   (dvisvgm :programs
                                    ("latex" "dvisvgm")
                                    :description "dvi > svg"
                                    :message
                                    "you need to install the programs: latex 
and dvisvgm."
                                    :image-input-type "dvi"
                                    :image-output-type "svg"
                                    :image-size-adjust
                                    (1.7 . 1.5)
                                    :latex-compiler
                                    ("latex -interaction nonstopmode 
-output-directory %o %f")
                                    :image-converter
                                    ("dvisvgm %f -n -b min -c %S -o %O")
                                    )
                                   (imagemagick :programs
                                    ("latex" "convert")
                                    :description "pdf > png"
                                    :message
                                    "you need to install the programs: latex 
and imagemagick."
                                    :image-input-type "pdf"
                                    :image-output-type "png"
                                    :image-size-adjust
                                    (1.0 . 1.0)
                                    :latex-compiler
                                    ("pdflatex -interaction nonstopmode 
-output-directory %o %f")
                                    :image-converter
                                    ("convert -density %D -trim -antialias %f 
-quality 100 %O")
                                    )
                                   )
 org-structure-template-alist '(("n" . "notes")
                                ("a" . "export ascii")
                                ("c" . "center")
                                ("C" . "comment")
                                ("e" . "example")
                                ("E" . "export")
                                ("h" . "export html")
                                ("l" . "export latex")
                                ("q" . "quote") ("s" . "src")
                                ("v" . "verse"))
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-preview-latex-image-directory 
"/home/dan/.emacsen/doom-emacs/.local/cache/org-latex/"
 org-fontify-whole-heading-line t
 org-speed-command-hook '(org-speed-command-activate
                          org-babel-speed-command-activate)
 org-html-format-inlinetask-function 
'org-html-format-inlinetask-default-function
 org-clock-persist-file 
"/home/dan/.emacsen/doom-emacs/.local/etc/org-clock-save.el"
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-eldoc-breadcrumb-separator " → "
 org-latex-prefer-user-labels t
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-persist-directory "/home/dan/.emacsen/doom-emacs/.local/cache/org-persist/"
 org-export-backends '(beamer md ascii html icalendar latex
                       odt)
 org-enforce-todo-dependencies t
 org-latex-tables-centered nil
 org-latex-minted-options '(("breaklines" "true"))
 org-confirm-babel-evaluate nil
 org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
 org-export-with-smart-quotes t
 org-clock-in-resume t
 org-insert-heading-respect-content t
 org-M-RET-may-split-line nil
 org-clock-persist 'history
 org-latex-format-inlinetask-function 
'org-latex-format-inlinetask-default-function
 org-persist-before-write-hook '(org-element--cache-persist-before-write)
 org-tab-first-hook '(+org-yas-expand-maybe-h
                      +org-indent-maybe-h
                      org-babel-hide-result-toggle-maybe
                      org-babel-header-arg-expand
                      +org-clear-babel-results-h
                      +org-cycle-only-current-subtree-h)
 org-link-shell-confirm-function 'yes-or-no-p
 org-agenda-finalize-hook '(+org-exclude-agenda-buffers-from-workspace-h 
+org-defer-mode-in-agenda-buffers-h)
 org-babel-pre-tangle-hook '(save-buffer)
 org-agenda-loop-over-headlines-in-active-region nil
 org-fontify-quote-and-verse-blocks t
 org-agenda-start-on-weekday nil
 org-attach-id-dir "/home/dan/Documents/org/.attach/"
 org-todo-keyword-faces '(("[-]" . +org-todo-active)
                          ("STRT" . +org-todo-active)
                          ("[?]" . +org-todo-onhold)
                          ("WAIT" . +org-todo-onhold)
                          ("HOLD" . +org-todo-onhold)
                          ("PROJ" . +org-todo-project)
                          ("NO" . +org-todo-cancel)
                          ("KILL" . +org-todo-cancel))
 org-capture-mode-hook '(+org-show-target-in-capture-header-h
                         evil-insert-state)
 org-agenda-deadline-faces '((1.001 . error)
                             (1.0 . org-warning)
                             (0.5 . org-upcoming-deadline)
                             (0.0 .
                              org-upcoming-distant-deadline)
                             )
 org-fold-reveal-start-hook '(org-decrypt-entry)
 outline-minor-mode-cycle t
 org-cycle-level-faces nil
 org-occur-hook '(org-first-headline-recenter)
 org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 outline-minor-mode-prefix ""
 org-link-parameters '(("bibtex" :follow org-bibtex-open
                        :store org-bibtex-store-link)
                       ("treemacs" :store
                        treemacs-store-org-link)
                       ("orgit-rev" :store orgit-rev-store
                        :follow orgit-rev-open :export
                        orgit-rev-export :complete
                        orgit-rev-complete-link)
                       ("orgit-log" :store orgit-log-store
                        :follow orgit-log-open :export
                        orgit-log-export :complete
                        orgit-log-complete-link)
                       ("orgit" :store orgit-status-store
                        :follow orgit-status-open :export
                        orgit-status-export :complete
                        orgit-status-complete-link)
                       ("orgit-topic" :store orgit-topic-store
                        :follow orgit-topic-open :export
                        orgit-topic-export :complete
                        orgit-topic-complete-link)
                       ("yt" :follow org-yt-follow
                        :image-data-fun org-yt-image-data-fun)
                       ("id" :follow org-id-open)
                       ("img" :image-data-fun
                        +org-inline-image-data-fn)
                       ("doom-module" :follow
                        +org-link--doom-module-follow-fn :face
                        +org-link--doom-module-face-fn)
                       ("doom-package" :follow
                        +org-link--doom-package-follow-fn
                        :face
                        (closure (t) (_)
                         '(:inherit org-priority :slant italic)
                         )
                        )
                       ("kbd" :follow
                        (closure (t) (_)
                         (minibuffer-message "%s"
                          (+org-display-link-in-eldoc-a))
                         )
                        :help-echo +org-read-kbd-at-point
                        :face help-key-binding)
                       ("doom-modules" :complete
                        (closure
                         ((dir-fn closure
                           ((plist)
                            (dir-var . doom-modules-dir)
                            (key . "doom-modules") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-modules-dir)
                          (key . "doom-modules") t)
                         nil
                         (if requires
                          (mapc #'require
                           (doom-enlist requires))
                          )
                         (+org--relative-path
                          (+org--read-link-path key
                           (funcall dir-fn))
                          (funcall dir-fn))
                         )
                        :follow
                        (closure
                         ((dir-fn closure
                           ((plist)
                            (dir-var . doom-modules-dir)
                            (key . "doom-modules") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-modules-dir)
                          (key . "doom-modules") t)
                         (link)
                         (org-link-open-as-file
                          (expand-file-name link
                           (funcall dir-fn))
                          nil)
                         )
                        :face
                        (closure
                         ((dir-fn closure
                           ((plist)
                            (dir-var . doom-modules-dir)
                            (key . "doom-modules") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-modules-dir)
                          (key . "doom-modules") t)
                         (link)
                         (let*
                          ((path
                            (expand-file-name link
                             (funcall dir-fn))
                            )
                           (option-index
                            (string-match-p "::\\(.*\\)\\'"
                             path)
                            )
                           (file-name
                            (substring path 0 option-index))
                           )
                          (if (file-exists-p file-name)
                           'org-link 'error)
                          )
                         )
                        )
                       ("doom-docs" :complete
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-docs-dir)
                            (key . "doom-docs") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-docs-dir)
                          (key . "doom-docs") t)
                         nil
                         (if requires
                          (mapc #'require
                           (doom-enlist requires))
                          )
                         (+org--relative-path
                          (+org--read-link-path key
                           (funcall dir-fn))
                          (funcall dir-fn))
                         )
                        :follow
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-docs-dir)
                            (key . "doom-docs") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-docs-dir)
                          (key . "doom-docs") t)
                         (link)
                         (org-link-open-as-file
                          (expand-file-name link
                           (funcall dir-fn))
                          nil)
                         )
                        :face
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-docs-dir)
                            (key . "doom-docs") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-docs-dir)
                          (key . "doom-docs") t)
                         (link)
                         (let*
                          ((path
                            (expand-file-name link
                             (funcall dir-fn))
                            )
                           (option-index
                            (string-match-p "::\\(.*\\)\\'"
                             path)
                            )
                           (file-name
                            (substring path 0 option-index))
                           )
                          (if (file-exists-p file-name)
                           'org-link 'error)
                          )
                         )
                        )
                       ("doom" :complete
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-emacs-dir)
                            (key . "doom") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-emacs-dir)
                          (key . "doom") t)
                         nil
                         (if requires
                          (mapc #'require
                           (doom-enlist requires))
                          )
                         (+org--relative-path
                          (+org--read-link-path key
                           (funcall dir-fn))
                          (funcall dir-fn))
                         )
                        :follow
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-emacs-dir)
                            (key . "doom") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-emacs-dir)
                          (key . "doom") t)
                         (link)
                         (org-link-open-as-file
                          (expand-file-name link
                           (funcall dir-fn))
                          nil)
                         )
                        :face
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . doom-emacs-dir)
                            (key . "doom") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . doom-emacs-dir)
                          (key . "doom") t)
                         (link)
                         (let*
                          ((path
                            (expand-file-name link
                             (funcall dir-fn))
                            )
                           (option-index
                            (string-match-p "::\\(.*\\)\\'"
                             path)
                            )
                           (file-name
                            (substring path 0 option-index))
                           )
                          (if (file-exists-p file-name)
                           'org-link 'error)
                          )
                         )
                        )
                       ("org" :complete
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . org-directory)
                            (key . "org") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . org-directory)
                          (key . "org") t)
                         nil
                         (if requires
                          (mapc #'require
                           (doom-enlist requires))
                          )
                         (+org--relative-path
                          (+org--read-link-path key
                           (funcall dir-fn))
                          (funcall dir-fn))
                         )
                        :follow
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . org-directory)
                            (key . "org") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . org-directory)
                          (key . "org") t)
                         (link)
                         (org-link-open-as-file
                          (expand-file-name link
                           (funcall dir-fn))
                          nil)
                         )
                        :face
                        (closure
                         ((dir-fn closure
                           ((plist) (dir-var . org-directory)
                            (key . "org") t)
                           nil (symbol-value dir-var))
                          (requires) (plist)
                          (dir-var . org-directory)
                          (key . "org") t)
                         (link)
                         (let*
                          ((path
                            (expand-file-name link
                             (funcall dir-fn))
                            )
                           (option-index
                            (string-match-p "::\\(.*\\)\\'"
                             path)
                            )
                           (file-name
                            (substring path 0 option-index))
                           )
                          (if (file-exists-p file-name)
                           'org-link 'error)
                          )
                         )
                        )
                       ("attachment" :image-data-fun
                        +org-inline-image-data-fn :follow
                        org-attach-follow :complete
                        org-attach-complete-link)
                       ("file+sys") ("file+emacs")
                       ("shell" :follow org-link--open-shell)
                       ("news" :follow
                        #[514 "\301\300\302Q\"\207"
                          ["news" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        )
                       ("mailto" :follow
                        #[514 "\301\300\302Q\"\207"
                          ["mailto" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        )
                       ("https" :follow
                        #[514 "\301\300\302Q\"\207"
                          ["https" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        :image-data-fun
                        +org-http-image-data-fn)
                       ("http" :follow
                        #[514 "\301\300\302Q\"\207"
                          ["http" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        :image-data-fun
                        +org-http-image-data-fn)
                       ("ftp" :follow
                        #[514 "\301\300\302Q\"\207"
                          ["ftp" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        )
                       ("help" :follow org-link--open-help
                        :store org-link--store-help)
                       ("file" :complete
                        org-link-complete-file :face
                        (closure (t) (path)
                         (if
                          (or (file-remote-p path)
                           (and IS-WINDOWS
                            (string-prefix-p "\\\\" path))
                           (file-exists-p path))
                          'org-link '(warning org-link))
                         )
                        )
                       ("elisp" :follow org-link--open-elisp))
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-imenu-depth 6
 org-display-remote-inline-images 'download
 org-outline-path-complete-in-steps nil
 org-special-ctrl-a/e t
 org-tags-column 0
 org-src-lang-modes '(("rust" . rustic) ("md" . markdown)
                      ("C" . c) ("C++" . c++)
                      ("asymptote" . asy) ("bash" . sh)
                      ("beamer" . latex)
                      ("calc" . fundamental) ("cpp" . c++)
                      ("ditaa" . artist)
                      ("desktop" . conf-desktop)
                      ("dot" . fundamental)
                      ("elisp" . emacs-lisp)
                      ("ocaml" . tuareg)
                      ("screen" . shell-script) ("shell" . sh)
                      ("sqlite" . sql) ("toml" . conf-toml))
 org-clock-history-length 20
 org-scheduled-past-days 7
 org-deadline-past-days 1
 org-attach-store-link-p t
 org-id-locations-file-relative t
 outline-minor-mode-highlight 'override
 org-agenda-todo-ignore-deadlines -1
 org-archive-subtree-save-file-p t
 org-list-allow-alphabetical t
 org-re-reveal-revealjs-version "4"
 )

-- 
Daanturo.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]