From 92cb81e7a3c93121a1bb39d431a2a2b4c9d98bf9 Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Mon, 8 Aug 2022 06:36:43 -0800 Subject: [PATCH] Optimize org-mode loading (not really) --- lisp/mitch-packages.el | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el index 4e258fb..e1cb4b4 100644 --- a/lisp/mitch-packages.el +++ b/lisp/mitch-packages.el @@ -419,29 +419,28 @@ targets." :mode (("\\.org$" . org-mode)) :diminish org-indent-mode :custom - (org-ellipsis " ▾") (org-hide-leading-stars t) (org-startup-indented t) :config - ;; (org-indent-mode) - ;; (add-hook 'org-mode-hook - ;; #'(lambda () - ;; (add-hook 'after-save-hook - ;; #'(lambda () - ;; (org-babel-tangle))))) + (defun local-disable-whitespace () + "Disable whitespace-mode in the current buffer." + (setq-local whitespace-style nil)) (add-hook 'after-save-hook #'(lambda () (if (equal major-mode 'org-mode) (org-babel-tangle)))) (add-hook 'org-mode-hook - #'(lambda () (setq-local whitespace-style nil))) - (with-eval-after-load 'org - ;; This is needed as of Org 9.2 - (require 'org-tempo) - (add-to-list 'org-structure-template-alist '("sh" . "src shell")) - (add-to-list 'org-structure-template-alist '("el" . "src elisp")) - (add-to-list 'org-structure-template-alist '("ps1" . "src powershell"))) + (local-disable-whitespace)) :hook (org-mode . turn-off-line-numbers)) +(use-package org-tempo + :straight (:type built-in) + :after org + :config + (add-to-list 'org-structure-template-alist '("sh" . "src shell")) + (add-to-list 'org-structure-template-alist '("el" . "src elisp")) + (add-to-list 'org-structure-template-alist '("ps1" . "src powershell")) + (add-to-list 'org-structure-template-alist '("html" . "src html"))) (use-package org-variable-pitch + :if (display-graphic-p) :diminish (buffer-face-mode org-variable-pitch-minor-mode) :config (set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-delimiter-face fixed-pitch))