 ;;   Load this theme over top your existing theme, and you should be
 ;;   golden.  If you find any incompatibilities, let me know with what
 ;;   theme and I will try and fix it.
-;; 
+;;
 ;;   When loading a whole new theme overtop, org-beautify-theme will
 ;;   still be active with the old theme.  Just unload org-beautify-theme
 ;;   and then reload it, and everything will be fine again.
-;; 
+;;
 ;;   If you still get really ugly headlines, customize the
 ;;   ~org-beautify-theme-use-box-hack~ variable and set it to nil (false).
-;; 
+;;
 ;; * Changelog
 ;;    - v0.4 :: [2017-09-08]
-;;      - Add org-beautify-theme-use-box-hack to allow the user to 
-;;        fix ugly boxes.  
+;;      - Add org-beautify-theme-use-box-hack to allow the user to
+;;        fix ugly boxes.
 ;;    - v0.3.2 :: [2017-08-29]
 ;;      - Update License
 ;;    - v0.3.1 :: [2016-10-19]

;;      - Fix checkboxes
;;    - v0.1 :: First Release
;;      - Make the colors suck a lot less, and the buffers look a lot nicer.
;; 

;;; Code:

(deftheme org-beautify "Sub-theme to beautify org mode")

(let* ((sans-font (cond ((x-list-fonts "Helvetica Neue") '(:font "Helvetica Neue"))
                        ((x-list-fonts "JetBrains Mono") '(:font "JetBrains Mono"))
                        ((x-list-fonts "Menlo") '(:font "Menlo"))
                        ((x-family-fonts "Monospace") '(:family "Monospace"))

       (padding nil); `(:line-width 5 :color ,background-color))
       (org-highlights `(:foreground ,base-font-color :background ,secondary-color)))
  (custom-theme-set-faces 'org-beautify
                          `(org-agenda-structure ((t (:inherit default ,@sans-font :height 1.35 :underline t))))
                          `(org-level-8 ((t ,headline)))
                          `(org-level-7 ((t ,headline)))
                          `(org-level-6 ((t ,headline)))
                          `(org-level-5 ((t ,headline)))
                          `(org-level-4 ((t ,headline)))
                          `(org-level-3 ((t (,@headline ,@sans-font :height 1.15 :box ,padding))))
                          `(org-level-2 ((t (,@headline ,@sans-font :height 1.25 :box ,padding))))
                          `(org-level-1 ((t (,@headline ,@sans-font :height 1.35  :box ,padding ))))
                          `(org-document-title ((t (:inherit org-level-1 :height 1.5 :underline nil :box ,padding))))

                          `(org-block ((t (:foreground ,base-font-color :background ,background-color :box nil))))
