maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move themes

Browse source
This commit is contained in:
Maciej 2024-07-27 10:35:26 +03:00
parent e40c2e4bb3
commit bf90b046b8
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
13 changed files with 38 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lisp/themes/icejam-base16-harmonic-light.el Normal file
View file

@ -0,0 +1,40 @@
;;; base16-harmonic-light-modified-theme.el --- summary
;;; Commentary:
;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot
;;; Code:
(use-package base16-theme :straight t :defer t)
(defvar base16-harmonic-light-modified-colors
'(:base00 "#f7f9fb"
:base01 "#e5ebf1"
:base02 "#cbd6e2"
:base03 "#92a9c0"
:base04 "#627e99"
:base05 "#405c79"
:base06 "#223b54"
:base07 "#0b1c2c"
:base08 "#bf8b56"
:base09 "#bfbf56"
:base0A "#8bbf56"
:base0B "#56bf8b"
:base0C "#568bbf"
:base0D "#8b56bf"
:base0E "#bf568b"
:base0F "#bf5656")
"All colors for Base16 Harmonic Light Modified are defined here.")
;; Define the theme
(deftheme base16-harmonic-light-modified)
;; Add all the faces to the theme
(base16-theme-define 'base16-harmonic-light-modified base16-harmonic-light-modified-colors)
;; Mark the theme as provided
(provide-theme 'base16-harmonic-light-modified)
(provide 'icejam-base16-harmonic-light)
;;; icejam-base16-harmonic-light.el ends here

59
lisp/themes/icejam-base16-not-harmonic.el Normal file
View file

@ -0,0 +1,59 @@
;; base16-not-harmonic-theme.el -- A base16 colorscheme
;;; Commentary:
;; Base16: (https://github.com/chriskempson/base16)
;; Based on harmonic-dark theme by Jannik Seibert (https://github.com/janniks)
;;; Code:
(use-package base16-theme :straight t :defer t)
(defvar base16-not-harmonic-colors
'(:base00 "#102941"
:base01 "#223b54"
:base02 "#2c3a47"
:base03 "#627e99"
:base04 "#aabcce"
:base05 "#cbd6e2"
:base06 "#e5ebf1"
:base07 "#f7f9fb"
:base08 "#bf8b56"
:base09 "#bfbf56"
:base0A "#8bbf56"
:base0B "#56bf8b"
:base0C "#568bbf"
:base0D "#9b78bc"
:base0E "#bf568b"
:base0F "#bf5656")
"All colors for Base16 Harmonic16 Dark are defined here.")
;; Define the theme
(deftheme base16-not-harmonic)
;; Add all the faces to the theme
(base16-theme-define 'base16-not-harmonic base16-not-harmonic-colors)
;; Customise things
(custom-theme-set-faces
'base16-not-harmonic
'(cursor ((t (:background "#568bbf"))))
'(font-lock-comment-delimiter-face ((t (:foreground "#aabcce"))))
'(mode-line ((t (:font "Hasklig 16"))))
'(fringe ((t (:background "#2c3a47" :slant normal))))
'(diff-refine-added ((t (:background "#56bf8b" :foreground "#2c3a47"))))
'(diff-refine-removed ((t (:background "#bf5656" :foreground "#2c3a47"))))
'(diff-refine-changed ((t (:background "#bfbf56" :foreground "#2c3a47"))))
'(magit-diff-added ((t (:background "#56bf8b" :foreground "#2c3a47"))))
'(magit-diff-added-highlight ((t (:background "#8bbf56" :foreground "#2c3a47"))))
'(magit-diff-our ((t (:background "#bf5656" :foreground "#2c3a47"))))
'(magit-diff-our-highlight ((t (:background "#bf568b" :foreground "#2c3a47"))))
'(magit-diff-removed ((t (:background "#bf5656" :foreground "#2c3a47"))))
'(magit-diff-removed-highlight ((t (:background "#bf568b" :foreground "#2c3a47")))))
;; Mark the theme as provided
(provide-theme 'base16-not-harmonic)
(provide 'icejam-base16-not-harmonic)
;;; icejam-base16-not-harmonic.el ends here

40
lisp/themes/icejam-base16-summerfruit-light.el Normal file
View file

@ -0,0 +1,40 @@
;;; base16-summerfruit-light-modified-theme.el --- summary
;;; Commentary:
;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot
;;; Code:
(use-package base16-theme :straight t :defer t)
(defvar base16-summerfruit-light-modified-colors
'(:base00 "#fdfcfa"
:base01 "#e0e0e0"
:base02 "#d0d0d0"
:base03 "#b0b0b0"
:base04 "#000000"
:base05 "#101010"
:base06 "#151515"
:base07 "#202020"
:base08 "#ff0086"
:base09 "#fd8900"
:base0A "#aba800"
:base0B "#00c918"
:base0C "#1faaaa"
:base0D "#3777e6"
:base0E "#ad00a1"
:base0F "#cc6633")
"All colors for Base16 Summerfruit Light are defined here.")
;; Define the theme
(deftheme base16-summerfruit-light-modified)
;; Add all the faces to the theme
(base16-theme-define 'base16-summerfruit-light-modified base16-summerfruit-light-modified-colors)
;; Mark the theme as provided
(provide-theme 'base16-summerfruit-light-modified)
(provide 'icejam-base16-summerfruit-light)
;;; icejam-base16-summerfruit-light.el ends here

50
lisp/themes/icejam-base16-zenburn.el Normal file
View file

@ -0,0 +1,50 @@
;; base16-zenburn-modified-theme.el -- A base16 colorscheme
;;; Commentary:
;; Base16: (https://github.com/chriskempson/base16)
;;; Original Authors:
;; Scheme: elnawe
;; Template: Kaleb Elwert <belak@coded.io>
;; Modification: Maciej Szlosarczyk <maciej@sosek.net>
;;; Code:
;; Modifications
;; 02 made darker by 5% #606060 => #5b5b5b
;; 03 made lighter by 10% #6f6f6f => #898989
;; 04 made darker by 5% #808080 => #7a7a7a
;; 0B made lighter by 10% #5f7f5f => #799979
(use-package base16-theme :straight t :defer t)
(defvar base16-zenburn-modified-colors
'(:base00 "#383838"
:base01 "#404040"
:base02 "#5b5b5b"
:base03 "#898989"
:base04 "#7a7a7a"
:base05 "#dcdccc"
:base06 "#c0c0c0"
:base07 "#ffffff"
:base08 "#dca3a3"
:base09 "#dfaf8f"
:base0A "#e0cf9f"
:base0B "#799979"
:base0C "#93e0e3"
:base0D "#7cb8bb"
:base0E "#dc8cc3"
:base0F "#000000")
"All colors for Base16 Zenburn-Modified are defined here.")
;; Define the theme
(deftheme base16-zenburn-modified)
;; Add all the faces to the theme
(base16-theme-define 'base16-zenburn-modified base16-zenburn-modified-colors)
;; Mark the theme as provided
(provide-theme 'base16-zenburn-modified)
(provide 'icejam-base16-zenburn)
;;; icejam-base16-zenburn.el ends here

388
lisp/themes/icejam-tronesque.el Normal file
View file

@ -0,0 +1,388 @@
;;; tronesque-theme.el --- Color Theme based on Tron universe.
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; License: GPL-3+
;; Copyright (c) 2017 Aurélien Bottazini
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; Author: Aurélien Bottazini <aurelienbottazini.com>
;; URL: https://github.com/aurelienbottazini/tronesque
;; Version: 2.0
;;; Commentary:
;; In your init file:
;; (load-theme 'tronesque)
;;
;; You can also add:
;; (tronesque-mode-line)
;; To get a custom mode-line with additional colors
;;
;; Supports both Emacs with a window system and Emacs within a
;; terminal. When used within a terminal you should use tronesque
;; themed ansi colors (available in github repository)
;;; Code:
(deftheme tronesque
"Theme based on Tron universe. Colors are inspired / taken from the movies.
More information on Tron: https://en.wikipedia.org/wiki/Tron")
(let (
(base00 (if (window-system) "#081724" "black"))
(base01 (if (window-system) "#033340" "brightblack"))
(base02 (if (window-system) "#1d5483" "brightyellow"))
(base03 (if (window-system) "#2872b2" "brightblue"))
(base04 (if (window-system) "#d3f9ee" "white"))
(base05 (if (window-system) "#a6f3dd" "brightgreen"))
(base06 (if (window-system) "#effffe" "brightwhite"))
(base07 (if (window-system) "#fffed9" "brightcyan"))
(red (if (window-system) "#ff694d" "red"))
(orange (if (window-system) "#f5b55f" "brightred"))
(yellow (if (window-system) "#fffe4e" "yellow"))
(magenta (if (window-system) "#afc0fd" "brightmagenta"))
(violet (if (window-system) "#96a5d9" "magenta"))
(blue (if (window-system) "#bad6e2" "blue"))
(cyan (if (window-system) "#d2f1ff" "cyan"))
(green (if (window-system) "#68f6cb" "green")))
(custom-theme-set-faces
'tronesque
`(button ((t (:background ,base00
:foreground ,magenta
:inherit nil
:box (:line-width 2 :style released-button)))))
`(cursor ((t (:background ,base06))))
`(custom-button ((t (:background ,magenta
:foreground ,base00
:inherit nil
:box (:line-width 2 :style released-button)))))
`(custom-state ((t (:foreground ,green))))
`(default ((t (:background ,base00 :foreground ,base04))))
`(dired-directory ((t (:background ,green :foreground ,base00))))
`(dired-symlink ((t (:foreground ,yellow))))
`(escape-glyph ((t (:foreground ,green))))
`(flymake-errline ((t (:background ,red
:foreground ,base00
:underline nil))))
`(flymake-warnline ((t (:background ,orange
:foreground ,base00
:underline nil))))
`(font-lock-builtin-face ((t (:slant italic :foreground ,violet))))
`(font-lock-comment-delimiter-face ((t (:foreground ,base03))))
`(font-lock-comment-face ((t (:foreground ,base03))))
`(font-lock-constant-face ((t (:weight bold :foreground ,magenta))))
`(font-lock-doc-face ((t (:slant italic :foreground ,green))))
`(font-lock-function-name-face ((t (:foreground ,blue))))
`(font-lock-keyword-face ((t (:weight bold :foreground ,violet))))
`(font-lock-negation-char-face ((t (:foreground ,red))))
`(font-lock-preprocessor-face ((t (:foreground ,violet))))
`(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
`(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
`(font-lock-string-face ((t (:foreground ,green))))
`(font-lock-type-face ((t (:foreground ,orange))))
`(font-lock-variable-name-face ((t (:foreground ,red))))
`(font-lock-warning-face ((t (:foreground ,orange :underline t))))
`(fringe ((t (:foreground ,base04 :background ,base01))))
`(header-line ((t (:box (:line-width -1 :color nil :style released-button)
:foreground ,base00 :background ,base07))))
`(highlight ((t (:background ,yellow :foreground ,base00))))
`(hl-line ((t (:background ,base01 :inherit nil))))
`(idle-highlight ((t (:background ,base01 :foreground nil))))
`(ido-indicator ((t (:background ,red
:foreground ,base00
:width condensed))))
`(ido-only-match ((t (:background ,green :foreground ,base00))))
`(ido-first-match ((t (:background ,green :foreground ,base00))))
`(ido-subdir ((t (:foreground ,red))))
`(info-menu-star ((t (:foreground ,red))))
`(info-xref ((t (:foreground ,green))))
`(isearch ((t (:weight bold :foreground ,base00 :background ,yellow))))
`(isearch-fail ((t (:weight bold :foreground ,red))))
`(lazy-highlight ((t (:weight bold
:foreground ,base00
:background ,base07))))
`(link ((t (:foreground ,cyan :underline t))))
`(link-visited ((t (:foreground ,blue :underline t))))
`(match ((t (:foreground ,base00 :background ,blue))))
`(minibuffer-prompt ((t (:foreground ,yellow))))
`(next-error ((t (:inherit (region)))))
`(org-hide ((t (:background ,base00 :foreground ,base00))))
`(org-code ((t (:foreground ,violet))))
`(org-date ((t (:underline t :foreground ,green))))
`(org-agenda-date-today ((t (:foreground ,red :weight bold))))
`(query-regplace ((t (:inherit (isearch)))))
`(region ((t (:background ,base02))))
`(secondary-selection ((t (:background ,base01))))
`(shadow ((t (:foreground ,base02))))
`(trailing-whitespace ((t (:background ,red))))
`(magit-header ((t (:background ,base01
:foreground ,magenta
:inherit nil ))))
`(magit-item-highlight ((t (:background ,base01 :foreground ,base06))))
`(magit-branch ((t (:foreground ,base05))))
`(magit-diff-hunk-header ((t (:background ,base02))))
`(magit-section-title ((t (:background ,orange
:foreground ,base00
:inherit nil
:box (:line-width 2 :style released-button)))))
`(diff-file-header ((t (:background ,base00
:foreground ,magenta
:inherit nil
:box (:line-width 2 :style released-button)))))
`(diff-context ((t (:inherit diff-changed :foreground ,base03))))
`(diff-added ((t (:inherit diff-changed
:foreground ,green
:background ,base00))))
`(diff-removed ((t (:inherit diff-changed
:foreground ,red
:background ,base00))))
`(outline-1 ((t (:foreground ,red :height 1.7))))
`(outline-2 ((t (:foreground ,orange :height 1.3))))
`(outline-3 ((t (:foreground ,yellow :height 1.05))))
`(outline-4 ((t (:foreground ,blue))))
`(outline-5 ((t (:foreground ,magenta))))
`(outline-6 ((t (:foreground ,green))))
`(outline-7 ((t (:foreground ,cyan))))
`(outline-8 ((t (:foreground ,violet))))
`(success ((t (:background ,green :foreground ,base00 :weight bold))))
`(compilation-mode-line-exit ((t (:inherit compilation-info
:background ,green
:weight bold))))
`(compilation-mode-line-fail ((t (:inherit compilation-error
:background ,red
:weight bold))))
`(erc-dangerous-host-face ((t (:foreground ,red))))
`(erc-direct-msg-face ((t (:foreground ,red))))
`(erc-error-face ((t (:foreground ,red))))
`(erc-fool-face ((t (:foreground ,base02))))
`(erc-header-line ((t (:background ,base07 :foreground ,base00))))
`(erc-inverse-face ((t (:background ,base04 :foreground ,base00))))
`(erc-keyword-face ((t (:foreground ,green :weight bold))))
`(erc-nick-msg-face ((t (:foreground ,red :weight bold))))
`(erc-notice-face ((t (:foreground ,base02 :weight bold))))
`(erc-pal-face ((t (:foreground ,magenta :weight bold))))
`(erc-prompt-face ((t (:background ,violet
:foreground ,base00
:weight bold))))
`(erc-timestamp-face ((t (:foreground ,green :weight bold))))
`(erc-input-face ((t (:foreground ,orange))))
`(erc-my-nick-face ((t (:foreground ,yellow))))
`(erc-current-nick-face ((t (:foreground ,yellow))))
`(show-paren-match ((t (:background ,base03 :foreground ,green))))
`(show-paren-mismatch ((t (:background ,red :foreground ,base00))))
`(sp-show-pair-match-face ((t (:inherit show-paren-match))))
`(sp-show-pair-mismatch-face ((t (:inherit show-paren-mismatch))))
`(sp-pair-overlay-face ((t (:inherit sp-show-pair-match-face))))
`(ac-completion-face ((t (:foreground ,base02 :underline t))))
`(ac-candidate-face ((t (:background ,base04 :foreground ,base00))))
`(ac-candidate-mouse-face ((t (:inherit ac-completion-face))))
`(ac-selection-face ((t (:background ,base02))))
`(writegood-weasels-face ((t (:inherit font-lock-warning-face))))
`(company-echo-common ((t (:foreground ,orange))))
`(company-preview ((t (:background ,base02 :foreground ,base06))))
`(company-preview-common ((t (:inherit company-preview
:foreground ,base05))))
`(company-preview-search ((t (:inherit company-preview
:background ,yellow))))
`(company-scrollbar-bg ((t (:inherit company-tooltip :background ,violet))))
`(company-scrollbar-fg ((t (:background ,blue))))
`(company-template-field ((t (:background ,yellow :foreground ,violet))))
`(company-tooltip ((t (:background ,base02 :foreground ,base04))))
`(company-tooltip-annotation ((t (:inherit company-tooltip
:foreground ,base00))))
`(company-tooltip-common ((t (:inherit company-tooltip
:foreground ,base04))))
`(company-tooltip-common-selection ((t (:inherit company-tooltip-selection
:foreground ,yellow))))
`(company-tooltip-selection ((t (:inherit company-tooltip
:background ,base01))))
`(helm-buffer-directory ((t (:background ,base00 :foreground ,red))))
`(helm-buffer-file ((t (:foreground ,base05 :background ,base00))))
`(helm-buffer-not-saved ((t (:foreground ,orange))))
`(helm-buffer-process ((t (:foreground ,orange))))
`(helm-buffer-saved-out ((t (:background ,base00 :foreground ,red))))
`(helm-buffer-size ((t (:foreground ,magenta))))
`(helm-candidate-number ((t (:background ,yellow :foreground ,base00))))
`(helm-header ((t (:inherit header-line))))
`(helm-prefarg ((t (:foreground ,green))))
`(helm-selection ((t (:background ,green
:foreground ,base00
:underline nil))))
`(helm-separator ((t (:foreground ,red))))
`(helm-source-header ((t (:background ,violet
:foreground ,base00
:weight bold :height 1.3))))
`(helm-visible-mark ((t (:background ,green :foreground ,base00))))
`(whitespace-empty ((t (:background ,yellow :foreground ,base00))))
`(whitespace-hspace ((t (:background ,red :foreground ,yellow))))
`(whitespace-indentation ((t (:background ,red :foreground ,yellow))))
`(whitespace-line ((t (:foreground ,red))))
`(whitespace-newline ((t (:foreground ,base02 :weight normal))))
`(whitespace-space ((t (:background ,base00 :foreground ,base02))))
`(whitespace-space-after-tab ((t (:background ,yellow :foreground ,red))))
`(whitespace-pace-before-tab ((t (:background ,yellow :foreground ,orange))))
`(whitespace-tab ((t (:background ,red :foreground ,yellow))))
`(whitespace-trailing ((t (:background ,red
:foreground ,yellow :weight bold))))
`(markdown-header-face ((t (:foreground ,red :weight bold))))
`(markdown-header-face-1 ((t (:inherit outline-1))))
`(markdown-header-face-2 ((t (:inherit outline-2))))
`(markdown-header-face-3 ((t (:inherit outline-3))))
`(markdown-header-face-4 ((t (:inherit outline-4))))
`(markdown-header-face-5 ((t (:inherit outline-5))))
)
(custom-theme-set-variables
'tronesque
`(ansi-color-names-vector
;; black, red, green, yellow, blue, magenta, cyan, white
[,base00 ,red ,green ,yellow ,blue ,magenta ,cyan ,base04])
`(ansi-term-color-vector
;; black, red, green, yellow, blue, magenta, cyan, white
[unspecified ,base00 ,red ,green ,yellow ,blue ,magenta ,cyan ,base04]))
;; Extra mode line faces
(make-face 'mode-line-read-only-face)
(make-face 'mode-line-modified-face)
(make-face 'mode-line-clean-face)
(make-face 'mode-line-folder-face)
(make-face 'mode-line-filename-face)
(make-face 'mode-line-position-face)
(make-face 'mode-line-mode-face)
(make-face 'mode-line-minor-mode-face)
(make-face 'mode-line-vc-face)
(make-face 'mode-line-80col-face)
(set-face-attribute 'mode-line nil
:foreground base00 :background base03
:inverse-video nil
:box `(:line-width 2 :color ,base03 :style nil))
(set-face-attribute 'mode-line-inactive nil
:foreground base00 :background base01
:inverse-video nil
:box `(:line-width 2 :color ,base01 :style nil))
(set-face-attribute 'mode-line-read-only-face nil
:inherit 'mode-line-face
:foreground red)
(set-face-attribute 'mode-line-modified-face nil
:inherit 'mode-line-face
:background red
:box `(:line-width 2 :color ,red :style nil))
(set-face-attribute 'mode-line-clean-face nil
:inherit 'mode-line-face
:background green
:box `(:line-width 2 :color ,green :style nil))
(set-face-attribute 'mode-line-folder-face nil
:inherit 'mode-line-face
:foreground base00
:background blue
:box `(:line-width 2 :color ,blue :style nil))
(set-face-attribute 'mode-line-filename-face nil
:inherit 'mode-line-face
:foreground base02
:background orange
:box `(:line-width 2 :color ,orange :style nil)
:weight 'bold)
(set-face-attribute 'mode-line-position-face nil
:inherit 'mode-line-face
:height 100)
(set-face-attribute 'mode-line-mode-face nil
:inherit 'mode-line-face
:foreground base00
:background blue
:box `(:line-width 2 :color ,blue :style nil))
(set-face-attribute 'mode-line-minor-mode-face nil
:foreground base00
:height 110)
(set-face-attribute 'mode-line-vc-face nil
:inherit 'mode-line-face
:background green
:box `(:line-width 2 :color ,green :style nil))
(set-face-attribute 'mode-line-80col-face nil
:inherit 'mode-line-position-face
:foreground "black" :background orange
:box `(:line-width 2 :color ,orange :style nil))
)
(defun tronesque-mode-line ()
"Change default mode-line."
(interactive)
(setq-default
mode-line-format
'(
"%e"
mode-line-front-space
mode-line-mule-info
mode-line-client
mode-line-modified
mode-line-remote
mode-line-frame-identification
(:propertize " "
face mode-line-filename-face)
(:propertize mode-line-buffer-identification
face mode-line-filename-face)
(:propertize " "
face mode-line-filename-face)
" "
mode-line-position
(vc-mode vc-mode)
" "
(:propertize " "
face mode-line-mode-face)
(:propertize mode-name
face mode-line-mode-face)
(:propertize " "
face mode-line-mode-face)
(:eval (propertize (format-mode-line minor-mode-alist)
'face 'mode-line-minor-mode-face))
mode-line-misc-info
mode-line-end-spaces)))
;; Helper function
(defun shorten-directory (dir max-length)
"Show up a directory named `DIR' with `MAX-LENGTH' characters."
(let ((path (reverse (split-string (abbreviate-file-name dir) "/")))
(output ""))
(when (and path (equal "" (car path)))
(setq path (cdr path)))
(while (and path (< (length output) (- max-length 4)))
(setq output (concat (car path) "/" output))
(setq path (cdr path)))
(when path
(setq output (concat ".../" output)))
output))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'tronesque)
(provide icejam-tronesque)
;;; icejam-tronesque.el ends here