You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
96 lines
3.2 KiB
EmacsLisp
96 lines
3.2 KiB
EmacsLisp
;;; $DOOMDIR/user/org.el -*- lexical-binding: t; -*-
|
|
|
|
(require 'org)
|
|
(require 'ox-org)
|
|
(add-hook! 'org-mode-hook 'org-num-mode)
|
|
(after! org
|
|
(setq
|
|
org-link-file-path-type 'relative
|
|
org-directory "~/Documents/org/"
|
|
org-roam-directory "~/Documents/org/"
|
|
org-attach-id-dir ".attach/"
|
|
org-journal-dir "~/Documents/org/"
|
|
+org-capture-journal-file "journal.org"
|
|
org-agenda-files '("agendas.org" "todo.org" "journal.org")
|
|
org-fancy-priorities-list '("" "" "")
|
|
org-link-file-path-type 'relative)
|
|
(use-package! ox-extra
|
|
:config
|
|
(ox-extras-activate '(latex-header-blocks ignore-headlines)))
|
|
|
|
(use-package! ox-latex
|
|
:init
|
|
;; code here will run immediately
|
|
:config
|
|
;; code here will run after the package is loaded
|
|
(setq org-latex-pdf-process
|
|
'("pdflatex -interaction nonstopmode -output-directory %o %f"
|
|
"bibtex %b"
|
|
"pdflatex -interaction nonstopmode -output-directory %o %f"
|
|
"pdflatex -interaction nonstopmode -output-directory %o %f"))
|
|
(setq org-latex-hyperref-template nil) ;; stop org adding hypersetup{author..} to latex export
|
|
;; (setq org-latex-prefer-user-labels t)
|
|
|
|
;; deleted unwanted file extensions after latexMK
|
|
(setq org-latex-logfiles-extensions
|
|
(quote ("lof" "lot" "tex~" "aux" "idx" "log" "out" "toc" "nav" "snm" "vrb" "dvi" "fdb_latexmk" "blg" "brf" "fls" "entoc" "ps" "spl" "bbl" "xmpi" "run.xml" "bcf" "acn" "acr" "alg" "glg" "gls" "ist")))
|
|
|
|
(unless (boundp 'org-latex-classes)
|
|
(setq org-latex-classes nil)))
|
|
|
|
(org-link-set-parameters "rel" :follow #'browse-url :export #'wvxvw/export-rel-url)
|
|
(set-company-backend!
|
|
'org-mode
|
|
'company-capf 'company-files)
|
|
(setq org-todo-keywords
|
|
'((sequence
|
|
"TODO(t)"
|
|
"BLOCKED(b)"
|
|
"WIP(w)"
|
|
"REVIEW(r)"
|
|
"|"
|
|
"CLOSED(c)"
|
|
"RESOLVED(R)"
|
|
"DONE(d)"))))
|
|
|
|
|
|
|
|
|
|
;; (setcdr (assq 'system org-file-apps-defaults-gnu) "xdg-open %s")
|
|
(setcdr (assq 'system org-file-apps-gnu) "xdg-open %s")
|
|
|
|
(advice-add 'org-open-file :around
|
|
(lambda (orig-fun &rest args)
|
|
;; Work around a weird problem with xdg-open.
|
|
(let ((process-connection-type nil))
|
|
(apply orig-fun args))))
|
|
|
|
(defun org-table-import-xlsx-to-csv-org ()
|
|
(interactive)
|
|
(let* ((source-file (file-name-sans-extension (buffer-file-name
|
|
(current-buffer))))
|
|
(xlsx-file (concat source-file ".xlsx"))
|
|
(csv-file (concat source-file ".csv")))
|
|
(org-odt-convert xlsx-file "csv")
|
|
(org-table-import csv-file nil)))
|
|
|
|
|
|
(defun org-table-import-xlsx-file-to-csv-org (file)
|
|
(interactive "f")
|
|
(let* ((source-file (file-name-sans-extension (buffer-file-name
|
|
(current-buffer))))
|
|
(xlsx-file (concat source-file ".xlsx"))
|
|
(csv-file (concat source-file ".csv")))
|
|
(org-odt-convert file "csv")
|
|
(org-table-import csv-file nil)))
|
|
|
|
;; I originally added this to fix relative links when converting org to html links but I'm pretty sure it doesn't even work
|
|
(defun wvxvw/export-rel-url (path desc format)
|
|
(cl-case format
|
|
(html (format "<a href=\"%s\">%s</a>" path (or desc path)))
|
|
(latex (format "\\href{%s}{%s}" path (or desc path)))
|
|
(otherwise path)))
|
|
|
|
(after! 'org-mode
|
|
(require 'ox-rst))
|