git.shemshak.org - ~bandali/configs/blob - lisp/bandali-org.el

   1 ;;; bandali-org.el --- bandali's Org setup           -*- lexical-binding: t; -*-
   2
   3 ;; Copyright (C) 2018-2020  Amin Bandali
   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
  27 (use-package org
  28   :config
  29   (setq org-src-tab-acts-natively t
  30         org-src-preserve-indentation nil
  31         org-edit-src-content-indentation 0
  32         org-link-email-description-format "Email %c: %s" ; %.30s
  33         org-highlight-latex-and-related '(entities)
  34         org-use-speed-commands t
  35         org-startup-folded 'content
  36         org-catch-invisible-edits 'show-and-error
  37         org-log-done 'time)
  38   (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
  39   (add-to-list 'org-modules 'org-habit)
  40   :bind
  41   (("C-c a o a" . org-agenda)
  42    :map org-mode-map
  43    ("M-L" . org-insert-last-stored-link)
  44    ("M-O" . org-toggle-link-display))
  45   :hook ((org-mode . org-indent-mode)
  46          (org-mode . auto-fill-mode)
  47          (org-mode . flyspell-mode))
  48   :custom
  49   (org-pretty-entities t)
  50   (org-agenda-files '("~/usr/org/todos/personal.org"
  51                       "~/usr/org/todos/habits.org"
  52                       "~/src/git/masters-thesis/todo.org"))
  53   (org-agenda-start-on-weekday 0)
  54   (org-agenda-time-leading-zero t)
  55   (org-habit-graph-column 44)
  56   (org-latex-packages-alist '(("" "listings") ("" "color")))
  57   :custom-face
  58   '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
  59   '(org-block ((t (:background "#1d1f21"))))
  60   '(org-latex-and-related ((t (:foreground "#b294bb")))))
  61
  62 (use-package ox-latex
  63   :after ox
  64   :config
  65   (setq org-latex-listings 'listings
  66         ;; org-latex-prefer-user-labels t
  67         )
  68   (add-to-list 'org-latex-classes
  69                '("IEEEtran" "\\documentclass[11pt]{IEEEtran}"
  70                  ("\\section{%s}"       . "\\section*{%s}")
  71                  ("\\subsection{%s}"    . "\\subsection*{%s}")
  72                  ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
  73                  ("\\paragraph{%s}"     . "\\paragraph*{%s}")
  74                  ("\\subparagraph{%s}"  . "\\subparagraph*{%s}"))
  75                t)
  76   (require 'ox-beamer))
  77
  78 (use-package ox-extra
  79   :config
  80   (declare-function ox-extras-activate "ox-extra" (extras))
  81   (ox-extras-activate '(latex-header-blocks ignore-headlines)))
  82
  83 ;; asynchronous tangle, using emacs-async to asynchronously tangle an
  84 ;; org file.  closely inspired by
  85 ;; https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles
  86 (with-eval-after-load 'org
  87   (defvar b/show-async-tangle-results nil
  88     "Keep *emacs* async buffers around for later inspection.")
  89
  90   (defvar b/show-async-tangle-time nil
  91     "Show the time spent tangling the file.")
  92
  93   (defun b/async-babel-tangle ()
  94     "Tangle org file asynchronously."
  95     (interactive)
  96     (let* ((file-tangle-start-time (current-time))
  97            (file (buffer-file-name))
  98            (file-nodir (file-name-nondirectory file))
  99            ;; (async-quiet-switch "-q")
 100            ;; (file-noext (file-name-sans-extension file))
 101            )
 102       (async-start
 103        `(lambda ()
 104           (require 'org)
 105           (org-babel-tangle-file ,file))
 106        (unless b/show-async-tangle-results
 107          `(lambda (result)
 108             (if result
 109                 (message "Tangled %s%s"
 110                          ,file-nodir
 111                          (if b/show-async-tangle-time
 112                              (format " (%.3fs)"
 113                                      (float-time (time-subtract (current-time)
 114                                                                 ',file-tangle-start-time)))
 115                            ""))
 116               (message "Tangling %s failed" ,file-nodir))))))))
 117
 118 (add-to-list
 119  'safe-local-variable-values
 120  '(eval add-hook 'after-save-hook #'b/async-babel-tangle 'append 'local))
 121
 122 (use-package org-tanglesync
 123   :hook (org-mode . org-tanglesync-mode))
 124
 125 (provide 'bandali-org)
 126 ;;; bandali-org.el ends here