diff options
Diffstat (limited to 'kolwynia/home/bdunahu/files/.config/emacs/modules/bd--org.el')
| -rw-r--r-- | kolwynia/home/bdunahu/files/.config/emacs/modules/bd--org.el | 255 |
1 files changed, 255 insertions, 0 deletions
diff --git a/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--org.el b/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--org.el new file mode 100644 index 0000000..b88a72b --- /dev/null +++ b/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--org.el @@ -0,0 +1,255 @@ +;;; -*- lexical-binding: t; -*- +;;; Commentary: +;;; Code: + + +(require 'fill-column) +(use-package org + :demand t + :hook + ((org-mode . (lambda () + (org-indent-mode) + (org-toggle-inline-images) + (fill-column-mode) + (abbrev-mode) + (org-latex-preview '(16))))) + :config + (setopt org-ellipsis " ▾" + org-babel-python-command "python3" + org-confirm-babel-evaluate nil + org-hide-emphasis-markers t + org-startup-folded 'showeverything + org-src-window-setup 'current-window) + (plist-put org-format-latex-options :scale 1.3) + (push '("\\.pdf\\'" . "zathura %s") org-file-apps) + (add-hook 'org-babel-after-execute-hook #'org-redisplay-inline-images) + (org-babel-do-load-languages + 'org-babel-load-languages + '((emacs-lisp . t) + (shell . t) + (lisp . t) + (scheme . t) + (dot . t) + (latex . t) + (python . t))) + (define-abbrev org-mode-abbrev-table + "lbm" "\\begin{equation*}\n\\begin{bmatrix}\n\\end{bmatrix}\n\\end{equation*}") + (define-abbrev org-mode-abbrev-table + "lca" "\\begin{equation*}\n\\begin{cases}\n\\end{cases}\n\\end{equation*}") + (define-abbrev org-mode-abbrev-table + "gvd" "#+begin_src dot :file images/1.png\ndigraph g {\nrankdir=LR;\n\tnode [shape = doublecircle]; A;\n\tnode [shape = point]; qi\n\tnode[shape=circle];\n}\n#+end_src") + (define-abbrev org-mode-abbrev-table + "les" "\\begin{equation*}\n\\end{equation*}") + (define-abbrev org-mode-abbrev-table + "lbm" "\\begin{equation*}\n\\begin{bmatrix}\n\\end{bmatrix}\n\\end{equation*}") + (define-abbrev org-mode-abbrev-table + "lds" "\\begin{drawstack}\n\\end{drawstack}")) + +(use-package ox + :config + (add-to-list 'org-latex-packages-alist '("" "listings")) + (setopt org-latex-toc-command "\\tableofcontents \\clearpage" + org-latex-src-block-backend 'listings + org-latex-image-default-width ".6\\linewidth" + org-latex-compiler "xelatex" + org-export-with-toc nil + org-export-preserve-breaks nil + org-latex-classes + '(("article" + "\\PassOptionsToPackage{svgnames}{xcolor} +\\documentclass[11pt]{article} +\\usepackage[margin=1in]{geometry} +\\usepackage{xcolor,color,tikz,amsmath,amssymb,amsthm,amsfonts,graphicx,enumitem,listings,comment} +\\lstset{frame=single,aboveskip=1em, + framesep=.5em,backgroundcolor=\\color{AliceBlue}, + rulecolor=\\color{Black},framerule=1pt} +\\usepackage{xcolor} +\\newcommand\\basicdefault[1]{\\scriptsize\\color{Black}\\fontfamily{pcr}\\selectfont} +\\lstset{basicstyle=\\basicdefault{\\spaceskip1em}} +\\lstset{keywordstyle=\\color{DarkGreen}\\bfseries, + identifierstyle=\\color{DarkRed}, + commentstyle=\\color{DimGray}\\upshape, + stringstyle=\\color{DarkBlue}\\upshape, + emphstyle=\\color{Chocolate}\\upshape, + showstringspaces=false, + columns=fullflexible, + keepspaces=true} +\\lstset{columns=fullflexible,basicstyle=\\ttfamily} +\\setlength{\\headsep}{0.75 in} +\\setlength{\\parskip}{0.1 in} + +\\makeatletter +\\renewcommand{\\maketitle}{% + \\begingroup\\parindent0pt + \\begin{center} + \\LARGE{\\bfseries\\@title}\\par\\bigskip + \\large{\\@author}\\par\\medskip + \\normalsize\\@date\\par\\bigskip + \\end{center} + \\endgroup\\@afterindentfalse\\@afterheading} +\\makeatother +[DEFAULT-PACKAGES] +\\hypersetup{linkcolor=Blue,urlcolor=DarkBlue, + citecolor=DarkRed,colorlinks=true} +[PACKAGES] +[EXTRA]" + ("\\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}")) + ("acmart" "\\PassOptionsToPackage{svgnames}{xcolor} +\\documentclass[sigconf,authorversion,nonacm]{acmart} +\\usepackage{xcolor,color,tikz,amsmath,amssymb,amsthm,amsfonts,graphicx,enumitem,listings,comment} +\\usepackage{xcolor} +\\lstset{frame=single,aboveskip=1em, + framesep=.5em,backgroundcolor=\\color{AliceBlue}, + rulecolor=\\color{Black},framerule=1pt} +\\lstset{keywordstyle=\\color{DarkGreen}\\bfseries, + identifierstyle=\\color{DarkRed}, + commentstyle=\\color{DimGray}\\upshape, + stringstyle=\\color{DarkBlue}\\upshape, + emphstyle=\\color{Chocolate}\\upshape, + showstringspaces=false, + columns=fullflexible, + keepspaces=true}" + ("\\section{%s}" . "\\section*{%s}") + ("\\subsection{%s}" . "\\subsection*{%s}") + ("\\subsubsection{%s}" . "\\subsubsection*{%s}") + ("\\paragraph{%s}" . "\\paragraph*{%s}") + ("\\subparagraph{%s}" . "\\subparagraph*{%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}"))))) + +(use-package oc + :config + (setopt org-cite-global-bibliography + (directory-files-recursively + (concat (xdg-user-dir "DOCUMENTS") "/bib/") + ".*\\.bib$") + org-cite-export-processors + '((latex biblatex)))) + +(use-package org-agenda + :bind + (("C-c n a" . org-agenda) + ("C-c n c" . org-capture) + ("C-c n s" . org-schedule) + ("C-c n d" . org-deadline) + ("C-c n r" . org-refile)) + :config + (advice-add 'org-refile :after 'org-save-all-org-buffers) + + (defvar-local bd/course-list + '(("598" . ?0)) + "Courses for tagging, capturing, and various +agenda views.") + + (defvar-local bd/device-list + '(("garmr" . ?G) + ("heimdallr" . ?H) + ("hodr" . ?M) + ("surt" . ?I) + ("vali" . ?V)) + "Devices for tagging, capturing, and various +agenda views.") + + (defun bd/combine-tags (tag-alist add? or-p) + "Given TAG-ALIST in the form of +ORG-TAG-ALIST, returns a concatenated string +representing all the tags ORd or ANDed together." + (apply #'concat + (mapcar (lambda (e) + (concat (when or-p "|") (if add? "+" "-") (car e))) + tag-alist))) + + (setopt org-log-done 'time + org-deadline-warning-days 7 + org-log-into-drawer "history" + org-agenda-restore-windows-after-quit t + org-agenda-show-future-repeats nil + org-agenda-block-separator nil + org-deadline-warning-days 0 + org-todo-keywords + '((sequence "TODO(t)" "NEXT(n!)" "HOLD(h!)" "|" "DONE(d)" "CANC(c)")) + org-tag-alist + `(("noexport" . ?e) + + ("chore" . ?C) + ,@bd/device-list + + ("idea" . ?i) + ("programming" . ?p) + ("web" . ?s) + ("writing" . ?w) + ("reading" . ?r) + + ,@bd/course-list) + org-directory "~/dc/agenda/" + + org-agenda-files (list org-directory) + org-refile-use-outline-path 'file + org-refile-targets '((org-agenda-files :level . 0)) + org-capture-templates + `(("t" "Task Entry" entry + (file ,(concat org-directory "inbox.org")) + "* %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n%i\nrecorded visiting: %a" + :empty-lines 1))) + + (let ((orphan-view '(tags-todo "-{.*}" + ((org-agenda-overriding-header "\nUnfiltered Items\n"))))) + (setopt org-agenda-custom-commands + `(("c" "Chores" + ((agenda "" ((org-agenda-entry-types '(:deadline)) + (org-agenda-show-all-dates nil) + (org-agenda-span 21) + (org-agenda-skip-function + '(org-agenda-skip-entry-if 'notregexp + (regexp-opt (cons "chore" (mapcar #'car bd/device-list))))) + (org-agenda-overriding-header "Priority Deadlines (+21d)\n"))) + (tags-todo (concat "chore" (bd/combine-tags bd/device-list nil nil)) + ((org-agenda-overriding-header "\nMundane\n"))) + ,@(mapcar (lambda (e) + `(tags-todo ,(car e) + ((org-agenda-overriding-header + (concat "\nDevice: " ,(capitalize (car e)) "\n"))))) + bd/device-list) + ,orphan-view)) + ("r" "Recreational" + ((tags-todo "+idea" + ((org-agenda-skip-function + '(org-agenda-skip-entry-if 'regexp "chore")) + (org-agenda-overriding-header "Ideas\n"))) + (tags-todo "+reading|+writing" + ((org-agenda-skip-function + '(org-agenda-skip-entry-if 'regexp "chore")) + (org-agenda-overriding-header "\nReading/Writing\n"))) + (tags-todo "+programming|+web" + ((org-agenda-skip-function + '(org-agenda-skip-entry-if 'regexp "chore")) + (org-agenda-overriding-header "\nProgramming\n"))) + ,orphan-view)) + ("s" "College" + ((tags-todo (bd/combine-tags bd/course-list t t) + ((org-agenda-overriding-header "\nAll Courses\n"))) + (agenda "" ((org-agenda-entry-types '(:deadline :scheduled)) + (org-agenda-show-all-dates nil) + (org-agenda-span 15) + (org-scheduled-past-days 7) + (org-agenda-skip-function + '(org-agenda-skip-entry-if 'notregexp + (regexp-opt (mapcar #'car bd/course-list)))) + (org-agenda-overriding-header "\nUpcoming Deadlines (+15d)\n"))) + ,orphan-view)))))) + + +(provide 'bd--org) +;;; bd--org.el ends here |