No known key found for this signature in database
GPG Key ID: A2ECAB73CE12147F
399 changed files with 8472 additions and 2340 deletions
Split View
Diff Options
-
+1 -0emacs.d/.gitignore
-
+18 -1emacs.d/.travis-build.sh
-
+5 -4emacs.d/.travis.yml
-
+227 -15emacs.d/CHANGELOG.org
-
+14 -5emacs.d/CONTRIBUTING.org
-
+8 -1emacs.d/README.md
-
+1 -1emacs.d/core/aprilfool/zemacs.el
-
+1 -1emacs.d/core/core-command-line.el
-
+355 -128emacs.d/core/core-configuration-layer.el
-
+156 -1emacs.d/core/core-debug.el
-
+1 -1emacs.d/core/core-display-init.el
-
+1 -1emacs.d/core/core-documentation.el
-
+32 -15emacs.d/core/core-dotspacemacs.el
-
+1 -1emacs.d/core/core-emacs-backports.el
-
+1 -1emacs.d/core/core-fonts-support.el
-
+20 -9emacs.d/core/core-funcs.el
-
+16 -3emacs.d/core/core-jump.el
-
+5 -5emacs.d/core/core-keybindings.el
-
+8 -2emacs.d/core/core-load-paths.el
-
+1 -1emacs.d/core/core-micro-state.el
-
+1 -1emacs.d/core/core-release-management.el
-
+494 -433emacs.d/core/core-spacemacs-buffer.el
-
+42 -161emacs.d/core/core-spacemacs.el
-
+195 -143emacs.d/core/core-themes-support.el
-
+1 -1emacs.d/core/core-toggle.el
-
+1 -1emacs.d/core/core-transient-state.el
-
+2 -2emacs.d/core/core-use-package-ext.el
-
+6 -0emacs.d/core/info/quickhelp.txt
-
+1 -1emacs.d/core/info/release-notes/0.102.txt
-
+12 -0emacs.d/core/info/release-notes/0.200.9.txt
-
+20 -0emacs.d/core/info/release-notes/af-2.01.txt
-
+2 -2emacs.d/core/libs/ht.el
-
+360 -0emacs.d/core/libs/ido-vertical-mode.el
-
+1536 -0emacs.d/core/libs/package-build.el
-
+654 -0emacs.d/core/libs/quelpa.el
-
+161 -0emacs.d/core/libs/spacemacs-theme/README.md
-
+786 -0emacs.d/core/libs/spacemacs-theme/spacemacs-common.el
-
+7 -0emacs.d/core/libs/spacemacs-theme/spacemacs-dark-theme.el
-
+7 -0emacs.d/core/libs/spacemacs-theme/spacemacs-light-theme.el
-
+12 -2emacs.d/core/templates/.spacemacs.template
-
+1 -1emacs.d/core/templates/packages.el.template
-
+2 -2emacs.d/core/tools/spacefmt/spacefmt.el
-
+1 -1emacs.d/core/tools/spacefmt/tests/config.el
-
+330 -0emacs.d/doc/BEGINNERS_TUTORIAL.org
-
+5 -3emacs.d/doc/CONVENTIONS.org
-
+146 -41emacs.d/doc/DOCUMENTATION.org
-
+7 -1emacs.d/doc/FAQ.org
-
+12 -5emacs.d/doc/LAYERS.org
-
+3 -3emacs.d/doc/QUICK_START.org
-
+28 -13emacs.d/doc/VIMUSERS.org
-
+6 -7emacs.d/init.el
-
+1 -1emacs.d/layers/+chat/erc/README.org
-
+1 -1emacs.d/layers/+chat/erc/config.el
-
+1 -1emacs.d/layers/+chat/erc/funcs.el
-
+1 -1emacs.d/layers/+chat/erc/local/erc-sasl/erc-sasl.el
-
+1 -1emacs.d/layers/+chat/erc/packages.el
-
+1 -1emacs.d/layers/+chat/jabber/funcs.el
-
+1 -1emacs.d/layers/+chat/jabber/packages.el
-
+1 -1emacs.d/layers/+chat/rcirc/config.el
-
+1 -1emacs.d/layers/+chat/rcirc/funcs.el
-
+1 -1emacs.d/layers/+chat/slack/README.org
-
+1 -1emacs.d/layers/+chat/slack/packages.el
-
+1 -1emacs.d/layers/+checkers/spell-checking/README.org
-
+1 -1emacs.d/layers/+checkers/spell-checking/config.el
-
+1 -1emacs.d/layers/+checkers/spell-checking/funcs.el
-
+13 -4emacs.d/layers/+checkers/spell-checking/packages.el
-
+3 -3emacs.d/layers/+checkers/syntax-checking/README.org
-
+1 -1emacs.d/layers/+checkers/syntax-checking/config.el
-
+1 -1emacs.d/layers/+checkers/syntax-checking/funcs.el
-
+1 -1emacs.d/layers/+checkers/syntax-checking/packages.el
-
+7 -7emacs.d/layers/+completion/auto-completion/README.org
-
+1 -1emacs.d/layers/+completion/auto-completion/config.el
-
+2 -2emacs.d/layers/+completion/auto-completion/funcs.el
-
+5 -1emacs.d/layers/+completion/auto-completion/packages.el
-
+10 -1emacs.d/layers/+completion/helm/funcs.el
-
+85 -0emacs.d/layers/+completion/helm/local/helm-spacemacs-help/helm-spacemacs-faq.el
-
+5 -59emacs.d/layers/+completion/helm/local/helm-spacemacs-help/helm-spacemacs-help.el
-
+23 -22emacs.d/layers/+completion/helm/packages.el
-
+2 -2emacs.d/layers/+completion/ivy/config.el
-
+8 -1emacs.d/layers/+completion/ivy/funcs.el
-
+1 -1emacs.d/layers/+completion/ivy/layers.el
-
+2 -7emacs.d/layers/+completion/ivy/local/ivy-spacemacs-help/ivy-spacemacs-help.el
-
+7 -3emacs.d/layers/+completion/ivy/packages.el
-
+3 -4emacs.d/layers/+distributions/spacemacs-base/config.el
-
+242 -50emacs.d/layers/+distributions/spacemacs-base/funcs.el
-
+106 -37emacs.d/layers/+distributions/spacemacs-base/keybindings.el
-
+1 -1emacs.d/layers/+distributions/spacemacs-base/local/centered-buffer-mode/centered-buffer-mode.el
-
+7 -7emacs.d/layers/+distributions/spacemacs-base/local/evil-evilified-state/evil-evilified-state.el
-
+1 -1emacs.d/layers/+distributions/spacemacs-base/local/holy-mode/holy-mode.el
-
+1 -1emacs.d/layers/+distributions/spacemacs-base/local/hybrid-mode/hybrid-mode.el
-
+22 -13emacs.d/layers/+distributions/spacemacs-base/packages.el
-
+1 -1emacs.d/layers/+distributions/spacemacs-bootstrap/config.el
-
+1 -1emacs.d/layers/+distributions/spacemacs-bootstrap/funcs.el
-
+16 -6emacs.d/layers/+distributions/spacemacs-bootstrap/packages.el
-
+6 -1emacs.d/layers/+distributions/spacemacs/layers.el
-
+1 -1emacs.d/layers/+emacs/better-defaults/config.el
-
+1 -12emacs.d/layers/+emacs/better-defaults/funcs.el
-
+1 -2emacs.d/layers/+emacs/better-defaults/keybindings.el
-
+10 -2emacs.d/layers/+emacs/better-defaults/packages.el
-
+16 -5emacs.d/layers/+emacs/ibuffer/README.org
+ 1
- 0
emacs.d/.gitignore
View File
+ 18
- 1
emacs.d/.travis-build.sh
View File
+ 5
- 4
emacs.d/.travis.yml
View File
+ 227
- 15
emacs.d/CHANGELOG.org
View File
+ 14
- 5
emacs.d/CONTRIBUTING.org
View File
+ 8
- 1
emacs.d/README.md
View File
+ 1
- 1
emacs.d/core/aprilfool/zemacs.el
View File
+ 1
- 1
emacs.d/core/core-command-line.el
View File
+ 355
- 128
emacs.d/core/core-configuration-layer.el
View File
+ 156
- 1
emacs.d/core/core-debug.el
View File
+ 1
- 1
emacs.d/core/core-display-init.el
View File
+ 1
- 1
emacs.d/core/core-documentation.el
View File
+ 32
- 15
emacs.d/core/core-dotspacemacs.el
View File
+ 1
- 1
emacs.d/core/core-emacs-backports.el
View File
+ 1
- 1
emacs.d/core/core-fonts-support.el
View File
+ 20
- 9
emacs.d/core/core-funcs.el
View File
+ 16
- 3
emacs.d/core/core-jump.el
View File
+ 5
- 5
emacs.d/core/core-keybindings.el
View File
+ 8
- 2
emacs.d/core/core-load-paths.el
View File
+ 1
- 1
emacs.d/core/core-micro-state.el
View File
+ 1
- 1
emacs.d/core/core-release-management.el
View File
+ 494
- 433
emacs.d/core/core-spacemacs-buffer.el
File diff suppressed because it is too large
View File
+ 42
- 161
emacs.d/core/core-spacemacs.el
View File
+ 195
- 143
emacs.d/core/core-themes-support.el
View File
+ 1
- 1
emacs.d/core/core-toggle.el
View File
+ 1
- 1
emacs.d/core/core-transient-state.el
View File
+ 2
- 2
emacs.d/core/core-use-package-ext.el
View File
+ 6
- 0
emacs.d/core/info/quickhelp.txt
View File
+ 1
- 1
emacs.d/core/info/release-notes/0.102.txt
View File
+ 12
- 0
emacs.d/core/info/release-notes/0.200.9.txt
View File
| @ -0,0 +1,12 @@ | |||
| Spacemacs at your fingertips... in your browser! | |||
| Thanks to @JAremko's wonderful work, it is now possible to try out Spacemacs in | |||
| the browser. | |||
| Try it on your phone and be amazed that even without any modifier you can still | |||
| use Emacs thanks to the 'spacebar' and 'fd' available on any touch keyboard. | |||
| We are looking into useful applications of this feature, if you want to share some | |||
| ideas you can post on https://github.com/syl20bnr/spacemacs/issues/8634 :heart: | |||
| Go to http://spacemacs.org to test it now! | |||
+ 20
- 0
emacs.d/core/info/release-notes/af-2.01.txt
View File
| @ -0,0 +1,20 @@ | |||
| Spacemacs at your fingertips... in your browser! | |||
| You are not dreaming, this is not an alien technology coming from the futur. | |||
| Spacemacs has been ported to the WEB! | |||
| Better than that, our technology flawlessly compiles Emacs Lisp on the fly to | |||
| Javascript thanks to the last version of our transpiler. Yes! This very same | |||
| transpiler which was capable to transpile Emacs Lisp to Vimscript, except Java | |||
| is better than Vim so we decided to go nuts and support the supperior | |||
| Javascript. | |||
| Spacemacs can benefit from all the candies provided by a WEB browser like being | |||
| able to run on any device supporting a decent browser, try it on your phone and | |||
| be amazed that even without any modifier you can still use Emacs thanks to the | |||
| 'spacebar' and 'fd' or not... | |||
| Now Spacemacs can really be like all the cool kids. | |||
| Go to http://spacemacs.org to test it NOW! | |||
+ 2
- 2
emacs.d/core/libs/ht.el
View File
+ 360
- 0
emacs.d/core/libs/ido-vertical-mode.el
View File
| @ -0,0 +1,360 @@ | |||
| ;;; ido-vertical-mode.el --- Makes ido-mode display vertically. | |||
| ;; Copyright (C) 2013, 2014 Steven Degutis | |||
| ;; Author: Steven Degutis | |||
| ;; Maintainer: Christopher Reichert <creichert07@gmail.com> | |||
| ;; Version: 1.0.0 | |||
| ;; Package-Version: 20160429.1037 | |||
| ;; Keywords: convenience | |||
| ;; URL: https://github.com/creichert/ido-vertical-mode.el | |||
| ;; 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 <http://www.gnu.org/licenses/>. | |||
| ;;; Commentary: | |||
| ;; Makes ido-mode display prospects vertically | |||
| ;;; Code: | |||
| (require 'ido) | |||
| ;;; The following three variables and their comments are lifted | |||
| ;;; directly from `ido.el'; they are defined here to avoid compile-log | |||
| ;;; warnings. See `ido.el' for more information. | |||
| ;; Non-nil if we should add [confirm] to prompt | |||
| (defvar ido-show-confirm-message) | |||
| ;; Remember if current directory is non-readable (so we cannot do completion). | |||
| (defvar ido-directory-nonreadable) | |||
| ;; Remember if current directory is 'huge' (so we don't want to do completion). | |||
| (defvar ido-directory-too-big) | |||
| (defcustom ido-vertical-indicator "->" | |||
| "Indicator displayed next to the candidate that will be selected." | |||
| :type 'string | |||
| :group 'ido-vertical-mode) | |||
| (defvar ido-vertical-decorations | |||
| `(,(format "\n%s " ido-vertical-indicator) ; left bracket around prospect list | |||
| "" ; right bracket around prospect list | |||
| "\n " ; separator between prospects, depends on `ido-separator` | |||
| "\n ..." ; inserted at the end of a truncated list of prospects | |||
| "[" ; left bracket around common match string | |||
| "]" ; right bracket around common match string | |||
| " [No match]" | |||
| " [Matched]" | |||
| " [Not readable]" | |||
| " [Too big]" | |||
| " [Confirm]" | |||
| ,(format "\n%s " ido-vertical-indicator) ; left bracket around the sole remaining completion | |||
| "" ; right bracket around the sole remaining completion | |||
| ) | |||
| "Changing the decorations does most of the work for ido-vertical | |||
| This sets up newlines and arrows before, between, and after the | |||
| prospects. For additional information, see `ido-decorations'.") | |||
| (defvar ido-vertical-old-decorations nil | |||
| "The original `ido-decorations' variable | |||
| We need to keep track of the original value so we can restore it | |||
| when turning `ido-vertical-mode' off") | |||
| (defvar ido-vertical-old-completions nil | |||
| "The original `ido-completions' function | |||
| We need to keep track of the original value of `ido-completions' | |||
| so we can restore it when turning `ido-vertical-mode' off") | |||
| (defgroup ido-vertical-mode nil | |||
| "Make ido behave vertically." | |||
| :group 'ido) | |||
| (defcustom ido-vertical-show-count nil | |||
| "Non nil means show the count of candidates while completing." | |||
| :type 'boolean | |||
| :group 'ido-vertical-mode) | |||
| (defvar ido-vertical-count-active nil | |||
| "Used internally to track whether we're already showing the count") | |||
| (defcustom ido-vertical-define-keys nil | |||
| "Defines which keys that `ido-vertical-mode' redefines." | |||
| :type '(choice | |||
| (const :tag "Keep default ido keys." nil) | |||
| (const :tag "C-p and C-n are up & down in match" C-n-and-C-p-only) | |||
| (const :tag "C-p/up and C-n/down are up and down in match." C-n-C-p-up-and-down) | |||
| (const :tag "C-p/up, C-n/down are up/down in match. left or right cycle history or directory." C-n-C-p-up-down-left-right)) | |||
| :group 'ido-vertical-mode) | |||
| (defcustom ido-vertical-pad-list t | |||
| "Non nil means to pad the list of candidates to ensure the minibuffer area is always tall" | |||
| :type 'boolean | |||
| :group 'ido-vertical-mode) | |||
| (defcustom ido-vertical-disable-if-short nil | |||
| "Non nil means that ido will go back to horizontal mode if the candidates all fit in the minibuffer area" | |||
| :type 'boolean | |||
| :group 'ido-vertical-mode) | |||
| (defface ido-vertical-first-match-face | |||
| '((t (:inherit ido-first-match))) | |||
| "Face used by Ido Vertical for highlighting first match." | |||
| :group 'ido-vertical-mode) | |||
| (defface ido-vertical-only-match-face | |||
| '((t (:inherit ido-only-match))) | |||
| "Face used by Ido Vertical for highlighting only match." | |||
| :group 'ido-vertical-mode) | |||
| (defface ido-vertical-match-face | |||
| '((t (:inherit font-lock-variable-name-face :bold t :underline t))) | |||
| "Face used by Ido Vertical for the matched part." | |||
| :group 'ido-vertical-mode) | |||
| (defun ido-vertical-or-horizontal-completions (name) | |||
| (if (and ido-vertical-disable-if-short | |||
| (<= (length ido-matches) ido-max-prospects)) | |||
| (let ((short-result | |||
| (let ((ido-decorations ido-vertical-old-decorations)) | |||
| (funcall ido-vertical-old-completions name)))) | |||
| (if (>= (window-body-width (minibuffer-window)) | |||
| (+ (minibuffer-prompt-width) | |||
| (length short-result))) | |||
| short-result | |||
| (ido-vertical-completions name))) | |||
| (ido-vertical-completions name))) | |||
| ;; borrowed from ido.el and modified to work better when vertical | |||
| (defun ido-vertical-completions (name) | |||
| ;; Return the string that is displayed after the user's text. | |||
| ;; Modified from `icomplete-completions'. | |||
| (let* ((comps ido-matches) | |||
| (ind (and (consp (car comps)) (> (length (cdr (car comps))) 1) | |||
| ido-merged-indicator)) | |||
| (lencomps (length comps)) | |||
| (additional-items-indicator (nth 3 ido-decorations)) | |||
| (comps-empty (null comps)) | |||
| (ncomps lencomps) | |||
| first) | |||
| ;; Keep the height of the suggestions list constant by padding | |||
| ;; when lencomps is too small. Also, if lencomps is too short, we | |||
| ;; should not indicate that there are additional prospects. | |||
| (when (< lencomps (1+ ido-max-prospects)) | |||
| (setq additional-items-indicator "\n") | |||
| (when ido-vertical-pad-list | |||
| (setq comps (append comps (make-list (- (1+ ido-max-prospects) lencomps) ""))) | |||
| (setq ncomps (length comps)))) | |||
| (if (not ido-incomplete-regexp) | |||
| (when ido-use-faces | |||
| ;; Make a copy of [ido-matches], otherwise the selected string | |||
| ;; could contain text properties which could lead to weird | |||
| ;; artifacts, e.g. buffer-file-name having text properties. | |||
| (when (eq comps ido-matches) | |||
| (setq comps (copy-sequence ido-matches))) | |||
| (dotimes (i ncomps) | |||
| (let ((comps-i (nth i comps))) | |||
| (setf comps-i | |||
| (setf (nth i comps) (substring (if (listp comps-i) | |||
| (car comps-i) | |||
| comps-i) | |||
| 0))) | |||
| (when (string-match (if ido-enable-regexp name (regexp-quote name)) comps-i) | |||
| (ignore-errors | |||
| (add-face-text-property (match-beginning 0) | |||
| (match-end 0) | |||
| 'ido-vertical-match-face | |||
| nil comps-i))))))) | |||
| (if (and ind ido-use-faces) | |||
| (put-text-property 0 1 'face 'ido-indicator ind)) | |||
| (when ido-vertical-show-count | |||
| (setcar ido-vertical-decorations (format " [%d]\n%s " lencomps ido-vertical-indicator)) | |||
| (setq ido-vertical-count-active t)) | |||
| (when (and (not ido-vertical-show-count) | |||
| ido-vertical-count-active) | |||
| (setcar ido-vertical-decorations (format "\n%s "ido-vertical-indicator)) | |||
| (setq ido-vertical-count-active nil)) | |||
| (if (and ido-use-faces comps) | |||
| (let* ((fn (ido-name (car comps))) | |||
| (ln (length fn))) | |||
| (setq first (format "%s" fn)) | |||
| (if (fboundp 'add-face-text-property) | |||
| (add-face-text-property 0 (length first) | |||
| (cond ((> lencomps 1) | |||
| 'ido-vertical-first-match-face) | |||
| (ido-incomplete-regexp | |||
| 'ido-incomplete-regexp) | |||
| (t | |||
| 'ido-vertical-only-match-face)) | |||
| nil first) | |||
| (put-text-property 0 ln 'face | |||
| (if (= lencomps 1) | |||
| (if ido-incomplete-regexp | |||
| 'ido-incomplete-regexp | |||
| 'ido-vertical-only-match-face) | |||
| 'ido-vertical-first-match-face) | |||
| first)) | |||
| (if ind (setq first (concat first ind))) | |||
| (setq comps (cons first (cdr comps))))) | |||
| ;; Previously we'd check null comps to see if the list was | |||
| ;; empty. We pad the list with empty items to keep the list at a | |||
| ;; constant height, so we have to check if the entire list is | |||
| ;; empty, instead of (null comps) | |||
| (cond (comps-empty | |||
| (cond | |||
| (ido-show-confirm-message | |||
| (or (nth 10 ido-decorations) " [Confirm]")) | |||
| (ido-directory-nonreadable | |||
| (or (nth 8 ido-decorations) " [Not readable]")) | |||
| (ido-directory-too-big | |||
| (or (nth 9 ido-decorations) " [Too big]")) | |||
| (ido-report-no-match | |||
| (nth 6 ido-decorations)) ;; [No match] | |||
| (t ""))) | |||
| (ido-incomplete-regexp | |||
| (concat " " (car comps))) | |||
| ((null (cdr comps)) ;one match | |||
| (concat (concat (nth 11 ido-decorations) ;; [ ... ] | |||
| (ido-name (car comps)) | |||
| (nth 12 ido-decorations)) | |||
| (if (not ido-use-faces) (nth 7 ido-decorations)))) ;; [Matched] | |||
| (t ;multiple matches | |||
| (let* ((items (if (> ido-max-prospects 0) (1+ ido-max-prospects) 999)) | |||
| (alternatives | |||
| (apply | |||
| #'concat | |||
| (cdr (apply | |||
| #'nconc | |||
| (mapcar | |||
| (lambda (com) | |||
| (setq com (ido-name com)) | |||
| (setq items (1- items)) | |||
| (cond | |||
| ((< items 0) ()) | |||
| ((= items 0) (list additional-items-indicator)) ; " | ..." | |||
| (t | |||
| (list (nth 2 ido-decorations) ; " | " | |||
| (let ((str (substring com 0))) | |||
| (if (and ido-use-faces | |||
| (not (string= str first)) | |||
| (ido-final-slash str)) | |||
| (put-text-property 0 (length str) 'face 'ido-subdir str)) | |||
| str))))) | |||
| comps)))))) | |||
| (concat | |||
| ;; put in common completion item -- what you get by pressing tab | |||
| (if (and (stringp ido-common-match-string) | |||
| (> (length ido-common-match-string) (length name))) | |||
| (concat (nth 4 ido-decorations) ;; [ ... ] | |||
| (substring ido-common-match-string (length name)) | |||
| (nth 5 ido-decorations))) | |||
| ;; list all alternatives | |||
| (nth 0 ido-decorations) ;; { ... } | |||
| alternatives | |||
| (nth 1 ido-decorations))))))) | |||
| (defun ido-vertical-disable-line-truncation () | |||
| "Prevent the newlines in the minibuffer from being truncated" | |||
| (set (make-local-variable 'truncate-lines) nil)) | |||
| (defun turn-on-ido-vertical () | |||
| (if (and (eq nil ido-vertical-old-decorations) | |||
| (eq nil ido-vertical-old-completions)) | |||
| (progn | |||
| (setq ido-vertical-old-decorations ido-decorations) | |||
| (setq ido-vertical-old-completions (symbol-function 'ido-completions)))) | |||
| (setq ido-decorations ido-vertical-decorations) | |||
| (fset 'ido-completions 'ido-vertical-or-horizontal-completions) | |||
| (add-hook 'ido-minibuffer-setup-hook 'ido-vertical-disable-line-truncation) | |||
| (add-hook 'ido-setup-hook 'ido-vertical-define-keys)) | |||
| (defun turn-off-ido-vertical () | |||
| (setq ido-decorations ido-vertical-old-decorations) | |||
| (fset 'ido-completions ido-vertical-old-completions) | |||
| (remove-hook 'ido-minibuffer-setup-hook 'ido-vertical-disable-line-truncation) | |||
| (remove-hook 'ido-setup-hook 'ido-vertical-define-keys)) | |||
| (defun ido-vertical-next-match () | |||
| "Call the correct next-match function for right key. | |||
| This is based on: | |||
| - Different functions for completing directories and prior history. | |||
| " | |||
| (interactive) | |||
| (cond | |||
| ((and (boundp 'item) item (eq item 'file)) | |||
| (ido-next-match-dir)) | |||
| (t | |||
| (next-history-element 1)))) | |||
| (defun ido-vertical-prev-match () | |||
| "Call the correct prev-match function for left key. | |||
| This is based on: | |||
| - Different functions for completing directories and prior history. | |||
| " | |||
| (interactive) | |||
| (cond | |||
| ((and (boundp 'item) item (eq item 'file)) | |||
| (ido-prev-match-dir)) | |||
| (t | |||
| (previous-history-element 1)))) | |||
| (defun ido-vertical-define-keys () ;; C-n/p is more intuitive in vertical layout | |||
| (when ido-vertical-define-keys | |||
| (define-key ido-completion-map (kbd "C-n") 'ido-next-match) | |||
| (define-key ido-completion-map (kbd "C-p") 'ido-prev-match) | |||
| (define-key ido-completion-map (kbd "C-c C-t") 'ido-toggle-prefix)) | |||
| (when (memq ido-vertical-define-keys '(C-n-C-p-up-and-down C-n-C-p-up-down-left-right)) | |||
| (define-key ido-completion-map (kbd "<up>") 'ido-prev-match) | |||
| (define-key ido-completion-map (kbd "<down>") 'ido-next-match)) | |||
| (when (eq ido-vertical-define-keys 'C-n-C-p-up-down-left-right) | |||
| (define-key ido-completion-map (kbd "<left>") 'ido-vertical-prev-match) | |||
| (define-key ido-completion-map (kbd "<right>") 'ido-vertical-next-match))) | |||
| ;;;###autoload | |||
| (define-minor-mode ido-vertical-mode | |||
| "Makes ido-mode display vertically." | |||
| :global t | |||
| :group 'ido-vertical-mode | |||
| (if ido-vertical-mode | |||
| (turn-on-ido-vertical) | |||
| (turn-off-ido-vertical))) | |||
| (provide 'ido-vertical-mode) | |||
| ;; Local Variables: | |||
| ;; indent-tabs-mode: nil | |||
| ;; End: | |||
| ;;; ido-vertical-mode.el ends here | |||
+ 1536
- 0
emacs.d/core/libs/package-build.el
File diff suppressed because it is too large
View File
+ 654
- 0
emacs.d/core/libs/quelpa.el
View File
| @ -0,0 +1,654 @@ | |||
| ;;; quelpa.el --- Emacs Lisp packages built directly from source | |||
| ;; Copyright 2014-2015, Steckerhalter | |||
| ;; Copyright 2014-2015, Vasilij Schneidermann <v.schneidermann@gmail.com> | |||
| ;; Author: steckerhalter | |||
| ;; URL: https://github.com/quelpa/quelpa | |||
| ;; Version: 0.0.1 | |||
| ;; Package-Requires: ((package-build "0") (emacs "24.3")) | |||
| ;; Keywords: package management build source elpa | |||
| ;; This file is not part of GNU Emacs. | |||
| ;; 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. | |||
| ;; 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. | |||
| ;;; Commentary: | |||
| ;; Your personal local Emacs Lisp Package Archive (ELPA) with packages | |||
| ;; built on-the-fly directly from source. | |||
| ;; See the README for more info: | |||
| ;; https://github.com/quelpa/quelpa/blob/master/README.md | |||
| ;;; Requirements: | |||
| ;; Emacs 24.3.1 | |||
| ;;; Code: | |||
| (require 'package-build) | |||
| (require 'cl-lib) | |||
| (require 'help-fns) | |||
| (require 'url-parse) | |||
| ;; --- customs / variables --------------------------------------------------- | |||
| (defgroup quelpa nil | |||
| "Build and install packages from source code" | |||
| :group 'package) | |||
| (defcustom quelpa-upgrade-p nil | |||
| "When non-nil, `quelpa' will try to upgrade packages. | |||
| The global value can be overridden for each package by supplying | |||
| the `:upgrade' argument." | |||
| :group 'quelpa | |||
| :type 'boolean) | |||
| (defcustom quelpa-stable-p nil | |||
| "When non-nil, try to build stable packages like MELPA does." | |||
| :group 'quelpa | |||
| :type 'boolean) | |||
| (defcustom quelpa-verbose t | |||
| "When non-nil, `quelpa' prints log messages." | |||
| :group 'quelpa | |||
| :type 'boolean) | |||
| (defcustom quelpa-before-hook nil | |||
| "List of functions to be called before quelpa." | |||
| :group 'quelpa | |||
| :type 'hook) | |||
| (defcustom quelpa-after-hook nil | |||
| "List of functions to be called after quelpa." | |||
| :group 'quelpa | |||
| :type 'hook) | |||
| (defcustom quelpa-dir (expand-file-name "quelpa" user-emacs-directory) | |||
| "Where quelpa builds and stores packages." | |||
| :group 'quelpa | |||
| :type 'string) | |||
| (defcustom quelpa-melpa-dir (expand-file-name "melpa" quelpa-dir) | |||
| "Where the melpa repo cloned to." | |||
| :group 'quelpa | |||
| :type 'string) | |||
| (defcustom quelpa-build-dir (expand-file-name "build" quelpa-dir) | |||
| "Where quelpa builds packages." | |||
| :group 'quelpa | |||
| :type 'string) | |||
| (defcustom quelpa-packages-dir (expand-file-name "packages" quelpa-dir) | |||
| "Where quelpa puts built packages." | |||
| :group 'quelpa | |||
| :type 'string) | |||
| (defcustom quelpa-melpa-recipe-stores (list (expand-file-name | |||
| "recipes" | |||
| quelpa-melpa-dir)) | |||
| "Recipe stores where quelpa finds default recipes for packages. | |||
| A store can either be a string pointing to a directory with | |||
| recipe files or a list with recipes." | |||
| :group 'quelpa | |||
| :type '(repeat | |||
| (choice directory | |||
| (repeat | |||
| :tag "List of recipes" | |||
| (restricted-sexp :tag "Recipe" | |||
| :match-alternatives (listp)))))) | |||
| (defcustom quelpa-persistent-cache-file (expand-file-name "cache" quelpa-dir) | |||
| "Location of the persistent cache file." | |||
| :group 'quelpa | |||
| :type 'string) | |||
| (defcustom quelpa-persistent-cache-p t | |||
| "Non-nil when quelpa's cache is saved on and read from disk." | |||
| :group 'quelpa | |||
| :type 'boolean) | |||
| (defcustom quelpa-checkout-melpa-p t | |||
| "If non-nil the MELPA git repo is cloned when quelpa is initialized." | |||
| :group 'quelpa | |||
| :type 'boolean) | |||
| (defcustom quelpa-update-melpa-p t | |||
| "If non-nil the MELPA git repo is updated when quelpa is initialized. | |||
| If nil the update is disabled and the repo is only updated on | |||
| `quelpa-upgrade' or `quelpa-self-upgrade'." | |||
| :group 'quelpa | |||
| :type 'boolean) | |||
| (defcustom quelpa-melpa-repo-url "https://github.com/melpa/melpa.git" | |||
| "The melpa git repository url." | |||
| :group 'quelpa | |||
| :type 'string) | |||
| (defvar quelpa-initialized-p nil | |||
| "Non-nil when quelpa has been initialized.") | |||
| (defvar quelpa-cache nil | |||
| "The `quelpa' command stores processed pkgs/recipes in the cache.") | |||
| (defvar quelpa-recipe '(quelpa :repo "quelpa/quelpa" :fetcher github) | |||
| "The recipe for quelpa.") | |||
| ;; --- compatibility for legacy `package.el' in Emacs 24.3 ------------------- | |||
| (defun quelpa-setup-package-structs () | |||
| "Setup the struct `package-desc' when not available. | |||
| `package-desc-from-legacy' is provided to convert the legacy | |||
| vector desc into a valid PACKAGE-DESC." | |||
| (unless (functionp 'package-desc-p) | |||
| (cl-defstruct | |||
| (package-desc | |||
| (:constructor | |||
| ;; convert legacy package desc into PACKAGE-DESC | |||
| package-desc-from-legacy | |||
| (pkg-info kind | |||
| &aux | |||
| (name (intern (aref pkg-info 0))) | |||
| (version (version-to-list (aref pkg-info 3))) | |||
| (summary (if (string= (aref pkg-info 2) "") | |||
| "No description available." | |||
| (aref pkg-info 2))) | |||
| (reqs (aref pkg-info 1)) | |||
| (kind kind)))) | |||
| name | |||
| version | |||
| (summary "No description available.") | |||
| reqs | |||
| kind | |||
| archive | |||
| dir | |||
| extras | |||
| signed))) | |||
| ;; --- package building ------------------------------------------------------ | |||
| (defun quelpa-package-type (file) | |||
| "Determine the package type of FILE. | |||
| Return `tar' for tarball packages, `single' for single file | |||
| packages, or nil, if FILE is not a package." | |||
| (let ((ext (file-name-extension file))) | |||
| (cond | |||
| ((string= ext "tar") 'tar) | |||
| ((string= ext "el") 'single) | |||
| (:else nil)))) | |||
| (defun quelpa-get-package-desc (file) | |||
| "Extract and return the PACKAGE-DESC struct from FILE. | |||
| On error return nil." | |||
| (let* ((kind (quelpa-package-type file)) | |||
| (desc (with-demoted-errors "Error getting PACKAGE-DESC: %s" | |||
| (with-temp-buffer | |||
| (pcase kind | |||
| (`single (insert-file-contents file) | |||
| (package-buffer-info)) | |||
| (`tar (insert-file-contents-literally file) | |||
| (tar-mode) | |||
| (if (help-function-arglist 'package-tar-file-info) | |||
| ;; legacy `package-tar-file-info' requires an arg | |||
| (package-tar-file-info file) | |||
| (with-no-warnings (package-tar-file-info))))))))) | |||
| (pcase desc | |||
| ((pred package-desc-p) desc) | |||
| ((pred vectorp) (package-desc-from-legacy desc kind))))) | |||
| (defun quelpa-archive-file-name (archive-entry) | |||
| "Return the path of the file in which the package for ARCHIVE-ENTRY is stored." | |||
| (let* ((name (car archive-entry)) | |||
| (pkg-info (cdr archive-entry)) | |||
| (version (package-version-join (aref pkg-info 0))) | |||
| (flavour (aref pkg-info 3))) | |||
| (expand-file-name | |||
| (format "%s-%s.%s" name version (if (eq flavour 'single) "el" "tar")) | |||
| quelpa-packages-dir))) | |||
| (defun quelpa-version>-p (name version) | |||
| "Return non-nil if VERSION of pkg with NAME is newer than what is currently installed." | |||
| (not (or (not version) | |||
| (let ((pkg-desc (cdr (assq name package-alist)))) | |||
| (and pkg-desc | |||
| (version-list-<= | |||
| (version-to-list version) | |||
| (if (functionp 'package-desc-vers) | |||
| (package-desc-vers pkg-desc) ;old implementation | |||
| (package-desc-version (car pkg-desc)))))) | |||
| ;; Also check built-in packages. | |||
| (package-built-in-p name (version-to-list version))))) | |||
| (defun quelpa-checkout (rcp dir) | |||
| "Return the version of the new package given a RCP. | |||
| Return nil if the package is already installed and should not be upgraded." | |||
| (pcase-let ((`(,name . ,config) rcp) | |||
| (package-build-stable quelpa-stable-p)) | |||
| (unless (or (and (assq name package-alist) (not quelpa-upgrade-p)) | |||
| (and (not config) | |||
| (quelpa-message t "no recipe found for package `%s'" name))) | |||
| (let ((version (condition-case err | |||
| (package-build-checkout name config dir) | |||
| (error (quelpa-message t | |||
| "failed to checkout `%s': `%s'" | |||
| name | |||
| (error-message-string err)) | |||
| nil)))) | |||
| (when (quelpa-version>-p name version) | |||
| version))))) | |||
| (defun quelpa-build-package (rcp) | |||
| "Build a package from the given recipe RCP. | |||
| Uses the `package-build' library to get the source code and build | |||
| an elpa compatible package in `quelpa-build-dir' storing it in | |||
| `quelpa-packages-dir'. Return the path to the created file or nil | |||
| if no action is necessary (like when the package is installed | |||
| already and should not be upgraded etc)." | |||
| (let* ((name (car rcp)) | |||
| (build-dir (expand-file-name (symbol-name name) quelpa-build-dir)) | |||
| (version (quelpa-checkout rcp build-dir))) | |||
| (when version | |||
| (quelpa-archive-file-name | |||
| (package-build-package (symbol-name name) | |||
| version | |||
| (package-build--config-file-list (cdr rcp)) | |||
| build-dir | |||
| quelpa-packages-dir))))) | |||
| ;; --- package-build.el integration ------------------------------------------ | |||
| (defun quelpa-file-version (file-path type version time-stamp) | |||
| "Return version of file at FILE-PATH." | |||
| (if (eq type 'directory) | |||
| time-stamp | |||
| (cl-letf* ((package-strip-rcs-id-orig (symbol-function 'package-strip-rcs-id)) | |||
| ((symbol-function 'package-strip-rcs-id) | |||
| (lambda (str) | |||
| (or (funcall package-strip-rcs-id-orig (lm-header "package-version")) | |||
| (funcall package-strip-rcs-id-orig (lm-header "version")) | |||
| "0")))) | |||
| (concat (mapconcat | |||
| #'number-to-string | |||
| (package-desc-version (quelpa-get-package-desc file-path)) ".") | |||
| (pcase version | |||
| (`original "") | |||
| (_ (concat "pre0." time-stamp))))))) | |||
| (defun quelpa-directory-files (path) | |||
| "Return list of directory files from PATH recursively." | |||
| (let ((result '())) | |||
| (mapc | |||
| (lambda (file) | |||
| (if (file-directory-p file) | |||
| (progn | |||
| ;; When directory is not empty. | |||
| (when (cddr (directory-files file)) | |||
| (dolist (subfile (quelpa-directory-files file)) | |||
| (add-to-list 'result subfile)))) | |||
| (add-to-list 'result file))) | |||
| (mapcar | |||
| (lambda (file) (expand-file-name file path)) | |||
| ;; Without first two entries because they are always "." and "..". | |||
| (cddr (directory-files path)))) | |||
| result)) | |||
| (defun quelpa-expand-source-file-list (file-path config) | |||
| "Return list of source files from FILE-PATH corresponding to | |||
| CONFIG." | |||
| (let ((source-files | |||
| (mapcar | |||
| (lambda (file) (expand-file-name file file-path)) | |||
| (package-build--expand-source-file-list file-path config)))) | |||
| ;; Replace any directories in the source file list with the filenames of the | |||
| ;; files they contain (so that these files can subsequently be hashed). | |||
| (dolist (file source-files source-files) | |||
| (when (file-directory-p file) | |||
| (setq source-files (remove file source-files)) | |||
| (setq source-files (append source-files | |||
| (quelpa-directory-files file))))))) | |||
| (defun quelpa-slurp-file (file) | |||
| "Return the contents of FILE as a string, or nil if no such | |||
| file exists." | |||
| (when (file-exists-p file) | |||
| (with-temp-buffer | |||
| (set-buffer-multibyte nil) | |||
| (setq-local buffer-file-coding-system 'binary) | |||
| (insert-file-contents-literally file) | |||
| (buffer-substring-no-properties (point-min) (point-max))))) | |||
| (defun quelpa-check-hash (name config file-path dir &optional fetcher) | |||
| "Check if hash of FILE-PATH is different as in STAMP-FILE. | |||
| If it is different save the new hash and timestamp to STAMP-FILE | |||
| and return TIME-STAMP, otherwise return OLD-TIME-STAMP." | |||
| (unless (file-directory-p dir) | |||
| (make-directory dir)) | |||
| (let* (files | |||
| hashes | |||
| new-stamp-info | |||
| new-content-hash | |||
| (time-stamp | |||
| (replace-regexp-in-string "\\.0" "." (format-time-string "%Y%m%d.%H%M%S"))) | |||
| (stamp-file (concat (expand-file-name (symbol-name name) dir) ".stamp")) | |||
| (old-stamp-info (package-build--read-from-file stamp-file)) | |||
| (old-content-hash (cdr old-stamp-info)) | |||
| (old-time-stamp (car old-stamp-info)) | |||
| (type (if (file-directory-p file-path) 'directory 'file)) | |||
| (version (plist-get config :version))) | |||
| (if (not (file-exists-p file-path)) | |||
| (error (quelpa-message t "`%s' does not exist" file-path)) | |||
| (if (eq type 'directory) | |||
| (setq files (quelpa-expand-source-file-list file-path config) | |||
| hashes (mapcar | |||
| (lambda (file) | |||
| (secure-hash | |||
| 'sha1 (concat file (quelpa-slurp-file file)))) files) | |||
| new-content-hash (secure-hash 'sha1 (mapconcat 'identity hashes ""))) | |||
| (setq new-content-hash (secure-hash 'sha1 (quelpa-slurp-file file-path))))) | |||
| (setq new-stamp-info (cons time-stamp new-content-hash)) | |||
| (if (and old-content-hash | |||
| (string= new-content-hash old-content-hash)) | |||
| (quelpa-file-version file-path type version old-time-stamp) | |||
| (unless (eq fetcher 'url) | |||
| (delete-directory dir t) | |||
| (make-directory dir) | |||
| (if (eq type 'file) | |||
| (copy-file file-path dir t t t t) | |||
| (copy-directory file-path dir t t t))) | |||
| (package-build--dump new-stamp-info stamp-file) | |||
| (quelpa-file-version file-path type version time-stamp)))) | |||
| (defun package-build--checkout-file (name config dir) | |||
| "Build according to a PATH with config CONFIG into DIR as NAME. | |||
| Generic local file handler for package-build.el. | |||
| Handles the following cases: | |||
| local file: | |||
| Installs a single-file package from a local file. Use the :path | |||
| attribute with a PATH like \"/path/to/file.el\". | |||
| local directory: | |||
| Installs a multi-file package from a local directory. Use | |||
| the :path attribute with a PATH like \"/path/to/dir\"." | |||
| (quelpa-check-hash name config (expand-file-name (plist-get config :path)) dir)) | |||
| (defun package-build--checkout-url (name config dir) | |||
| "Build according to an URL with config CONFIG into DIR as NAME. | |||
| Generic URL handler for package-build.el. | |||
| Handles the following cases: | |||
| local file: | |||
| Installs a single-file package from a local file. Use the :url | |||
| attribute with an URL like \"file:///path/to/file.el\". | |||
| remote file: | |||
| Installs a single-file package from a remote file. Use the :url | |||
| attribute with an URL like \"http://domain.tld/path/to/file.el\"." | |||
| (let* ((url (plist-get config :url)) | |||
| (remote-file-name (file-name-nondirectory | |||
| (url-filename (url-generic-parse-url url)))) | |||
| (local-path (expand-file-name remote-file-name dir)) | |||
| (mm-attachment-file-modes (default-file-modes))) | |||
| (unless (string= (file-name-extension url) "el") | |||
| (error (quelpa-message t "<%s> does not end in .el" url))) | |||
| (unless (file-directory-p dir) | |||
| (make-directory dir)) | |||
| (url-copy-file url local-path t) | |||
| (quelpa-check-hash name config local-path dir 'url))) | |||
| ;; --- helpers --------------------------------------------------------------- | |||
| (defun quelpa-message (wait format-string &rest args) | |||
| "Log a message with FORMAT-STRING and ARGS when `quelpa-verbose' is non-nil. | |||
| If WAIT is nil don't wait after showing the message. If it is a | |||
| number, wait so many seconds. If WAIT is t wait the default time. | |||
| Return t in each case." | |||
| (when quelpa-verbose | |||
| (message "Quelpa: %s" (apply 'format format-string args)) | |||
| (when (or (not noninteractive) wait) ; no wait if emacs is noninteractive | |||
| (sit-for (or (and (numberp wait) wait) 1.5) t))) | |||
| t) | |||
| (defun quelpa-read-cache () | |||
| "Read from `quelpa-persistent-cache-file' in `quelpa-cache'." | |||
| (when (and quelpa-persistent-cache-p | |||
| (file-exists-p quelpa-persistent-cache-file)) | |||
| (with-temp-buffer | |||
| (insert-file-contents-literally quelpa-persistent-cache-file) | |||
| (setq quelpa-cache | |||
| (read (buffer-substring-no-properties (point-min) (point-max))))))) | |||
| (defun quelpa-save-cache () | |||
| "Write `quelpa-cache' to `quelpa-persistent-cache-file'." | |||
| (when quelpa-persistent-cache-p | |||
| (let (print-level print-length) | |||
| (with-temp-file quelpa-persistent-cache-file | |||
| (insert (prin1-to-string quelpa-cache)))))) | |||
| (defun quelpa-update-cache (cache-item) | |||
| ;; try removing existing recipes by name | |||
| (setq quelpa-cache (cl-remove (car cache-item) | |||
| quelpa-cache :key #'car)) | |||
| (push cache-item quelpa-cache) | |||
| (setq quelpa-cache | |||
| (cl-sort quelpa-cache #'string< | |||
| :key (lambda (item) (symbol-name (car item)))))) | |||
| (defun quelpa-parse-stable (cache-item) | |||
| ;; in case :stable doesn't originate from PLIST, shadow the | |||
| ;; default value anyways | |||
| (when (plist-member (cdr cache-item) :stable) | |||
| (setq quelpa-stable-p (plist-get (cdr cache-item) :stable))) | |||
| (when (and quelpa-stable-p (not (plist-get (cdr cache-item) :stable))) | |||
| (setf (cdr (last cache-item)) '(:stable t)))) | |||
| (defun quelpa-checkout-melpa () | |||
| "Fetch or update the melpa source code from Github. | |||
| If there is no error return non-nil. | |||
| If there is an error but melpa is already checked out return non-nil. | |||
| If there is an error and no existing checkout return nil." | |||
| (or (and (null quelpa-update-melpa-p) | |||
| (file-exists-p (expand-file-name ".git" quelpa-melpa-dir))) | |||
| (condition-case err | |||
| (package-build--checkout-git | |||
| 'package-build | |||
| `(:url ,quelpa-melpa-repo-url :files ("*")) | |||
| quelpa-melpa-dir) | |||
| (error (quelpa-message t "failed to checkout melpa git repo: `%s'" (error-message-string err)) | |||
| (file-exists-p (expand-file-name ".git" quelpa-melpa-dir)))))) | |||
| (defun quelpa-get-melpa-recipe (name) | |||
| "Read recipe with NAME for melpa git checkout. | |||
| Return the recipe if it exists, otherwise nil." | |||
| (cl-loop for store in quelpa-melpa-recipe-stores | |||
| if (stringp store) | |||
| for file = (assoc-string name (directory-files store nil "^[^\.]+")) | |||
| when file | |||
| return (with-temp-buffer | |||
| (insert-file-contents-literally | |||
| (expand-file-name file store)) | |||
| (read (buffer-string))) | |||
| else | |||
| for rcp = (assoc-string name store) | |||
| when rcp | |||
| return rcp)) | |||
| (defun quelpa-setup-p () | |||
| "Setup what we need for quelpa. | |||
| Return non-nil if quelpa has been initialized properly." | |||
| (catch 'quit | |||
| (dolist (dir (list quelpa-packages-dir quelpa-build-dir)) | |||
| (unless (file-exists-p dir) (make-directory dir t))) | |||
| (unless quelpa-initialized-p | |||
| (quelpa-read-cache) | |||
| (quelpa-setup-package-structs) | |||
| (if quelpa-checkout-melpa-p | |||
| (unless (quelpa-checkout-melpa) (throw 'quit nil))) | |||
| (setq quelpa-initialized-p t)) | |||
| t)) | |||
| (defun quelpa-shutdown () | |||
| "Do things that need to be done after running quelpa." | |||
| (quelpa-save-cache) | |||
| ;; remove the packages dir because we are done with the built pkgs | |||
| (ignore-errors (delete-directory quelpa-packages-dir t))) | |||
| (defun quelpa-arg-rcp (arg) | |||
| "Given recipe or package name, return an alist '(NAME . RCP). | |||
| If RCP cannot be found it will be set to nil" | |||
| (pcase arg | |||
| (`(,a . nil) (quelpa-get-melpa-recipe (car arg))) | |||
| (`(,a . ,_) arg) | |||
| ((pred symbolp) (quelpa-get-melpa-recipe arg)))) | |||
| (defun quelpa-parse-plist (plist) | |||
| "Parse the optional PLIST argument of `quelpa'. | |||
| Recognized keywords are: | |||
| :upgrade | |||
| If t, `quelpa' tries to do an upgrade. | |||
| :stable | |||
| If t, `quelpa' tries building the stable version of a package." | |||
| (while plist | |||
| (let ((key (car plist)) | |||
| (value (cadr plist))) | |||
| (pcase key | |||
| (:upgrade (setq quelpa-upgrade-p value)) | |||
| (:stable (setq quelpa-stable-p value)))) | |||
| (setq plist (cddr plist)))) | |||
| (defun quelpa-package-install-file (file) | |||
| "Workaround problem with `package-install-file'. | |||
| `package-install-file' uses `insert-file-contents-literally' | |||
| which causes problems when the file inserted has crlf line | |||
| endings (Windows). So here we replace that with | |||
| `insert-file-contents' for non-tar files." | |||
| (if (eq system-type 'windows-nt) | |||
| (cl-letf* ((insert-file-contents-literally-orig | |||
| (symbol-function 'insert-file-contents-literally)) | |||
| ((symbol-function 'insert-file-contents-literally) | |||
| (lambda (file) | |||
| (if (string-match "\\.tar\\'" file) | |||
| (funcall insert-file-contents-literally-orig file) | |||
| (insert-file-contents file))))) | |||
| (package-install-file file)) | |||
| (package-install-file file))) | |||
| (defun quelpa-package-install (arg) | |||
| "Build and install package from ARG (a recipe or package name). | |||
| If the package has dependencies recursively call this function to | |||
| install them." | |||
| (let* ((rcp (quelpa-arg-rcp arg)) | |||
| (file (and rcp (quelpa-build-package rcp)))) | |||
| (when file | |||
| (let* ((pkg-desc (quelpa-get-package-desc file)) | |||
| (requires (package-desc-reqs pkg-desc))) | |||
| (when requires | |||
| (mapc (lambda (req) | |||
| (unless (equal 'emacs (car req)) | |||
| (quelpa-package-install (car req)))) | |||
| requires)) | |||
| (quelpa-package-install-file file))))) | |||
| (defun quelpa-interactive-candidate () | |||
| "Query the user for a recipe and return the name." | |||
| (when (quelpa-setup-p) | |||
| (let ((recipes (directory-files | |||
| (expand-file-name "recipes" quelpa-melpa-dir) | |||
| ;; this regexp matches all files except dotfiles | |||
| nil "^[^.].+$"))) | |||
| (intern (completing-read "Choose MELPA recipe: " | |||
| recipes nil t))))) | |||
| ;; --- public interface ------------------------------------------------------ | |||
| ;;;###autoload | |||
| (defun quelpa-expand-recipe (recipe-name) | |||
| "Expand a given recipe name into full recipe. | |||
| If called interactively, let the user choose a recipe name and | |||
| insert the result into the current buffer." | |||
| (interactive (list (quelpa-interactive-candidate))) | |||
| (when (quelpa-setup-p) | |||
| (let* ((recipe (quelpa-get-melpa-recipe recipe-name))) | |||
| (when recipe | |||
| (if (called-interactively-p 'any) | |||
| (prin1 recipe (current-buffer))) | |||
| recipe)))) | |||
| ;;;###autoload | |||
| (defun quelpa-self-upgrade (&optional args) | |||
| "Upgrade quelpa itself. | |||
| ARGS are additional options for the quelpa recipe." | |||
| (interactive) | |||
| (when (quelpa-setup-p) | |||
| (quelpa (append quelpa-recipe args) :upgrade t))) | |||
| ;;;###autoload | |||
| (defun quelpa-upgrade () | |||
| "Upgrade all packages found in `quelpa-cache'. | |||
| This provides an easy way to upgrade all the packages for which | |||
| the `quelpa' command has been run in the current Emacs session." | |||
| (interactive) | |||
| (when (quelpa-setup-p) | |||
| (let ((quelpa-upgrade-p t)) | |||
| (quelpa-self-upgrade) | |||
| (setq quelpa-cache | |||
| (cl-remove-if-not #'package-installed-p quelpa-cache :key #'car)) | |||
| (mapc (lambda (item) | |||
| (when (package-installed-p (car (quelpa-arg-rcp item))) | |||
| (quelpa item))) | |||
| quelpa-cache)))) | |||
| ;;;###autoload | |||
| (defun quelpa (arg &rest plist) | |||
| "Build and install a package with quelpa. | |||
| ARG can be a package name (symbol) or a melpa recipe (list). | |||
| PLIST is a plist that may modify the build and/or fetch process. | |||
| If called interactively, `quelpa' will prompt for a MELPA package | |||
| to install. | |||
| When `quelpa' is called interactively with a prefix argument (e.g | |||
| C-u M-x quelpa) it will try to upgrade the given package even if | |||
| the global var `quelpa-upgrade-p' is set to nil." | |||
| (interactive (list (quelpa-interactive-candidate))) | |||
| (run-hooks 'quelpa-before-hook) | |||
| (when (quelpa-setup-p) ;if init fails we do nothing | |||
| (let* ((quelpa-upgrade-p (if current-prefix-arg t quelpa-upgrade-p)) ;shadow `quelpa-upgrade-p' | |||
| (quelpa-stable-p quelpa-stable-p) ;shadow `quelpa-stable-p' | |||
| (cache-item (if (symbolp arg) (list arg) arg))) | |||
| (quelpa-parse-plist plist) | |||
| (quelpa-parse-stable cache-item) | |||
| (quelpa-package-install arg) | |||
| (quelpa-update-cache cache-item))) | |||
| (quelpa-shutdown) | |||
| (run-hooks 'quelpa-after-hook)) | |||
| (provide 'quelpa) | |||
| ;;; quelpa.el ends here | |||
+ 161
- 0
emacs.d/core/libs/spacemacs-theme/README.md
View File
| @ -0,0 +1,161 @@ | |||
| # Spacemacs-theme | |||
| [](http://melpa.org/#/spacemacs-theme)  | |||
| [] (https://gitter.im/nashamri/spacemacs-theme?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge) | |||
|  | |||
| Spacemacs theme is an Emacs color theme that started as a theme for [spacemacs](https://github.com/syl20bnr/spacemacs). | |||
| The theme comes with dark and light variants and it should work well with 256 color terminals. | |||
| ## Screenshots | |||
|  | |||
| ## Highlights | |||
| The theme has good support for org mode. | |||
|  | |||
| ## Installation | |||
| You can install it from MELPA by: | |||
| ``` | |||
| M-x package-install RET spacemacs-theme | |||
| ``` | |||
| ## Supported modes | |||
| Some of the supported modes are: | |||
| * company | |||
| * ein | |||
| * erc | |||
| * gnus | |||
| * helm | |||
| * ido | |||
| * info | |||
| * magit | |||
| * neotree | |||
| * org | |||
| * and others :) more are coming! | |||
| ## Customizations | |||
| The theme has some options that can be tweaked via `M-x customize`: | |||
| * `spacemacs-theme-comment-bg`: | |||
| This toggles a background color for the comment lines. | |||
| * `spacemacs-theme-org-agenda-height`: | |||
| This toggles the use of varying org agenda heights. | |||
| * `spacemacs-theme-org-height`: | |||
| This toggles the use of varying org headings heights. | |||
| * `spacemacs-theme-org-highlight`: | |||
| This toggles highlighting of org headings. | |||
| * `spacemacs-theme-custom-colors`: | |||
| This allows for specifying a list of custom colors to override spacemacs theme colors. More details in the next section. | |||
| ### Override theme's colors | |||
| The theme can be customized by overriding one of the theme local variables by setting a list in the `spacemacs-theme-custom-colors` variable. | |||
| Here's a list of all the local variables and roles: | |||
| | var | role | | |||
| |---------------|---------------------------------------------------------------------------------------------------| | |||
| | act1 | One of mode-line's active colors. | | |||
| | act2 | The other active color of mode-line. | | |||
| | base | The basic color of normal text. | | |||
| | base-dim | A dimmer version of the normal text color. | | |||
| | bg1 | The background color. | | |||
| | bg2 | A darker background color. Used to highlight current line. | | |||
| | bg3 | Yet another darker shade of the background color. | | |||
| | bg4 | The darkest background color. | | |||
| | border | A border line color. Used in mode-line borders. | | |||
| | cblk | A code block color. Used in org's code blocks. | | |||
| | cblk-bg | The background color of a code block. | | |||
| | cblk-ln | A code block header line. | | |||
| | cblk-ln-bg | The background of a code block header line. | | |||
| | cursor | The cursor/point color. | | |||
| | const | A constant. | | |||
| | comment | A comment. | | |||
| | comment-bg | The background color of a comment. To disable this, `customize` `spacemacs-theme-comment-bg`. | | |||
| | comp | A complementary color. | | |||
| | err | errors. | | |||
| | func | functions. | | |||
| | head1 | Level 1 of a heading. Used in org's headings. | | |||
| | head1-bg | The background of level 2 headings. To disable this, `customize` `spacemacs-theme-org-highlight`. | | |||
| | head2 | Level 2 headings. | | |||
| | head2-bg | Level 2 headings background. | | |||
| | head3 | Level 3 headings. | | |||
| | head3-bg | Level 3 headings background. | | |||
| | head4 | Level 4 headings. | | |||
| | head4-bg | Level 4 headings background. | | |||
| | highlight | A highlighted area. | | |||
| | highlight-dim | A dimmer highlighted area. | | |||
| | keyword | A keyword or a builtin color. | | |||
| | lnum | Line numbers. | | |||
| | mat | A matched color. Used in matching parens, brackets and tags. | | |||
| | meta | A meta line. Used in org's meta line. | | |||
| | str | A string. | | |||
| | suc | To indicate success. Opposite of error. | | |||
| | ttip | Tooltip color. | | |||
| | ttip-sl | Tooltip selection color. | | |||
| | ttip-bg | Tooltip background color. | | |||
| | type | A type color. | | |||
| | var | A variable color. | | |||
| | war | A warning color. | | |||
| There is also explicit colors variables that can be customized: | |||
| * aqua | |||
| * aqua-bg | |||
| * green | |||
| * green-bg | |||
| * green-bg-s | |||
| * cyan | |||
| * red | |||
| * red-bg | |||
| * red-bg-s | |||
| * blue | |||
| * blue-bg | |||
| * violet | |||
| * yellow | |||
| * yellow-bg | |||
| The `green` and `red` colors have two background versions. The `green-bg` and `red-bg` are normal light background colors. | |||
| The `green-bg-s` and `red-bg-s` are a stronger version and are used in `ediff` and places were text is added or deleted. | |||
| Here are some screenshots of the various variables: | |||
|  | |||
|  | |||
|  | |||
| If you are using [spacemacs](https://github.com/syl20bnr/spacemacs), you can put this snippet in your `dotspacemacs/user-init` to override these colors: | |||
| ``` | |||
| (custom-set-variables '(spacemacs-theme-custom-colors | |||
| '((act1 . "#ff0000") | |||
| (act2 . "#0000ff") | |||
| (base . "#ffffff")))) | |||
| ``` | |||
| This will override `act1`, `act1` and `base` to use the specified colors. | |||
| # Like the theme and want to use it in other places? | |||
| Then check out this project [base16-builder](https://github.com/auduchinok/base16-builder). | |||
+ 786
- 0
emacs.d/core/libs/spacemacs-theme/spacemacs-common.el
View File
| @ -0,0 +1,786 @@ | |||
| ;;; spacemacs-common.el --- Color theme with a dark and light versions. | |||
| ;; Copyright (C) 2015-2016 Nasser Alshammari | |||
| ;; Author: Nasser Alshammari | |||
| ;; URL: <https://github.com/nashamri/spacemacs-theme> | |||
| ;; | |||
| ;; Version: 0.1 | |||
| ;; Keywords: color, theme | |||
| ;; Package-Requires: ((emacs "24")) | |||
| ;; Initially created with the help of emacs-theme-generator, <https://github.com/mswift42/theme-creator>. | |||
| ;; 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 <http://www.gnu.org/licenses/>. | |||
| ;; This file is not part of Emacs. | |||
| ;;; Commentary: | |||
| ;; This is a color theme for spacemacs <https://github.com/syl20bnr/spacemacs>. | |||
| ;; It comes with two versions, dark and light and should work well in | |||
| ;; a 256 color terminal. | |||
| ;;; Code: | |||
| (defmacro dyn-let (varlist fn setfaces setvars) | |||
| (list 'let (append varlist (funcall fn)) setfaces setvars)) | |||
| (defgroup spacemacs-theme nil | |||
| "Spacemacs-theme options." | |||
| :group 'faces) | |||
| (defcustom spacemacs-theme-comment-bg t | |||
| "Use a background for comment lines." | |||
| :type 'boolean | |||
| :group 'spacemacs-theme) | |||
| (defcustom spacemacs-theme-org-agenda-height t | |||
| "Use varying text heights for org agenda." | |||
| :type 'boolean | |||
| :group 'spacemacs-theme) | |||
| (defcustom spacemacs-theme-org-height t | |||
| "Use varying text heights for org headings." | |||
| :type 'boolean | |||
| :group 'spacemacs-theme) | |||
| (defcustom spacemacs-theme-org-highlight nil | |||
| "Highlight org headings." | |||
| :type 'boolean | |||
| :group 'spacemacs-theme) | |||
| (defcustom spacemacs-theme-custom-colors nil | |||
| "Specify a list of custom colors" | |||
| :type 'alist | |||
| :group 'spacemacs-theme) | |||
| (defun true-color-p () | |||
| (or | |||
| (display-graphic-p) | |||
| (= (tty-display-color-cells) 16777216))) | |||
| (defun custom-colors-override () | |||
| (mapcar (lambda (x) (list (car x) (cdr x))) | |||
| spacemacs-theme-custom-colors)) | |||
| (defun create-spacemacs-theme (variant theme-name) | |||
| (dyn-let ((class '((class color) (min-colors 89))) ;; ~~ Dark ~~ ~~ Light ~~ | |||
| ;; GUI TER GUI TER | |||
| ;; generic | |||
| (act1 (if (eq variant 'dark) (if (true-color-p) "#222226" "#121212") (if (true-color-p) "#e7e5eb" "#d7dfff"))) | |||
| (act2 (if (eq variant 'dark) (if (true-color-p) "#5d4d7a" "#444444") (if (true-color-p) "#d3d3e7" "#afafd7"))) | |||
| (base (if (eq variant 'dark) (if (true-color-p) "#b2b2b2" "#b2b2b2") (if (true-color-p) "#655370" "#5f5f87"))) | |||
| (base-dim (if (eq variant 'dark) (if (true-color-p) "#686868" "#585858") (if (true-color-p) "#a094a2" "#afafd7"))) | |||
| (bg1 (if (eq variant 'dark) (if (true-color-p) "#292b2e" "#262626") (if (true-color-p) "#fbf8ef" "#ffffff"))) | |||
| (bg2 (if (eq variant 'dark) (if (true-color-p) "#212026" "#1c1c1c") (if (true-color-p) "#efeae9" "#e4e4e4"))) | |||
| (bg3 (if (eq variant 'dark) (if (true-color-p) "#100a14" "#121212") (if (true-color-p) "#e3dedd" "#d0d0d0"))) | |||
| (bg4 (if (eq variant 'dark) (if (true-color-p) "#0a0814" "#080808") (if (true-color-p) "#d2ceda" "#bcbcbc"))) | |||
| (border (if (eq variant 'dark) (if (true-color-p) "#5d4d7a" "#111111") (if (true-color-p) "#b3b9be" "#b3b9be"))) | |||
| (cblk (if (eq variant 'dark) (if (true-color-p) "#cbc1d5" "#b2b2b2") (if (true-color-p) "#655370" "#5f5f87"))) | |||
| (cblk-bg (if (eq variant 'dark) (if (true-color-p) "#2f2b33" "#262626") (if (true-color-p) "#e8e3f0" "#ffffff"))) | |||
| (cblk-ln (if (eq variant 'dark) (if (true-color-p) "#827591" "#af5faf") (if (true-color-p) "#9380b2" "#af5fdf"))) | |||
| (cblk-ln-bg (if (eq variant 'dark) (if (true-color-p) "#373040" "#333333") (if (true-color-p) "#ddd8eb" "#dfdfff"))) | |||
| (cursor (if (eq variant 'dark) (if (true-color-p) "#e3dedd" "#d0d0d0") (if (true-color-p) "#100a14" "#121212"))) | |||
| (const (if (eq variant 'dark) (if (true-color-p) "#a45bad" "#d75fd7") (if (true-color-p) "#4e3163" "#8700af"))) | |||
| (comment (if (eq variant 'dark) (if (true-color-p) "#2aa1ae" "#008787") (if (true-color-p) "#2aa1ae" "#008787"))) | |||
| (comment-bg (if (eq variant 'dark) (if (true-color-p) "#292e34" "#262626") (if (true-color-p) "#ecf3ec" "#ffffff"))) | |||
| (comp (if (eq variant 'dark) (if (true-color-p) "#c56ec3" "#d75fd7") (if (true-color-p) "#6c4173" "#8700af"))) | |||
| (err (if (eq variant 'dark) (if (true-color-p) "#e0211d" "#e0211d") (if (true-color-p) "#e0211d" "#e0211d"))) | |||
| (func (if (eq variant 'dark) (if (true-color-p) "#bc6ec5" "#d75fd7") (if (true-color-p) "#6c3163" "#8700af"))) | |||
| (head1 (if (eq variant 'dark) (if (true-color-p) "#4f97d7" "#268bd2") (if (true-color-p) "#3a81c3" "#268bd2"))) | |||
| (head1-bg (if (eq variant 'dark) (if (true-color-p) "#293239" "#262626") (if (true-color-p) "#edf1ed" "#ffffff"))) | |||
| (head2 (if (eq variant 'dark) (if (true-color-p) "#2d9574" "#2aa198") (if (true-color-p) "#2d9574" "#2aa198"))) | |||
| (head2-bg (if (eq variant 'dark) (if (true-color-p) "#293235" "#262626") (if (true-color-p) "#edf2e9" "#ffffff"))) | |||
| (head3 (if (eq variant 'dark) (if (true-color-p) "#67b11d" "#67b11d") (if (true-color-p) "#67b11d" "#5faf00"))) | |||
| (head3-bg (if (eq variant 'dark) (if (true-color-p) "#293235" "#262626") (if (true-color-p) "#edf2e9" "#ffffff"))) | |||
| (head4 (if (eq variant 'dark) (if (true-color-p) "#b1951d" "#875f00") (if (true-color-p) "#b1951d" "#875f00"))) | |||
| (head4-bg (if (eq variant 'dark) (if (true-color-p) "#32322c" "#262626") (if (true-color-p) "#f6f1e1" "#ffffff"))) | |||
| (highlight (if (eq variant 'dark) (if (true-color-p) "#444155" "#444444") (if (true-color-p) "#d3d3e7" "#d7d7ff"))) | |||
| (highlight-dim (if (eq variant 'dark) (if (true-color-p) "#3b314d" "#444444") (if (true-color-p) "#e7e7fc" "#d7d7ff"))) | |||
| (keyword (if (eq variant 'dark) (if (true-color-p) "#4f97d7" "#268bd2") (if (true-color-p) "#3a81c3" "#268bd2"))) | |||
| (lnum (if (eq variant 'dark) (if (true-color-p) "#44505c" "#444444") (if (true-color-p) "#a8a8bf" "#af87af"))) | |||
| (mat (if (eq variant 'dark) (if (true-color-p) "#86dc2f" "#86dc2f") (if (true-color-p) "#ba2f59" "#af005f"))) | |||
| (meta (if (eq variant 'dark) (if (true-color-p) "#9f8766" "#af875f") (if (true-color-p) "#da8b55" "#df5f5f"))) | |||
| (str (if (eq variant 'dark) (if (true-color-p) "#2d9574" "#2aa198") (if (true-color-p) "#2d9574" "#2aa198"))) | |||
| (suc (if (eq variant 'dark) (if (true-color-p) "#86dc2f" "#86dc2f") (if (true-color-p) "#42ae2c" "#00af00"))) | |||
| (ttip (if (eq variant 'dark) (if (true-color-p) "#9a9aba" "#888888") (if (true-color-p) "#8c799f" "#5f5f87"))) | |||
| (ttip-sl (if (eq variant 'dark) (if (true-color-p) "#5e5079" "#333333") (if (true-color-p) "#c8c6dd" "#afafff"))) | |||
| (ttip-bg (if (eq variant 'dark) (if (true-color-p) "#34323e" "#444444") (if (true-color-p) "#e2e0ea" "#dfdfff"))) | |||
| (type (if (eq variant 'dark) (if (true-color-p) "#ce537a" "#df005f") (if (true-color-p) "#ba2f59" "#af005f"))) | |||
| (var (if (eq variant 'dark) (if (true-color-p) "#7590db" "#8787d7") (if (true-color-p) "#715ab1" "#af5fd7"))) | |||
| (war (if (eq variant 'dark) (if (true-color-p) "#dc752f" "#dc752f") (if (true-color-p) "#dc752f" "#dc752f"))) | |||
| ;; colors | |||
| (aqua (if (eq variant 'dark) (if (true-color-p) "#2d9574" "#2aa198") (if (true-color-p) "#2d9574" "#2aa198"))) | |||
| (aqua-bg (if (eq variant 'dark) (if (true-color-p) "#293235" "#262626") (if (true-color-p) "#edf2e9" "#ffffff"))) | |||
| (green (if (eq variant 'dark) (if (true-color-p) "#67b11d" "#67b11d") (if (true-color-p) "#67b11d" "#5faf00"))) | |||
| (green-bg (if (eq variant 'dark) (if (true-color-p) "#293235" "#262626") (if (true-color-p) "#edf2e9" "#ffffff"))) | |||
| (green-bg-s (if (eq variant 'dark) (if (true-color-p) "#29422d" "#262626") (if (true-color-p) "#dae6d0" "#ffffff"))) | |||
| (cyan (if (eq variant 'dark) (if (true-color-p) "#28def0" "#00ffff") (if (true-color-p) "#21b8c7" "#008080"))) | |||
| (red (if (eq variant 'dark) (if (true-color-p) "#f2241f" "#d70000") (if (true-color-p) "#f2241f" "#d70008"))) | |||
| (red-bg (if (eq variant 'dark) (if (true-color-p) "#3c2a2c" "#262626") (if (true-color-p) "#faede4" "#ffffff"))) | |||
| (red-bg-s (if (eq variant 'dark) (if (true-color-p) "#512e31" "#262626") (if (true-color-p) "#eed9d2" "#ffffff"))) | |||
| (blue (if (eq variant 'dark) (if (true-color-p) "#4f97d7" "#268bd2") (if (true-color-p) "#3a81c3" "#268bd2"))) | |||
| (blue-bg (if (eq variant 'dark) (if (true-color-p) "#293239" "#262626") (if (true-color-p) "#edf1ed" "#d7d7ff"))) | |||
| (magenta (if (eq variant 'dark) (if (true-color-p) "#a31db1" "#af00df") (if (true-color-p) "#a31db1" "#800080"))) | |||
| (yellow (if (eq variant 'dark) (if (true-color-p) "#b1951d" "#875f00") (if (true-color-p) "#b1951d" "#875f00"))) | |||
| (yellow-bg (if (eq variant 'dark) (if (true-color-p) "#32322c" "#262626") (if (true-color-p) "#f6f1e1" "#ffffff"))) | |||
| ) | |||
| custom-colors-override | |||
| (custom-theme-set-faces | |||
| theme-name | |||
| ;;;;; basics | |||
| `(cursor ((,class (:background ,cursor)))) | |||
| `(custom-button ((,class :background ,bg2 :foreground ,base :box (:line-width 2 :style released-button)))) | |||
| `(default ((,class (:background ,bg1 :foreground ,base)))) | |||
| `(default-italic ((,class (:italic t)))) | |||
| `(error ((,class (:foreground ,err)))) | |||
| `(eval-sexp-fu-flash ((,class (:background ,suc :foreground ,bg1)))) | |||
| `(eval-sexp-fu-flash-error ((,class (:background ,err :foreground ,bg1)))) | |||
| `(font-lock-builtin-face ((,class (:foreground ,keyword)))) | |||
| `(font-lock-comment-face ((,class (:foreground ,comment :background ,(when spacemacs-theme-comment-bg comment-bg))))) | |||
| `(font-lock-constant-face ((,class (:foreground ,const)))) | |||
| `(font-lock-doc-face ((,class (:foreground ,comment)))) | |||
| `(font-lock-function-name-face ((,class (:foreground ,func :inherit bold)))) | |||
| `(font-lock-keyword-face ((,class (:inherit bold :foreground ,keyword)))) | |||
| `(font-lock-negation-char-face ((,class (:foreground ,const)))) | |||
| `(font-lock-preprocessor-face ((,class (:foreground ,func)))) | |||
| `(font-lock-reference-face ((,class (:foreground ,const)))) | |||
| `(font-lock-string-face ((,class (:foreground ,str)))) | |||
| `(font-lock-type-face ((,class (:foreground ,type :inherit bold)))) | |||
| `(font-lock-variable-name-face ((,class (:foreground ,var)))) | |||
| `(font-lock-warning-face ((,class (:foreground ,war :background ,bg1)))) | |||
| `(fringe ((,class (:background ,bg1 :foreground ,base)))) | |||
| `(header-line ((,class :background ,bg4))) | |||
| `(highlight ((,class (:foreground ,base :background ,highlight)))) | |||
| `(hl-line ((,class (:background ,bg2)))) | |||
| `(isearch ((,class (:foreground ,bg1 :background ,mat)))) | |||
| `(lazy-highlight ((,class (:background ,green-bg-s :weight normal)))) | |||
| `(link ((,class (:foreground ,comment :underline t)))) | |||
| `(link-visited ((,class (:foreground ,comp :underline t)))) | |||
| `(match ((,class (:background ,highlight :foreground ,mat)))) | |||
| `(minibuffer-prompt ((,class (:inherit bold :foreground ,keyword)))) | |||
| `(page-break-lines ((,class (:foreground ,act2)))) | |||
| `(region ((,class (:background ,highlight)))) | |||
| `(secondary-selection ((,class (:background ,bg3)))) | |||
| `(shadow ((,class (:foreground ,base-dim)))) | |||
| `(success ((,class (:foreground ,suc)))) | |||
| `(tooltip ((,class (:background ,ttip-sl :foreground ,base :bold nil :italic nil :underline nil)))) | |||
| `(vertical-border ((,class (:foreground ,border)))) | |||
| `(warning ((,class (:foreground ,war)))) | |||
| ;;;;; ahs | |||
| `(ahs-face ((,class (:background ,highlight)))) | |||
| `(ahs-plugin-whole-buffer-face ((,class (:background ,mat :foreground ,bg1)))) | |||
| ;;;;; anzu-mode | |||
| `(anzu-mode-line ((,class (:foreground ,yellow :inherit bold)))) | |||
| ;;;;; auto-complete | |||
| `(ac-completion-face ((,class (:background ,ttip-bg :foreground ,ttip)))) | |||
| ;;;;; avy | |||
| `(avy-lead-face ((,class (:background ,blue-bg :foreground ,magenta)))) | |||
| `(avy-lead-face-0 ((,class (:background ,blue-bg :foreground ,blue)))) | |||
| `(avy-lead-face-1 ((,class (:background ,blue-bg :foreground ,magenta)))) | |||
| `(avy-lead-face-2 ((,class (:background ,blue-bg :foreground ,blue)))) | |||
| ;;;;; cider | |||
| `(cider-enlightened ((,class (:background nil :box (:color ,yellow :line-width -1 :style nil) :foreground ,yellow)))) | |||
| `(cider-enlightened-local ((,class (:foreground ,yellow)))) | |||
| `(cider-instrumented-face ((,class (:background nil :box (:color ,red :line-width -1 :style nil) :foreground ,red)))) | |||
| `(cider-result-overlay-face ((,class (:background nil :box (:color ,blue :line-width -1 :style nil) :foreground ,blue)))) | |||
| `(cider-test-error-face ((,class (:background ,war :foreground ,bg1)))) | |||
| `(cider-test-failure-face ((,class (:background ,err :foreground ,bg1)))) | |||
| `(cider-test-success-face ((,class (:background ,suc :foreground ,bg1)))) | |||
| `(cider-traced-face ((,class :box (:color ,cyan :line-width -1 :style nil)))) | |||
| ;;;;; company | |||
| `(company-echo-common ((,class (:background ,base :foreground ,bg1)))) | |||
| `(company-preview ((,class (:background ,ttip-bg :foreground ,ttip)))) | |||
| `(company-preview-common ((,class (:background ,ttip-bg :foreground ,base)))) | |||
| `(company-preview-search ((,class (:inherit match)))) | |||
| `(company-scrollbar-bg ((,class (:background ,bg2)))) | |||
| `(company-scrollbar-fg ((,class (:background ,act2)))) | |||
| `(company-template-field ((,class (:inherit region)))) | |||
| `(company-tooltip ((,class (:background ,ttip-bg :foreground ,ttip)))) | |||
| `(company-tooltip-annotation ((,class (:foreground ,keyword)))) | |||
| `(company-tooltip-common ((,class (:background ,ttip-bg :foreground ,base)))) | |||
| `(company-tooltip-common-selection ((,class (:foreground ,base)))) | |||
| `(company-tooltip-mouse ((,class (:inherit highlight)))) | |||
| `(company-tooltip-search ((,class (:inherit match)))) | |||
| `(company-tooltip-selection ((,class (:background ,ttip-sl :foreground ,base)))) | |||
| ;;;;; diff | |||
| `(diff-added ((,class :background nil :foreground ,green))) | |||
| `(diff-changed ((,class :background nil :foreground ,keyword))) | |||
| `(diff-header ((,class :background ,cblk-ln-bg :foreground ,func))) | |||
| `(diff-file-header ((,class :background ,cblk-ln-bg :foreground ,cblk))) | |||
| `(diff-indicator-added ((,class :background nil :foreground ,green))) | |||
| `(diff-indicator-changed ((,class :background nil :foreground ,keyword))) | |||
| `(diff-indicator-removed ((,class :background nil :foreground ,red))) | |||
| `(diff-refine-added ((,class :background ,green :foreground ,bg4))) | |||
| `(diff-refine-changed ((,class :background ,keyword :foreground ,bg4))) | |||
| `(diff-refine-removed ((,class :background ,red :foreground ,bg4))) | |||
| `(diff-removed ((,class :background nil :foreground ,red))) | |||
| ;;;;; diff-hl | |||
| `(diff-hl-change ((,class :background ,blue-bg :foreground ,blue))) | |||
| `(diff-hl-delete ((,class :background ,red-bg :foreground ,red))) | |||
| `(diff-hl-insert ((,class :background ,green-bg :foreground ,green))) | |||
| ;;;;; dired | |||
| `(dired-directory ((,class (:foreground ,keyword :background ,bg1 :inherit bold)))) | |||
| `(dired-flagged ((,class (:foreground ,red)))) | |||
| `(dired-header ((,class (:foreground ,comp :inherit bold)))) | |||
| `(dired-ignored ((,class (:inherit shadow)))) | |||
| `(dired-mark ((,class (:foreground ,comp :inherit bold)))) | |||
| `(dired-marked ((,class (:foreground ,magenta :inherit bold)))) | |||
| `(dired-perm-write ((,class (:foreground ,base :underline t)))) | |||
| `(dired-symlink ((,class (:foreground ,cyan :background ,bg1 :inherit bold)))) | |||
| `(dired-warning ((,class (:foreground ,war)))) | |||
| ;;;;; ediff | |||
| `(ediff-current-diff-A ((,class(:background ,red-bg-s :foreground ,red)))) | |||
| `(ediff-current-diff-Ancestor ((,class(:background ,aqua-bg :foreground ,aqua)))) | |||
| `(ediff-current-diff-B ((,class(:background ,green-bg-s :foreground ,green)))) | |||
| `(ediff-current-diff-C ((,class(:background ,blue-bg :foreground ,blue)))) | |||
| `(ediff-even-diff-A ((,class(:background ,bg3)))) | |||
| `(ediff-even-diff-Ancestor ((,class(:background ,bg3)))) | |||
| `(ediff-even-diff-B ((,class(:background ,bg3)))) | |||
| `(ediff-even-diff-C ((,class(:background ,bg3)))) | |||
| `(ediff-fine-diff-A ((,class(:background nil :inherit bold)))) | |||
| `(ediff-fine-diff-Ancestor ((,class(:background nil :inherit bold)))) | |||
| `(ediff-fine-diff-B ((,class(:background nil :inherit bold)))) | |||
| `(ediff-fine-diff-C ((,class(:background nil :inherit bold)))) | |||
| `(ediff-odd-diff-A ((,class(:background ,bg4)))) | |||
| `(ediff-odd-diff-Ancestor ((,class(:background ,bg4)))) | |||
| `(ediff-odd-diff-B ((,class(:background ,bg4)))) | |||
| `(ediff-odd-diff-C ((,class(:background ,bg4)))) | |||
| ;;;;; ein | |||
| `(ein:cell-input-area((,class (:background ,bg2)))) | |||
| `(ein:cell-input-prompt ((,class (:foreground ,suc)))) | |||
| `(ein:cell-output-prompt ((,class (:foreground ,err)))) | |||
| `(ein:notification-tab-normal ((,class (:foreground ,keyword)))) | |||
| `(ein:notification-tab-selected ((,class (:foreground ,suc :inherit bold)))) | |||
| ;;;;; eldoc | |||
| `(eldoc-highlight-function-argument ((,class (:foreground ,mat :inherit bold)))) | |||
| ;;;;; elfeed | |||
| `(elfeed-search-date-face ((,class (:foreground ,head2)))) | |||
| `(elfeed-search-feed-face ((,class (:foreground ,blue)))) | |||
| `(elfeed-search-tag-face ((,class (:foreground ,func)))) | |||
| `(elfeed-search-title-face ((,class (:foreground ,base-dim)))) | |||
| `(elfeed-search-unread-title-face ((,class (:foreground ,base)))) | |||
| ;;;;; enh-ruby | |||
| `(enh-ruby-op-face ((,class (:background ,bg1 :foreground ,base)))) | |||
| `(enh-ruby-string-delimiter-face ((,class (:foreground ,str)))) | |||
| ;;;;; erc | |||
| `(erc-input-face ((,class (:foreground ,func)))) | |||
| `(erc-my-nick-face ((,class (:foreground ,keyword)))) | |||
| `(erc-nick-default-face ((,class (:foreground ,keyword)))) | |||
| `(erc-nick-prefix-face ((,class (:foreground ,yellow)))) | |||
| `(erc-notice-face ((,class (:foreground ,str)))) | |||
| `(erc-prompt-face ((,class (:foreground ,mat :inherit bold)))) | |||
| `(erc-timestamp-face ((,class (:foreground ,keyword)))) | |||
| ;;;;; eshell | |||
| `(eshell-ls-archive ((,class (:foreground ,red :inherit bold)))) | |||
| `(eshell-ls-backup ((,class (:inherit font-lock-comment-face)))) | |||
| `(eshell-ls-clutter ((,class (:inherit font-lock-comment-face)))) | |||
| `(eshell-ls-directory ((,class (:foreground ,keyword :inherit bold)))) | |||
| `(eshell-ls-executable ((,class (:foreground ,suc :inherit bold)))) | |||
| `(eshell-ls-missing ((,class (:inherit font-lock-warning-face)))) | |||
| `(eshell-ls-product ((,class (:inherit font-lock-doc-face)))) | |||
| `(eshell-ls-special ((,class (:foreground ,yellow :inherit bold)))) | |||
| `(eshell-ls-symlink ((,class (:foreground ,cyan :inherit bold)))) | |||
| `(eshell-ls-unreadable ((,class (:foreground ,base)))) | |||
| `(eshell-prompt ((,class (:foreground ,keyword :inherit bold)))) | |||
| ;;;;; evil | |||
| `(evil-ex-substitute-matches ((,class (:background ,red-bg :foreground ,red)))) | |||
| `(evil-ex-substitute-replacement ((,class (:background ,green-bg :foreground ,green)))) | |||
| ;;;;; flycheck | |||
| `(flycheck-error | |||
| ((,(append '((supports :underline (:style line))) class) | |||
| (:underline (:style line :color ,err))) | |||
| (,class (:foreground ,base :background ,err :inherit bold :underline t)))) | |||
| `(flycheck-error-list-checker-name ((,class (:foreground ,keyword)))) | |||
| `(flycheck-fringe-error ((,class (:foreground ,err :inherit bold)))) | |||
| `(flycheck-fringe-info ((,class (:foreground ,keyword :inherit bold)))) | |||
| `(flycheck-fringe-warning ((,class (:foreground ,war :inherit bold)))) | |||
| `(flycheck-info | |||
| ((,(append '((supports :underline (:style line))) class) | |||
| (:underline (:style line :color ,keyword))) | |||
| (,class (:foreground ,base :background ,keyword :inherit bold :underline t)))) | |||
| `(flycheck-warning | |||
| ((,(append '((supports :underline (:style line))) class) | |||
| (:underline (:style line :color ,war))) | |||
| (,class (:foreground ,base :background ,war :inherit bold :underline t)))) | |||
| ;;;;; jabber | |||
| `(jabber-activity-face ((,class (:inherit bold :foreground ,red)))) | |||
| `(jabber-activity-personal-face ((,class (:inherit bold :foreground ,blue)))) | |||
| `(jabber-chat-error ((,class (:inherit bold :foreground ,red)))) | |||
| `(jabber-chat-prompt-foreign ((,class (:inherit bold :foreground ,red)))) | |||
| `(jabber-chat-prompt-local ((,class (:inherit bold :foreground ,blue)))) | |||
| `(jabber-chat-prompt-system ((,class (:inherit bold :foreground ,green)))) | |||
| `(jabber-chat-text-foreign ((,class (:foreground ,base)))) | |||
| `(jabber-chat-text-local ((,class (:foreground ,base)))) | |||
| `(jabber-rare-time-face ((,class (:foreground ,green)))) | |||
| `(jabber-roster-user-away ((,class (:foreground ,yellow)))) | |||
| `(jabber-roster-user-chatty ((,class (:inherit bold :foreground ,green)))) | |||
| `(jabber-roster-user-dnd ((,class (:foreground ,red)))) | |||
| `(jabber-roster-user-error ((,class (:foreground ,err)))) | |||
| `(jabber-roster-user-offline ((,class (:foreground ,base)))) | |||
| `(jabber-roster-user-online ((,class (:inherit bold :foreground ,green)))) | |||
| `(jabber-roster-user-xa ((,class (:foreground ,aqua)))) | |||
| ;;;;; git-gutter-fr | |||
| `(git-gutter-fr:added ((,class (:foreground ,green :inherit bold)))) | |||
| `(git-gutter-fr:deleted ((,class (:foreground ,war :inherit bold)))) | |||
| `(git-gutter-fr:modified ((,class (:foreground ,keyword :inherit bold)))) | |||
| ;;;;; git-timemachine | |||
| `(git-timemachine-minibuffer-detail-face ((,class (:foreground ,blue :inherit bold :background ,blue-bg)))) | |||
| ;;;;; gnus | |||
| `(gnus-emphasis-highlight-words ((,class (:background ,suc :foreground ,bg1)))) | |||
| `(gnus-header-content ((,class (:foreground ,keyword)))) | |||
| `(gnus-header-from ((,class (:foreground ,var)))) | |||
| `(gnus-header-name ((,class (:foreground ,comp)))) | |||
| `(gnus-header-subject ((,class (:foreground ,func :inherit bold)))) | |||
| `(gnus-summary-cancelled ((,class (:background ,war :foreground ,bg1)))) | |||
| ;;;;; guide-key | |||
| `(guide-key/highlight-command-face ((,class (:foreground ,base)))) | |||
| `(guide-key/key-face ((,class (:foreground ,keyword)))) | |||
| `(guide-key/prefix-command-face ((,class (:foreground ,keyword :inherit bold)))) | |||
| ;;;;; helm | |||
| `(helm-bookmark-directory ((,class (:inherit helm-ff-directory)))) | |||
| `(helm-bookmark-file ((,class (:foreground ,base)))) | |||
| `(helm-bookmark-gnus ((,class (:foreground ,comp)))) | |||
| `(helm-bookmark-info ((,class (:foreground ,comp)))) | |||
| `(helm-bookmark-man ((,class (:foreground ,comp)))) | |||
| `(helm-bookmark-w3m ((,class (:foreground ,comp)))) | |||
| `(helm-buffer-directory ((,class (:foreground ,base :background ,bg1)))) | |||
| `(helm-buffer-file ((,class (:foreground ,base :background ,bg1)))) | |||
| `(helm-buffer-not-saved ((,class (:foreground ,comp :background ,bg1)))) | |||
| `(helm-buffer-process ((,class (:foreground ,keyword :background ,bg1)))) | |||
| `(helm-buffer-saved-out ((,class (:foreground ,base :background ,bg1)))) | |||
| `(helm-buffer-size ((,class (:foreground ,base :background ,bg1)))) | |||
| `(helm-candidate-number ((,class (:background ,bg1 :foreground ,keyword :inherit bold)))) | |||
| `(helm-ff-directory ((,class (:foreground ,keyword :background ,bg1 :inherit bold)))) | |||
| `(helm-ff-dotted-directory ((,class (:foreground ,keyword :background ,bg1 :inherit bold)))) | |||
| `(helm-ff-dotted-symlink-directory ((,class (:foreground ,cyan :background ,bg1 :inherit bold)))) | |||
| `(helm-ff-executable ((,class (:foreground ,suc :background ,bg1 :weight normal)))) | |||
| `(helm-ff-file ((,class (:foreground ,base :background ,bg1 :weight normal)))) | |||
| `(helm-ff-invalid-symlink ((,class (:foreground ,red :background ,bg1 :inherit bold)))) | |||
| `(helm-ff-prefix ((,class (:foreground ,bg1 :background ,keyword :weight normal)))) | |||
| `(helm-ff-symlink ((,class (:foreground ,cyan :background ,bg1 :inherit bold)))) | |||
| `(helm-grep-cmd-line ((,class (:foreground ,base :background ,bg1)))) | |||
| `(helm-grep-file ((,class (:foreground ,base :background ,bg1)))) | |||
| `(helm-grep-finish ((,class (:foreground ,base :background ,bg1)))) | |||
| `(helm-grep-lineno ((,class (:foreground ,type :background ,bg1 :inherit bold)))) | |||
| `(helm-grep-match ((,class (:foreground nil :background nil :inherit helm-match)))) | |||
| `(helm-header ((,class (:foreground ,base :background ,bg1 :underline nil :box nil)))) | |||
| `(helm-header-line-left-margin ((,class (:foreground ,keyword :background ,nil)))) | |||
| `(helm-match ((,class (:background ,head1-bg :foreground ,head1)))) | |||
| `(helm-match-item ((,class (:background ,head1-bg :foreground ,head1)))) | |||
| `(helm-moccur-buffer ((,class (:foreground ,var :background ,bg1)))) | |||
| `(helm-selection ((,class (:background ,highlight)))) | |||
| `(helm-selection-line ((,class (:background ,bg2)))) | |||
| `(helm-separator ((,class (:foreground ,comp :background ,bg1)))) | |||
| `(helm-source-header ((,class (:background ,comp :foreground ,bg1 :inherit bold)))) | |||
| `(helm-time-zone-current ((,class (:foreground ,keyword :background ,bg1)))) | |||
| `(helm-time-zone-home ((,class (:foreground ,comp :background ,bg1)))) | |||
| `(helm-visible-mark ((,class (:foreground ,keyword :background ,bg3)))) | |||
| ;;;;; helm-swoop | |||
| `(helm-swoop-target-line-block-face ((,class (:foreground ,base :background ,highlight)))) | |||
| `(helm-swoop-target-line-face ((,class (:background ,highlight)))) | |||
| `(helm-swoop-target-word-face ((,class (:background ,highlight :foreground ,mat)))) | |||
| ;;;;; highlights | |||
| `(hi-green ((,class (:foreground ,green :background ,green-bg)))) | |||
| `(hi-yellow ((,class (:foreground ,yellow :background ,yellow-bg)))) | |||
| ;;;;; highlight-indentation | |||
| `(highlight-indentation-face ((,class (:background ,comment-bg)))) | |||
| ;;;;; highlight-symbol | |||
| `(highlight-symbol-face ((,class (:background ,bg2)))) | |||
| ;;;;; hydra | |||
| `(hydra-face-blue ((,class (:foreground ,blue)))) | |||
| `(hydra-face-red ((,class (:foreground ,red)))) | |||
| ;;;;; ido | |||
| `(ido-first-match ((,class (:foreground ,comp :inherit bold)))) | |||
| `(ido-only-match ((,class (:foreground ,mat :inherit bold)))) | |||
| `(ido-subdir ((,class (:foreground ,keyword)))) | |||
| `(ido-vertical-match-face ((,class (:foreground ,comp :underline nil)))) | |||
| ;;;;; info | |||
| `(info-header-xref ((,class (:foreground ,func :underline t)))) | |||
| `(info-menu ((,class (:foreground ,suc)))) | |||
| `(info-node ((,class (:foreground ,func :inherit bold)))) | |||
| `(info-quoted-name ((,class (:foreground ,keyword)))) | |||
| `(info-reference-item ((,class (:background nil :underline t :inherit bold)))) | |||
| `(info-string ((,class (:foreground ,str)))) | |||
| `(info-title-1 ((,class (:height 1.4 :inherit bold)))) | |||
| `(info-title-2 ((,class (:height 1.3 :inherit bold)))) | |||
| `(info-title-3 ((,class (:height 1.3)))) | |||
| `(info-title-4 ((,class (:height 1.2)))) | |||
| ;;;;; ivy | |||
| `(ivy-current-match ((,class (:background ,highlight :inherit bold)))) | |||
| `(ivy-minibuffer-match-face-1 ((,class (:inherit bold)))) | |||
| `(ivy-minibuffer-match-face-2 ((,class (:foreground ,head1 :underline t)))) | |||
| `(ivy-minibuffer-match-face-3 ((,class (:foreground ,head4 :underline t)))) | |||
| `(ivy-minibuffer-match-face-4 ((,class (:foreground ,head3 :underline t)))) | |||
| `(ivy-remote ((,class (:foreground ,cyan)))) | |||
| ;;;;; latex | |||
| `(font-latex-bold-face ((,class (:foreground ,comp)))) | |||
| `(font-latex-italic-face ((,class (:foreground ,keyword :italic t)))) | |||
| `(font-latex-match-reference-keywords ((,class (:foreground ,const)))) | |||
| `(font-latex-match-variable-keywords ((,class (:foreground ,var)))) | |||
| `(font-latex-sectioning-0-face ((,class (:inherit bold :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head3-bg))))) | |||
| `(font-latex-sectioning-1-face ((,class (:inherit bold :foreground ,head4 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head4-bg))))) | |||
| `(font-latex-sectioning-2-face ((,class (:inherit bold :foreground ,head1 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head1-bg))))) | |||
| `(font-latex-sectioning-3-face ((,class (:inherit bold :foreground ,head2 :height ,(if spacemacs-theme-org-height 1.2 1.0) :background ,(when spacemacs-theme-org-highlight head2-bg))))) | |||
| `(font-latex-sectioning-4-face ((,class (:bold nil :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.1 1.0) :background ,(when spacemacs-theme-org-highlight head3-bg))))) | |||
| `(font-latex-sectioning-5-face ((,class (:bold nil :foreground ,head4 :background ,(when spacemacs-theme-org-highlight head4-bg))))) | |||
| `(font-latex-string-face ((,class (:foreground ,str)))) | |||
| `(font-latex-warning-face ((,class (:foreground ,war)))) | |||
| ;;;;; linum-mode | |||
| `(linum ((,class (:foreground ,lnum :background ,bg2)))) | |||
| ;;;;; linum-relative | |||
| `(linum-relative-current-face ((,class (:foreground ,comp)))) | |||
| ;;;;; magit | |||
| `(magit-blame-culprit ((,class :background ,yellow-bg :foreground ,yellow))) | |||
| `(magit-blame-date ((,class :background ,yellow-bg :foreground ,green))) | |||
| `(magit-blame-hash ((,class :background ,yellow-bg :foreground ,func))) | |||
| `(magit-blame-header ((,class :background ,yellow-bg :foreground ,green))) | |||
| `(magit-blame-heading ((,class :background ,yellow-bg :foreground ,green))) | |||
| `(magit-blame-name ((,class :background ,yellow-bg :foreground ,yellow))) | |||
| `(magit-blame-sha1 ((,class :background ,yellow-bg :foreground ,func))) | |||
| `(magit-blame-subject ((,class :background ,yellow-bg :foreground ,yellow))) | |||
| `(magit-blame-summary ((,class :background ,yellow-bg :foreground ,yellow))) | |||
| `(magit-blame-time ((,class :background ,yellow-bg :foreground ,green))) | |||
| `(magit-branch ((,class (:foreground ,const :inherit bold)))) | |||
| `(magit-branch-current ((,class (:background ,blue-bg :foreground ,blue :inherit bold :box t)))) | |||
| `(magit-branch-local ((,class (:background ,blue-bg :foreground ,blue :inherit bold)))) | |||
| `(magit-branch-remote ((,class (:background ,aqua-bg :foreground ,aqua :inherit bold)))) | |||
| `(magit-diff-context-highlight ((,class (:background ,bg2 :foreground ,base)))) | |||
| `(magit-diff-file-header ((,class (:background ,comment-bg :foreground ,comment)))) | |||
| `(magit-diff-file-heading ((,class (:background ,comment-bg :foreground ,comment)))) | |||
| `(magit-diff-file-heading-highlight ((,class (:background ,comment-bg :foreground ,comment)))) | |||
| `(magit-diff-hunk-header ((,class (:background ,ttip-bg :foreground ,ttip)))) | |||
| `(magit-diff-hunk-heading ((,class (:background ,ttip-bg :foreground ,ttip)))) | |||
| `(magit-diff-hunk-heading-highlight ((,class (:background ,ttip-bg :foreground ,ttip)))) | |||
| `(magit-hash ((,class (:foreground ,var)))) | |||
| `(magit-hunk-heading ((,class (:background ,bg3)))) | |||
| `(magit-hunk-heading-highlight ((,class (:background ,bg3)))) | |||
| `(magit-item-highlight ((,class :background ,bg2))) | |||
| `(magit-log-author ((,class (:foreground ,func)))) | |||
| `(magit-log-head-label-head ((,class (:background ,yellow :foreground ,bg1 :inherit bold)))) | |||
| `(magit-log-head-label-local ((,class (:background ,keyword :foreground ,bg1 :inherit bold)))) | |||
| `(magit-log-head-label-remote ((,class (:background ,suc :foreground ,bg1 :inherit bold)))) | |||
| `(magit-log-head-label-tags ((,class (:background ,magenta :foreground ,bg1 :inherit bold)))) | |||
| `(magit-log-head-label-wip ((,class (:background ,cyan :foreground ,bg1 :inherit bold)))) | |||
| `(magit-log-sha1 ((,class (:foreground ,str)))) | |||
| `(magit-process-ng ((,class (:foreground ,war :inherit bold)))) | |||
| `(magit-process-ok ((,class (:foreground ,func :inherit bold)))) | |||
| `(magit-reflog-amend ((,class (:foreground ,magenta)))) | |||
| `(magit-reflog-checkout ((,class (:foreground ,blue)))) | |||
| `(magit-reflog-cherry-pick ((,class (:foreground ,green)))) | |||
| `(magit-reflog-commit ((,class (:foreground ,green)))) | |||
| `(magit-reflog-merge ((,class (:foreground ,green)))) | |||
| `(magit-reflog-other ((,class (:foreground ,cyan)))) | |||
| `(magit-reflog-rebase ((,class (:foreground ,magenta)))) | |||
| `(magit-reflog-remote ((,class (:foreground ,cyan)))) | |||
| `(magit-reflog-reset ((,class (:foreground ,red)))) | |||
| `(magit-section-heading ((,class (:foreground ,keyword :inherit bold)))) | |||
| `(magit-section-highlight ((,class (:background ,bg2)))) | |||
| `(magit-section-title ((,class (:background ,bg1 :foreground ,keyword :inherit bold)))) | |||
| ;;;;; man | |||
| `(Man-overstrike ((,class (:foreground ,head1 :inherit bold)))) | |||
| `(Man-reverse ((,class (:foreground ,highlight)))) | |||
| `(Man-underline ((,class (:foreground ,comp :underline t)))) | |||
| ;;;;; markdown | |||
| `(markdown-header-face-1 ((,class (:inherit bold :foreground ,head1 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head1-bg))))) | |||
| `(markdown-header-face-2 ((,class (:inherit bold :foreground ,head2 :height ,(if spacemacs-theme-org-height 1.2 1.0) :background ,(when spacemacs-theme-org-highlight head2-bg))))) | |||
| `(markdown-header-face-3 ((,class (:bold nil :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.1 1.0) :background ,(when spacemacs-theme-org-highlight head3-bg))))) | |||
| `(markdown-header-face-4 ((,class (:bold nil :foreground ,head4 :background ,(when spacemacs-theme-org-highlight head4-bg))))) | |||
| `(markdown-header-face-5 ((,class (:bold nil :foreground ,head1)))) | |||
| `(markdown-header-face-6 ((,class (:bold nil :foreground ,head2)))) | |||
| ;;;;; mode-line | |||
| `(mode-line ((,class (:foreground ,base :background ,act1 :box (:color ,border :line-width 1))))) | |||
| `(mode-line-buffer-id ((,class (:inherit bold :foreground ,func)))) | |||
| `(mode-line-inactive ((,class (:foreground ,base :background ,bg1 :box (:color ,border :line-width 1))))) | |||
| ;;;;; mu4e | |||
| `(mu4e-cited-1-face ((,class (:foreground ,base)))) | |||
| `(mu4e-cited-7-face ((,class (:foreground ,base)))) | |||
| `(mu4e-header-key-face ((,class (:foreground ,head2 :inherit bold)))) | |||
| `(mu4e-header-marks-face ((,class (:foreground ,comp)))) | |||
| `(mu4e-unread-face ((,class (:foreground ,yellow :inherit bold)))) | |||
| `(mu4e-view-url-number-face ((,class (:foreground ,comp)))) | |||
| ;;;;; notmuch | |||
| `(notmuch-search-date ((,class (:foreground ,func)))) | |||
| `(notmuch-search-flagged-face ((,class (:weight extra-bold)))) | |||
| `(notmuch-search-non-matching-authors ((,class (:foreground ,base-dim)))) | |||
| `(notmuch-search-unread-face ((,class (:background ,highlight-dim :box ,border)))) | |||
| `(notmuch-tag-face ((,class (:foreground ,keyword)))) | |||
| `(notmuch-tag-flagged ((,class (:foreground ,war)))) | |||
| ;;;;; neotree | |||
| `(neo-dir-link-face ((,class (:foreground ,keyword :inherit bold)))) | |||
| `(neo-expand-btn-face ((,class (:foreground ,base)))) | |||
| `(neo-file-link-face ((,class (:foreground ,base)))) | |||
| `(neo-root-dir-face ((,class (:foreground ,func :inherit bold)))) | |||
| ;;;;; org | |||
| `(org-agenda-clocking ((,class (:background ,highlight :foreground ,comp)))) | |||
| `(org-agenda-date ((,class (:foreground ,var :height ,(if spacemacs-theme-org-agenda-height 1.1 1.0))))) | |||
| `(org-agenda-date-today ((,class (:foreground ,keyword :inherit bold :height ,(if spacemacs-theme-org-agenda-height 1.3 1.0))))) | |||
| `(org-agenda-date-weekend ((,class (:inherit bold :foreground ,var)))) | |||
| `(org-agenda-done ((,class (:foreground ,suc :height ,(if spacemacs-theme-org-agenda-height 1.2 1.0))))) | |||
| `(org-agenda-structure ((,class (:inherit bold :foreground ,comp)))) | |||
| `(org-block ((,class (:background ,cblk-bg :foreground ,cblk)))) | |||
| `(org-block-begin-line ((,class (:background ,cblk-ln-bg :foreground ,cblk-ln)))) | |||
| `(org-block-end-line ((,class (:background ,cblk-ln-bg :foreground ,cblk-ln)))) | |||
| `(org-clock-overlay ((,class (:foreground ,comp)))) | |||
| `(org-code ((,class (:foreground ,cyan)))) | |||
| `(org-column ((,class (:background ,highlight)))) | |||
| `(org-column-title ((,class (:background ,highlight)))) | |||
| `(org-date ((,class (:underline t :foreground ,var)))) | |||
| `(org-date-selected ((,class (:background ,func :foreground ,bg1)))) | |||
| `(org-document-info-keyword ((,class (:foreground ,meta)))) | |||
| `(org-document-title ((,class (:foreground ,func :inherit bold :height ,(if spacemacs-theme-org-height 1.4 1.0) :underline t)))) | |||
| `(org-done ((,class (:foreground ,suc :inherit bold :background ,green-bg)))) | |||
| `(org-ellipsis ((,class (:foreground ,keyword)))) | |||
| `(org-footnote ((,class (:underline t :foreground ,base)))) | |||
| `(org-hide ((,class (:foreground ,base)))) | |||
| `(org-kbd ((,class (:inherit region :foreground ,base :box (:line-width 1 :style released-button))))) | |||
| `(org-level-1 ((,class (:inherit bold :foreground ,head1 :height ,(if spacemacs-theme-org-height 1.3 1.0) :background ,(when spacemacs-theme-org-highlight head1-bg))))) | |||
| `(org-level-2 ((,class (:inherit bold :foreground ,head2 :height ,(if spacemacs-theme-org-height 1.2 1.0) :background ,(when spacemacs-theme-org-highlight head2-bg))))) | |||
| `(org-level-3 ((,class (:bold nil :foreground ,head3 :height ,(if spacemacs-theme-org-height 1.1 1.0) :background ,(when spacemacs-theme-org-highlight head3-bg))))) | |||
| `(org-level-4 ((,class (:bold nil :foreground ,head4 :background ,(when spacemacs-theme-org-highlight head4-bg))))) | |||
| `(org-level-5 ((,class (:bold nil :foreground ,head1)))) | |||
| `(org-level-6 ((,class (:bold nil :foreground ,head2)))) | |||
| `(org-level-7 ((,class (:bold nil :foreground ,head3)))) | |||
| `(org-level-8 ((,class (:bold nil :foreground ,head4)))) | |||
| `(org-link ((,class (:underline t :foreground ,comment)))) | |||
| `(org-meta-line ((,class (:foreground ,meta)))) | |||
| `(org-mode-line-clock-overrun ((,class (:foreground ,err)))) | |||
| `(org-priority ((,class (:foreground ,war :inherit bold)))) | |||
| `(org-quote ((,class (:inherit org-block :slant italic)))) | |||
| `(org-scheduled ((,class (:foreground ,comp)))) | |||
| `(org-scheduled-today ((,class (:foreground ,func :height ,(if spacemacs-theme-org-agenda-height 1.2 1.0))))) | |||
| `(org-sexp-date ((,class (:foreground ,base)))) | |||
| `(org-special-keyword ((,class (:foreground ,func)))) | |||
| `(org-table ((,class (:foreground ,base :background ,head1-bg)))) | |||
| `(org-time-grid ((,class (:foreground ,str)))) | |||
| `(org-todo ((,class (:foreground ,war :inherit bold :background ,yellow-bg)))) | |||
| `(org-verbatim ((,class (:foreground ,keyword)))) | |||
| `(org-verse ((,class (:inherit org-block :slant italic)))) | |||
| `(org-warning ((,class (:foreground ,err)))) | |||
| ;;;;; perspective | |||
| `(persp-selected-face ((,class (:inherit bold :foreground ,func)))) | |||
| ;;;;; popup | |||
| `(popup-enu-selection-face ((,class (:background ,ttip-sl :foreground ,base)))) | |||
| `(popup-face ((,class (:background ,ttip-bg :foreground ,ttip)))) | |||
| `(popup-isearch-match ((,class (:inherit match)))) | |||
| `(popup-menu-face ((,class (:background ,ttip-bg :foreground ,base)))) | |||
| `(popup-menu-mouse-face ((,class (:inherit highlight)))) | |||
| `(popup-scroll-bar-background-face ((,class (:background ,bg2)))) | |||
| `(popup-scroll-bar-foreground-face ((,class (:background ,act2)))) | |||
| `(popup-tip-face ((,class (:background ,ttip-sl :foreground ,base :bold nil :italic nil :underline nil)))) | |||
| ;;;;; powerline | |||
| `(powerline-active1 ((,class (:background ,act2 :foreground ,base)))) | |||
| `(powerline-active2 ((,class (:background ,act2 :foreground ,base)))) | |||
| `(powerline-inactive1 ((,class (:background ,bg2 :foreground ,base)))) | |||
| `(powerline-inactive2 ((,class (:background ,bg2 :foreground ,base)))) | |||
| ;;;;; rainbow-delimiters | |||
| `(rainbow-delimiters-depth-1-face ((,class :foreground ,keyword))) | |||
| `(rainbow-delimiters-depth-2-face ((,class :foreground ,func))) | |||
| `(rainbow-delimiters-depth-3-face ((,class :foreground ,str))) | |||
| `(rainbow-delimiters-depth-4-face ((,class :foreground ,green))) | |||
| `(rainbow-delimiters-depth-5-face ((,class :foreground ,yellow))) | |||
| `(rainbow-delimiters-depth-6-face ((,class :foreground ,keyword))) | |||
| `(rainbow-delimiters-depth-7-face ((,class :foreground ,func))) | |||
| `(rainbow-delimiters-depth-8-face ((,class :foreground ,str))) | |||
| `(rainbow-delimiters-mismatched-face ((,class :foreground ,err :overline t))) | |||
| `(rainbow-delimiters-unmatched-face ((,class :foreground ,err :overline t))) | |||
| ;;;;; rcirc | |||
| `(rcirc-bright-nick ((,class (:background ,aqua-bg :foreground ,cyan)))) | |||
| `(rcirc-dim-nick ((,class (:foreground ,base-dim)))) | |||
| `(rcirc-keyword ((,class (:background ,green-bg-s :foreground ,green)))) | |||
| `(rcirc-timestamp ((,class (:foreground ,keyword)))) | |||
| `(rcirc-track-keyword ((,class (:background ,green :foreground ,bg1)))) | |||
| `(rcirc-url ((,class (:inherit link)))) | |||
| ;;;;; shm | |||
| `(shm-current-face ((,class (:background ,green-bg-s)))) | |||
| `(shm-quarantine-face ((,class (:background ,red-bg-s)))) | |||
| ;;;;; show-paren | |||
| `(show-paren-match ((,class (:background ,green-bg-s)))) | |||
| `(show-paren-mismatch ((,class (:background ,red-bg-s)))) | |||
| ;;;;; smartparens | |||
| `(sp-pair-overlay-face ((,class (:background ,highlight :foreground nil)))) | |||
| `(sp-show-pair-match-face ((,class (:foreground ,mat :inherit bold :underline t)))) | |||
| ;;;;; spaceline | |||
| `(spaceline-flycheck-error ((,class (:foreground ,err)))) | |||
| `(spaceline-flycheck-info ((,class (:foreground ,keyword)))) | |||
| `(spaceline-flycheck-warning((,class (:foreground ,war)))) | |||
| `(spaceline-python-venv ((,class (:foreground ,comp)))) | |||
| ;;;;; spacemacs-specific | |||
| `(spacemacs-transient-state-title-face ((,class (:background nil :foreground ,comp :box nil :inherit bold)))) | |||
| ;;;;; swiper | |||
| `(swiper-line-face ((,class (:background ,highlight :inherit bold)))) | |||
| `(swiper-match-face-1 ((,class (:inherit bold)))) | |||
| `(swiper-match-face-2 ((,class (:foreground ,head1 :underline t)))) | |||
| `(swiper-match-face-3 ((,class (:foreground ,head4 :underline t)))) | |||
| `(swiper-match-face-4 ((,class (:foreground ,head3 :underline t)))) | |||
| ;;;;; tabbar | |||
| `(tabbar-button ((,class (:inherit tabbar-default )))) | |||
| `(tabbar-button-highlight ((,class (:inherit tabbar-default)))) | |||
| `(tabbar-default ((,class (:background ,bg1 :foreground ,head1 :height 0.9)))) | |||
| `(tabbar-highlight ((,class (:underline t)))) | |||
| `(tabbar-selected ((,class (:inherit tabbar-default :foreground ,func :weight bold)))) | |||
| `(tabbar-separator ((,class (:inherit tabbar-default)))) | |||
| `(tabbar-unselected ((,class (:inherit tabbar-default :background ,bg1 :slant italic :weight light)))) | |||
| ;;;;; term | |||
| `(term ((,class (:foreground ,base :background ,bg1)))) | |||
| `(term-color-black ((,class (:foreground ,bg4)))) | |||
| `(term-color-blue ((,class (:foreground ,keyword)))) | |||
| `(term-color-cyan ((,class (:foreground ,cyan)))) | |||
| `(term-color-green ((,class (:foreground ,green)))) | |||
| `(term-color-magenta ((,class (:foreground ,magenta)))) | |||
| `(term-color-red ((,class (:foreground ,red)))) | |||
| `(term-color-white ((,class (:foreground ,base)))) | |||
| `(term-color-yellow ((,class (:foreground ,yellow)))) | |||
| ;;;;; web-mode | |||
| `(web-mode-builtin-face ((,class (:inherit ,font-lock-builtin-face)))) | |||
| `(web-mode-comment-face ((,class (:inherit ,font-lock-comment-face)))) | |||
| `(web-mode-constant-face ((,class (:inherit ,font-lock-constant-face)))) | |||
| `(web-mode-doctype-face ((,class (:inherit ,font-lock-comment-face)))) | |||
| `(web-mode-function-name-face ((,class (:inherit ,font-lock-function-name-face)))) | |||
| `(web-mode-html-attr-name-face ((,class (:foreground ,func)))) | |||
| `(web-mode-html-attr-value-face ((,class (:foreground ,keyword)))) | |||
| `(web-mode-html-tag-face ((,class (:foreground ,keyword)))) | |||
| `(web-mode-keyword-face ((,class (:foreground ,keyword)))) | |||
| `(web-mode-string-face ((,class (:foreground ,str)))) | |||
| `(web-mode-symbol-face ((,class (:foreground ,type)))) | |||
| `(web-mode-type-face ((,class (:inherit ,font-lock-type-face)))) | |||
| `(web-mode-warning-face ((,class (:inherit ,font-lock-warning-face)))) | |||
| ;;;;; which-key | |||
| `(which-key-command-description-face ((,class (:foreground ,base)))) | |||
| `(which-key-group-description-face ((,class (:foreground ,keyword)))) | |||
| `(which-key-key-face ((,class (:foreground ,func :inherit bold)))) | |||
| `(which-key-separator-face ((,class (:background nil :foreground ,str)))) | |||
| `(which-key-special-key-face ((,class (:background ,func :foreground ,bg1)))) | |||
| ;;;;; which-function-mode | |||
| `(which-func ((,class (:foreground ,func)))) | |||
| ;;;;; whitespace-mode | |||
| `(whitespace-empty ((,class (:background nil :foreground ,yellow)))) | |||
| `(whitespace-indentation ((,class (:background nil :foreground ,war)))) | |||
| `(whitespace-line ((,class (:background nil :foreground ,comp)))) | |||
| `(whitespace-newline ((,class (:background nil :foreground ,comp)))) | |||
| `(whitespace-space ((,class (:background nil :foreground ,act2)))) | |||
| `(whitespace-space-after-tab ((,class (:background nil :foreground ,yellow)))) | |||
| `(whitespace-space-before-tab ((,class (:background nil :foreground ,yellow)))) | |||
| `(whitespace-tab ((,class (:background nil)))) | |||
| `(whitespace-trailing ((,class (:background ,err :foreground ,war)))) | |||
| ;;;;; other, need more work | |||
| `(ac-completion-face ((,class (:underline t :foreground ,keyword)))) | |||
| `(ffap ((,class (:foreground ,base)))) | |||
| `(flx-highlight-face ((,class (:foreground ,comp :underline nil)))) | |||
| `(icompletep-determined ((,class :foreground ,keyword))) | |||
| `(js2-external-variable ((,class (:foreground ,comp)))) | |||
| `(js2-function-param ((,class (:foreground ,const)))) | |||
| `(js2-jsdoc-html-tag-delimiter ((,class (:foreground ,str)))) | |||
| `(js2-jsdoc-html-tag-name ((,class (:foreground ,keyword)))) | |||
| `(js2-jsdoc-value ((,class (:foreground ,str)))) | |||
| `(js2-private-function-call ((,class (:foreground ,const)))) | |||
| `(js2-private-member ((,class (:foreground ,base)))) | |||
| `(js3-error-face ((,class (:underline ,war)))) | |||
| `(js3-external-variable-face ((,class (:foreground ,var)))) | |||
| `(js3-function-param-face ((,class (:foreground ,keyword)))) | |||
| `(js3-instance-member-face ((,class (:foreground ,const)))) | |||
| `(js3-jsdoc-tag-face ((,class (:foreground ,keyword)))) | |||
| `(js3-warning-face ((,class (:underline ,keyword)))) | |||
| `(slime-repl-inputed-output-face ((,class (:foreground ,comp)))) | |||
| `(trailing-whitespace ((,class :foreground nil :background ,err))) | |||
| `(undo-tree-visualizer-current-face ((,class :foreground ,keyword))) | |||
| `(undo-tree-visualizer-default-face ((,class :foreground ,base))) | |||
| `(undo-tree-visualizer-register-face ((,class :foreground ,comp))) | |||
| `(undo-tree-visualizer-unmodified-face ((,class :foreground ,var)))) | |||
| (custom-theme-set-variables | |||
| theme-name | |||
| `(ansi-color-names-vector [,bg4 ,red ,green ,yellow ,blue ,magenta ,cyan ,base])) | |||
| )) | |||
| ;;;###autoload | |||
| (when load-file-name | |||
| (add-to-list 'custom-theme-load-path | |||
| (file-name-as-directory (file-name-directory load-file-name)))) | |||
| (provide 'spacemacs-common) | |||
| ;; Local Variables: | |||
| ;; no-byte-compile: t | |||
| ;; End: | |||
| ;;; spacemacs-common.el ends here | |||
+ 7
- 0
emacs.d/core/libs/spacemacs-theme/spacemacs-dark-theme.el
View File
| @ -0,0 +1,7 @@ | |||
| (require 'spacemacs-common) | |||
| (deftheme spacemacs-dark "Spacemacs theme, the dark version") | |||
| (create-spacemacs-theme 'dark 'spacemacs-dark) | |||
| (provide-theme 'spacemacs-dark) | |||
+ 7
- 0
emacs.d/core/libs/spacemacs-theme/spacemacs-light-theme.el
View File
| @ -0,0 +1,7 @@ | |||
| (require 'spacemacs-common) | |||
| (deftheme spacemacs-light "Spacemacs theme, the light version") | |||
| (create-spacemacs-theme 'light 'spacemacs-light) | |||
| (provide-theme 'spacemacs-light) | |||
+ 12
- 2
emacs.d/core/templates/.spacemacs.template
View File
+ 1
- 1
emacs.d/core/templates/packages.el.template
View File
+ 2
- 2
emacs.d/core/tools/spacefmt/spacefmt.el
View File
+ 1
- 1
emacs.d/core/tools/spacefmt/tests/config.el
View File
| @ -1,6 +1,6 @@ | |||
| ;;; packages.el --- test layer configuration file for Spacemacs. | |||
| ;; | |||
| ;; Copyright (c) 2012-2016 Sylvain Benner & Contributors | |||
| ;; Copyright (c) 2012-2017 Sylvain Benner & Contributors | |||
| ;; | |||
| ;; This file is not part of GNU Emacs. | |||
| ;; | |||
+ 330
- 0
emacs.d/doc/BEGINNERS_TUTORIAL.org
View File
| @ -0,0 +1,330 @@ | |||
| #+TITLE: Beginners tutorial | |||
| * Beginners tutorial :TOC_4_gh:noexport: | |||
| - [[#why-spacemacs][Why Spacemacs?]] | |||
| - [[#install][Install]] | |||
| - [[#1-install-emacs][1. Install Emacs]] | |||
| - [[#2-install-git][2. Install Git]] | |||
| - [[#3-install-spacemacs][3. Install Spacemacs]] | |||
| - [[#note-for-windows-users][Note for Windows users]] | |||
| - [[#4-install-the-default-font][4. Install the default font]] | |||
| - [[#5-open-spacemacs-and-choose-default-editing-style][5. Open Spacemacs and choose default editing style]] | |||
| - [[#getting-started][Getting started]] | |||
| - [[#keybinding-notation][Keybinding notation]] | |||
| - [[#modal-text-editing---why-and-how][Modal text editing - why and how?]] | |||
| - [[#start-the-vim-tutorial][Start the Vim tutorial]] | |||
| - [[#using-the-spacebar-to-launch-commands][Using the spacebar to launch commands]] | |||
| - [[#buffers-windows-and-frames][Buffers, windows and frames]] | |||
| - [[#accessing-files][Accessing files]] | |||
| - [[#configuring-spacemacs][Configuring Spacemacs]] | |||
| - [[#adding-language-support-and-other-features-using-layers][Adding language support and other features: using layers]] | |||
| - [[#changing-the-colour-theme][Changing the colour theme]] | |||
| - [[#starting-maximized][Starting maximized]] | |||
| - [[#quitting][Quitting]] | |||
| - [[#additional-features-tips-and-troubleshooting][Additional features, tips and troubleshooting]] | |||
| - [[#org-mode][Org mode]] | |||
| - [[#version-control---the-intelligent-way][Version control - the intelligent way]] | |||
| - [[#daemon-mode-and-instant-startup-linux][Daemon mode and instant startup (Linux)]] | |||
| - [[#swap-caps-lock-and-esc-keys-on-your-keyboard][Swap caps lock and esc keys on your keyboard]] | |||
| - [[#troubleshooting-and-further-info][Troubleshooting and further info]] | |||
| * Why Spacemacs? | |||
| - Unparallelled text and structure editing for all types of writing tasks: | |||
| creative writing, blogging, note-taking, todo-lists, scientific papers... | |||
| - Powerful modes for programming in dozens of programming languages | |||
| - Deeply customizable yet beginner-friendly | |||
| * Install | |||
| Spacemacs is a beginner-friendly and powerful extension of a popular text | |||
| editor called Emacs. To install Spacemacs you need to first install base Emacs | |||
| and then download the Spacemacs extension files, which is most easily done by | |||
| using a program called Git. The steps are easy and outlined below. | |||
| ** 1. [[https://github.com/syl20bnr/spacemacs#prerequisites][Install Emacs]] | |||
| ** 2. [[https://git-scm.com/downloads][Install Git]] | |||
| ** 3. Install Spacemacs | |||
| Open a terminal or command prompt, paste the following code to it: | |||
| #+BEGIN_SRC sh | |||
| git clone https://github.com/syl20bnr/spacemacs ~/.emacs.d | |||
| #+END_SRC | |||
| Press enter to execute the code and the program you installed in the previous | |||
| step, Git, will download the Spacemacs extension files. | |||
| *** Note for Windows users | |||
| If you use windows, you have to modify the git command by inserting the correct | |||
| path to your .emacs.d folder. The dot before the folder means that it is hidden, | |||
| so you'll have to search for hidden files to find the folder. When you have | |||
| found the folder, substitute the original path with the correct one. The proper | |||
| code would look something like this: | |||
| #+BEGIN_SRC sh | |||
| git clone https://github.com/syl20bnr/spacemacs /path/to/your/.emacs.d | |||
| #+END_SRC | |||
| ** 4. Install the default font | |||
| The default font used by Spacemacs is Source Code Pro by Adobe. It is | |||
| recommended to [[https://github.com/adobe-fonts/source-code-pro#font-installation-instructions][install]] it on your system to ensure correct visual | |||
| representation. Also a "Fallback font" for nicer-looking symbols in the modeline | |||
| (bottom bar) is recommended. These depend on the system: | |||
| - gnu/linux: Nanum | |||
| - MacOS: Arial Unicode MS | |||
| - Windows: MS Gothic or Lucida Sans Unicode | |||
| If the modeline doesn't look as great as in the pictures, make sure you have the | |||
| correct fallback font installed on your system. | |||
| ** 5. Open Spacemacs and choose default editing style | |||
| Open Spacemacs by clicking the Emacs icon in your applications menu. The first | |||
| time Spacemacs launches, it will load and install packages and prompt you for | |||
| your preferred editing style. You have two options: Vim ("Among the stars aboard | |||
| the Evil flagship") and Emacs. If you haven't used Emacs before or are unsure | |||
| about the differences of the editing styles, we recommend selecting the default, | |||
| Vim, by pressing enter. Using this configuration is introduced more thoroughly | |||
| in the next section. If you are already familiar with Emacs or do not plan to | |||
| switch into modal editing style, select Emacs with the left and right arrow | |||
| keys. There is also a third option, "Hybrid", for more advanced users willing to | |||
| use both styles. All of these choices can be easily changed later by editing the | |||
| dotspacemacs-editing-style variable in the dotfile (see [[#configuring-spacemacs][Configuring Spacemacs]]), | |||
| so if modal editing does not sweep you away, you can switch to the Emacs style | |||
| later. | |||
| Next, you will be prompted for the distribution you would like to start with. | |||
| The standard distribution is recommended, press enter to select it. | |||
| Now Spacemacs will download and install required packages. This will take some | |||
| minutes depending on your connection. After everything is installed (you will | |||
| see the text "n packages loaded in x s" appear in the list under the Spacemacs | |||
| logo), restart Spacemacs. | |||
| Now your installation process is complete, congratulations! For troubleshooting, | |||
| see the last section. | |||
| * Getting started | |||
| ** Keybinding notation | |||
| The power of Spacemacs lies in its efficient keybindings. Because it is built on | |||
| Emacs, we will use Emacs conventions for keybinding notation. The most important | |||
| modifier keys are: | |||
| ~SPC~ = ~Space~, used as the leader key in Vim editing style. | |||
| ~C-~ = ~Ctrl~ | |||
| ~M-~ (for "meta") = ~Alt~ | |||
| ~S-~ = ~Shift~ | |||
| The modifier keys can be used either in a sequence or as key chords by pressing | |||
| two keys at the same time. ~SPC 1~ is notation for a key sequence and means | |||
| pressing ~Space~ first and pressing ~1~ after it. Key chords are notated by | |||
| writing a ~-~ between the keys. Thus ~C-c~ means pressing ~Ctrl~ and the letter | |||
| ~c~ simultaneously. Key chords and sequences can also be combined: ~C-c a~ means | |||
| "First press ~Ctrl~ and ~c~ simultaneously, then press ~a~". ~C-c C-a~ means | |||
| "First press ~Ctrl~ and ~c~ simultaneously, then press ~Ctrl~ and ~a~ | |||
| simultaneously". | |||
| This document assumes you chose the "Vim" editing style and notates accordingly. | |||
| If you chose the Emacs editing style, just substitute ~SPC~ with ~M-m~ in all | |||
| the commands that begin with ~SPC~. | |||
| (Note: Other modifier keys such as ~Super~, notated with a small-case ~s-~, can | |||
| be set up but this is rarely necessary in Spacemacs). | |||
| ** Modal text editing - why and how? | |||
| Writing (or programming) is typically not a simple linear process of adding | |||
| words and lines until finished. At least as important part of the work consists | |||
| of editing the text: deleting and rewriting parts, moving sentences around or | |||
| jumping to an earlier point to fix a discrepancy. | |||
| The crudest way to, for example, delete a certain line is moving the mouse to | |||
| the line in question, clicking on the line and then deleting it by pressing | |||
| backspace repeatedly. This is slow and inefficient, both because you have to | |||
| take your hands from your keyboard and because repeatedly pressing backspace | |||
| takes time. The more time you spend pressing keys, the more time and energy is | |||
| wasted. | |||
| To speed up editing, many editors use key chords for common editing tasks: | |||
| ~Control-c~ for copying and so on. However, these types of shortcuts tend to | |||
| have two problems. First, you have to press two keys at the same time, which is | |||
| harder to coordinate and thus slower than pressing keys in a sequence. Second, | |||
| you typically have to use your weakest fingers (pinkies) extensively and bend | |||
| your wrists in unergonomic positions, which is uncomfortable for many and risks | |||
| developing carpal tunnel syndrome in the long run. | |||
| By contrast, Spacemacs uses modal editing. Modal editing means that different | |||
| modes are used for editing and writing text. While this can sound complicated at | |||
| first, in practice it can be learned quickly and once learned is unparallelled | |||
| in speed and ergonomy. Our earlier example of deleting a certain line of text (a | |||
| very common edit task) can be achieved in Spacemacs by simply navigating to the | |||
| line in question with the keys ~j~ and ~k~ (navigation keys) and pressing ~d~ | |||
| (for "delete") two times! | |||
| You might have noticed that this was achieved entirely without moving your | |||
| fingers from your home row (the row where your fingers lie in rest when | |||
| touch-typing) and without using modifier keys. | |||
| ** Start the Vim tutorial | |||
| The modal editing features of Spacemacs originate from a text editor called Vi, | |||
| and thus the modal editing tutorial is called eVIl tutor. Press ~SPC h T~ (that | |||
| is, the spacebar followed by ~h~ and ~T~) to familiarize yourself with | |||
| modal editig. | |||
| ** Using the spacebar to launch commands | |||
| Now that you are familiar with writing and editing text it is time to put the | |||
| "Space" into Spacemacs. Because the spacebar is the most accessible key on the | |||
| keyboard and is pressed by the strongest fingers (the thumbs), it is a natural | |||
| choice for launching commands. You can think of it as the start menu of | |||
| Spacemacs. | |||
| A short instant after the spacebar is pressed a menu pops up. This interactive | |||
| menu shows you what submenus and commands can be accessed by subsequent | |||
| keypresses. Browsing around this menu is a great way of finding new features in | |||
| Spacemacs, so keep on eye on the different options! ~ESC~ usually breaks the | |||
| combination you don't want to use. | |||
| ** Buffers, windows and frames | |||
| Because Emacs (the extension of which Spacemacs is) was developed in the 80's | |||
| before the advent of modern graphical user interfaces, Emacs has | |||
| a different name of what we normally call "windows": in Emacs these are | |||
| called "frames". A frame is what pops up when you launch Spacemacs from your | |||
| desktop shortcut. A frame contains windows and buffers. | |||
| Windows are the visual spaces a frame is divided into. The default | |||
| is one, but windows can be split to allow editing multiple files in one frame. | |||
| Let's try this. Press ~SPC~ to bring up the menu. You can see different letters | |||
| having different submenus associated with them, usually with a mnemonic for | |||
| easier recall. The letter w is assigned for "windows": press it. A new menu | |||
| opens with further options. Write the character / to split the currently active | |||
| window vertically into two. | |||
| Now you should see two windows of this tutorial, and the one on the left should | |||
| be active, as can be seen from the modeline in the bottom or by moving the | |||
| cursor around using the navigation keys. This isn't very useful, as we | |||
| would probably want to see a different file on the right. | |||
| First, activate the window on the right with ~SPC 2~. Now that the window on the | |||
| right is active, we can open a different buffer for a different file. We'll use | |||
| the scratch buffer, which can be used like a notepad. Be warned, unlike other | |||
| buffers it doesn't prompt you whether you want to save the changes you've made | |||
| when quitting the program! Press ~SPC b~ to open the buffers menu and then | |||
| switch to the scratch buffer by pressing s. Now you have two different buffers | |||
| in two different windows open, great! You can write something on the scratch | |||
| buffer, and when you're done, make sure that the scratch window is active and | |||
| close it by pressing ~SPC w d~. | |||
| Now the tutorial window fills the whole frame. But you only closed the window, | |||
| not the scratch buffer, so the buffer is still open beneath the surface. You can | |||
| quickly switch between the current buffer and the last with ~SPC TAB~: use this | |||
| a couple of times to switch between the tutorial and the scratch buffer. ~SPC b~ | |||
| has more options for switching between buffers, for example ~SPC b b~ opens a | |||
| searchable list of all currently open buffers and ~SPC b d~ closes the current | |||
| buffer. | |||
| ** Accessing files | |||
| Files can be accessed under the ~SPC f~ mnemonic. You can navigate to any file | |||
| with ~SPC f f~ and open it by pressing enter. Accessing recently opened files is | |||
| a very common task and is done with ~SPC f r~. An edited file is saved with | |||
| ~SPC f s~. | |||
| * Configuring Spacemacs | |||
| :PROPERTIES: | |||
| :CUSTOM_ID: configuring-spacemacs | |||
| :END: | |||
| ** Adding language support and other features: using layers | |||
| Spacemacs divides its configuration into self-contained units called | |||
| configuration layers. These layers are stacked on top of each other to achieve a | |||
| custom configuration. | |||
| By default Spacemacs uses a dotfile called ~/.spacemacs to control which layers | |||
| to load. Within this file you can also configure certain features. First, split | |||
| the window vertically to view both this tutorial and the dotfile simultaneously | |||
| (~SPC w /~). Open the dotfile by pressing ~SPC f e d~. Navigate to the line | |||
| starting with "dotspacemacs-configuration-layers". The following lines have | |||
| further instructions: uncomment org and git layers if you want to be | |||
| familiarized with them. More layers for different languages and tools can be | |||
| found on [[https://github.com/syl20bnr/spacemacs/tree/master/layers][github]] or by pressing ~SPC h SPC~. The added layers will be installed | |||
| upon restart of Spacemacs. | |||
| Mac users: add the osx layer to use the OS X keybindings! | |||
| ** Changing the colour theme | |||
| You can toggle the theme by ~SPC T n~. This cycles between currently | |||
| activated themes. You can find more by adding the themes-megapack layer and | |||
| activate them by writing their names in the dotspacemacs-themes list. | |||
| ** Starting maximized | |||
| Editing the dotspacemacs-maximized-at-startup variable from nil to t will start | |||
| Spacemacs maximized. | |||
| ** Quitting | |||
| Save the changes you've made to the dotfile with ~SPC f s~ and then quit emacs | |||
| by ~SPC q q~. You can return to this tutorial by clicking it on the home screen! | |||
| * Additional features, tips and troubleshooting | |||
| ** Org mode | |||
| Org mode is one of the best features of Spacemacs and enough reason to warrant | |||
| its use. Org mode's official description tells that it is "for keeping notes, | |||
| maintaining todo lists, planning projects, and authoring documents with a fast | |||
| and effective plain-text system", but this gives only a small inkling of its | |||
| versatility. If you do any kind of writing at all, chances are that Org mode | |||
| will make it easier and more fun. This tutorial was written in Org mode. | |||
| Install the Org layer and open this tutorial. Press ~S-TAB~ repeatedly and | |||
| observe that this cycles the visibility of the contents of different headlines. | |||
| Press t in normal mode and observe that you can add TODO tags on headlines. | |||
| Press ~M-k~ or ~M-j~ in normal mode and see how you can quickly move parts of | |||
| the document around. | |||
| This is not even scratching the surface of Org mode, so you should look into its | |||
| [[https://github.com/syl20bnr/spacemacs/blob/master/layers/%252Bemacs/org/README.org][documentation]] for more information. Googling for Org mode tutorials is also very | |||
| helpful in finding out the most useful features of it! | |||
| ** Version control - the intelligent way | |||
| Version control means keeping track of the changes and edits you have made to | |||
| your document. Often version control is done by saving different versions of the | |||
| document with different names, such as "document version 13" and so on. This is | |||
| crude in many ways: if you want to, for example, re-add something you deleted, | |||
| you have to manually open several past versions of the document to find the one | |||
| with the deleted part, and then copy-paste it to the most recent file. More | |||
| complicated edits will be harder still. Fortunately, there is a much better way. | |||
| Git is the most popular version control system for programmers, but it can be as | |||
| useful for people that are writing school or scientific papers, fiction or blog | |||
| posts as well. | |||
| Install the git layer, restart Spacemacs and open a file you want to version | |||
| control. You can check the status of your file by pressing ~SPC g s~. Select the | |||
| folder your file is in. You will be prompted whether you want to create a | |||
| repository in the folder. Select yes. You will see a list of "Untracked files": | |||
| navigate to the file you want to track and press s to "stage changes". You might | |||
| be prompted to save the file: save it if necessary. Now the new file needs to be | |||
| commited: press c and c again. Two windows pop up: one showing the changes | |||
| you've made since the last edit (in this case, the whole document) and another | |||
| prompting for a commit message. Write "Initial commit", press ESC to exit back | |||
| to normal mode and press ~, c~ confirm and quit the commit | |||
| message. To abort, press ~, a~. | |||
| Now you know how to make a commit. The commits are saved in | |||
| the (hidden) .git folder in the same folder the tracked file(s) are in. You can | |||
| make further commits the same way. | |||
| ** Daemon mode and instant startup (Linux) | |||
| Emacs can be used in daemon mode: a daemon runs in the background and launches | |||
| clients. This way new frames launch instantly without delay. [[https://www.emacswiki.org/emacs/EmacsAsDaemon][Emacswiki]] tells | |||
| more about the daemon and how to set it to launch automatically on startup. | |||
| ** Swap caps lock and esc keys on your keyboard | |||
| This is useful outside of Spacemacs as well! | |||
| ** Troubleshooting and further info | |||
| ~SPC ?~ shows you the keybindings in the current major mode, which is often | |||
| helpful. For troubleshooting, please refer to the FAQ by pressing ~SPC f e f~ or | |||
| [[https://github.com/syl20bnr/spacemacs/blob/master/doc/FAQ.org][online]]. More help is found under ~SPC h~, and with ~SPC h ~SPC~ you can access | |||
| the comprehensive Spacemacs documentation, including this tutorial and the layer | |||
| documents. | |||
| The [[https://gitter.im/syl20bnr/spacemacs][Gitter chat]] can be used to ask questions if the answer cannot be found in | |||
| the documentation. For a detailed review of Spacemacs' features one can also | |||
| watch the [[https://www.youtube.com/playlist?list=PLrJ2YN5y27KLhd3yNs2dR8_inqtEiEweE][Spacemacs ABC series]] by Eivind Fonn on Youtube. Some of the | |||
| keybindings have changed since the videos were uploaded but seeing someone in | |||
| action helps spot helpful tricks that would otherwise be missed. | |||
+ 5
- 3
emacs.d/doc/CONVENTIONS.org
View File
+ 146
- 41
emacs.d/doc/DOCUMENTATION.org
View File
+ 7
- 1
emacs.d/doc/FAQ.org
View File
+ 12
- 5
emacs.d/doc/LAYERS.org
View File
+ 3
- 3
emacs.d/doc/QUICK_START.org
View File
+ 28
- 13
emacs.d/doc/VIMUSERS.org
View File
+ 6
- 7
emacs.d/init.el
View File
+ 1
- 1
emacs.d/layers/+chat/erc/README.org
View File
+ 1
- 1
emacs.d/layers/+chat/erc/config.el
View File
+ 1
- 1
emacs.d/layers/+chat/erc/funcs.el
View File
+ 1
- 1
emacs.d/layers/+chat/erc/local/erc-sasl/erc-sasl.el
View File
+ 1
- 1
emacs.d/layers/+chat/erc/packages.el
View File
+ 1
- 1
emacs.d/layers/+chat/jabber/funcs.el
View File
+ 1
- 1
emacs.d/layers/+chat/jabber/packages.el
View File
+ 1
- 1
emacs.d/layers/+chat/rcirc/config.el
View File
+ 1
- 1
emacs.d/layers/+chat/rcirc/funcs.el
View File
+ 1
- 1
emacs.d/layers/+chat/slack/README.org
View File
+ 1
- 1
emacs.d/layers/+chat/slack/packages.el
View File
+ 1
- 1
emacs.d/layers/+checkers/spell-checking/README.org
View File
+ 1
- 1
emacs.d/layers/+checkers/spell-checking/config.el
View File
+ 1
- 1
emacs.d/layers/+checkers/spell-checking/funcs.el
View File
+ 13
- 4
emacs.d/layers/+checkers/spell-checking/packages.el
View File
+ 3
- 3
emacs.d/layers/+checkers/syntax-checking/README.org
View File
+ 1
- 1
emacs.d/layers/+checkers/syntax-checking/config.el
View File
+ 1
- 1
emacs.d/layers/+checkers/syntax-checking/funcs.el
View File
+ 1
- 1
emacs.d/layers/+checkers/syntax-checking/packages.el
View File
+ 7
- 7
emacs.d/layers/+completion/auto-completion/README.org
View File
+ 1
- 1
emacs.d/layers/+completion/auto-completion/config.el
View File
+ 2
- 2
emacs.d/layers/+completion/auto-completion/funcs.el
View File
+ 5
- 1
emacs.d/layers/+completion/auto-completion/packages.el
View File
+ 10
- 1
emacs.d/layers/+completion/helm/funcs.el
View File
+ 85
- 0
emacs.d/layers/+completion/helm/local/helm-spacemacs-help/helm-spacemacs-faq.el
View File
| @ -0,0 +1,85 @@ | |||
| ;;; helm-spacemacs-help.el --- Spacemacs layer exploration with `helm'. | |||
| ;; Author: Sylvain Benner <sylvain.benner@gmail.com> | |||
| ;; Keywords: helm, spacemacs | |||
| ;; Version: 0.1 | |||
| ;; Package-Requires: ((helm "1.5")) | |||
| ;; 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. | |||
| ;; 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., 51 Franklin Street, Fifth Floor, | |||
| ;; Boston, MA 02110-1301, USA. | |||
| ;;; Commentary: | |||
| ;; This package adds a convenient way to discover Spacemacs FAQs in a | |||
| ;; a helm buffer. | |||
| ;; These sources are not part of `helm-spacemacs-help' feature because | |||
| ;; of its `org' dependency which triggers lots of `require'. | |||
| ;;; Code: | |||
| (require 'helm-spacemacs-help) | |||
| (require 'helm-org) | |||
| (defvar helm-spacemacs-help--faq-filename | |||
| (concat spacemacs-docs-directory "FAQ.org") | |||
| "Location of the FAQ file.") | |||
| ;;;###autoload | |||
| (defun helm-spacemacs-help-faq () | |||
| "Helm session to search for the FAQ." | |||
| (interactive) | |||
| (helm-spacemacs-help-mode) | |||
| (helm :buffer "*helm: spacemacs*" | |||
| :sources `(,(helm-spacemacs-help//faq-source)))) | |||
| (defun helm-spacemacs-help//faq-source () | |||
| "Construct the helm source for the FAQ." | |||
| `((name . "FAQ") | |||
| (candidates . ,(helm-spacemacs-help//faq-candidates)) | |||
| (candidate-number-limit) | |||
| (action . (("Go to question" . helm-spacemacs-help//faq-goto-marker))))) | |||
| (defun helm-spacemacs-help//faq-candidate (cand) | |||
| (let ((str (substring-no-properties (car cand)))) | |||
| (when (string-match "\\`.*/\\([^/]*\\)/\\(.*\\)\\'" str) | |||
| (cons (concat (propertize | |||
| (match-string 1 str) | |||
| 'face 'font-lock-type-face) | |||
| ": " (match-string 2 str)) | |||
| (cdr cand))))) | |||
| (defun helm-spacemacs-help//faq-candidates () | |||
| (let* ((helm-org-format-outline-path nil) | |||
| (cands (helm-org-get-candidates (list helm-spacemacs-help--faq-filename))) | |||
| section result) | |||
| (dolist (c cands) | |||
| (let ((str (substring-no-properties (car c)))) | |||
| (when (string-match "\\`\\* \\(.*\\)\\'" str) | |||
| (setq section (match-string 1 str))) | |||
| (when (string-match "\\`\\*\\* \\(.*\\)\\'" str) | |||
| (push (cons (concat (propertize section 'face 'font-lock-type-face) | |||
| ": " (match-string 1 str)) | |||
| (cdr c)) | |||
| result)))) | |||
| result)) | |||
| (defun helm-spacemacs-help//faq-goto-marker (marker) | |||
| (find-file helm-spacemacs-help--faq-filename) | |||
| (goto-char marker) | |||
| (org-show-context) | |||
| (org-show-entry)) | |||
| (provide 'helm-spacemacs-faq) | |||
| ;;; helm-spacemacs-faq.el ends here | |||