diff options
Diffstat (limited to '')
| -rw-r--r-- | emacs.d/lib/bindings.el | 12 | ||||
| -rw-r--r-- | emacs.d/lib/funcs.el | 95 | ||||
| -rw-r--r-- | emacs.d/lib/org.el | 48 | ||||
| -rw-r--r-- | emacs.d/lib/packages.el | 427 | ||||
| -rw-r--r-- | emacs.d/lib/settings.el | 101 | ||||
| -rw-r--r-- | emacs.d/lib/twitter.el | 75 | ||||
| -rw-r--r-- | emacs.d/lib/wabi-sabi-theme.el | 63 |
7 files changed, 0 insertions, 821 deletions
diff --git a/emacs.d/lib/bindings.el b/emacs.d/lib/bindings.el deleted file mode 100644 index ec97ecc..0000000 --- a/emacs.d/lib/bindings.el +++ /dev/null @@ -1,12 +0,0 @@ -;; some bindings -(global-set-key (kbd "M-j") 'join-line) -(global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen) - -(define-key emacs-lisp-mode-map (kbd "C-c C-e") 'eval-buffer) -(define-key emacs-lisp-mode-map (kbd "C-c C-r") 'eval-region) - -(global-set-key (kbd "s-=") 'fc/scale-up-font) -(global-set-key (kbd "s--") 'fc/scale-down-font) -(global-set-key (kbd "s-0") 'fc/reset-font-size) - -(provide 'bindings) diff --git a/emacs.d/lib/funcs.el b/emacs.d/lib/funcs.el deleted file mode 100644 index 81330f6..0000000 --- a/emacs.d/lib/funcs.el +++ /dev/null @@ -1,95 +0,0 @@ -;;; funcs.el --- functions for my own usage - -(defun fc/load-time () - "How long did it take to load the configuration." - (message "Emacs init time %s" (emacs-init-time))) - -(defun fc/system-info () - "Display system informations" - (format - (concat "### System information :\n" - "- OS: %s\n" - "- Emacs: %s") - system-type - emacs-version)) - -;; font manipulation -(defun fc/scale-up-or-down-font-size (direction) - "Scale the font. If DIRECTION is positive or zero the font is scaled up, -otherwise it is scaled down." - (interactive) - (let ((scale 0.5)) - (if (eq direction 0) - (text-scale-set 0) - (if (< direction 0) - (text-scale-decrease scale) - (text-scale-increase scale))))) - -(defun fc/scale-up-font () - "Scale up the font." - (interactive) - (fc/scale-up-or-down-font-size 1)) - -(defun fc/scale-down-font () - "Scale up the font." - (interactive) - (fc/scale-up-or-down-font-size -1)) - -(defun fc/reset-font-size () - "Reset the font size." - (interactive) - (fc/scale-up-or-down-font-size 0)) - -;; jump to the scratch buffer -(defun fc/switch-to-scratch () - "Switch to scratch, grab the region if it's active." - (interactive) - (let ((contents - (and (region-active-p) - (buffer-substring (region-beginning) - (region-end))))) - (switch-to-buffer "*scratch*") - (if contents - (progn - (goto-char (buffer-end 1)) - (insert contents))))) - -(global-set-key (kbd "s-N") 'fc/switch-to-scratch) - -;; rename a buffer -(defun fc/rename-this-buffer-and-file () - "Renames current buffer and file it is visiting." - (interactive) - (let ((name (buffer-name)) - (filename (buffer-file-name)) - (read-file-name-function 'read-file-name-default)) - (if (not (and filename (file-exists-p filename))) - (error "Buffer '%s' is not visiting a file!" name) - (let ((new-name (read-file-name "New name: " filename))) - (cond ((get-buffer new-name) - (error "A buffer named '%s' already exists!" new-name)) - (t - (rename-file filename new-name 1) - (rename-buffer new-name) - (set-visited-file-name new-name) - (set-buffer-modified-p nil) - (message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name)))))))) - -;; create temporary files -(defun fc/start--file (path) - "Create a file at PATH, creating any containing directories as necessary. -Visit the file after creation." - (make-directory (file-name-directory path) t) - (find-file path)) - -(defun fc/start-tmp-file (file-name) - "Create a file in /tmp for the given file name." - (interactive "sName of temporary file: ") - (fc/start--file (expand-file-name (format "/tmp/%s" file-name)))) - -;; open dired buffer with tramp on remote host -(defun fc/remote--dired (host) - "Open dired on a remote host." - (dired (concat "/" host ":"))) - -(provide 'funcs) diff --git a/emacs.d/lib/org.el b/emacs.d/lib/org.el deleted file mode 100644 index 2c75e7d..0000000 --- a/emacs.d/lib/org.el +++ /dev/null @@ -1,48 +0,0 @@ -(use-package org - :ensure t - :mode ("\\.org\\'" . org-mode) - :init - (org-babel-do-load-languages - 'org-babel-load-languages - (append org-babel-load-languages '((sh . t) - (python . t)))) - :config - (setq-default org-startup-indent t - org-startup-truncated t - org-src-tabs-acts-natively t - org-src-preserve-indentation t - org-todo-keyword-faces '(("TODO" . org-warning) - ("DOING" . "yellow") - ("BLOCKED" . "red") - ("REVIEW" . "orange") - ("DONE" . "green") - ("ARCHIVED" . "blue")) - org-todo-keywords - '((sequence "NEXT(n)" "PLANNING(P)" "INPROGRESS(i)" "WAITING(w)" "|" "DONE(d)") - (sequence "MEETING(m)" "|" "CANCELLED(c)") - (sequence "IDLE(a)")) - org-link-abbrev-alist - '(("src" . "~/src/%s") - ("jira" . "https://jira.twitter.biz/browse/%s") - ("rb" . "https://reviewboard.twitter.biz/r/%s") - ("d" . "https://phabricator.twitter.biz/d%s") - ("go" . "http://go/%s")))) - -(use-package org-agenda - :bind (("\C-cA" . org-agenda)) - :config - (progn - (setq-default org-agenda-files (file-expand-wildcards "~/Documents/org/*.org") - org-default-notes-file "~/Documents/org/refile.org" - org-directory "~/Documents/org/"))) - -(use-package org-capture - :bind (("\C-cc" . org-capture)) - :config - (progn - (setq-default org-refile-targets '(("twitter.org" :maxlevel . 4) - ("personal.org" :maxlevel . 4)) - org-capture-templates '(("t" "task" entry - (file "~/Documents/org/refile.org") - "* TODO %? -%U"))))) diff --git a/emacs.d/lib/packages.el b/emacs.d/lib/packages.el deleted file mode 100644 index 9abfdb3..0000000 --- a/emacs.d/lib/packages.el +++ /dev/null @@ -1,427 +0,0 @@ -;; setup packages -(require 'package) -(setq package-user-dir (expand-file-name "var/elpa" user-emacs-directory) - package-enable-at-startup nil - package-archives (append package-archives - '(("melpa" . "https://melpa.milkbox.net/packages/")))) - -(package-initialize) - -(unless package-archive-contents - (message "Refreshing ELPA package archives...") - (package-refresh-contents)) - -;; install the package 'use-package' unless it's already installed -(unless (package-installed-p 'use-package) - (progn - (package-install 'use-package))) - -;; ... and load 'use-package' -(require 'use-package) - -(use-package server - ;; start emacs server if not already running - :config - (unless (server-running-p) (server-start))) - -(use-package diminish - ;; remove clutter from the mode line - :ensure t) - -(use-package ag - ;; interface to the 'ag' tool - :ensure t - :commands (counsel-ag ag) - :bind (:map ag-mode-map - ("p" . compilation-previous-error) - ("n" . compilation-next-error) - ("N" . compilation-next-file) - ("P" . compilation-previous-file)) - :config - (setq ag-highlight-search t - ag-reuse-buffers t - ag-reuse-window t)) - -(use-package autorevert - ;; automatically revert the buffer if the content changed on disk - :diminish auto-revert-mode) - -(use-package counsel - ;; completion functions for ivy - :ensure t - - :bind* - (("M-x" . counsel-M-x) - ("C-s" . counsel-grep-or-swiper) - ("C-x C-f" . counsel-find-file) - ("C-x C-r" . counsel-recentf) - ("C-c f" . counsel-git) - ("C-c s" . counsel-git-grep) - ("C-c /" . counsel-ag)) - - :config - (setq counsel-find-file-at-point t)) - -(use-package dired - ;; configuration for dired - :bind ("C-x C-d" . dired) - - :config - (let ((gls "/opt/twitter/bin/gls")) - (if (file-exists-p gls) - (setq insert-directory-program gls - dired-listing-switches "-aBhl --group-directories-first"))) - (use-package dired-x - :init - (add-hook 'dired-load-hook (lambda () (load "dired-x"))) - :config - (add-hook 'dired-mode-hook #'dired-omit-mode) - (setq dired-omit-verbose nil) - (setq dired-omit-files - (concat dired-omit-files "\\|^.DS_Store$\\|^.projectile$\\|^.git$")))) - -(use-package dockerfile-mode - ;; support for dockerfile mode - :ensure t) - -(use-package lisp-mode - ;; simple configuration for various lisp mode - :config - (add-hook 'emacs-lisp-mode-hook - (lambda() - (setq mode-name "λ")))) - -(use-package eldoc - ;; documentation with eldoc - :ensure t - - :commands eldoc-mode - - :diminish "" - - :init - (add-hook 'emacs-lisp-mode-hook 'eldoc-mode) - (add-hook 'lisp-interaction-mode-hook 'eldoc-mode)) - -(use-package exec-path-from-shell - ;; environment fixup for macOS. - :ensure t - - :if (and (eq system-type 'darwin) (display-graphic-p)) - - :init - (setq exec-path-from-shell-check-startup-files nil) - - :config - (progn - (setq exec-path-from-shell-debug t) - (exec-path-from-shell-initialize))) - -(use-package flycheck - ;; check syntax - :ensure t - - :config - (progn - - (add-hook 'prog-mode-hook 'flycheck-mode) - - (setq-default flycheck-disabled-checkers '(emacs-lisp-checkdoc)) - (setq flycheck-highlighting-mode 'lines) - (setq flycheck-check-syntax-automatically '(mode-enabled save)))) - -(use-package flyspell - ;; check the spelling - :ensure t - - :init - (use-package ispell - :ensure t - :config - (setq ispell-program-name "aspell" - ispell-list-command "--list")) - (use-package flyspell-popup - :ensure t - :bind ("C-:" . flyspell-popup-correct)) - :config - (add-hook 'text-mode-hook 'flyspell-mode)) - -(use-package go-mode - ;; support for go - :mode (("\\.go\\'" . go-mode)) - - :ensure t - - :config - (progn - (when (memq window-system '(mac ns x)) - (dolist (var '("GOPATH")) - (unless (getenv var) - (exec-path-from-shell-copy-env var)))) - - (use-package go-eldoc - :ensure t - :config - (add-hook 'go-mode-hook 'go-eldoc-setup)) - - (use-package gotest - :ensure t) - - (use-package go-guru - :ensure t) - - (defun fc/my-go-hook () - (set (make-local-variable 'compile-command) - "go build -v && go test -v && go vet") - (setq-local tab-width 4)) - - (add-hook 'before-save-hook 'gofmt-before-save) - (add-hook 'go-mode-hook 'fc/my-go-hook))) - -(use-package google-c-style - :ensure t) - -(use-package ibuffer - ;; configuration for ibuffer - :ensure t - :defer t - :bind ("C-x C-b" . ibuffer) - :init - (setq-default ibuffer-eliding-string "…") - (setq ibuffer-show-empty-filter-groups nil - ibuffer-formats '((mark modified read-only " " - (name 30 30 :left :elide) - " " - (size 9 -1 :right) - " " - (mode 16 16 :left :elide) - " " filename-and-process) - (mark " " - (name 16 -1) - " " filename)) - ibuffer-saved-filter-groups - (quote (("default" - ("dired" (mode . dired-mode)) - ("elisp" (mode . emacs-lisp-mode)) - ("emacs" (or (name . "^\\*.*\\*$") (mode . fundamental-mode))) - ("go" (mode . go-mode)) - ("java" (mode . java-mode)) - ("json" (mode . json-mode)) - ("lisp" (mode . lisp-mode)) - ("magit" (mode . magit-mode)) - ("puppet" (mode . puppet-mode)) - ("python" (mode . python-mode)) - ("repl" (name . "repl")) - ("ruby" (mode . ruby-mode)) - ("rust" (mode . rust-mode)) - ("sh" (mode . sh-mode)) - ("text" (mode . text-mode)))))) - - (add-hook 'ibuffer-mode-hook ;; organise by filter-groups - '(lambda () - (ibuffer-auto-mode 1) - (setq mode-name "≣") - (ibuffer-switch-to-saved-filter-groups "default")))) - -(use-package ivy - ;; completion system - :diminish (ivy-mode . "") - - :bind ("C-c m" . ivy-switch-project) - - :config - (ivy-mode 1) - (setq ivy-use-virtual-buffers t - ivy-height 10 - ivy-count-format "(%d/%d) " - ivy-initial-inputs-alist nil - ivy-use-ignore-default 'always - ivy-ignore-buffers '("company-statistics-cache.el" "company-statistics-autoload.el") - ivy-re-builders-alist '((swiper . ivy--regex-ignore-order) - (t . ivy--regex-fuzzy) - (t . ivy--regex-ignore-order))) - - (defun ivy-switch-project () - (interactive) - (ivy-read - "Switch to project: " - (if (projectile-project-p) - (cons (abbreviate-file-name (projectile-project-root)) - (projectile-relevant-known-projects)) - projectile-known-projects) - :action #'projectile-switch-project-by-name)) - - (ivy-set-actions - 'ivy-switch-project - '(("d" dired "Open Dired in project's directory") - ("v" counsel-projectile "Open project root in vc-dir or magit") - ("c" projectile-compile-project "Compile project") - ("r" projectile-remove-known-project "Remove project(s)")))) - -(use-package json-mode - ;; mode to support json files - :ensure t - - :mode "\\.json\\'" - - :config - (setq json-reformat:indent-width 2)) - -(use-package magit - ;; interface to git - :ensure t - - :mode (("differential-update-comments" . git-commit-mode) - ("new-commit" . git-commit-mode)) - - :bind (("C-x g s" . magit-status) - ("C-x g b" . magit-checkout)) - - :init - (progn - (setq magit-completing-read-function 'ivy-completing-read)) - - :config - (progn - (global-git-commit-mode) - (use-package git-commit :ensure t :defer t) - (add-hook 'magit-mode-hook - (lambda() - (setq mode-name "⎇"))) - (add-hook 'magit-log-edit-mode-hook - #'(lambda () - (set-fill-column 72) - (flyspell-mode))))) - -(use-package make-mode - ;; mode to support Makefile - :config - (add-hook 'makefile-mode-hook (lambda () - (setq-local tab-width 2)))) - -(use-package markdown-mode - ;; mode to support files in the Markdown format - :ensure t - - :commands (markdown-mode gfm-mode) - - :mode (("\\.md\\'" . gfm-mode) - ("\\.markdown\\'" . gfm-mode)) - - :init (setq markdown-command "pandoc -f markdown_github -c https://goo.gl/OVmlwT --self-contained") - - :config - (add-hook 'gfm-mode-hook 'visual-line-mode)) - -(use-package midnight - ;; clean old buffers at midnight - :ensure t - :config - (midnight-mode t)) - -(use-package org - :defer t - :init - (progn - (setq org-startup-indented t) - (org-babel-do-load-languages 'org-babel-load-languages - '( - (sh . t)))) - :config - (add-hook 'org-mode-hook #'(lambda () - (visual-line-mode) - (org-indent-mode)))) - -(use-package projectile - ;; library to interact with projects - :ensure t - - :diminish "" - - :bind-keymap ("C-c p" . projectile-command-map) - - :init - (add-hook 'after-init-hook #'projectile-mode) - - :config - (use-package counsel-projectile :ensure t) - (setq projectile-switch-project-action 'projectile-dired - projectile-enable-caching t - projectile-completion-system 'ivy - projectile-known-projects-file (expand-file-name "var/projectile-bookmarks.eld" user-emacs-directory) - projectile-cache-file (expand-file-name "var/projectile.cache" user-emacs-directory)) - (add-to-list 'projectile-globally-ignored-files ".DS_Store")) - -(use-package protobuf-mode - :ensure t - :mode ("\\.proto$" . protobuf-mode)) - -(use-package python - ;; configuration for Python - :mode(("\\.aurora$" . python-mode) - ("BUILD$" . python-mode) - ("\\.py$" . python-mode)) - - :interpreter ("python" . python-mode) - - :init - (setq-default indent-tabs-mode nil) - - :config - (setq python-indent-offset 2) - (add-hook 'python-mode-hook 'eldoc-mode t)) - -(use-package recentf - ;; configuration for recentf, to interact with recent files - :config - (setq recentf-save-file (expand-file-name "var/recentf" user-emacs-directory))) - -(use-package rust-mode - :ensure t - :config - (use-package cargo - :hook (rust-mode . cargo-minor-mode) - :config - (setq compilation-ask-about-save nil) - ;; Automatically re-run compilation command on manual save inside a project. - ;; Will do nothing if a compilation hasn't been manually triggered - ;; in the past. - :diminish cargo-minor-mode)) - -(use-package sh-script - ;; configuration to interact with shell scripts - :mode ("bashrc" . sh-mode) - - :config - (defun set-sh-mode-indent () - (setq sh-basic-offset 2 - sh-indentation 2)) - (add-hook 'sh-mode-hook 'set-sh-mode-indent) - (add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)) - -(use-package swiper - ;; install swiper - :ensure t) - -(use-package toml-mode - :ensure t) - -(use-package tramp - ;; configuration for tramp - :config - (setq tramp-default-method "ssh" - tramp-persistency-file-name (expand-file-name "var/tramp" user-emacs-directory))) - -(use-package whitespace - ;; highlight white spaces - :config - (setq whitespace-style '(face trailing)) - (add-hook 'prog-mode-hook 'whitespace-mode)) - -(use-package yaml-mode - ;; mode to work wity YAML files - :ensure t - - :init (add-hook 'yaml-mode-hook 'flycheck-mode) - - :mode ("\\.ya?ml\\'" . yaml-mode)) diff --git a/emacs.d/lib/settings.el b/emacs.d/lib/settings.el deleted file mode 100644 index d0a6181..0000000 --- a/emacs.d/lib/settings.el +++ /dev/null @@ -1,101 +0,0 @@ -;; I don't want a startup screen -(setq inhibit-startup-screen t) - -;; disable tool bar and the scroll bar -(dolist (mode '(tool-bar-mode scroll-bar-mode)) - (when (fboundp mode) (funcall mode -1))) - -;; auto close bracket, parenthesis insertion -(electric-pair-mode 1) - -;; show trailing white space for prog modes -;; FIXME this should probably be moved somewhere else. I need -;; to revisit the various prog-mode-hook. -(add-hook 'prog-mode-hook - (lambda () (setq show-trailing-whitespace t))) - -;; I don't care about any frontend other than magit -(setf vc-handled-backends nil - vc-follow-symlinks t) - -;; alias yes-or-no to y-or-n -(fset 'yes-or-no-p 'y-or-n-p) - -;; set utf-8 as the default encoding -(prefer-coding-system 'utf-8-unix) -(set-terminal-coding-system 'utf-8) -(set-keyboard-coding-system 'utf-8) - -;; reload the buffer when a file changes -(global-auto-revert-mode 1) - -;; show column number in the mode line -(setq column-number-mode t) - -;; when saving the file, ensure a newline exists at the end of the file -(setq require-final-newline t) - -;; no initial message in the scratch buffer -(setq initial-scratch-message nil) - -;; scroll 5 lines at a time -(setq next-screen-context-lines 5) - -;; when using TAB, always indent -(setq tab-always-indent 'complete) - -;; don't auto save files -(setq auto-save-default nil) - -;; I really don't want backup files -(setq auto-save-list-file-prefix nil - make-backup-files nil) - -;; How long to display an echo-area message when the minibuffer is active. -(setq minibuffer-message-timeout 0.5) - -;; don't use a lock file -(setq-default create-lockfiles nil) - -;; show parenthesis -(show-paren-mode +1) - -;; no blinking cursor -(blink-cursor-mode -1) - -;; I don't want a frindge on the right -(fringe-mode '(6 . 0)) - -;; frame title -(setq frame-title-format '( "%f" " [" (:eval mode-name) "]")) - -;; where to save custom settings -(setq custom-file (expand-file-name "var/emacs-custom.el" user-emacs-directory)) - -;; where to save the bookmarks -(setq bookmark-default-file (expand-file-name "var/bookmarks" user-emacs-directory) - bookmark-save-flag 1) - -;; time display -(setq display-time-24hr-format t) -(setq display-time-default-load-average nil) -(setq display-time-format "") - -;; cursor is a horizontal bar -(setq-default cursor-type 'hbar) - -;; highlight current line -(global-hl-line-mode 1) - -;; Set default font. -(set-face-attribute 'default nil :height 130 :weight 'normal :width 'normal) - -;; no bell -(setq visible-bell nil) -(setq ring-bell-function 'ignore) - -;; don't use native full screen on OS-X -(when (eq system-type 'darwin) - (setq ns-use-native-fullscreen nil)) - -(provide 'settings) diff --git a/emacs.d/lib/twitter.el b/emacs.d/lib/twitter.el deleted file mode 100644 index 3a7e245..0000000 --- a/emacs.d/lib/twitter.el +++ /dev/null @@ -1,75 +0,0 @@ -;; packages that are needed only for twitter - -(use-package pants - ;; interface to pants - :load-path (lambda () (expand-file-name "~/workspace/github.com/fcuny/pants.el/")) - - :config - (setq pants-completion-system 'ivy - pants-source-tree-root "/Users/fcuny/workspace/git.twitter.biz/source" - pants-bury-compilation-buffer t - pants-extra-args "-q") - - :bind (("C-c b" . pants-find-build-file) - ("C-c r" . pants-run-binary) - ("C-c t" . pants-run-test))) - -(use-package puppet-mode - ;; mode to support puppet and work with puppet - :ensure t - - :mode ("\\.pp\\'" . puppet-mode) - - :init (add-hook 'puppet-mode-hook 'flycheck-mode) - - :config - (when (memq window-system '(mac ns x)) - (dolist (var '("GEM_HOME" "GEM_PATH" "MY_RUBY_HOME")) - (unless (getenv var) - (exec-path-from-shell-copy-env var)))) - (setq flycheck-puppet-lint-rc "/Users/fcuny/workspace/svn.twitter.biz/twitter-ops/utilities/puppet/.puppet-lint.rc")) - -(use-package scala-mode - ;; mode to work with scala files - :ensure t) - -(use-package thrift - ;; mode to work with thrift files - :ensure t - - :mode ("\\.thrift\\'" . thrift-mode) - - :config - (setq thrift-indent-level 2)) - -;; custom functions - -(defun fc/check-source-p () - ;; predicate for checking style only on python files - (and (executable-find "check.pex") - (buffer-file-name) - (string-match "src/source/.*\.py$" (buffer-file-name)))) - -;;; errors are reported like this: -;;; E241:ERROR <file name>:<line> <message> -(flycheck-define-checker source-check - "A syntax checker for python source code in Source, using `check.pex'" - :command ("check.pex" source) - :error-patterns ((error line-start (id (1+ nonl)) ":ERROR" (1+ nonl) ":" line (message) line-end) - (warning line-start (id (1+ nonl)) ":WARNING" (1+ nonl) ":" line (message) line-end)) - :predicate fc/check-source-p - :modes (python-mode)) - -(add-to-list 'flycheck-checkers 'source-check) - -(defun fc/start-nest-tmp-file (file-name) - "Create a file in ~/tmp on nest for the give file name." - (interactive "sName of the temporary file: ") - (fc/start--file (expand-file-name (format "/nest.smfc.twitter.com:~/tmp/%s" file-name)))) - -(defun fc/remote-nest-dired () - "Open dired on nest." - (interactive) - (fc/remote--dired "nest.smfc.twitter.com")) - -(provide 'twitter) diff --git a/emacs.d/lib/wabi-sabi-theme.el b/emacs.d/lib/wabi-sabi-theme.el deleted file mode 100644 index 986e266..0000000 --- a/emacs.d/lib/wabi-sabi-theme.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; wabi-sabi-theme.el --- Black and light yellow theme without syntax highlighting - -;;; Code: - -(deftheme wabi-sabi - "Wabi Sabi.") - -(defvar wabi-sabi-faces - `(default - font-lock-builtin-face - font-lock-constant-face - font-lock-function-name-face - font-lock-keyword-face - font-lock-negation-char-face - font-lock-preprocessor-face - font-lock-regexp-grouping-backslash - font-lock-regexp-grouping-construct - font-lock-string-face - font-lock-type-face - font-lock-variable-name-face - font-lock-warning-face - fringe - sh-quoted-exec)) - -(let ((bg "#FFFFE5") - (bg-alt "#fffde7") - (fg "#000000") - (fg-alt "#000000") - (highlight "#c4c6c2") - (highlight-alt "#cccab5") - (modeline-fg "#ffffff") - (modeline-bg "#2D271F") - (modeline-bg-alt "#605C49") - (region "#eeed9d")) - - (apply 'custom-theme-set-faces 'wabi-sabi - `(default ((t (:foreground ,fg :background ,bg)))) - `(cursor ((t (:background ,fg :foreground "white smoke")))) - `(highlight ((t nil))) - - `(mode-line ((t (:foreground ,modeline-fg :background ,modeline-bg)))) - `(mode-line-inactive ((t (:foreground ,modeline-fg :background ,modeline-bg-alt)))) - - `(show-paren-match ((t (:background ,highlight-alt)))) - `(whitespace-indentation ((t (:background ,bg-alt :foreground ,fg-alt)))) - - `(font-lock-comment-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-comment-delimiter-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-doc-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-doc-string-face ((t (:foreground ,fg :weight bold)))) - - `(region ((t (:background ,region :foreground ,fg)))) - - (mapcar (lambda (n) `(,n ((t (:background ,bg :foreground ,fg))))) wabi-sabi-faces))) - -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) - -(provide-theme 'wabi-sabi) - -;;; wabi-sabi-theme.el ends here |