Commit | Line | Data |
---|---|---|
4c05c418 AB |
1 | ;;; bandali-org.el --- bandali's Org setup -*- lexical-binding: t; -*- |
2 | ||
78d731e1 | 3 | ;; Copyright (C) 2018-2022 Amin Bandali |
4c05c418 AB |
4 | |
5 | ;; Author: Amin Bandali <bandali@gnu.org> | |
6 | ;; Keywords: calendar, data, docs, hypermedia, outlines | |
7 | ||
8 | ;; This program is free software; you can redistribute it and/or modify | |
9 | ;; it under the terms of the GNU General Public License as published by | |
10 | ;; the Free Software Foundation, either version 3 of the License, or | |
11 | ;; (at your option) any later version. | |
12 | ||
13 | ;; This program is distributed in the hope that it will be useful, | |
14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | ;; GNU General Public License for more details. | |
17 | ||
18 | ;; You should have received a copy of the GNU General Public License | |
19 | ;; along with this program. If not, see <https://www.gnu.org/licenses/>. | |
20 | ||
21 | ;;; Commentary: | |
22 | ||
23 | ;; My set up for Org (org-mode) and all things Org. | |
24 | ||
25 | ;;; Code: | |
26 | ||
c84be134 | 27 | (with-eval-after-load 'org |
78d731e1 AB |
28 | (setq |
29 | org-src-tab-acts-natively t | |
30 | org-src-preserve-indentation nil | |
31 | org-edit-src-content-indentation 0 | |
32 | org-id-locations-file (b/var "org/id-locations.el") | |
33 | org-link-email-description-format "Email %c: %s" ; %.30s | |
34 | org-highlight-latex-and-related '(entities) | |
35 | org-use-speed-commands t | |
36 | org-startup-folded 'content | |
37 | org-catch-invisible-edits 'show-and-error | |
38 | org-log-done 'time | |
39 | org-pretty-entities t | |
40 | org-agenda-files '("~/usr/org/todos/personal.org" | |
41 | "~/usr/org/todos/habits.org" | |
42 | "~/src/git/masters-thesis/todo.org") | |
43 | org-agenda-start-on-weekday 0 | |
44 | org-agenda-time-leading-zero t | |
45 | org-habit-graph-column 44 | |
46 | org-latex-packages-alist '(("" "listings") ("" "color"))) | |
f7910e3d AB |
47 | (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t) |
48 | (add-to-list 'org-modules 'org-habit) | |
c84be134 | 49 | (custom-set-faces |
c84be134 AB |
50 | '(org-latex-and-related ((t (:foreground "#b294bb"))))) |
51 | ;; local key bindings | |
52 | (define-key org-mode-map (kbd "M-L") #'org-insert-last-stored-link) | |
53 | (define-key org-mode-map (kbd "M-O") #'org-toggle-link-display) | |
54 | ;; hooks | |
55 | (add-hook 'org-mode-hook #'org-indent-mode) | |
56 | (add-hook 'org-mode-hook #'auto-fill-mode) | |
57 | (add-hook 'org-mode-hook #'flyspell-mode) | |
58 | ||
59 | ;; asynchronous tangle, using emacs-async to asynchronously tangle an | |
60 | ;; org file. closely inspired by | |
61 | ;; https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles | |
f7910e3d AB |
62 | (defvar b/show-async-tangle-results nil |
63 | "Keep *emacs* async buffers around for later inspection.") | |
64 | ||
65 | (defvar b/show-async-tangle-time nil | |
66 | "Show the time spent tangling the file.") | |
67 | ||
68 | (defun b/async-babel-tangle () | |
69 | "Tangle org file asynchronously." | |
70 | (interactive) | |
71 | (let* ((file-tangle-start-time (current-time)) | |
72 | (file (buffer-file-name)) | |
73 | (file-nodir (file-name-nondirectory file)) | |
74 | ;; (async-quiet-switch "-q") | |
3d7cc479 AB |
75 | ;; (file-noext (file-name-sans-extension file)) |
76 | ) | |
f7910e3d AB |
77 | (async-start |
78 | `(lambda () | |
79 | (require 'org) | |
80 | (org-babel-tangle-file ,file)) | |
81 | (unless b/show-async-tangle-results | |
82 | `(lambda (result) | |
83 | (if result | |
84 | (message "Tangled %s%s" | |
85 | ,file-nodir | |
86 | (if b/show-async-tangle-time | |
87 | (format " (%.3fs)" | |
88 | (float-time (time-subtract (current-time) | |
89 | ',file-tangle-start-time))) | |
90 | "")) | |
c84be134 AB |
91 | (message "Tangling %s failed" ,file-nodir))))))) |
92 | (add-to-list | |
93 | 'safe-local-variable-values | |
94 | '(eval add-hook 'after-save-hook #'b/async-babel-tangle 'append 'local))) | |
95 | ;; global key bindings | |
96 | (global-set-key (kbd "C-c a o a") #'org-agenda) | |
97 | ||
98 | (with-eval-after-load 'ox-latex | |
78d731e1 AB |
99 | (setq |
100 | org-latex-listings 'listings | |
101 | ;; org-latex-prefer-user-labels t | |
102 | ) | |
c84be134 AB |
103 | (add-to-list 'org-latex-classes |
104 | '("IEEEtran" "\\documentclass[11pt]{IEEEtran}" | |
105 | ("\\section{%s}" . "\\section*{%s}") | |
106 | ("\\subsection{%s}" . "\\subsection*{%s}") | |
107 | ("\\subsubsection{%s}" . "\\subsubsection*{%s}") | |
108 | ("\\paragraph{%s}" . "\\paragraph*{%s}") | |
109 | ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) | |
110 | t) | |
111 | (require 'ox-beamer)) | |
f7910e3d | 112 | |
c84be134 AB |
113 | (with-eval-after-load 'ox-extra |
114 | (declare-function ox-extras-activate "ox-extra" (extras)) | |
115 | (ox-extras-activate '(latex-header-blocks ignore-headlines))) | |
fc9a59fb | 116 | |
f7910e3d | 117 | (provide 'bandali-org) |
4c05c418 | 118 | ;;; bandali-org.el ends here |