Modus Operandi Theme


For emacs custom framework used to implement the following emacs themes refer to this post: How to Configure Emacs Themes

Screenshots Modus Operandi and Modus Vivendi

Emacs Modus Operandi theme, poseidon-customization

Emacs Modus Vivendi theme, poseidon-customization

In following, in terms of clarity, it's easier to structure blocks of code syntax with opening and closing blocks.

Any code blocks between opening and closing code blocks translates into code between those sections in the script.

Open Use-Package modus-operandi-theme Configuration Code Block

With ':commands' directive


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

:init directive


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


Above code includes functions declared into namespace when emacs first encounters them.

Those functions are listed in :commands directive. Emacs loads 'use-package modus-operandi-theme' code when any of those functions are called.

Thus, the following stylize functions are initialized in :config before their parent functions (above) call them.


Stylize-operandi ()

[Note: Syntax highlighting not used here to avoid excessive DOM size. Copy paste to your text-editor to examine.]


: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)


Close Use-Package modus-operandi-theme Configuration Code Block

);end modus-operandi

Open Use-Package modus-vivendi-theme Configuration Code Block

With ':commands' directive


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


:init directive



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


Above code includes functions declared into namespace when emacs first encounters them.

Those functions are listed in :commands directive. Emacs loads 'use-package modus-vivendi-theme' code when any of those functions are called.

Thus, the following stylize functions are initialized in :config before their parent functions (above) call them.


Stylize-vivendi ()

[Note: Syntax highlighting not used here to avoid excessive DOM size. Copy paste to your text-editor to examine.]


: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)


Close Use-Package modus-vivendi-theme Configuration Code Block



);end vivendi


Notes


You may find modus-vivendi can use a few face fonts edits, as I don't use it often. The font however is very tech, and in all it's a terrfic theme.


That’s all for now…

comments powered by Disqus