From f55555dcba7e525d3c58a44aa105f831d299b460 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 6 Oct 2023 17:36:42 +0300 Subject: emacs: (org)Update hooks & add thanos/org-scale --- .emacs.d/modules/thanos-org.el | 26 +++++++++++++++++++++----- 1 file changed, 21 insertions(+), 5 deletions(-) diff --git a/.emacs.d/modules/thanos-org.el b/.emacs.d/modules/thanos-org.el index 00cac5d..ff1c058 100644 --- a/.emacs.d/modules/thanos-org.el +++ b/.emacs.d/modules/thanos-org.el @@ -54,10 +54,6 @@ (define-key org-mode-map (kbd "C-c t") 'org-time-stamp-inactive) (define-key org-mode-map (kbd "C-c s") 'org-download-screenshot) -(add-hook 'org-mode-hook 'thanos/org-theme-gruvbox) -(add-hook 'org-mode-hook 'flyspell-mode) -(add-hook 'org-mode-hook 'toc-org-mode) - (defadvice org-edit-src-code (around set-buffer-file-name activate compile) (let ((file-name (buffer-file-name))) ;; (1) ad-do-it ;; (2) @@ -168,7 +164,7 @@ (defvar org-gruvbox-theming '((org-level-1 1.50 "#fb4934" extra-bold) (org-level-2 1.35 "#98971a" bold) - (org-level-3 1.30 "#458588" bold) + (org-level-3 1.20 "#458588" bold) (org-level-4 1.20 "#b16286" semi-bold) (org-level-5 1.10 "#689d6a" normal) (org-level-6 1.10 "#d3869b" normal) @@ -190,6 +186,26 @@ :height 1.0 :foreground "#fb4934")) +(defun thanos/org-scale () + "Enable Darkone theme for Org headers." + (interactive) + (dolist (face org-gruvbox-theming) + (set-face-attribute (nth 0 face) nil + :font "Jetbrains Mono" + :weight (nth 3 face) + :height (nth 1 face))) + (set-face-attribute 'org-table nil + :font "Jetbrains Mono" + :weight 'semi-bold + :height 1.0 + :foreground "#fb4934")) + +(add-hook 'org-mode-hook #'(lambda () + (display-line-numbers-mode -1) + (thanos/org-scale) + (flyspell-mode) + (org-auto-tangle-mode))) + (modify-all-frames-parameters '((right-divider-width . 5) (internal-border-width . 5))) -- cgit v1.2.3