diff --git a/doom/.config/doom/README.org b/doom/.config/doom/README.org index 5613a20..a9a407a 100644 --- a/doom/.config/doom/README.org +++ b/doom/.config/doom/README.org @@ -48,6 +48,10 @@ they are implemented. Place your private configurations. It is optional. #+begin_src emacs-lisp +(setq org-src-coderef-format nil) + +(setq org-src-coderef-format nil) + (setq user-full-name "Thierry Pouplier" user-mail-address "tpouplier@tdnde.com") #+end_src diff --git a/doom/.config/doom/config.el b/doom/.config/doom/config.el index b087f19..d485358 100644 --- a/doom/.config/doom/config.el +++ b/doom/.config/doom/config.el @@ -1,5 +1,9 @@ ;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- +(setq org-src-coderef-format nil) + +(setq org-src-coderef-format nil) + (setq user-full-name "Thierry Pouplier" user-mail-address "tpouplier@tdnde.com") diff --git a/doom/.config/doom/nil b/doom/.config/doom/nil new file mode 100644 index 0000000..951d4bc --- /dev/null +++ b/doom/.config/doom/nil @@ -0,0 +1,33 @@ +(setq doom-theme 'doom-gruvbox) +;; Enable flashing mode-line on errors +(doom-themes-visual-bell-config) +;; Corrects (and improves) org-mode's native fontification. +(doom-themes-org-config) + +(after! org + ;; 1. Update existing faces (Org defines 1-8 by default) + (set-face-attribute 'org-document-title nil :height 2.0 :weight 'bold) + (set-face-attribute 'org-level-1 nil :weight 'semi-bold :height 1.45) + (set-face-attribute 'org-level-2 nil :weight 'semi-bold :height 1.35) + (set-face-attribute 'org-level-3 nil :weight 'semi-bold :height 1.25) + (set-face-attribute 'org-level-4 nil :weight 'semi-bold :height 1.15) + (set-face-attribute 'org-level-5 nil :weight 'normal :height 1.10) + (set-face-attribute 'org-level-6 nil :weight 'normal :height 1.05) + (set-face-attribute 'org-level-7 nil :weight 'normal :height 1.02) + (set-face-attribute 'org-level-8 nil :weight 'normal :height 1.00) + + ;; 2. Create missing faces (9-20) and inherit them directly from org-level-8 + (cl-loop for lvl from 9 to 20 + do (let ((face-name (intern (format "org-level-%d" lvl)))) + (custom-declare-face face-name + '((t :inherit org-level-8)) + (format "Face for org heading level %d." lvl) + :group 'org-faces))) + + ;; 3. Add the newly created faces to Org's level list + (setq org-level-faces + (append org-level-faces + (mapcar (lambda (lvl) (intern (format "org-level-%d" lvl))) + (number-sequence 9 20)))) + + (setq org-n-level-faces (length org-level-faces)))