 ;; Copyright (C) 2016-2018  Dan Harms (dan.harms)
 ;; Author: Dan Harms <dan.harms@xrtrading.com>
 ;; Created: Wednesday, December 21, 2016
-;; Modified Time-stamp: <2018-06-26 12:31:19 dan.harms>
+;; Modified Time-stamp: <2018-06-27 09:21:10 dan.harms>
 ;; Modified by: Dan Harms
 ;; Keywords: themes colors
 

    (cond ((eq sym 'adwaita)
           (setq wg-use-faces nil))
          ((eq sym 'Amelie)
           (my/make-comment-delimiter-face-same-as-comment-face sym))
          ((memq sym '(ample ample-light ample-flat))
           (my/make-comment-delimiter-face-same-as-comment-face sym))
          ((eq sym 'brin)
           (my/make-comment-delimiter-face-same-as-comment-face sym))
          ((eq sym 'busybee)
           (custom-theme-set-faces sym '(cursor ((t (:background "LightYellow"))))))
          ((eq sym 'deep-blue)

;; kaolin customization
(setq kaolin-italic-comments t)

(defun harmsway/make-all-font-sizes-the-same-please ()
  "Make all faces use the default height."
  (mapc (lambda (face)
          (when (not (equal face 'default))
            (set-face-attribute face nil :height 1.0)))
        (face-list)))

(defun harmsway/make-comment-delimiter-face-same-as-comment-face (sym)
  (custom-theme-set-faces
   sym `(font-lock-comment-delimiter-face
         ((t (:foreground ,(face-attribute
                            'font-lock-comment-face
                            :foreground nil 'default)))))))

(defvar harmsway/sml-dark-themes
  '(jonadabian jonadabian-slate obsidian deeper-blue)
  "List of themes to which should be applied a dark sml theme.")
(defvar harmsway/sml-light-themes
  '(dichromacy nubox-light ample-light
               gruvbox-light-hard gruvbox-light-medium gruvbox-light-soft)
  "List of themes to which should be applied a light sml theme.")
(defvar harmsway/sml-respectful-themes
  '()
  "List of themes to which should be applied a respectful sml theme.")

(defun harmsway/after-load-theme (x)
  "Run custom code after a theme X is loaded."
  (setq zoom-window-mode-line-color (face-attribute 'mode-line :background nil 'default))
  (set-face-attribute 'font-lock-comment-face nil :slant 'italic)
