(use-package modus-operandi-theme
:commands (Appearance_/load-operandi load-operandi )

:init
(defun load-operandi ()
(interactive)
(progn
(reset-themes)
(load-theme 'modus-operandi t)
(stylize-operandi)
));end load-operandi

:config

(defun stylize-operandi ()
(interactive)
(progn

;tab-bar
(set-face-attribute 'tab-bar nil :background "#ffffff" :foreground "#808080" :box '(:line-width 1 :color "#373b49" :style pressed-button))
(set-face-attribute 'tab-bar-tab-inactive nil :background "#ffffff" :foreground "#808080" :underline nil :box '(:line-width 1 :color "#373b49" :style pressed-button))
(set-face-attribute 'tab-bar-tab nil :background "#ffffff" :foreground "#a61fde" :width 'expanded :box  '(:line-width 1 :color "#373b49" :style pressed-button))
(set-face-attribute 'fixed-pitch nil :font "Consolas" :height 140 :weight 'regular)
(set-face-attribute 'all-the-icons-dired-dir-face nil :background "#ffffff" :foreground "#03163c")
(set-face-attribute 'dired-filetype-execute nil :background "#ffffff" :foreground "#335ea8")
(set-face-attribute 'dired-filetype-xml nil :background "#ffffff" :foreground "#a61fde")
(set-face-attribute 'dired-filetype-js nil :background "#ffffff" :foreground "#a0132f" :weight 'normal)
(set-face-attribute 'dired-filetype-common nil :background "#ffffff" :foreground "#EA0E0E")
(set-face-attribute 'dired-filetype-image nil :background "#ffffff" :foreground "#650aae")
(set-face-attribute 'dired-filetype-source nil :background "#ffffff" :foreground "#315b00")
(set-face-attribute 'dired-filetype-link nil :background "#ffffff" :foreground "#005a5f")
(set-face-attribute 'dired-filetype-plain nil :background "#ffffff" :foreground "#005f88")
(set-face-attribute 'diredp-dir-name nil :background "#ffffff" :foreground "#03163c")
(set-face-attribute 'dired-filetype-mytype nil :background "#ffffff" :foreground "#b5006a")

;font-lock
(set-face-attribute 'font-lock-comment-face nil :background "#f3f3ff" :foreground "#5f6368")
;(set-face-attribute 'font-lock-function-name-face nil :background "#1b1d1e" :foreground "#5f6368")
(set-face-attribute 'font-lock-builtin-face nil :background "#f3f3ff" :foreground "#8f0075")

(set-face-attribute 'default nil :background "#ffffff")

;org-block
(set-face-attribute 'org-document-title nil :background "#ffffff" :foreground "#093060" :height 230)
(set-face-attribute 'org-block nil :background "#f3f3ff"  :foreground "#000000" :extend t)
(set-face-attribute 'org-block-end-line nil :background "#ffffff" :foreground "#808080")
(set-face-attribute 'org-block-begin-line nil :background "#ffffff" :foreground "#808080")
(set-face-attribute 'org-level-1 nil :background "#ffffff" :foreground "#0a0a0a")
(set-face-attribute 'org-level-2 nil :background "#ffffff" :foreground "#8f0075")
(set-face-attribute 'org-level-3 nil :background "#ffffff" :foreground "#093060")
(set-face-attribute 'org-level-4 nil :background "#ffffff" :foreground "#184034")
(set-face-attribute 'org-meta-line nil :background "#ffffff" )
;(set-face-attribute 'org-level-2 nil :background "#ffffff" :foreground "#8f0075")
(set-face-attribute 'org-meta-line nil :background "#ffffff" :foreground "#5f6368")
;(set-face-attribute 'org-code nil :background "#e8f1d4" :foreground "#0b0b0b")

;default
(set-face-attribute 'region nil :background "#efefef" :foreground "#061229")
;(set-face-attribute 'highlight-parentheses-highlight nil :background "#e8f1d4" :foreground "#061229")

;show parens
(set-face-attribute 'show-paren-match nil :background "#f8ddea" :foreground "#ba86ef" :inherit nil)
(set-face-attribute 'show-paren-match-expression nil :background "#f8ddea" :foreground "#ba86ef" :inherit nil)

;webmode
(set-face-attribute 'web-mode-html-attr-value-face nil :background "y" :foreground "#99bf52")
(set-face-attribute 'web-mode-comment-face nil :background "#ffffff" :foreground "#608fb1")
(set-face-attribute 'web-mode-html-attr-name-face nil :background "#ffffff" :foreground "#3c5be9")
(set-face-attribute 'web-mode-style-face nil :background "#ffffff" :foreground "#a61fde")
(set-face-attribute 'web-mode-variable-name-face nil :background "#ffffff" :foreground  "#3c5be9")
(set-face-attribute 'web-mode-script-face nil :background "#ffffff" :foreground "#b77fdb" )
(set-face-attribute 'web-mode-html-tag-face nil :background "#ffffff" )
(set-face-attribute 'web-mode-current-element-highlight-face nil :background "#cfe8cf" )
(set-face-attribute 'web-mode-current-column-highlight-face nil :background "#cfe8cf" :foreground "#242924")
(set-face-attribute 'web-mode-html-tag-bracket-face nil :background "#ffffff" :foreground "#dc322f")

;hydra-posframe
(set-face-attribute 'hydra-posframe-border-face nil :background "#ffffff"  :foreground "#ffffff")
(set-face-attribute 'hydra-posframe-face nil :background "#ffffff"  :foreground "#242924")

; hydra faces
(set-face-attribute 'pretty-hydra-toggle-off-face nil :background "#ffffff" :foreground "#770077")
(set-face-attribute 'pretty-hydra-toggle-on-face nil :background "#ffffff" :foreground "#770077")

;rainbow-delimeters
;(set-face-attribute 'rainbow-delimiters-unmatched-face nil :background "#ffffff"  :foreground "#e6193c" )
;(set-face-attribute 'rainbow-delimiters-mismatched-face nil :background "#ffffff"  :foreground "#e619c3")

;company
;company background
(set-face-attribute 'company-tooltip nil :background "#efefef"  :foreground "#000000" :inherit nil)
(set-face-background 'company-tooltip "#efefef")
(set-face-foreground 'company-tooltip "#000000")

(setq pbg-swap '(background-color . "#efefef"))
(setq pfg-swap '(foreground-color . "#000000"))
(and (not (equal pbg-color pbg-swap)) (not (equal pfg-color pfg-swap))
(progn
(replace-element-in-list pbg-color pbg-swap  company-box-frame-parameters)
(replace-element-in-list pfg-color pfg-swap  company-box-frame-parameters)
));end check frame swap loop

(setq pbg-color '(background-color . "#efefef"))
(setq pfg-color '(foreground-color . "#000000"))

(set-face-attribute 'company-tooltip-common nil :background "#efefef"  :foreground "#a61fde" :inherit nil )
(set-face-attribute 'company-box-candidate nil :background "#efefef"  :foreground "#ff6fff" :inherit nil)
(set-face-attribute 'company-box-annotation nil :background "#efefef"  :foreground "#e0a3ff" :inherit nil)
(set-face-attribute 'company-tooltip-common-selection t :background "#efefef"  :foreground "#a61fde" :inherit nil)
(set-face-attribute 'company-box-selection nil :background "#dde3f4"  :foreground "#000000" :inherit nil )
(set-face-attribute 'company-box-scrollbar t :background "#efefef" :foreground "#dde3f4" :inherit nil)

;neo
;(set-face-attribute 'neo-file-link-face nil :background "#fdf6e3" :foreground "#8D8D84")
;(set-face-attribute 'neo-dir-link-face nil :background "#fdf6e3" :foreground "#0000FF")
;(set-face-attribute 'neo-root-dir-face nil :background "#fdf6e3" :foreground "#BA36A5")
;(set-face-attribute 'neo-root-dir-face nil :background "#fdf6e3" :foreground "#fff")

;rainbow identifiers
(set-face-attribute 'rainbow-identifiers-identifier-1 nil  :background "#ffffff" :foreground "#ff6fff")
(set-face-attribute 'rainbow-identifiers-identifier-2 nil  :background "#ffffff" :foreground "#2C942C")
(set-face-attribute 'rainbow-identifiers-identifier-3 nil  :background "#ffffff" :foreground "#b5006a")
(set-face-attribute 'rainbow-identifiers-identifier-4 nil  :background "#ffffff" :foreground "#5B6268")
(set-face-attribute 'rainbow-identifiers-identifier-5 nil  :background "#ffffff" :foreground "#0C4EA0")
(set-face-attribute 'rainbow-identifiers-identifier-6 nil  :background "#ffffff" :foreground "#99bf52")
(set-face-attribute 'rainbow-identifiers-identifier-7 nil  :background "#ffffff" :foreground "#a61fde")
(set-face-attribute 'rainbow-identifiers-identifier-8 nil  :background "#ffffff" :foreground "#dc322f")
(set-face-attribute 'rainbow-identifiers-identifier-9 nil  :background "#ffffff" :foreground "#00aa80")
(set-face-attribute 'rainbow-identifiers-identifier-11 nil  :background "#ffffff" :foreground "#bbfc20")
(set-face-attribute 'rainbow-identifiers-identifier-12 nil  :background "#ffffff" :foreground "#6c9ef8")
(set-face-attribute 'rainbow-identifiers-identifier-13 nil  :background "#ffffff" :foreground "#dd8844")
(set-face-attribute 'rainbow-identifiers-identifier-14 nil  :background "#ffffff" :foreground "#991613")
(set-face-attribute 'rainbow-identifiers-identifier-15 nil  :background "#ffffff" :foreground "#242924")

(setq zoom-window-mode-line-color "#8f0075")

;calendar

;(set-face-attribute 'cfw:face-title nil :background "#ffffff" :foreground "#bbfc20" :height 8 :weight 'bold)
(set-face-attribute 'cfw:face-header nil :background "#ffffff" :foreground "#000000" )
(set-face-attribute 'cfw:face-sunday nil :foreground "#991613" :background "#ffffff" :weight 'bold)
(set-face-attribute 'cfw:face-saturday nil :foreground "#b5006a" :background "#ffffff"  :weight 'bold)
(set-face-attribute 'cfw:face-holiday nil :background "#ffffff" :foreground "#06c6f5" :weight 'bold)
(set-face-attribute 'cfw:face-grid nil :foreground "DarkGrey")
(set-face-attribute 'cfw:face-default-content nil :foreground "#bfebbf")
(set-face-attribute 'cfw:face-periods nil :foreground "cyan")
(set-face-attribute 'cfw:face-day-title nil :background "#ffffff" )
(set-face-attribute 'cfw:face-default-day nil :weight 'bold :inherit 'cfw:face-day-title)
(set-face-attribute 'cfw:face-annotation nil :foreground "RosyBrown" :inherit  'cfw:face-day-title)
(set-face-attribute 'cfw:face-disable nil :foreground "DarkGray" :inherit 'cfw:face-day-title)
(set-face-attribute 'cfw:face-today-title nil :background "#f8ddea" :weight 'bold)
(set-face-attribute 'cfw:face-today nil :background "#f8ddea" :weight 'bold)
(set-face-attribute 'cfw:face-select nil :background "#bbfc20")
(set-face-attribute 'cfw:face-toolbar nil :background "#ffffff" :foreground "#081530" )
(set-face-attribute 'cfw:face-toolbar-button-off nil :background "#ffffff" :foreground "#5B6268" :weight 'bold)
(set-face-attribute 'cfw:face-toolbar-button-on nil :background "#ffffff" :foreground "#608fb1" :weight 'bold)
);end progn
);end modus-operandi

(setq
modus-operandi-theme-slanted-constructs t
modus-operandi-theme-bold-constructs t
modus-operandi-theme-fringes 'subtle ; {nil,'subtle,'intense}
;modus-operandi-theme-3d-modeline t
modus-operandi-theme-subtle-diffs t
modus-operandi-theme-intense-hl-line t
modus-operandi-theme-intense-standard-completions t
modus-operandi-theme-org-blocks 'rainbow ; {nil,'greyscale,'rainbow}
modus-operandi-theme-variable-pitch-headings t
modus-operandi-theme-rainbow-headings t
modus-operandi-theme-section-headings t
modus-operandi-theme-scale-headings t
modus-operandi-theme-scale-1 1.4
modus-operandi-theme-scale-2 1.3
modus-operandi-theme-scale-3 1.2
modus-operandi-theme-scale-4 1.1
modus-operandi-theme-scale-5 1)

);end modus-operandi

(use-package modus-vivendi-theme

:commands (Appearance_/load-vivendi load-vivendi)

:init

(defun load-vivendi ()
(interactive)
(progn
(reset-themes)
(load-theme 'modus-vivendi t)
(stylize-vivendi)
));end load-leuven

:config

(defun stylize-vivendi ()
(interactive)
(progn
;tabar
;(set-face-attribute 'tab-bar nil :background "#081530" :foreground "#808080" :box '(:line-width 4 :color "#373b49" :style pressed-button))
;(set-face-attribute 'tab-bar nil :background "#081530" :foreground "#808080" :box '(:line-width 1 :color "#808080" :style pressed-button))
;(set-face-attribute 'tab-bar-tab-inactive nil :background "#081530" :foreground "#808080" :underline nil :box '(:line-width 4 :color "#373b49" :style pressed-button))
;(set-face-attribute 'tab-bar-tab nil :background "#081530" :foreground "white" :width 'semi-expanded :box  '(:line-width 4 :color "#373b49" :style pressed-button))

;dired
;(set-face-attribute 'all-the-icons-dired-dir-face nil :background "#1b1d1e" :foreground "#ff6fff")
;(set-face-attribute 'dired-filetype-execute nil :background "#1b1d1e" :foreground "#89A3B1")
;(set-face-attribute 'dired-filetype-xml nil :background "#1b1d1e" :foreground "#0C4EA0")
;(set-face-attribute 'dired-filetype-js nil :background "#1b1d1e" :foreground "#2C942C")
;(set-face-attribute 'dired-filetype-common nil :background "#1b1d1e" :foreground "#EA0E0E")
;(set-face-attribute 'dired-filetype-image nil :background "#1b1d1e" :foreground "#EA0E0E")
;(set-face-attribute 'dired-filetype-source nil :background "#1b1d1e" :foreground "#a61fde")
(set-face-attribute 'dired-filetype-link nil :background "#1b1d1e" :foreground "#d02b61")
;(set-face-attribute 'dired-filetype-plain nil :background "#1b1d1e" :foreground "#a61fde")
;(set-face-attribute 'diredp-dir-name nil :background "#e8f1d4" :foreground "#0b0b0b")
;(set-face-attribute 'dired-filetype-mytype nil :background "#1b1d1e" :foreground "#b5006a")

;font-lock
;(set-face-attribute 'font-lock-comment-face nil :background "#1b1d1e" :foreground "#5f6368")
;(set-face-attribute 'font-lock-function-name-face nil :background "#1b1d1e" :foreground "#5f6368")
;(set-face-attribute 'font-lock-builtin-face nil :background "#1b1d1e" :foreground "#608fb1")

;org-block
;(set-face-attribute 'org-document-title nil :background "#1b1d1e" :foreground "#ff6fff")
;(set-face-attribute 'org-block nil :background "#1b1d1e" :foreground "#dddddd")
;(set-face-attribute 'org-block-end-line nil :background "#1b1d1e" :foreground "#808080")
;(set-face-attribute 'org-code nil :background "#e8f1d4" :foreground "#0b0b0b")
;(set-face-attribute 'org-level-2 nil :background "#f4fbf4" :foreground "#a61fde")
;(set-face-attribute 'org-meta-line nil :background "#f4fbf4" :foreground "#5f6368")

;default
;(set-face-attribute 'region nil :background "#262829" :foreground "#dddddd")
;(set-face-attribute 'highlight-parentheses-highlight nil :background "#e8f1d4" :foreground "#061229")

;webmode
;(set-face-attribute 'web-mode-html-attr-value-face nil :background "#1b1d1e" :foreground "#99bf52")
;(set-face-attribute 'web-mode-comment-face nil :background "#1b1d1e" :foreground "#608fb1")
;(set-face-attribute 'web-mode-html-attr-name-face nil :background "#1b1d1e" :foreground "#3c5be9")
;(set-face-attribute 'web-mode-style-face nil :background "#1b1d1e" :foreground "#a61fde")
;(set-face-attribute 'web-mode-variable-name-face nil :background "#1b1d1e" :foreground  "#3c5be9")
;(set-face-attribute 'web-mode-script-face nil :background "#1b1d1e" :foreground "#b77fdb" )
;(set-face-attribute 'web-mode-html-tag-face nil :background "#1b1d1e" )
;(set-face-attribute 'web-mode-current-element-highlight-face nil :background "#cfe8cf" )
;(set-face-attribute 'web-mode-current-column-highlight-face nil :background "#cfe8cf" :foreground "#242924")
;(set-face-attribute 'web-mode-html-tag-bracket-face nil :background "#f4fbf4" :foreground "#dc322f")

;hydra-posframe
;(set-face-attribute 'hydra-posframe-border-face nil :background "#ffffff"  :foreground "#ffffff" )
;(set-face-attribute 'hydra-posframe-face nil :background "#1b1d1e"  :foreground "#dddddd" )

; hydra faces
;(set-face-attribute 'pretty-hydra-toggle-off-face nil :background "#EAF1EA" :foreground "#43852e")
;(set-face-attribute 'pretty-hydra-toggle-on-face nil :background "#EAF1EA" :foreground "#43852e")

;rainbow-delimeters
;(set-face-attribute 'rainbow-delimiters-unmatched-face nil :background "#d02b61"  :foreground "#1b1d1e" )
;(set-face-attribute 'rainbow-delimiters-mismatched-face nil :background "#061229"  :foreground "#2C942C")

;company background
;(set-face-attribute 'company-tooltip nil :background "#263145"  :foreground "#dddddd" :inherit nil)
;(set-face-background 'company-tooltip "#263145")
;(set-face-foreground 'company-tooltip "#dddddd")

;(setq pbg-swap '(background-color . "#263145"))
;(setq pfg-swap '(foreground-color . "#dddddd"))
;(and (not (equal pbg-color pbg-swap)) (not (equal pfg-color pfg-swap))
;(progn
;(replace-element-in-list pbg-color pbg-swap  company-box-frame-parameters)
;(replace-element-in-list pfg-color pfg-swap  company-box-frame-parameters)
;));end check frame swap loop

;update color so next function can take it out
;(setq pbg-color '(background-color . "#EAF1EA"))
;(setq pfg-color '(foreground-color . "#242924"))

;company
;(set-face-attribute 'company-tooltip-common t :background "#263145"  :foreground "#61284f" :inherit nil )
;(set-face-attribute 'company-box-candidate t :background "#263145"  :foreground "#7f002f" :inherit nil)
;(set-face-attribute 'company-box-annotation t :background "#263145"  :foreground "#61284f" :inherit nil)
;(set-face-attribute 'company-tooltip-common-selection t :background "#4d5666"  :foreground "#99bf52" :inherit nil)
;(set-face-attribute 'company-box-selection t :background "#464f60"  :foreground "#dddddd" :inherit nil )
;(set-face-attribute 'company-box-scrollbar t :background "#263145" :foreground "#d02b61" :inherit nil)

;neo
;(set-face-attribute 'neo-file-link-face nil :background "#fdf6e3" :foreground "#8D8D84")
;(set-face-attribute 'neo-dir-link-face nil :background "#fdf6e3" :foreground "#0000FF")
;(set-face-attribute 'neo-root-dir-face nil :background "#fdf6e3" :foreground "#BA36A5")
;(set-face-attribute 'neo-root-dir-face nil :background "#fdf6e3" :foreground "#fff")

;rainbow identifiers

(set-face-attribute 'rainbow-identifiers-identifier-1 nil  :background "#f4fbf4" :foreground "#ff6fff")
(set-face-attribute 'rainbow-identifiers-identifier-2 nil  :background "#f4fbf4" :foreground "#2C942C")
(set-face-attribute 'rainbow-identifiers-identifier-3 nil  :background "#f4fbf4" :foreground "#b5006a")
(set-face-attribute 'rainbow-identifiers-identifier-4 nil  :background "#f4fbf4" :foreground "#5B6268")
(set-face-attribute 'rainbow-identifiers-identifier-5 nil  :background "#f4fbf4" :foreground "#0C4EA0")
(set-face-attribute 'rainbow-identifiers-identifier-6 nil  :background "#f4fbf4" :foreground "#99bf52")
(set-face-attribute 'rainbow-identifiers-identifier-7 nil  :background "#f4fbf4" :foreground "#a61fde")
(set-face-attribute 'rainbow-identifiers-identifier-8 nil  :background "#f4fbf4" :foreground "#dc322f")
(set-face-attribute 'rainbow-identifiers-identifier-9 nil  :background "#f4fbf4" :foreground "#00aa80")
(set-face-attribute 'rainbow-identifiers-identifier-11 nil  :background "#f4fbf4" :foreground "#bbfc20")
(set-face-attribute 'rainbow-identifiers-identifier-12 nil  :background "#f4fbf4" :foreground "#6c9ef8")
(set-face-attribute 'rainbow-identifiers-identifier-13 nil  :background "#f4fbf4" :foreground "#dd8844")
(set-face-attribute 'rainbow-identifiers-identifier-14 nil  :background "#f4fbf4" :foreground "#991613")
(set-face-attribute 'rainbow-identifiers-identifier-15 nil  :background "#f4fbf4" :foreground "#242924")
(setq zoom-window-mode-line-color "#242924")
);end progn
);end modus-vivendi

:config
(setq
modus-operandi-theme-slanted-constructs t
modus-operandi-theme-bold-constructs t
;modus-operandi-theme-fringes 'subtle ; {nil,'subtle,'intense}
;modus-operandi-theme-3d-modeline t
modus-operandi-theme-subtle-diffs t
modus-operandi-theme-intense-hl-line t
modus-operandi-theme-intense-standard-completions t
modus-operandi-theme-org-blocks 'rainbow ; {nil,'greyscale,'rainbow}
modus-operandi-theme-variable-pitch-headings t
modus-operandi-theme-rainbow-headings t
modus-operandi-theme-section-headings t
modus-operandi-theme-scale-headings t
modus-operandi-theme-scale-1 1.5
modus-operandi-theme-scale-2 1.4
modus-operandi-theme-scale-3 1.3
modus-operandi-theme-scale-4 1.2
modus-operandi-theme-scale-5 1.1)

);end vivendi