diff --git a/contrib/applescript-mode.el b/contrib/applescript-mode.el deleted file mode 100644 index e5c5b0e55..000000000 --- a/contrib/applescript-mode.el +++ /dev/null @@ -1,467 +0,0 @@ -;;; applescript-mode.el --- major mode for editing AppleScript source - -;; Copyright (C) 2004 MacEmacs JP Project - -;;; Credits: -;; Copyright (C) 2003,2004 FUJIMOTO Hisakuni -;; http://www.fobj.com/~hisa/w/applescript.el.html -;; Copyright (C) 2003 443,435 (Public Domain?) -;; http://pc.2ch.net/test/read.cgi/mac/1034581863/ -;; Copyright (C) 2004 Harley Gorrell -;; http://www.mahalito.net/~harley/elisp/osx-osascript.el - -;; Author: sakito -;; Keywords: languages, tools - -(defconst applescript-mode-version "$Revision$" - "The current version of the AppleScript mode.") - -(defconst applescript-mode-help-address "sakito@users.sourceforge.jp" - "Address accepting submission of bug reports.") - -;; 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 2, 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. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;; acquired from http://github.com/ieure/applescript-mode/ - -;;; Commentary: - -;; AppleScript Mode - -;;; Usage: -;; To use applescript-mode.el put the following line in your .emacs: -;; (autoload 'applescript-mode "applescript-mode" -;; "Major mode for editing AppleScript source." t) -;; (add-to-list 'auto-mode-alist '("\\.applescript$" . applescript-mode)) - -;; Please use the SourceForge MacEmacs JP Project to submit bugs or -;; patches: -;; -;; http://sourceforge.jp/projects/macemacsjp - -;; FOR MORE INFORMATION: - -;; There is some information on applescript-mode.el at - -;; http://macemacsjp.sourceforge.jp/documents/applescript-mode/ - - -;;; Code: - - - -;; user customize variables -(defgroup applescript nil - "Support for AppleScript, " - :group 'languages - :prefix "as-") - -(defcustom as-osascript-command "osascript" - "*execute AppleScripts and other OSA language scripts." - :type 'string - :group 'applescript) - -(defcustom as-osacompile-command "osacompile" - "*compile AppleScripts and other OSA language scripts." - :type 'string - :group 'applescript) - -(defcustom as-osascript-command-args '("-ss") - "*List of string arguments to be used when starting a osascript." - :type '(repeat string) - :group 'applescript) - -(defcustom as-indent-offset 4 - "*Amount of offset per level of indentation. -`\\[as-guess-indent-offset]' can usually guess a good value when -you're editing someone else's AppleScript code." - :type 'integer - :group 'applescript) - -(defcustom as-continuation-offset 4 - "*Additional amount of offset to give for some continuation lines. -Continuation lines are those that immediately follow a -Continuation sign terminated line. Only those continuation lines -for a block opening statement are given this extra offset." - :type 'integer - :group 'applescript) - -;; Face Setting - -;; Face for true, false, me, it -(defvar as-pseudo-keyword-face 'as-pseudo-keyword-face - "Face for pseudo keywords in AppleScript mode, like me, true, false.") -(make-face 'as-pseudo-keyword-face) - -;; Face for command -(defvar as-command-face 'as-command-face - "Face for command like copy, get, set, and error.") -(make-face 'as-command-face) - -(defun as-font-lock-mode-hook () - (or (face-differs-from-default-p 'as-pseudo-keyword-face) - (copy-face 'font-lock-keyword-face 'as-pseudo-keyword-face)) - (or (face-differs-from-default-p 'as-command-face) - (copy-face 'font-lock-keyword-face 'as-command-face))) -(add-hook 'font-lock-mode-hook 'as-font-lock-mode-hook) - -(defvar applescript-font-lock-keywords - (let ( - ;; expressions and control Statements - (kw1 (regexp-opt - '("and" "app" "application" "considering" "div" - "else" "end" "exit" "is" "mod" "not" "on" "or" - "if" "ignoring" "reopen" "repeat" - "tell" "then" "to" - "using[ \t]terms[ \t]from" - "with[ \t]timeout" "with[ \t]transaction"))) - ;; commands - (kw2 (regexp-opt - '("ASCII[ \t]character" "ASCII[ \t]number" "activate" "AGStart" - "beep" "copy" "count" "choose[ \t]application" - "choose[ \t]file" "choose[ \t]folder" "close[ \t]access" - "current[ \t]date" "display[ \t]dialog" "get" "get[ \t]EOF" - "info[ \t]for" "launch" "list[ \t]disks" "list[ \t]folder" - "load[ \t]script" "log" "monitor[ \t]depth" "max[ \t]monitor[ \t]depth" - "min[ \t]monitor[ \t]depth" "new[ \t]file" "offset" - "open[ \t]for[ \t]access" "path[ \t]to" "random[ \t]number" - "read" "round" "run" "run[ \t]script" "scripting[ \t]component" - "set" "set[ \t]EOF" "set[ \t]monitor[ \t]depth" "set[ \t]volume" - "start[ \t]log" "stop[ \t]log" "store[ \t]script" - "time[ \t]to[ \t]GMT" "write"))) - ;; misc - (kw3 (regexp-opt - '("buttons" "default[ \t]answer" "default[ \t]button" - "to[ \t]begining[ \t]of" "to[ \t]word" "starting[ \t]at" - "with[ \t]icon" "write[ \t]permission")))) - (list - ;; keywords - (cons (concat "\\b\\(" kw1 "\\)\\b[ \n\t(]") 1) - (cons (concat "\\b\\(" kw2 "\\)\\b[ \n\t(]") 1) - ;; kw3 not yet.. - (cons (concat "\\b\\(" kw3 "\\)\\b[ \n\t(]") 1) - ;; functions - '("\\bon[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)" - 1 font-lock-function-name-face) - '("\\bto[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)" - 1 font-lock-function-name-face) - ;; pseudo-keywords - '("\\b\\(it\\|me\\|my\\|true\\|false\\)\\b" - 1 as-pseudo-keyword-face)))) -(put 'applescript-mode 'font-lock-defaults '(applescript-font-lock-keywords)) - -;; Major mode boilerplate - -;; define a mode-specific abbrev table for those who use such things -(defvar applescript-mode-abbrev-table nil - "Abbrev table in use in `applescript-mode' buffers.") -(define-abbrev-table 'applescript-mode-abbrev-table nil) - -(defvar applescript-mode-hook nil - "*Hook called by `applescript-mode'.") - -(defvar as-mode-map () - "Keymap used in `applescript-mode' buffers.") -(if as-mode-map - nil - (setq as-mode-map (make-sparse-keymap)) - ;; Key bindings - - ;; subprocess commands - (define-key as-mode-map "\C-c\C-c" 'as-execute-buffer) - (define-key as-mode-map "\C-c\C-s" 'as-execute-string) - (define-key as-mode-map "\C-c|" 'as-execute-region) - - ;; Miscellaneous - (define-key as-mode-map "\C-c;" 'comment-region) - (define-key as-mode-map "\C-c:" 'uncomment-region)) - -(defvar as-mode-syntax-table nil - "Syntax table used in `applescript-mode' buffers.") -(when (not as-mode-syntax-table) - (setq as-mode-syntax-table (make-syntax-table)) - - (modify-syntax-entry ?\" "\"" as-mode-syntax-table) - - (modify-syntax-entry ?: "." as-mode-syntax-table) - (modify-syntax-entry ?\; "." as-mode-syntax-table) - (modify-syntax-entry ?& "." as-mode-syntax-table) - (modify-syntax-entry ?\| "." as-mode-syntax-table) - (modify-syntax-entry ?+ "." as-mode-syntax-table) - (modify-syntax-entry ?/ "." as-mode-syntax-table) - (modify-syntax-entry ?= "." as-mode-syntax-table) - (modify-syntax-entry ?< "." as-mode-syntax-table) - (modify-syntax-entry ?> "." as-mode-syntax-table) - (modify-syntax-entry ?$ "." as-mode-syntax-table) - (modify-syntax-entry ?\[ "." as-mode-syntax-table) - (modify-syntax-entry ?\] "." as-mode-syntax-table) - (modify-syntax-entry ?\{ "." as-mode-syntax-table) - (modify-syntax-entry ?\} "." as-mode-syntax-table) - (modify-syntax-entry ?. "." as-mode-syntax-table) - (modify-syntax-entry ?\\ "." as-mode-syntax-table) - (modify-syntax-entry ?\' "." as-mode-syntax-table) - - ;; a double hyphen starts a comment - (modify-syntax-entry ?- ". 12" as-mode-syntax-table) - - ;; comment delimiters - (modify-syntax-entry ?\f "> " as-mode-syntax-table) - (modify-syntax-entry ?\n "> " as-mode-syntax-table) - - ;; define parentheses to match - (modify-syntax-entry ?\( "()1" as-mode-syntax-table) - (modify-syntax-entry ?\) ")(4" as-mode-syntax-table) - (modify-syntax-entry ?* ". 23b" as-mode-syntax-table)) - -;; Utilities -(defmacro as-safe (&rest body) - "Safely execute BODY, return nil if an error occurred." - (` (condition-case nil - (progn (,@ body)) - (error nil)))) - -(defsubst as-keep-region-active () - "Keep the region active in XEmacs." - ;; Ignore byte-compiler warnings you might see. Also note that - ;; FSF's Emacs 19 does it differently; its policy doesn't require us - ;; to take explicit action. - (when (featurep 'xemacs) - (and (boundp 'zmacs-region-stays) - (setq zmacs-region-stays t)))) - -(defsubst as-point (position) - "Returns the value of point at certain commonly referenced POSITIONs. -POSITION can be one of the following symbols: - - bol -- beginning of line - eol -- end of line - bod -- beginning of on or to - eod -- end of on or to - bob -- beginning of buffer - eob -- end of buffer - boi -- back to indentation - bos -- beginning of statement - -This function does not modify point or mark." - (let ((here (point))) - (cond - ((eq position 'bol) (beginning-of-line)) - ((eq position 'eol) (end-of-line)) - ((eq position 'bod) (as-beginning-of-handler 'either)) - ((eq position 'eod) (as-end-of-handler 'either)) - ;; Kind of funny, I know, but useful for as-up-exception. - ((eq position 'bob) (beginning-of-buffer)) - ((eq position 'eob) (end-of-buffer)) - ((eq position 'boi) (back-to-indentation)) - ((eq position 'bos) (as-goto-initial-line)) - (t (error "Unknown buffer position requested: %s" position))) - (prog1 (point) (goto-char here)))) - -;; Menu definitions, only relevent if you have the easymenu.el package -;; (standard in the latest Emacs 19 and XEmacs 19 distributions). -(defvar as-menu nil - "Menu for AppleScript Mode. -This menu will get created automatically if you have the -`easymenu' package. Note that the latest X/Emacs releases -contain this package.") - -(and (as-safe (require 'easymenu) t) - (easy-menu-define - as-menu as-mode-map "AppleScript Mode menu" - '("AppleScript" - ["Comment Out Region" comment-region (mark)] - ["Uncomment Region" uncomment-region (mark)] - "-" - ["Execute buffer" as-execute-buffer t] - ["Execute region" as-execute-region (mark)] - ["Execute string" as-execute-string t] - "-" - ["Mode Version" as-mode-version t] - ["AppleScript Version" as-language-version t]))) - -;;;###autoload -(defun applescript-mode () - "Major mode for editing AppleScript files." - (interactive) - ;; set up local variables - (kill-all-local-variables) - (make-local-variable 'font-lock-defaults) - (make-local-variable 'paragraph-separate) - (make-local-variable 'paragraph-start) - (make-local-variable 'require-final-newline) - (make-local-variable 'comment-start) - (make-local-variable 'comment-end) - (make-local-variable 'comment-start-skip) - (make-local-variable 'comment-column) - (make-local-variable 'comment-indent-function) - (make-local-variable 'indent-region-function) - (make-local-variable 'indent-line-function) - (make-local-variable 'add-log-current-defun-function) - (make-local-variable 'fill-paragraph-function) - ;; - - ;; Maps and tables - (use-local-map as-mode-map) - - (set-syntax-table as-mode-syntax-table) - - ;; Names - (setq major-mode 'applescript-mode - mode-name "AppleScript" - local-abbrev-table applescript-mode-abbrev-table - font-lock-defaults '(applescript-font-lock-keywords) - paragraph-separate "[ \t\n\f]*$" - paragraph-start "[ \t\n\f]*$" - require-final-newline t - comment-start "-- " - comment-end "" - comment-start-skip "---*[ \t]*" - comment-column 40) - - ;; Support for outline-minor-mode - (set (make-local-variable 'outline-regexp) - "\\([ \t]*\\(on\\|to\\|if\\|repeat\\|tell\\|end\\)\\|--\\)") - (set (make-local-variable 'outline-level) 'as-outline-level) - - ;; add the menu - (if as-menu - (easy-menu-add as-menu)) - - ;; Run the mode hook. Note that applescript-mode-hook is deprecated. - (if applescript-mode-hook - (run-hooks 'applescript-mode-hook) - (run-hooks 'applescript-mode-hook))) - -(when (not (or (rassq 'applescript-mode auto-mode-alist) - (push '("\\.applescript$" . applescript-mode) auto-mode-alist)))) - -;;; Subprocess commands - -;; function use variables -(defconst as-output-buffer "*AppleScript Output*" - "Name for the buffer to display AppleScript output.") -(make-variable-buffer-local 'as-output-buffer) - -;; Code execution commands -(defun as-execute-buffer (&optional async) - "Execute the whole buffer as an Applescript" - (interactive "P") - (as-execute-region (point-min) (point-max) async)) - -(defun as-execute-string (string &optional async) - "Send the argument STRING to an AppleScript." - (interactive "sExecute AppleScript: ") - (save-excursion - (set-buffer (get-buffer-create - (generate-new-buffer-name as-output-buffer))) - (insert string) - (as-execute-region (point-min) (point-max) async))) - -(defun as-execute-region (start end &optional async) - "Execute the region as an Applescript" - (interactive "r\nP") - (let ((region (buffer-substring start end)) - (as-current-win (selected-window))) - (pop-to-buffer as-output-buffer) - (insert (as-execute-code region)) - (select-window as-current-win))) - -(defun as-execute-code (code) - "pop to the AppleScript buffer, run the code and display the results." - (as-decode-string - (do-applescript (as-string-to-sjis-string-with-escape code)))) - -(defun as-mode-version () - "Echo the current version of `applescript-mode' in the minibuffer." - (interactive) - (message "Using `applescript-mode' version %s" applescript-mode-version) - (as-keep-region-active)) - -(defun as-language-version() - "Echo the current version of AppleScript Version in the minibuffer." - (interactive) - (message "Using AppleScript version %s" - (as-execute-code "AppleScript's version")) - (as-keep-region-active)) - -;; as-beginning-of-handler, as-end-of-handler,as-goto-initial-line not yet - -;; Support for outline.el -(defun as-outline-level () - "This is so that `current-column` DTRT in otherwise-hidden text" - (let (buffer-invisibility-spec) - (save-excursion - (back-to-indentation) - (current-column)))) - -;; for Japanese -(defun as-unescape-string (str) - "delete escape char '\'" - (replace-regexp-in-string "\\\\\\(.\\)" "\\1" str)) - -(defun as-escape-string (str) - "add escape char '\'" - (replace-regexp-in-string "\\\\" "\\\\\\\\" str)) - -(defun as-sjis-byte-list-escape (lst) - (cond - ((null lst) nil) - ((= (car lst) 92) - (append (list 92 (car lst)) (as-sjis-byte-list-escape (cdr lst)))) - (t (cons (car lst) (as-sjis-byte-list-escape (cdr lst)))))) - -(defun as-string-to-sjis-string-with-escape (str) - "String convert to SJIS, and escape \"\\\" " - (apply 'string - (as-sjis-byte-list-escape - (string-to-list - (as-encode-string str))))) - -(defun as-decode-string (str) - "do-applescript return values decode sjis-mac" - (decode-coding-string str 'sjis-mac)) - -(defun as-encode-string (str) - "do-applescript return values encode sjis-mac" - (encode-coding-string str 'sjis-mac)) - -(defun as-parse-result (retstr) - "String convert to Emacs Lisp Object" - (cond - ;; as list - ((string-match "\\`\\s-*{\\(.*\\)}\\s-*\\'" retstr) - (let ((mstr (match-string 1 retstr))) - (mapcar (lambda (item) (as-parse-result item)) - (split-string mstr ",")))) - - ;; AERecord item as cons - ((string-match "\\`\\s-*\\([^:\\\"]+\\):\\(.*\\)\\s-*\\'" retstr) - (cons (intern (match-string 1 retstr)) - (as-parse-result (match-string 2 retstr)))) - - ;; as string - ((string-match "\\`\\s-*\\\"\\(.*\\)\\\"\\s-*\\'" retstr) - (as-decode-string - (as-unescape-string (match-string 1 retstr)))) - - ;; as integer - ((string-match "\\`\\s-*\\([0-9]+\\)\\s-*\\'" retstr) - (string-to-int (match-string 1 retstr))) - - ;; else - (t (intern retstr)))) - -(provide 'applescript-mode) -;;; applescript-mode.el ends here diff --git a/contrib/evil-little-word.el b/contrib/evil-little-word.el deleted file mode 100644 index f5bb2bb68..000000000 --- a/contrib/evil-little-word.el +++ /dev/null @@ -1,126 +0,0 @@ -;;; evil-little-word.el --- Emulate camelcasemotion.vim - -;; Author: INA Lintaro -;; URL: http://github.com/tarao/evil-plugins -;; Version: 0.1 -;; Keywords: evil, plugin - -;; This file is NOT part of GNU Emacs. - -;;; License: -;; -;; This program 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 of the License, or -;; (at your option) any later version. -;; -;; This program 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. -;; -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;;; Code: - -(require 'evil) - -(defun maybe-define-category (cat doc &optional table) - (unless (category-docstring cat table) (define-category cat doc table))) - -(let (uc lc defs (table (standard-category-table))) - (map-char-table - #'(lambda (key value) - (when (natnump value) - (let (from to) - (if (consp key) - (setq from (car key) to (cdr key)) - (setq from (setq to key))) - (while (<= from to) - (cond ((/= from (downcase from)) - (add-to-list 'uc from)) - ((/= from (upcase from)) - (add-to-list 'lc from))) - (setq from (1+ from)))))) - (standard-case-table)) - (setq defs `(("Uppercase" ?U ,uc) - ("Lowercase" ?u ,lc) - ("Underscore" ?_ (?_)))) - (dolist (elt defs) - (maybe-define-category (cadr elt) (car elt) table) - (dolist (ch (car (cddr elt))) - (modify-category-entry ch (cadr elt) table)))) - -(defgroup evil-little-word nil - "CamelCase and snake_case word movement support." - :prefix "evil-little-word-" - :group 'evil) - -(defcustom evil-little-word-separating-categories - (append evil-cjk-word-separating-categories '((?u . ?U) (?_ . ?u) (?_ . ?U))) - "List of pair (cons) of categories to determine word boundary -for little word movement. See the documentation of -`word-separating-categories'. Use `describe-categories' to see -the list of categories." - :type '((character . character)) - :group 'evil-little-word) - -(defcustom evil-little-word-combining-categories - (append evil-cjk-word-combining-categories '()) - "List of pair (cons) of categories to determine word boundary -for little word movement. See the documentation of -`word-combining-categories'. Use `describe-categories' to see the -list of categories." - :type '((character . character)) - :group 'evil-little-word) - -(defmacro evil-with-little-word (&rest body) - (declare (indent defun) (debug t)) - `(let ((evil-cjk-word-separating-categories - evil-little-word-separating-categories) - (evil-cjk-word-combining-categories - evil-little-word-combining-categories)) - ,@body)) - -(defun forward-evil-little-word (&optional count) - "Forward by little words." - (evil-with-little-word (forward-evil-word count))) - -(evil-define-motion evil-forward-little-word-begin (count) - "Move the cursor to the beginning of the COUNT-th next little word." - :type exclusive - (evil-with-little-word (evil-forward-word-begin count))) - -(evil-define-motion evil-forward-little-word-end (count) - "Move the cursor to the end of the COUNT-th next little word." - :type inclusive - (evil-with-little-word (evil-forward-word-end count))) - -(evil-define-motion evil-backward-little-word-begin (count) - "Move the cursor to the beginning of the COUNT-th previous little word." - :type exclusive - (evil-with-little-word (evil-backward-word-begin count))) - -(evil-define-motion evil-backward-little-word-end (count) - "Move the cursor to the end of the COUNT-th previous little word." - :type inclusive - (evil-with-little-word (evil-backward-word-end count))) - -(evil-define-text-object evil-a-little-word (count &optional beg end type) - "Select a little word." - (evil-select-an-object 'evil-little-word beg end type count)) - -(evil-define-text-object evil-inner-little-word (count &optional beg end type) - "Select inner little word." - (evil-select-inner-object 'evil-little-word beg end type count)) - -(define-key evil-motion-state-map (kbd "glw") 'evil-forward-little-word-begin) -(define-key evil-motion-state-map (kbd "glb") 'evil-backward-little-word-begin) -(define-key evil-motion-state-map (kbd "glW") 'evil-forward-little-word-end) -(define-key evil-motion-state-map (kbd "glB") 'evil-backward-little-word-end) -(define-key evil-outer-text-objects-map (kbd "lw") 'evil-a-little-word) -(define-key evil-inner-text-objects-map (kbd "lw") 'evil-inner-little-word) - -(provide 'evil-little-word) -;;; evil-little-word.el ends here diff --git a/init/init-present.el b/init/init-present.el deleted file mode 100644 index 25c2d5e57..000000000 --- a/init/init-present.el +++ /dev/null @@ -1,12 +0,0 @@ -(defconst *big-font (font-spec :family "Inconsolata" :size 18 :antialias t)) - -(defvar big-mode nil) -(defun toggle-big-mode () - (interactive) - (if big-mode - (set-frame-font *default-font) - (set-frame-font *big-font)) - (setq big-mode (not big-mode))) - -(provide 'init-present) -;;; init-present.el ends here diff --git a/themes/v0-theme.el b/themes/v0-theme.el deleted file mode 100644 index d3e31d869..000000000 --- a/themes/v0-theme.el +++ /dev/null @@ -1,159 +0,0 @@ - ;; This program 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 of the License, or -;; (at your option) any later version. - -;; This program 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. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see . - -;; ***************************************************************************************** -;; -;; v0 :- A dark Emacs theme inspired by Space Grey ST2 theme -;; -;; ***************************************************************************************** - -;; -;; By Henrik Lissner -;; - -(deftheme v0 "V-NOUGHT dark theme for Emacs 24+") - - (custom-theme-set-variables 'v0) - - (let (;; (background "#222222") - (background "#2b303b") - ;; (gutters "#262E34") - (gutters "#1f252a") - (gutter-fg "#55616A") - ;; (gutters-active "#2e363c") - (gutters-active "#1c1f26") - (linum "#1e262c") - ;; (gutter-light "#434f58") - (gutter-light "#232830") - (builtin "#d08770") - (foreground "#c0c5ce") - (invisibles "#65737e") - ;; (line-hl "#353539") - (line-hl "#343d46") - (selection "#4f5b66") - (text "#c0c5ce") - (comments "#65737e") - (punctuation "#8fa1b3") - (delimiters "#c0c5ce") - (operators "#c0c5ce") - (keywords "#b48ead") - (variables "#CBECFF") - (functions "#8fa1b3") - (methods "#8fa1b3") - (strings "#a3be8c") - (constants "#d08770") - (white "#ffffff") - (highlight "orange") - (dim-highlight "#556779") - - (git-modified "#55616A") - (git-added "#436b3b") - (git-deleted "#714243")) - - (custom-theme-set-faces - 'v0 - -;; Default colors -;; ***************************************************************************************** - - `(default ((t (:foreground ,text :background ,background) ))) - `(hl-line ((t (:background ,line-hl) ))) - `(region ((t (:background ,selection) ))) - `(cursor ((t (:background ,white) ))) - `(fringe ((t (:background ,background :foreground ,white) ))) - `(linum ((t (:background ,background :foreground ,gutter-fg :weight normal) ))) - - `(vertical-border ((t (:foreground "#000000") ))) - - `(mode-line ((t (:foreground ,white - :background ,gutter-light - :box (:line-width 3 :color ,gutter-light) - )))) - - `(mode-line-inactive ((t (:foreground ,gutter-fg - :background ,gutters-active - :box (:line-width 3 :color ,gutters-active) - )))) - - `(mode-line-modified-face ((t (:foreground ,builtin)))) - - `(sml/folder ((t nil))) - `(sml/modified ((t (:foreground ,highlight)))) - - `(flyspell-incorrect ((t (:underline "#ff5555" :inherit unspecified)))) - - `(helm-source-header ((t (:background ,gutters-active :foreground ,strings :weight bold :height 1.0)))) - `(helm-selection ((t (:background ,selection)))) - -;; Font lock faces -;; ***************************************************************************************** - - `(linum-highlight-face ((t (:foreground ,text :background ,line-hl :inherit linum)))) - - `(font-lock-keyword-face ((t (:foreground ,keywords)))) - `(font-lock-type-face ((t (:foreground ,punctuation)))) - `(font-lock-constant-face ((t (:foreground ,constants)))) - `(font-lock-variable-name-face ((t (:foreground ,variables)))) - `(font-lock-builtin-face ((t (:foreground ,builtin)))) - `(font-lock-string-face ((t (:foreground ,strings)))) - `(font-lock-comment-face ((t (:foreground ,comments)))) - `(font-lock-comment-delimiter-face ((t (:foreground ,comments)))) - `(font-lock-function-name-face ((t (:foreground ,functions)))) - `(font-lock-doc-string-face ((t (:foreground ,comments)))) - `(font-lock-doc-face ((t (:foreground ,comments)))) - - `(trailing-whitespace ((t (:background "#884444")))) - `(whitespace-tab ((t (:foreground "#444444")))) - `(whitespace-newline ((t (:foreground "#444444")))) - `(whitespace-trailing ((t (:background "#553333")))) - - `(git-gutter+-modified ((t (:foreground ,git-modified :background nil)))) - `(git-gutter+-added ((t (:foreground ,git-added :background nil)))) - `(git-gutter+-deleted ((t (:foreground ,git-deleted :background nil)))) - - `(diff-hl-change ((t (:background ,git-modified)))) - `(diff-hl-delete ((t (:background ,git-deleted)))) - `(diff-hl-insert ((t (:background ,git-added)))) - - `(rainbow-delimiters-unmatched-face ((t (:inherit 'error)))) - `(rainbow-delimiters-depth-1-face ((t (:foreground "#CCCCCC" :weight bold :bold t)))) - -;; js2-mode -;; ***************************************************************************************** - - `(js2-function-param ((t (:foreground ,variables)))) - `(js2-jsdoc-tag ((t (:foreground ,comments :weight bold :bold t)))) - - -;; ***************************************************************************************** - - `(persp-selected-face ((t (:foreground ,builtin)))) - - `(org-level-1 ((t (:inherit outline-1 :bold t :foreground ,git-added)))) - `(org-level-2 ((t (:inherit outline-2 :bold t :foreground ,variables)))) - - `(evil-snipe-first-match-face ((t (:background ,highlight :foreground "black" :underline nil)))) - `(evil-snipe-matches-face ((t (:foreground ,highlight :background "gray20" :underline t)))) - `(isearch ((t (:foreground "black" :background ,highlight :inverse-video nil)))) - `(isearch-lazy-highlight-face ((t (:foreground ,text :background ,dim-highlight)))) - - )) - - -;; ***************************************************************************************** - -(provide-theme 'v0) - -;; Local Variables: -;; no-byte-compile: t -;; End: