+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (with-eval-after-load "org"
+ (let* ((base-height (face-attribute 'variable-pitch :height))
+ (base-font-color (face-foreground 'default nil 'default)))
+ (set-face-attribute 'org-document-title nil :weight 'bold :height (+ 100 base-height))
+ (set-face-attribute 'org-level-1 nil :weight 'bold :height (+ 80 base-height))
+ (set-face-attribute 'org-level-2 nil :weight 'bold :height (+ 60 base-height))
+ (set-face-attribute 'org-level-3 nil :weight 'bold :height (+ 40 base-height))
+ (set-face-attribute 'org-level-4 nil :weight 'bold :height (+ 20 base-height))
+ (set-face-attribute 'org-level-5 nil :weight 'bold)
+ (set-face-attribute 'org-level-6 nil :weight 'bold)
+ (set-face-attribute 'org-level-7 nil :weight 'bold)
+ (set-face-attribute 'org-level-8 nil :weight 'bold)))
+#+END_SRC