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

12
lisp/icejam-custom-init.el
View file

@ -30,10 +30,14 @@
(straight-use-package 'use-package)
;; I don't know why this needs to be here and with a lisp specifier, but
;; normal subdirs.el file doesn't work.
(normal-top-level-add-to-load-path '("lisp/themes" "lisp/langs"))
;; (add-to-list 'load-path (concat user-emacs-directory "pkg"))
;; General configuration files.
(require '+custom-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require 'icejam-keys-mode)
(require 'icejam-base)
(require 'icejam-sys-specific)
(require 'icejam-ivy)
@ -52,8 +56,8 @@
(require 'icejam-speed-type)
;; Themes
(require '+custom-pkg-themes "$HOME/.emacs.d/pkg/themes.el")
(require '+custom-pkg-fonts "$HOME/.emacs.d/pkg/fonts.el")
(require 'icejam-themes)
(require 'icejam-fonts)
;; Actual supported languages and file syntax.
(require '+custom-lang-clang "$HOME/.emacs.d/lang/clang.el")
@ -84,7 +88,7 @@
(require '+custom-lang-ziglang "$HOME/.emacs.d/lang/ziglang.el")
;; Diminish modeline litter
(require '+custom-pkg-diminish "$HOME/.emacs.d/pkg/diminish.el")
(require 'icejam-diminish)
;; Restore GC to normal, but still high
(setq gc-cons-threshold 100000000)

4
lisp/icejam-deft.el
View file

@ -1,9 +1,9 @@
;;; pkg/deft.el -- summary -*- lexical-binding: t; -*-
;;; icejam-deft.el -- summary -*- lexical-binding: t; -*-
;;; Commentary:
;;; Notational velocity, backed by OneDrive.
;;; Code:
(require '+custom-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require 'icejam-keys-mode)
(require 'icejam-transient)
(use-package deft

27
lisp/icejam-diminish.el Normal file
View file

@ -0,0 +1,27 @@
;;; icejam-diminish.el --- summary -*- lexical-binding: t; -*-
;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot
;;; Commentary:
;; diminish minor modes
;;; Code:
(use-package diminish :straight t)
(eval-after-load "flyspell" '(diminish 'flyspell-mode))
(eval-after-load "projectile" '(diminish 'projectile-mode))
(eval-after-load "flycheck" '(diminish 'flycheck-mode))
(eval-after-load "rainbow-mode" '(diminish 'rainbow-mode))
(eval-after-load "undo-tree" '(diminish 'undo-tree-mode))
(eval-after-load "company" '(diminish 'company-mode))
(eval-after-load "which-key" '(diminish 'which-key-mode))
(eval-after-load "eldoc" '(diminish 'eldoc-mode))
(eval-after-load "yasnippet" '(diminish 'yas-minor-mode))
(eval-after-load "whitespace" '(diminish 'whitespace-mode))
(eval-after-load "auto-revert-mode" '(diminish 'auto-revert-mode))
(provide 'icejam-diminish)
;;; icejam-diminish.el ends here

122
lisp/icejam-fonts.el Normal file
View file

@ -0,0 +1,122 @@
;;; icejam-fonts.el --- summary -*- lexical-binding: t; -*-
;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot
;;; Commentary:
;; Set font stuff
;;; Code:
;; Set font face
;;;;;;;;;;;;;;;;;;;;;; Font configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun +custom-set-lsp-ui-font-hook ()
"Reset LSP IO font to specified +custom-font and +custom-font-size."
(setq lsp-ui-doc-frame-hook nil)
(add-hook 'lsp-ui-doc-frame-hook
(lambda (frame _w)
(set-face-attribute
'default frame :font
(format "%s %d" +custom-font (- +custom-font-size 2))))))
(defun set-font (name size)
"Set font to NAME and its SIZE to X pixels."
(interactive "sNew font: \nnEnter size for %s: ")
(setq +custom-font name)
(setq +custom-font-size size)
(set-face-attribute 'default nil :font (format "%s %d" name size))
;; Set completion and modeline font to be 1 pixel point smaller than
;; the general font
;; (set-face-attribute
;; 'markdown-code-face nil :font (format "%s %d" name (- size 1)))
(set-face-attribute
'tooltip nil :font (format "%s %d" name (- size 1)))
(set-face-attribute
'company-tooltip nil :font (format "%s %d" name (- size 1)))
(set-face-attribute
'company-tooltip-annotation nil :font (format "%s %d" name (- size 1)))
(set-face-attribute
'company-tooltip-mouse nil :font (format "%s %d" name (- size 1)))
(set-face-attribute
'mode-line nil :font (format "%s %d" name (- size 1)))
(set-face-attribute
'mode-line-inactive nil :font (format "%s %d" name (- size 1)))
;; Call LSP-UI hook
(+custom-set-lsp-ui-font-hook))
(defvar +custom-font "Iosevka Term")
;; (defvar +custom-font "Monoid")
;; (defvar +custom-font "Fira Mono")
;; (defvar +custom-font "Fira Code")
;; (defvar +custom-font "Red Hat Mono")
;; (defvar +custom-font "Agave Nerd Font Mono")
;; (defvar +custom-font "Input Mono Condensed")
;; (defvar +custom-font "SF Mono")
;; (defvar +custom-font "Monaco")
;; (defvar +custom-font "JetBrains Mono")
;; (defvar +custom-font "JuliaMono")
;; (defvar +custom-font "Rec Mono Semicasual")
;; (defvar +custom-font "Victor Mono")
;; (defvar +custom-font "IBM Plex Mono")
(defvar +custom-font-size 14)
(defun set-font-to-screen ()
"Automatically set font size to suit the monitor."
;; If display is set to emulate FullHD resultion or less, make the font
;; smaller.
(interactive)
(cond ((eq (x-display-list) nil))
;; built-in screen
((>= 1050 (x-display-pixel-height))
(set-font +custom-font +custom-font-size))
;; 4K screen on a Mac
((>= 1080 (x-display-pixel-height))
(set-font +custom-font +custom-font-size))
;; Other screens
((>= 1120 (x-display-pixel-height))
(set-font +custom-font +custom-font-size))
((>= 1440 (x-display-pixel-height))
(set-font +custom-font (+ +custom-font-size 3)))
((>= 1920 (x-display-pixel-height))
(set-font +custom-font +custom-font-size))
;; 4K screen on Windows or Linux
((>= 2160 (x-display-pixel-height))
(set-font +custom-font (- +custom-font-size 3)))
;; Default
(t (set-font +custom-font (- +custom-font-size 3)))))
;; Do it automatically on startup
(set-font-to-screen)
(defun set-font-size (size)
"Set font to a specified SIZE."
(interactive "nEnter size for font: ")
(set-font +custom-font size))
(defun set-font-size-for-this-frame (new-size)
"Set font NEW-SIZE for this frame only."
(interactive "nEnter new size for font in this frame: ")
(set-frame-font (format "%s %d" +custom-font new-size)))
;; Remove ugly black line
(set-face-attribute 'vertical-border nil :foreground
(face-attribute 'fringe :background))
;; Set fringe colors to default, so it does not bother you.
(set-face-attribute 'fringe nil
:foreground (face-foreground 'default)
:background (face-background 'default))
(provide 'icejam-fonts)
;;; icejam-fonts.el ends here

7
lisp/icejam-ivy.el
View file

@ -1,10 +1,9 @@
;;; pkg/ivy -- summary -*- lexical-binding: t; -*-
;;; icejam-ivy -- Counsel, Swiper and Ivy. -*- lexical-binding: t; -*-
;;; Commentary:
;;; Counsel, Swiper and Ivy.
;;;
;;; Code:
(require '+custom-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require 'icejam-keys-mode)
(use-package helpful :straight t :defer t)
(use-package counsel :straight t :defer t :requires (helpful)

55
lisp/icejam-keys-mode.el Normal file
View file

@ -0,0 +1,55 @@
;;; icejam-keys-mode.el --- summary -*- lexical-binding: t; -*-
;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot
;;; Commentary:
;; My global mode, to house my custom keys.
;;; Code:
(define-minor-mode +custom-keys-mode
"Minor mode for all of my personal key bindings."
:global t
:keymap (make-sparse-keymap))
;; Globally enable my minor mode
(+custom-keys-mode)
;;; Helpful key bindings
(define-key +custom-keys-mode-map (kbd "C-c \\") 'split-window-right) ;; Split window to the right
(define-key +custom-keys-mode-map (kbd "C-c /") 'split-window-below) ;; Split window to the bottom
;; Move between windows key bindings
(define-key +custom-keys-mode-map (kbd "C-c <left>") 'windmove-left)
(define-key +custom-keys-mode-map (kbd "C-c <right>") 'windmove-right)
(define-key +custom-keys-mode-map (kbd "C-c <up>") 'windmove-up)
(define-key +custom-keys-mode-map (kbd "C-c <down>") 'windmove-down)
;; The same, but without using arrow keys
(define-key +custom-keys-mode-map (kbd "C-c [") 'windmove-left)
(define-key +custom-keys-mode-map (kbd "C-c ]") 'windmove-right)
(define-key +custom-keys-mode-map (kbd "C-c {") 'windmove-up)
(define-key +custom-keys-mode-map (kbd "C-c }") 'windmove-down)
;; Kill current buffer and window
(define-key +custom-keys-mode-map (kbd "C-c q") 'kill-buffer-and-window)
;; List buffers
(define-key +custom-keys-mode-map (kbd "C-c b") 'ibuffer)
;; Revert without asking
(defun revert-buffer-no-confirm ()
"Revert buffer without confirmation."
(interactive) (revert-buffer t t))
(define-key +custom-keys-mode-map (kbd "C-c r") 'revert-buffer-no-confirm)
;;;;;;;;; Emacs bindings ;;;;;;;;;;;;;;;;;;;;;
(define-key +custom-keys-mode-map [home] 'beginning-of-line)
(define-key +custom-keys-mode-map [end] 'end-of-line)
(provide 'icejam-keys-mode)
;;; icejam-keys-mode.el ends here

2
lisp/icejam-sys-specific.el
View file

@ -7,7 +7,7 @@
(defconst IS-BSD (eq system-type 'berkeley-unix))
(defconst IS-GNU (eq system-type 'gnu/linux))
(require '+custom-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require 'icejam-keys-mode)
(defun +custom-function-delete-window ()
"Kill a window."

53
lisp/icejam-themes.el Normal file
View file

@ -0,0 +1,53 @@
;;; icejam-themes.el -- Theme configuration -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(use-package spaceline :straight t :defer t)
(use-package base16-theme :straight t :defer t)
(use-package apropospriate-theme :straight t :defer t)
(use-package leuven-theme :straight t :defer t)
(use-package modus-themes :straight t :defer t)
(use-package darktooth-theme :straight t :defer t)
(use-package cyberpunk-theme :straight t :defer t)
(use-package color-theme-sanityinc-tomorrow :straight t :defer t)
;; Disable cursor blinking
(blink-cursor-mode 0)
;; Set themes for terminal mode
(setq base16-theme-256-color-source "colors")
;; Light themes
(load-theme 'apropospriate-light t t)
(load-theme 'leuven t t)
(load-theme 'base16-atelier-forest-light t t)
(load-theme 'base16-harmonic16-light t t)
(load-theme 'base16-horizon-light t t)
(load-theme 'base16-humanoid-light t t)
(load-theme 'sanityinc-tomorrow-day t t)
;; Dark themes
(load-theme 'cyberpunk t t)
(load-theme 'darktooth t t)
(load-theme 'base16-zenburn t)
(load-theme 'base16-tomorrow-night-eighties t t)
(load-theme 'base16-darcula t t)
(load-theme 'base16-solarflare t t)
(load-theme 'base16-snazzy t t)
(load-theme 'base16-onedark t t)
(load-theme 'base16-gruvbox-dark-hard t t)
(load-theme 'modus-vivendi t t)
(load-theme 'base16-zenbones t t)
(load-theme 'sanityinc-tomorrow-eighties t t)
(load-theme 'sanityinc-tomorrow-night t t)
;; My own theme modifications:
(require 'icejam-base16-zenburn)
(require 'icejam-base16-harmonic-light)
(spaceline-emacs-theme)
(enable-theme 'base16-zenburn-modified)
(provide 'icejam-themes)
;;; icejam-themes.el ends here

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