From c9a7cff17a8c18cbfa94cb8e8ae7f65bb1a96a7a Mon Sep 17 00:00:00 2001 From: Pierre-Olivier Mercier Date: Mon, 3 Nov 2025 18:18:41 +0700 Subject: [PATCH 1/3] python: What is this? --- stuff/my-python-mode.el | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/stuff/my-python-mode.el b/stuff/my-python-mode.el index d6d8543..a378ea1 100755 --- a/stuff/my-python-mode.el +++ b/stuff/my-python-mode.el @@ -1,33 +1,4 @@ (custom-set-variables '(python-indent 4)) -(defun python-mode-setup () - - ;; ------------- ;; - ;; CONFIGURATION ;; - ;; ------------- ;; - - ;; Comment boxing style - (set 'my-rebox-style 423) - - ;; -------- ;; - ;; BINDINGS ;; - ;; -------- ;; - - ;; comment - (define-key - py-mode-map - [(control c) (control c)] - 'comment-region) - - ;; rebox - (define-key - py-mode-map - [(meta q)] - 'my-rebox-comment) - -) - -(add-hook 'python-mode-hook 'python-mode-setup) - (provide 'my-python-mode) From 2d97873c1c92134358fa0cfeaded0984c38b1866 Mon Sep 17 00:00:00 2001 From: Pierre-Olivier Mercier Date: Sat, 24 Jan 2026 09:33:22 +0800 Subject: [PATCH 2/3] Update config --- .gitmodules | 6 ---- configs/modes.el | 71 ++++++++++++++++++++++++++++++++++++++++++++---- init.el | 13 ++++++++- 3 files changed, 77 insertions(+), 13 deletions(-) diff --git a/.gitmodules b/.gitmodules index 8ac246e..71004b4 100644 --- a/.gitmodules +++ b/.gitmodules @@ -1,9 +1,3 @@ [submodule "stuff/go-mode.el"] path = stuff/go.el url = https://github.com/dominikh/go-mode.el.git -[submodule "stuff/dockerfile-mode"] - path = stuff/dockerfile-mode - url = https://github.com/spotify/dockerfile-mode -[submodule "stuff/sass-mode"] - path = stuff/sass-mode - url = https://github.com/nex3/sass-mode diff --git a/configs/modes.el b/configs/modes.el index c092bc6..065dc93 100644 --- a/configs/modes.el +++ b/configs/modes.el @@ -28,8 +28,72 @@ (require 'edje-mode) (add-to-list 'auto-mode-alist '("\\.edc$" . edje-mode)) +;; web-mode +(require 'web-mode) +(add-to-list 'auto-mode-alist '("\\.svelte$" . web-mode)) +(setq web-mode-code-indent-offset 4) +(setq web-mode-css-indent-offset 4) +(setq web-mode-markup-indent-offset 4) +(setq web-mode-script-padding 4) +(setq web-mode-style-padding 4) +(setq web-mode-void-elements + '("area" "base" "br" "command" "embed" "hr" "img" "input" "keygen" + "link" "meta" "param" "source" "track" "wbr" "tmpl_var")) + +;; Vue.js-mode +(require 'vue-mode) +(add-to-list 'auto-mode-alist '("\\.vue$" . vue-mode)) +;(setq mmm-js-mode-enter-hook (lambda () (setq syntax-ppss-table nil))) +;(setq mmm-typescript-mode-enter-hook (lambda () (setq syntax-ppss-table nil))) +(defun fix-mmm-syntax () + (save-restriction + (setq-local syntax-ppss-table typescript-mode-syntax-table) + )) +(add-hook 'mmm-typescript-mode-enter-hook 'fix-mmm-syntax) +(setq js-indent-level 2) +(setq vue-html-extra-indent 2) +(setq-default indent-tabs-mode nil) + +(add-hook 'mmm-mode-hook + (lambda () + (set-face-background 'mmm-default-submode-face nil) + (add-to-list 'sgml-tag-alist '("b-col" \n ("cols" "6") ("sm" "6") ("md" "6") ("lg" "6") ("xl" "6") ("offset" "6") ("offset-sm" "6") ("offset-md" "6") ("offset-lg" "6") ("offset-xl" "6") ("order" "1") ("order-sm" "1") ("order-md" "1") ("order-lg" "1") ("order-xl" "1") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-container" \n ("fluid") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-row" \n ("no-gutters") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-form-row" \n ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-alert" \n ("variant" "info") ("dismissible") ("dismiss-label" "Close") ("show") ("fade") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-badge" \n ("href" "#") ("rel" "") ("target" "_self") ("active") ("disabled") ("to" "") ("append") ("replace") ("event" "click") ("active-class" "") ("exact") ("exact-active-class" "") ("router-tag" "a") ("no-prefetch") ("tag" "span") ("variant" "info") ("pill") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-breadcrumb" \n ("items" "") (":items" "{}") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-button" \n ("href" "#") ("rel" "") ("target" "_self") ("active") ("disabled") ("to" "") ("append") ("replace") ("event" "click") ("active-class" "") ("exact") ("exact-active-class" "") ("router-tag" "a") ("no-prefetch") ("block") ("size" "sm") ("variant" "info") ("type" "button") ("tag" "button") ("pill") ("squared") ("pressed") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-button-group" \n ("vertical") ("size" "sm") ("tag" "div") ("aria-role" "group") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-button-toolbar" \n ("justify") ("key-nav") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-calendar" \n ("id" "") ("value" "") ("value-as-date") ("initial-date" "") ("disabled") ("readonly") ("min" "") ("max" "") ("date-disabled-fn" "") ("start-weekday" "0") ("locale" "") ("direction" "") ("selected-variant" "primary") ("today-variant" "") ("no-highlight-today") ("date-info-fn" "") ("width" "270px") ("block") ("hide-header") ("show-decade-nav") ("hidden") ("aria-controls" "") ("role-description" "") ("label-prev-decade" "Previous decade") ("label-prev-year" "Previous year") ("label-prev-month" "Previous month") ("label-current-month" "Current month") ("label-next-month" "Next month") ("label-next-year" "Next year") ("label-next-decade" "Next decade") ("label-today" "Today") ("label-selected" "Selected date") ("label-no-date-selected" "No date selected") ("label-calendar" "Calendar") ("label-nav" "Calendar navigation") ("label-help" "Use cursor keys to navigate calendar dates") ("date-format-options" "{}") ("weekday-header-format" "short") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-form" \n ("id" "") ("inline") ("novalidate") ("validated") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-form-text" \n ("id" "") ("tag" "small") ("inline") ("text-variant" "muted") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-form-invalid-feedback" \n ("id" "") ("tag" "small") ("tooltip") ("force-show") ("state") ("aria-live" "") ("role" "") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-form-valid-feedback" \n ("id" "") ("tag" "small") ("tooltip") ("force-show") ("state") ("aria-live" "") ("role" "") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-form-datalist" \n (":options" "{}") ("value-field" "value") ("text-field" "text") ("html-field" "html") ("disabled-field" "disabled") ("id" "") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-form-input" \n ("id" "") ("name" "") ("disabled") ("required") ("form" "") ("autofocus") ("size" "sm") ("state") ("value" "") ("aria-invalid") ("readonly") ("plaintext") ("autocomplete" "") ("placeholder" "") ("formatter" "") ("lazy-formatter") ("trim") ("number") ("lazy") ("debounce" "0") ("type" "text") ("no-wheel") ("min" "") ("max" "") ("step" "") ("list" "{}") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-input-group" \n ("id" "") ("size" "sm") ("prepend" "") ("prepend-html" "") ("append" "") ("append-html" "") ("tag" "div") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-input-group-prepend" \n ("id" "") ("tag" "div") ("is-text") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-input-group-append" \n ("id" "") ("tag" "div") ("is-text") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-input-group-text" \n ("tag" "div") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-input-group-addon" \n ("id" "") ("tag" "div") ("is-text") ("append") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-nav" \n ("tag" "ul") ("fill") ("justified") ("align" "") ("tabs") ("pills") ("vertical") ("small") ("card-header") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-nav-item" \n ("href" "") ("rel" "") ("target" "") ("active") ("disabled") ("to" "") ("append") ("replace") ("event" "") ("active-class" "") ("exact") ("exact-active-class" "") ("router-tag" "a") ("no-prefetch") ("link-attrs" "{}") ("link-classes" "") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-nav-text" \n ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-nav-form" \n ("id" "") ("novalidate") ("validated") ("form-class" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-nav-item-dropdown" \n ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-navbar" \n ("tag" "nav") ("type" "light") ("variant" "") ("toggleable") ("fixed" "") ("sticky") ("print") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-navbar-nav" \n ("tag" "ul") ("fill") ("justified") ("align" "") ("small") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-navbar-brand" \n ("href" "#") ("ref" "") ("target" "_self") ("active") ("disabled") ("to" "") ("replace") ("event" "click") ("active-class" "") ("exact") ("exact-active-class" "") ("router-tag" "a") ("no-prefetch") ("tag" "div") ("v-model" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-navbar-toggle" \n ("label" "") ("target" "") ("v-if" "") ("v-for" ""))) + (add-to-list 'sgml-tag-alist '("b-spinner" \n ("type" "border") ("label" "") ("variant" "primary") ("small") ("role" "status") ("tag" "span") ("v-if" "") ("v-for" ""))) + ) + ) + ;; Org-mode -(require 'org-install) +;(require 'org-install) (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) (define-key global-map "\C-cl" 'org-store-link) (define-key global-map "\C-ca" 'org-agenda) @@ -57,8 +121,3 @@ ; (add-to-list 'flymake-allowed-file-name-masks ; '("\\.py\\'" flymake-pyflakes-init))) ;(add-hook 'find-file-hook 'flymake-find-file-hook) - -;; mmm-mode -(add-hook 'mmm-mode-hook - (lambda () - (set-face-background 'mmm-default-submode-face nil))) diff --git a/init.el b/init.el index 40ba2b3..affc0c2 100644 --- a/init.el +++ b/init.el @@ -3,6 +3,18 @@ ;; ;; Made by Némunaire +(require 'package) +(add-to-list 'package-archives + '("MELPA Stable" . "http://stable.melpa.org/packages/") t) + +;; Added by Package.el. This must come before configurations of +;; installed packages. Don't delete this line. If you don't want it, +;; just comment it out by adding a semicolon to the start of the line. +;; You may delete these explanatory comments. +(package-initialize) + +(setq flymake-allowed-file-name-masks nil) + (defun may-load (path) "Load a file if it exists." (when (file-readable-p path) @@ -42,7 +54,6 @@ (require 'my-layout) (require 'my-lisp-mode) (require 'my-python-mode) -(require 'vue-mode) ;; load my configuration files (toc:load-config-file '("key-binding" From afd61b5209706b58d2aa27d91c3160c2e1abf479 Mon Sep 17 00:00:00 2001 From: Pierre-Olivier Mercier Date: Sat, 24 Jan 2026 09:39:42 +0800 Subject: [PATCH 3/3] Add elpa packages --- .gitignore | 2 + .../aalto-dark-theme.el | 87 + .../aalto-light-theme.el | 168 + .../aliceblue-theme.el | 147 + .../color-theme-modern-0.0.3/andreas-theme.el | 220 + elpa/color-theme-modern-0.0.3/arjen-theme.el | 246 + .../beige-diff-theme.el | 63 + .../beige-eshell-theme.el | 59 + .../bharadwaj-slate-theme.el | 317 + .../bharadwaj-theme.el | 377 + elpa/color-theme-modern-0.0.3/billw-theme.el | 217 + .../black-on-gray-theme.el | 123 + .../blippblopp-theme.el | 99 + .../blue-erc-theme.el | 90 + .../blue-eshell-theme.el | 64 + .../blue-gnus-theme.el | 114 + .../blue-mood-theme.el | 136 + .../blue-sea-theme.el | 263 + .../calm-forest-theme.el | 174 + .../charcoal-black-theme.el | 303 + .../color-theme-modern-0.0.3/clarity-theme.el | 119 + .../color-theme-modern-0.0.3/classic-theme.el | 208 + elpa/color-theme-modern-0.0.3/cobalt-theme.el | 82 + .../color-theme-modern-autoloads.el | 1052 ++ .../color-theme-modern-pkg.el | 10 + .../color-theme-modern.el | 30 + .../color-theme-modern-0.0.3/comidia-theme.el | 193 + .../dark-blue-theme.el | 439 + .../dark-blue2-theme.el | 626 + .../dark-erc-theme.el | 91 + .../dark-font-lock-theme.el | 57 + .../dark-gnus-theme.el | 114 + .../dark-green-theme.el | 85 + .../dark-info-theme.el | 50 + .../dark-laptop-theme.el | 177 + .../deep-blue-theme.el | 137 + elpa/color-theme-modern-0.0.3/desert-theme.el | 175 + .../digital-ofs1-theme.el | 518 + .../emacs-21-theme.el | 391 + .../emacs-nw-theme.el | 400 + .../euphoria-theme.el | 109 + .../feng-shui-theme.el | 88 + .../fischmeister-theme.el | 72 + elpa/color-theme-modern-0.0.3/gnome-theme.el | 56 + elpa/color-theme-modern-0.0.3/gnome2-theme.el | 105 + .../goldenrod-theme.el | 165 + elpa/color-theme-modern-0.0.3/gray1-theme.el | 98 + elpa/color-theme-modern-0.0.3/gray30-theme.el | 200 + .../color-theme-modern-0.0.3/greiner-theme.el | 100 + .../color-theme-modern-0.0.3/gtk-ide-theme.el | 63 + .../high-contrast-theme.el | 271 + elpa/color-theme-modern-0.0.3/hober-theme.el | 277 + .../color-theme-modern-0.0.3/infodoc-theme.el | 126 + .../jb-simple-theme.el | 329 + .../jedit-grey-theme.el | 64 + .../jonadabian-slate-theme.el | 158 + .../jonadabian-theme.el | 66 + .../jsc-dark-theme.el | 208 + .../jsc-light-theme.el | 175 + .../jsc-light2-theme.el | 185 + elpa/color-theme-modern-0.0.3/julie-theme.el | 432 + .../katester-theme.el | 271 + .../kingsajz-theme.el | 281 + .../late-night-theme.el | 214 + .../lawrence-theme.el | 278 + .../color-theme-modern-0.0.3/ld-dark-theme.el | 353 + elpa/color-theme-modern-0.0.3/lethe-theme.el | 440 + elpa/color-theme-modern-0.0.3/marine-theme.el | 123 + .../marquardt-theme.el | 149 + elpa/color-theme-modern-0.0.3/matrix-theme.el | 683 + .../midnight-theme.el | 64 + .../mistyday-theme.el | 101 + elpa/color-theme-modern-0.0.3/montz-theme.el | 196 + elpa/color-theme-modern-0.0.3/oswald-theme.el | 97 + elpa/color-theme-modern-0.0.3/parus-theme.el | 165 + .../color-theme-modern-0.0.3/pierson-theme.el | 70 + .../color-theme-modern-0.0.3/pok-wob-theme.el | 181 + .../color-theme-modern-0.0.3/pok-wog-theme.el | 167 + .../railscast-theme.el | 91 + .../ramangalahy-theme.el | 211 + .../raspopovic-theme.el | 105 + .../renegade-theme.el | 75 + .../color-theme-modern-0.0.3/resolve-theme.el | 193 + .../retro-green-theme.el | 60 + .../retro-orange-theme.el | 60 + .../robin-hood-theme.el | 114 + elpa/color-theme-modern-0.0.3/rotor-theme.el | 113 + .../color-theme-modern-0.0.3/ryerson-theme.el | 52 + .../salmon-diff-theme.el | 63 + .../salmon-font-lock-theme.el | 56 + .../scintilla-theme.el | 63 + elpa/color-theme-modern-0.0.3/shaman-theme.el | 115 + .../simple-1-theme.el | 55 + .../sitaramv-nt-theme.el | 99 + .../sitaramv-solaris-theme.el | 210 + elpa/color-theme-modern-0.0.3/snow-theme.el | 139 + .../color-theme-modern-0.0.3/snowish-theme.el | 267 + .../standard-ediff-theme.el | 60 + .../standard-theme.el | 273 + .../color-theme-modern-0.0.3/subdued-theme.el | 110 + .../subtle-blue-theme.el | 437 + .../subtle-hacker-theme.el | 156 + .../taming-mr-arneson-theme.el | 178 + elpa/color-theme-modern-0.0.3/taylor-theme.el | 129 + .../tty-dark-theme.el | 88 + .../vim-colors-theme.el | 125 + .../whateveryouwant-theme.el | 410 + elpa/color-theme-modern-0.0.3/wheat-theme.el | 274 + .../word-perfect-theme.el | 154 + elpa/color-theme-modern-0.0.3/xemacs-theme.el | 121 + elpa/color-theme-modern-0.0.3/xp-theme.el | 191 + elpa/cond-let-0.2.1/cond-let-autoloads.el | 28 + elpa/cond-let-0.2.1/cond-let-pkg.el | 8 + elpa/cond-let-0.2.1/cond-let.el | 534 + elpa/dash-2.20.0/dash-autoloads.el | 83 + elpa/dash-2.20.0/dash-pkg.el | 10 + elpa/dash-2.20.0/dash.el | 4165 +++++ elpa/dash-2.20.0/dash.info | 4954 +++++ elpa/dash-2.20.0/dir | 18 + .../edit-indirect-autoloads.el | 60 + .../edit-indirect-0.1.13/edit-indirect-pkg.el | 9 + elpa/edit-indirect-0.1.13/edit-indirect.el | 435 + elpa/epl-0.9/epl-autoloads.el | 22 + elpa/epl-0.9/epl-pkg.el | 2 + elpa/epl-0.9/epl.el | 711 + elpa/flycheck-35.0/flycheck-autoloads.el | 306 + elpa/flycheck-35.0/flycheck-buttercup.el | 157 + elpa/flycheck-35.0/flycheck-ert.el | 451 + elpa/flycheck-35.0/flycheck-pkg.el | 12 + elpa/flycheck-35.0/flycheck.el | 13034 +++++++++++++ elpa/gnupg/pubring.kbx | Bin 0 -> 4169 bytes elpa/gnupg/trustdb.gpg | Bin 0 -> 1200 bytes elpa/llama-1.0.3/.dir-locals.el | 8 + elpa/llama-1.0.3/llama-autoloads.el | 112 + elpa/llama-1.0.3/llama-pkg.el | 9 + elpa/llama-1.0.3/llama.el | 572 + elpa/mmm-mode-0.5.11/dir | 18 + elpa/mmm-mode-0.5.11/mmm-auto.el | 178 + elpa/mmm-mode-0.5.11/mmm-class.el | 339 + elpa/mmm-mode-0.5.11/mmm-cmds.el | 442 + elpa/mmm-mode-0.5.11/mmm-compat.el | 130 + elpa/mmm-mode-0.5.11/mmm-cweb.el | 100 + elpa/mmm-mode-0.5.11/mmm-defaults.el | 62 + elpa/mmm-mode-0.5.11/mmm-erb.el | 243 + elpa/mmm-mode-0.5.11/mmm-mason.el | 175 + elpa/mmm-mode-0.5.11/mmm-mode-autoloads.el | 115 + elpa/mmm-mode-0.5.11/mmm-mode-pkg.el | 11 + elpa/mmm-mode-0.5.11/mmm-mode.el | 310 + elpa/mmm-mode-0.5.11/mmm-myghty.el | 187 + elpa/mmm-mode-0.5.11/mmm-noweb.el | 421 + elpa/mmm-mode-0.5.11/mmm-region.el | 932 + elpa/mmm-mode-0.5.11/mmm-rpm.el | 80 + elpa/mmm-mode-0.5.11/mmm-sample.el | 440 + elpa/mmm-mode-0.5.11/mmm-univ.el | 64 + elpa/mmm-mode-0.5.11/mmm-utils.el | 162 + elpa/mmm-mode-0.5.11/mmm-vars.el | 1148 ++ elpa/mmm-mode-0.5.11/mmm.info | 2086 +++ elpa/nix-mode-1.5.0/nix-build.el | 33 + elpa/nix-mode-1.5.0/nix-drv-mode.el | 50 + elpa/nix-mode-1.5.0/nix-edit.el | 39 + elpa/nix-mode-1.5.0/nix-flake.el | 575 + elpa/nix-mode-1.5.0/nix-format.el | 55 + elpa/nix-mode-1.5.0/nix-instantiate.el | 95 + elpa/nix-mode-1.5.0/nix-log.el | 41 + elpa/nix-mode-1.5.0/nix-mode-autoloads.el | 285 + elpa/nix-mode-1.5.0/nix-mode-pkg.el | 11 + elpa/nix-mode-1.5.0/nix-mode.el | 1059 ++ elpa/nix-mode-1.5.0/nix-prettify-mode.el | 181 + elpa/nix-mode-1.5.0/nix-repl.el | 222 + elpa/nix-mode-1.5.0/nix-search.el | 135 + elpa/nix-mode-1.5.0/nix-shebang.el | 46 + elpa/nix-mode-1.5.0/nix-shell.el | 294 + elpa/nix-mode-1.5.0/nix-store.el | 232 + elpa/nix-mode-1.5.0/nix.el | 368 + elpa/pkg-info-0.6/pkg-info-autoloads.el | 127 + elpa/pkg-info-0.6/pkg-info-pkg.el | 2 + elpa/pkg-info-0.6/pkg-info.el | 331 + elpa/ssass-mode-0.2/ssass-mode-autoloads.el | 27 + elpa/ssass-mode-0.2/ssass-mode-pkg.el | 2 + elpa/ssass-mode-0.2/ssass-mode.el | 242 + .../typescript-mode-autoloads.el | 49 + .../typescript-mode-pkg.el | 8 + .../typescript-mode-test-utilities.el | 63 + elpa/typescript-mode-0.4/typescript-mode.el | 2985 +++ .../vue-html-mode-autoloads.el | 27 + elpa/vue-html-mode-0.2/vue-html-mode-pkg.el | 2 + elpa/vue-html-mode-0.2/vue-html-mode.el | 133 + elpa/vue-mode-0.4/vue-mode-autoloads.el | 38 + elpa/vue-mode-0.4/vue-mode-pkg.el | 2 + elpa/vue-mode-0.4/vue-mode.el | 254 + elpa/web-mode-17.3.22.signed | 1 + elpa/web-mode-17.3.22/.github/CONTRIBUTING.md | 9 + elpa/web-mode-17.3.22/.github/FUNDING.yml | 2 + elpa/web-mode-17.3.22/README.md | 16 + elpa/web-mode-17.3.22/web-mode-autoloads.el | 39 + elpa/web-mode-17.3.22/web-mode-pkg.el | 2 + elpa/web-mode-17.3.22/web-mode.el | 15141 ++++++++++++++++ 197 files changed, 76816 insertions(+) create mode 100644 elpa/color-theme-modern-0.0.3/aalto-dark-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/aalto-light-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/aliceblue-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/andreas-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/arjen-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/beige-diff-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/beige-eshell-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/bharadwaj-slate-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/bharadwaj-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/billw-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/black-on-gray-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/blippblopp-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/blue-erc-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/blue-eshell-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/blue-gnus-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/blue-mood-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/blue-sea-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/calm-forest-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/charcoal-black-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/clarity-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/classic-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/cobalt-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/color-theme-modern-autoloads.el create mode 100644 elpa/color-theme-modern-0.0.3/color-theme-modern-pkg.el create mode 100644 elpa/color-theme-modern-0.0.3/color-theme-modern.el create mode 100644 elpa/color-theme-modern-0.0.3/comidia-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/dark-blue-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/dark-blue2-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/dark-erc-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/dark-font-lock-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/dark-gnus-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/dark-green-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/dark-info-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/dark-laptop-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/deep-blue-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/desert-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/digital-ofs1-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/emacs-21-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/emacs-nw-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/euphoria-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/feng-shui-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/fischmeister-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/gnome-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/gnome2-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/goldenrod-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/gray1-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/gray30-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/greiner-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/gtk-ide-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/high-contrast-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/hober-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/infodoc-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/jb-simple-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/jedit-grey-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/jonadabian-slate-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/jonadabian-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/jsc-dark-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/jsc-light-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/jsc-light2-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/julie-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/katester-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/kingsajz-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/late-night-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/lawrence-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/ld-dark-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/lethe-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/marine-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/marquardt-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/matrix-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/midnight-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/mistyday-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/montz-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/oswald-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/parus-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/pierson-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/pok-wob-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/pok-wog-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/railscast-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/ramangalahy-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/raspopovic-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/renegade-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/resolve-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/retro-green-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/retro-orange-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/robin-hood-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/rotor-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/ryerson-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/salmon-diff-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/salmon-font-lock-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/scintilla-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/shaman-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/simple-1-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/sitaramv-nt-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/sitaramv-solaris-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/snow-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/snowish-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/standard-ediff-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/standard-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/subdued-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/subtle-blue-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/subtle-hacker-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/taming-mr-arneson-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/taylor-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/tty-dark-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/vim-colors-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/whateveryouwant-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/wheat-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/word-perfect-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/xemacs-theme.el create mode 100644 elpa/color-theme-modern-0.0.3/xp-theme.el create mode 100644 elpa/cond-let-0.2.1/cond-let-autoloads.el create mode 100644 elpa/cond-let-0.2.1/cond-let-pkg.el create mode 100644 elpa/cond-let-0.2.1/cond-let.el create mode 100644 elpa/dash-2.20.0/dash-autoloads.el create mode 100644 elpa/dash-2.20.0/dash-pkg.el create mode 100644 elpa/dash-2.20.0/dash.el create mode 100644 elpa/dash-2.20.0/dash.info create mode 100644 elpa/dash-2.20.0/dir create mode 100644 elpa/edit-indirect-0.1.13/edit-indirect-autoloads.el create mode 100644 elpa/edit-indirect-0.1.13/edit-indirect-pkg.el create mode 100644 elpa/edit-indirect-0.1.13/edit-indirect.el create mode 100644 elpa/epl-0.9/epl-autoloads.el create mode 100644 elpa/epl-0.9/epl-pkg.el create mode 100644 elpa/epl-0.9/epl.el create mode 100644 elpa/flycheck-35.0/flycheck-autoloads.el create mode 100644 elpa/flycheck-35.0/flycheck-buttercup.el create mode 100644 elpa/flycheck-35.0/flycheck-ert.el create mode 100644 elpa/flycheck-35.0/flycheck-pkg.el create mode 100644 elpa/flycheck-35.0/flycheck.el create mode 100644 elpa/gnupg/pubring.kbx create mode 100644 elpa/gnupg/trustdb.gpg create mode 100644 elpa/llama-1.0.3/.dir-locals.el create mode 100644 elpa/llama-1.0.3/llama-autoloads.el create mode 100644 elpa/llama-1.0.3/llama-pkg.el create mode 100644 elpa/llama-1.0.3/llama.el create mode 100644 elpa/mmm-mode-0.5.11/dir create mode 100644 elpa/mmm-mode-0.5.11/mmm-auto.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-class.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-cmds.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-compat.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-cweb.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-defaults.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-erb.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-mason.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-mode-autoloads.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-mode-pkg.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-mode.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-myghty.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-noweb.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-region.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-rpm.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-sample.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-univ.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-utils.el create mode 100644 elpa/mmm-mode-0.5.11/mmm-vars.el create mode 100644 elpa/mmm-mode-0.5.11/mmm.info create mode 100644 elpa/nix-mode-1.5.0/nix-build.el create mode 100644 elpa/nix-mode-1.5.0/nix-drv-mode.el create mode 100644 elpa/nix-mode-1.5.0/nix-edit.el create mode 100644 elpa/nix-mode-1.5.0/nix-flake.el create mode 100644 elpa/nix-mode-1.5.0/nix-format.el create mode 100644 elpa/nix-mode-1.5.0/nix-instantiate.el create mode 100644 elpa/nix-mode-1.5.0/nix-log.el create mode 100644 elpa/nix-mode-1.5.0/nix-mode-autoloads.el create mode 100644 elpa/nix-mode-1.5.0/nix-mode-pkg.el create mode 100644 elpa/nix-mode-1.5.0/nix-mode.el create mode 100644 elpa/nix-mode-1.5.0/nix-prettify-mode.el create mode 100644 elpa/nix-mode-1.5.0/nix-repl.el create mode 100644 elpa/nix-mode-1.5.0/nix-search.el create mode 100644 elpa/nix-mode-1.5.0/nix-shebang.el create mode 100644 elpa/nix-mode-1.5.0/nix-shell.el create mode 100644 elpa/nix-mode-1.5.0/nix-store.el create mode 100644 elpa/nix-mode-1.5.0/nix.el create mode 100644 elpa/pkg-info-0.6/pkg-info-autoloads.el create mode 100644 elpa/pkg-info-0.6/pkg-info-pkg.el create mode 100644 elpa/pkg-info-0.6/pkg-info.el create mode 100644 elpa/ssass-mode-0.2/ssass-mode-autoloads.el create mode 100644 elpa/ssass-mode-0.2/ssass-mode-pkg.el create mode 100644 elpa/ssass-mode-0.2/ssass-mode.el create mode 100644 elpa/typescript-mode-0.4/typescript-mode-autoloads.el create mode 100644 elpa/typescript-mode-0.4/typescript-mode-pkg.el create mode 100644 elpa/typescript-mode-0.4/typescript-mode-test-utilities.el create mode 100644 elpa/typescript-mode-0.4/typescript-mode.el create mode 100644 elpa/vue-html-mode-0.2/vue-html-mode-autoloads.el create mode 100644 elpa/vue-html-mode-0.2/vue-html-mode-pkg.el create mode 100644 elpa/vue-html-mode-0.2/vue-html-mode.el create mode 100644 elpa/vue-mode-0.4/vue-mode-autoloads.el create mode 100644 elpa/vue-mode-0.4/vue-mode-pkg.el create mode 100644 elpa/vue-mode-0.4/vue-mode.el create mode 100644 elpa/web-mode-17.3.22.signed create mode 100644 elpa/web-mode-17.3.22/.github/CONTRIBUTING.md create mode 100644 elpa/web-mode-17.3.22/.github/FUNDING.yml create mode 100644 elpa/web-mode-17.3.22/README.md create mode 100644 elpa/web-mode-17.3.22/web-mode-autoloads.el create mode 100644 elpa/web-mode-17.3.22/web-mode-pkg.el create mode 100644 elpa/web-mode-17.3.22/web-mode.el diff --git a/.gitignore b/.gitignore index 4f86348..599fc14 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1,4 @@ +elpa/archives +eshell backup/ *.elc diff --git a/elpa/color-theme-modern-0.0.3/aalto-dark-theme.el b/elpa/color-theme-modern-0.0.3/aalto-dark-theme.el new file mode 100644 index 0000000..3ba9408 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/aalto-dark-theme.el @@ -0,0 +1,87 @@ +;;; aalto-dark-theme.el --- aalto-dark theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of aalto-dark theme from `color-themes' + +;;; Code: + +(deftheme aalto-dark + "aalto-dark theme") + +(custom-theme-set-faces + 'aalto-dark + + '(default ((t (:background "DeepSkyBlue3" :foreground "white")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:foreground "black")))) + + '(bold ((t (:bold t :background "blue3" :foreground "white")))) + '(bold-italic ((t (:italic t :bold t :foreground "blue3")))) + '(calendar-today-face ((t (:underline t)))) + '(diary-face ((t (:foreground "red")))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:foreground "OrangeRed")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) + '(font-lock-keyword-face ((t (:foreground "Cyan")))) + '(font-lock-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-type-face ((t (:foreground "PaleGreen")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(highlight ((t (:background "blue3" :foreground "white")))) + '(holiday-face ((t (:background "pink")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(italic ((t (:italic t :background "gray")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "green4")))) + '(message-header-name-face ((t (:foreground "DarkGreen")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) + '(message-header-other-face ((t (:foreground "#b00000")))) + '(message-header-subject-face ((t (:foreground "green3")))) + '(message-header-to-face ((t (:bold t :foreground "green2")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "blue3")))) + '(modeline ((t (:background "white" :foreground "DeepSkyBlue3")))) + '(modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3")))) + '(modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3")))) + '(modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3")))) + '(region ((t (:background "gray")))) + '(secondary-selection ((t (:background "darkslateblue")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(underline ((t (:underline t))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'aalto-dark) + +;;; aalto-dark-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/aalto-light-theme.el b/elpa/color-theme-modern-0.0.3/aalto-light-theme.el new file mode 100644 index 0000000..bff5fbe --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/aalto-light-theme.el @@ -0,0 +1,168 @@ +;;; aalto-light-theme.el --- aalto-light theme + +;; Copyright (C) 2001 Jari Aalto +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of aalto-light theme from `color-themes' + +;;; Code: + +(deftheme aalto-light + "aalto-light theme") + +(custom-theme-set-faces + 'aalto-light + + '(default ((t (:background "#FFFFE0" :foreground "DarkSlateGray4")))) + '(mouse ((t (:foreground "LawnGreen")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "darkseagreen2")))) + '(list-matching-lines-face ((t (:bold t)))) + '(tinyreplace-:face ((t (:background "darkseagreen2")))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(calendar-today-face ((t (:underline t)))) + '(cvs-filename-face ((t (:foreground "blue4")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "blue4")))) + '(cvs-marked-face ((t (:bold t :foreground "green3")))) + '(cvs-msg-face ((t (:italic t)))) + '(cvs-need-action-face ((t (:foreground "orange")))) + '(cvs-unknown-face ((t (:foreground "red")))) + '(diary-face ((t (:foreground "red")))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green")))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:foreground "Firebrick")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-function-name-face ((t (:foreground "Blue")))) + '(font-lock-keyword-face ((t (:foreground "Purple")))) + '(font-lock-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-type-face ((t (:foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4")))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "darkseagreen2")))) + '(holiday-face ((t (:background "pink")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "black" :foreground "white")))) + '(modeline-buffer-id ((t (:background "black" :foreground "white")))) + '(modeline-mousable ((t (:background "black" :foreground "white")))) + '(modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) + '(region ((t (:background "gray")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(sgml-comment-face ((t (:foreground "dark turquoise")))) + '(sgml-doctype-face ((t (:foreground "red")))) + '(sgml-end-tag-face ((t (:foreground "blue")))) + '(sgml-entity-face ((t (:foreground "magenta")))) + '(sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) + '(sgml-ms-end-face ((t (:foreground "green")))) + '(sgml-ms-start-face ((t (:foreground "green")))) + '(sgml-pi-face ((t (:foreground "lime green")))) + '(sgml-sgml-face ((t (:foreground "brown")))) + '(sgml-short-ref-face ((t (:foreground "deep sky blue")))) + '(sgml-start-tag-face ((t (:foreground "blue")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'aalto-light) + +;;; aalto-light-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/aliceblue-theme.el b/elpa/color-theme-modern-0.0.3/aliceblue-theme.el new file mode 100644 index 0000000..beea638 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/aliceblue-theme.el @@ -0,0 +1,147 @@ +;;; aliceblue-theme.el --- aliceblue theme + +;; Copyright (C) 2002 by Girish Bharadwaj +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of aliceblue theme from `color-themes' + +;;; Code: + +(deftheme aliceblue + "aliceblue theme") + +(custom-theme-set-faces + 'aliceblue + + '(default ((t (:background "AliceBlue" :foreground "DarkSlateGray4")))) + '(mouse ((t (:background "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:background "black")))) + + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "dark blue")))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "gray85")))) + '(custom-comment-tag-face ((t (:foreground "blue4")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique)))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold)))) + '(font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold)))) + '(font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) + '(font-lock-reference-face ((t (:foreground "Orchid")))) + '(font-lock-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic)))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed)))) + '(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(fringe ((t (:background "DarkSlateBlue")))) + '(header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) + '(highlight ((t (:background "darkseagreen2")))) + '(isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise")))) + '(italic ((t (:italic t :slant italic)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) + '(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) + '(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) + '(jde-java-font-lock-api-face ((t (:foreground "dark goldenrod")))) + '(jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "green4")))) + '(jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) + '(jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) + '(jde-java-font-lock-modifier-face ((t (:foreground "Orchid")))) + '(jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) + '(jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) + '(jde-java-font-lock-package-face ((t (:foreground "blue3")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(menu ((t (nil)))) + '(modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) + '(modeline-buffer-id ((t (:background "grey75" :foreground "black")))) + '(modeline-mousable ((t (:background "grey75" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black")))) + '(primary-selection ((t (:background "lightgoldenrod2")))) + '(region ((t (:background "lightgoldenrod2")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "yellow")))) + '(semantic-dirty-token-face ((t (:background "lightyellow")))) + '(semantic-unmatched-syntax-face ((t (:underline "red")))) + '(senator-intangible-face ((t (:foreground "gray25")))) + '(senator-momentary-highlight-face ((t (:background "gray70")))) + '(senator-read-only-face ((t (:background "#CCBBBB")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(template-message-face ((t (:bold t :weight bold)))) + '(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(zmacs-region ((t (:background "lightgoldenrod2"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'aliceblue) + +;;; aliceblue-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/andreas-theme.el b/elpa/color-theme-modern-0.0.3/andreas-theme.el new file mode 100644 index 0000000..e35ed4d --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/andreas-theme.el @@ -0,0 +1,220 @@ +;;; andreas-theme.el --- andreas theme + +;; Copyright (C) 2003 by Andreas Busch +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of andreas theme from `color-themes' + +;;; Code: + +(deftheme andreas + "andreas theme") + +(custom-theme-set-faces + 'andreas + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + '(OrangeRed ((t (nil)))) + '(gnus-mouse-face ((t (nil)))) + '(ispell-highlight-face ((t (nil)))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(calendar-today-face ((t (:underline t)))) + '(color-mode-face-@ ((t (:foreground "orange")))) + '(color-mode-face-a ((t (:foreground "blue")))) + '(color-mode-face-b ((t (:foreground "red")))) + '(color-mode-face-c ((t (:foreground "green3")))) + '(color-mode-face-d ((t (:background "red" :foreground "white")))) + '(color-mode-face-e ((t (:background "orange" :foreground "blue")))) + '(color-mode-face-f ((t (:background "blue" :foreground "yellow")))) + '(color-mode-face-g ((t (:background "lightblue" :foreground "brown")))) + '(color-mode-face-h ((t (:background "brown" :foreground "white")))) + '(custom-button-face ((t (:bold t)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t :background "gray90")))) + '(custom-variable-tag-face ((t (:underline t :background "gray95" :foreground "blue")))) + '(diary-face ((t (:foreground "red")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(emacs-wiki-bad-link-face ((t (:bold t :foreground "red")))) + '(emacs-wiki-link-face ((t (:bold t :foreground "green")))) + '(font-lock-comment-face ((t (:foreground "orange1")))) + '(font-lock-doc-string-face ((t (:foreground "green4")))) + '(font-lock-function-name-face ((t (:foreground "blue3")))) + '(font-lock-keyword-face ((t (:foreground "red1")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:foreground "green4")))) + '(font-lock-type-face ((t (:foreground "#6920ac")))) + '(font-lock-variable-name-face ((t (:foreground "blue3")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(gnu-cite-face-3 ((t (nil)))) + '(gnu-cite-face-4 ((t (nil)))) + '(gnus-cite-attribution-face ((t (:underline t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4")))) + '(gnus-header-from-face ((t (:bold t :foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:bold t :foreground "red4")))) + '(gnus-splash-face ((t (:foreground "red")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "DarkRed")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "Red")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (nil)))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75")))) + '(gui-element ((t (:background "Gray80")))) + '(highlight ((t (nil)))) + '(holiday-face ((t (:background "pink")))) + '(hyper-apropos-documentation ((t (:foreground "darkred")))) + '(hyper-apropos-heading ((t (:bold t)))) + '(hyper-apropos-hyperlink ((t (:foreground "blue4")))) + '(hyper-apropos-major-heading ((t (:bold t)))) + '(hyper-apropos-section-heading ((t (:italic t :bold t)))) + '(hyper-apropos-warning ((t (:bold t :foreground "red")))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (:background "yellow" :foreground "red")))) + '(italic ((t (:italic t)))) + '(kai-gnus-cite-face-1 ((t (:foreground "LightCyan4")))) + '(kai-gnus-cite-face-2 ((t (:foreground "LightSkyBlue2")))) + '(kai-gnus-cite-face-3 ((t (:foreground "DodgerBlue3")))) + '(kai-gnus-group-mail-face ((t (:foreground "darkslategrey")))) + '(kai-gnus-group-nonempty-mail-face ((t (:foreground "DarkRed")))) + '(kai-gnus-group-starred-face ((t (:foreground "grey50")))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68")))) + '(message-cited-text ((t (:italic t)))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-contents ((t (:italic t)))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-headers ((t (:bold t)))) + '(message-highlighted-header-contents ((t (:italic t :bold t)))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "Gray75" :foreground "Black")))) + '(modeline-buffer-id ((t (:background "Gray75" :foreground "blue4")))) + '(modeline-mousable ((t (:background "Gray75" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "gray80")))) + '(paren-match ((t (:background "red" :foreground "white")))) + '(paren-mismatch ((t (:background "DeepPink")))) + '(pointer ((t (:foreground "blue")))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "gray75")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(text-cursor ((t (:background "red" :foreground "LightYellow1")))) + '(toolbar ((t (:background "Gray80")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (:background "Gray80")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(x-face ((t (:background "white")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "gray65" :foreground "yellow"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'andreas) + +;;; andreas-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/arjen-theme.el b/elpa/color-theme-modern-0.0.3/arjen-theme.el new file mode 100644 index 0000000..df57785 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/arjen-theme.el @@ -0,0 +1,246 @@ +;;; arjen-theme.el --- arjen theme + +;; Copyright (C) 2001 -- 2008 Arjen Wiersma +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Arjen Wiersma +;; Maintainers: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of arjen theme from `color-themes' + +;;; Code: + +(deftheme arjen + "arjen theme") + +(custom-theme-set-faces + 'arjen + + '(default ((t (:background "black" :foreground "White")))) + '(mouse ((t (:foreground "sienna1")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:foreground "black")))) + + '(default ((t (:background "black" :foreground "white")))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:bold t)))) + '(border-glyph ((t (nil)))) + '(buffers-tab ((t (:background "black" :foreground "white")))) + '(buffers-tab-face ((t (:background "black" :foreground "white")))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:foreground "darkseagreen")))) + '(cperl-hash-face ((t (:foreground "darkseagreen")))) + '(cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) + '(cperl-here-face ((t (:foreground "Orange")))) + '(cperl-invalid-face ((nil (:underline nil)))) + '(cperl-pod-face ((t (:foreground "IndianRed")))) + '(cperl-pod-head-face ((t (:foreground "darkseagreen")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "light blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "lime green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "light blue")))) + '(diary-face ((t (:foreground "IndianRed")))) + '(erc-action-face ((t (:bold t)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "sandybrown")))) + '(erc-error-face ((t (:bold t :foreground "IndianRed")))) + '(erc-input-face ((t (:foreground "Beige")))) + '(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) + '(erc-notice-face ((t (:foreground "MediumAquamarine")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:foreground "MediumAquamarine")))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) + '(eshell-ls-backup-face ((t (:foreground "Grey")))) + '(eshell-ls-clutter-face ((t (:foreground "DimGray")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) + '(eshell-ls-executable-face ((t (:foreground "Coral")))) + '(eshell-ls-missing-face ((t (:foreground "black")))) + '(eshell-ls-picture-face ((t (:foreground "Violet")))) + '(eshell-ls-product-face ((t (:foreground "sandybrown")))) + '(eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) + '(eshell-ls-special-face ((t (:foreground "Gold")))) + '(eshell-ls-symlink-face ((t (:foreground "White")))) + '(eshell-ls-unreadable-face ((t (:foreground "DimGray")))) + '(eshell-prompt-face ((t (:foreground "MediumAquamarine")))) + '(fl-comment-face ((t (:foreground "pink")))) + '(fl-doc-string-face ((t (:foreground "purple")))) + '(fl-function-name-face ((t (:foreground "red")))) + '(fl-keyword-face ((t (:foreground "cadetblue")))) + '(fl-string-face ((t (:foreground "green")))) + '(fl-type-face ((t (:foreground "yellow")))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:foreground "IndianRed")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-doc-string-face ((t (:foreground "DarkOrange")))) + '(font-lock-function-name-face ((t (:foreground "YellowGreen")))) + '(font-lock-keyword-face ((t (:foreground "PaleYellow")))) + '(font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) + '(font-lock-reference-face ((t (:foreground "SlateBlue")))) + '(font-lock-string-face ((t (:foreground "Orange")))) + '(font-lock-type-face ((t (:foreground "Green")))) + '(font-lock-variable-name-face ((t (:foreground "darkseagreen")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(qt-classes-face ((t (:foreground "Red")))) + '(gnus-cite-attribution-face ((t (nil)))) + '(gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue")))) + '(gnus-cite-face-3 ((t (:bold nil :foreground "gold")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:bold nil :foreground "chocolate")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold nil)))) + '(gnus-emphasis-bold-italic ((t (:bold nil)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (nil)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold nil)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil)))) + '(gnus-emphasis-underline-italic ((t (:underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise")))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold nil :foreground "turquoise")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold nil)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold nil)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold nil)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold nil)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise")))) + '(gnus-header-content-face ((t (:foreground "forest green")))) + '(gnus-header-from-face ((t (:bold nil :foreground "spring green")))) + '(gnus-header-name-face ((t (:foreground "deep sky blue")))) + '(gnus-header-newsgroups-face ((t (:bold nil :foreground "purple")))) + '(gnus-header-subject-face ((t (:bold nil :foreground "orange")))) + '(gnus-signature-face ((t (:bold nil :foreground "khaki")))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue")))) + '(gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink")))) + '(gnus-summary-high-unread-face ((t (:bold nil)))) + '(gnus-summary-low-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-low-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-low-unread-face ((t (nil)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:background "#D4D0C8" :foreground "black")))) + '(highlight ((t (:background "darkolivegreen")))) + '(highline-face ((t (:background "SeaGreen")))) + '(holiday-face ((t (:background "DimGray")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) + '(info-xref ((t (:underline t :foreground "DodgerBlue1")))) + '(isearch ((t (:background "blue")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (nil)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68" :foreground "white")))) + '(message-cited-text-face ((t (:bold t :foreground "green")))) + '(message-header-cc-face ((t (:bold t :foreground "green4")))) + '(message-header-name-face ((t (:bold t :foreground "orange")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "violet")))) + '(message-header-other-face ((t (:bold t :foreground "chocolate")))) + '(message-header-subject-face ((t (:bold t :foreground "yellow")))) + '(message-header-to-face ((t (:bold t :foreground "cadetblue")))) + '(message-header-xheader-face ((t (:bold t :foreground "light blue")))) + '(message-mml-face ((t (:bold t :foreground "Green3")))) + '(message-separator-face ((t (:foreground "blue3")))) + '(modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button))))) + '(modeline-buffer-id ((t (:background "DarkRed" :foreground "white")))) + '(modeline-mousable ((t (:background "DarkRed" :foreground "white")))) + '(modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white")))) + '(p4-depot-added-face ((t (:foreground "blue")))) + '(p4-depot-deleted-face ((t (:foreground "red")))) + '(p4-depot-unmapped-face ((t (:foreground "grey30")))) + '(p4-diff-change-face ((t (:foreground "dark green")))) + '(p4-diff-del-face ((t (:foreground "red")))) + '(p4-diff-file-face ((t (:background "gray90")))) + '(p4-diff-head-face ((t (:background "gray95")))) + '(p4-diff-ins-face ((t (:foreground "blue")))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "blue")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "blue")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "darkslateblue")))) + '(show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) + '(text-cursor ((t (:background "yellow" :foreground "black")))) + '(toolbar ((t (nil)))) + '(underline ((nil (:underline nil)))) + '(vc-mode-face ((t (:background "darkolivegreen")))) + '(vertical-divider ((t (nil)))) + '(widget ((t (nil)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "snow" :foreground "blue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'arjen) + +;;; arjen-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/beige-diff-theme.el b/elpa/color-theme-modern-0.0.3/beige-diff-theme.el new file mode 100644 index 0000000..a3efcdd --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/beige-diff-theme.el @@ -0,0 +1,63 @@ +;;; beige-diff-theme.el --- beige-diff theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of beige-diff theme from `color-themes' + +;;; Code: + +(deftheme beige-diff + "beige-diff theme") + +(custom-theme-set-faces + 'beige-diff + + '(change-log-acknowledgement-face ((t (:foreground "firebrick")))) + '(change-log-conditionals-face ((t (:foreground "khaki" :background "sienna")))) + '(change-log-date-face ((t (:foreground "gold")))) + '(change-log-email-face ((t (:foreground "khaki" :underline t)))) + '(change-log-file-face ((t (:bold t :foreground "lemon chiffon")))) + '(change-log-function-face ((t (:foreground "khaki" :background "sienna")))) + '(change-log-list-face ((t (:foreground "wheat")))) + '(change-log-name-face ((t (:bold t :foreground "light goldenrod")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (:foreground "grey50")))) + '(diff-file-header-face ((t (:bold t :foreground "lemon chiffon")))) + '(diff-function-face ((t (:foreground "grey50")))) + '(diff-header-face ((t (:foreground "lemon chiffon")))) + '(diff-hunk-header-face ((t (:foreground "light goldenrod")))) + '(diff-index-face ((t (:bold t :underline t)))) + '(diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-removed-face ((t (nil)))) + '(log-view-message-face ((t (:foreground "lemon chiffon"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'beige-diff) + +;;; beige-diff-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/beige-eshell-theme.el b/elpa/color-theme-modern-0.0.3/beige-eshell-theme.el new file mode 100644 index 0000000..70646c6 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/beige-eshell-theme.el @@ -0,0 +1,59 @@ +;;; beige-eshell-theme.el --- beige-eshell theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of beige-eshell theme from `color-themes' + +;;; Code: + +(deftheme beige-eshell + "beige-eshell theme") + +(custom-theme-set-faces + 'beige-eshell + + '(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) + '(eshell-ls-backup-face ((t (:foreground "Grey")))) + '(eshell-ls-clutter-face ((t (:foreground "DimGray")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "dark khaki")))) + '(eshell-ls-executable-face ((t (:foreground "Coral")))) + '(eshell-ls-missing-face ((t (:foreground "black")))) + '(eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face + '(eshell-ls-product-face ((t (:foreground "dark sea green")))) + '(eshell-ls-readonly-face ((t (:foreground "light steel blue")))) + '(eshell-ls-special-face ((t (:foreground "gold")))) + '(eshell-ls-symlink-face ((t (:foreground "peach puff")))) + '(eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face + '(eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face + '(eshell-ls-unreadable-face ((t (:foreground "DimGray")))) + '(eshell-prompt-face ((t (:foreground "lemon chiffon"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'beige-eshell) + +;;; beige-eshell-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/bharadwaj-slate-theme.el b/elpa/color-theme-modern-0.0.3/bharadwaj-slate-theme.el new file mode 100644 index 0000000..37ed614 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/bharadwaj-slate-theme.el @@ -0,0 +1,317 @@ +;;; bharadwaj-slate-theme.el --- bharadwaj-slate theme + +;; Copyright (C) 2002 by Girish Bharadwaj +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of bharadwaj-slate theme from `color-themes' + +;;; Code: + +(deftheme bharadwaj-slate + "bharadwaj-slate theme") + +(custom-theme-set-faces + 'bharadwaj-slate + + '(default ((t (:background "DarkSlateGray" :foreground "palegreen")))) + '(mouse ((t (:background "black")))) + '(cursor ((t (:background "khaki")))) + '(border ((t (:background "black")))) + + '(display-time-mail-face ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet")))) + '(gnus-article-button-face ((t (:bold t :weight bold)))) + '(gnus-article-mouse-face ((t (:background "darkolivegreen")))) + '(gnus-mouse-face ((t (:background "darkolivegreen")))) + '(help-highlight-face ((t (:underline t)))) + '(ibuffer-deletion-face ((t (:foreground "lightblue3")))) + '(ibuffer-filter-group-name-face ((t (:bold t :weight bold)))) + '(ibuffer-marked-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(ibuffer-title-face ((t (:foreground "lightblue3")))) + '(list-matching-lines-buffer-name-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(view-highlight-face ((t (:background "darkolivegreen")))) + '(widget-mouse-face ((t (:background "darkolivegreen")))) + + '(bg:erc-color-face0 ((t (:background "White")))) + '(bg:erc-color-face1 ((t (:background "black")))) + '(bg:erc-color-face10 ((t (:background "lightblue1")))) + '(bg:erc-color-face11 ((t (:background "cyan")))) + '(bg:erc-color-face12 ((t (:background "blue")))) + '(bg:erc-color-face13 ((t (:background "deeppink")))) + '(bg:erc-color-face14 ((t (:background "gray50")))) + '(bg:erc-color-face15 ((t (:background "gray90")))) + '(bg:erc-color-face2 ((t (:background "blue4")))) + '(bg:erc-color-face3 ((t (:background "green4")))) + '(bg:erc-color-face4 ((t (:background "red")))) + '(bg:erc-color-face5 ((t (:background "brown")))) + '(bg:erc-color-face6 ((t (:background "purple")))) + '(bg:erc-color-face7 ((t (:background "orange")))) + '(bg:erc-color-face8 ((t (:background "yellow")))) + '(bg:erc-color-face9 ((t (:background "green")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :weight bold)))) + '(button ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "lime green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2)))) + '(erc-action-face ((t (:bold t :box (:line-width 2 :color "grey75") :weight bold)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "IndianRed")))) + '(erc-error-face ((t (:background "Red" :foreground "White")))) + '(erc-input-face ((t (:foreground "lightblue")))) + '(erc-inverse-face ((t (:background "Black" :foreground "White")))) + '(erc-notice-face ((t (:bold t :foreground "dodgerblue" :weight bold)))) + '(erc-prompt-face ((t (:bold t :background "black" :foreground "white" :weight bold)))) + '(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) + '(eshell-ls-backup-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) + '(eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold)))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) + '(eshell-ls-product-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-readonly-face ((t (:foreground "Pink")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold)))) + '(eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) + '(eshell-prompt-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(fg:erc-color-face0 ((t (:foreground "White")))) + '(fg:erc-color-face1 ((t (:foreground "black")))) + '(fg:erc-color-face10 ((t (:foreground "lightblue1")))) + '(fg:erc-color-face11 ((t (:foreground "cyan")))) + '(fg:erc-color-face12 ((t (:foreground "blue")))) + '(fg:erc-color-face13 ((t (:foreground "deeppink")))) + '(fg:erc-color-face14 ((t (:foreground "gray50")))) + '(fg:erc-color-face15 ((t (:foreground "gray90")))) + '(fg:erc-color-face2 ((t (:foreground "blue4")))) + '(fg:erc-color-face3 ((t (:foreground "green4")))) + '(fg:erc-color-face4 ((t (:foreground "red")))) + '(fg:erc-color-face5 ((t (:foreground "brown")))) + '(fg:erc-color-face6 ((t (:foreground "purple")))) + '(fg:erc-color-face7 ((t (:foreground "orange")))) + '(fg:erc-color-face8 ((t (:foreground "yellow")))) + '(fg:erc-color-face9 ((t (:foreground "green")))) + '(fixed-pitch ((t (:family "courier")))) + '(font-lock-builtin-face ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) + '(font-lock-comment-face ((t (:foreground "violet" :height 1.0)))) + '(font-lock-constant-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0)))) + '(font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold)))) + '(font-lock-keyword-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(font-lock-preprocessor-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0)))) + '(font-lock-reference-face ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) + '(font-lock-string-face ((t (:foreground "red" :height 1.0)))) + '(font-lock-type-face ((t (:foreground "lightblue3")))) + '(font-lock-variable-name-face ((t (:bold t :foreground "gray" :weight bold :height 1.0)))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(fringe ((t (:background "DarkSlateGray")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "light blue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "light cyan")))) + '(gnus-cite-face-3 ((t (:foreground "light yellow")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :weight bold)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t :weight bold)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t :weight bold)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) + '(gnus-header-content-face ((t (:italic t :foreground "forest green")))) + '(gnus-header-from-face ((t (:foreground "spring green")))) + '(gnus-header-name-face ((t (:foreground "SeaGreen")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) + '(gnus-header-subject-face ((t (:foreground "SeaGreen3")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(header-line ((t (:underline "blueviolet" :overline "blueviolet" :background "grey20" :foreground "grey90")))) + '(highlight ((t (:background "darkolivegreen")))) + '(html-helper-bold-face ((t (:bold t :foreground "wheat" :weight bold)))) + '(html-helper-italic-face ((t (:italic t :foreground "spring green")))) + '(html-helper-underline-face ((t (:foreground "cornsilk" :underline t)))) + '(html-tag-face ((t (:bold t :foreground "deep sky blue" :weight bold)))) + '(info-menu-6 ((t (nil)))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) + '(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) + '(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) + '(jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) + '(jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) + '(jde-java-font-lock-italic-face ((t (:italic t)))) + '(jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) + '(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) + '(jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) + '(jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) + '(jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(menu ((t (nil)))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) + '(message-header-name-face ((t (:foreground "DarkGreen")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :weight bold)))) + '(message-header-other-face ((t (:foreground "#b00000")))) + '(message-header-subject-face ((t (:foreground "green3")))) + '(message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "blue3")))) + '(minibuffer-prompt ((t (:foreground "cyan")))) + '(mode-line ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet")))) + '(mode-line-inactive ((t (:italic t :underline "blueviolet" :overline "blueviolet" :background "white" :foreground "cadetblue" :weight light)))) + '(modeline ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet")))) + '(modeline-buffer-id ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet")))) + '(modeline-mousable ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet")))) + '(modeline-mousable-minor-mode ((t (:background "Darkslategray" :foreground "white" :overline "blueviolet" :underline "blueviolet")))) + '(primary-selection ((t (:background "dimgray")))) + '(region ((t (:background "dimgray")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "SkyBlue4")))) + '(semantic-dirty-token-face ((t (:background "lightyellow")))) + '(semantic-unmatched-syntax-face ((t (:underline "red")))) + '(senator-intangible-face ((t (:foreground "gray75")))) + '(senator-momentary-highlight-face ((t (:background "gray30")))) + '(senator-read-only-face ((t (:background "#664444")))) + '(show-paren-match-face ((t (:bold t :foreground "lightblue" :weight bold :height 1.1)))) + '(show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold :height 1.1)))) + '(show-tabs-space-face ((t (:foreground "yellow")))) + '(show-tabs-tab-face ((t (:foreground "red")))) + '(speedbar-button-face ((t (:foreground "green3")))) + '(speedbar-directory-face ((t (:foreground "light blue")))) + '(speedbar-file-face ((t (:foreground "cyan")))) + '(speedbar-highlight-face ((t (:background "sea green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(template-message-face ((t (:bold t :weight bold)))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t :weight bold)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default ((t (:background "DarkSlateGray" :foreground "palegreen")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(tool-bar ((t (:background "DarkSlateGray" :foreground "White")))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray")))) + '(zmacs-region ((t (:background "dimgray"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'bharadwaj-slate) + +;;; bharadwaj-slate-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/bharadwaj-theme.el b/elpa/color-theme-modern-0.0.3/bharadwaj-theme.el new file mode 100644 index 0000000..43da5d0 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/bharadwaj-theme.el @@ -0,0 +1,377 @@ +;;; bharadwaj-theme.el --- bharadwaj theme + +;; Copyright (C) 2001 by Girish Bharadwaj +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of bharadwaj theme from `color-themes' + +;;; Code: + +(deftheme bharadwaj + "bharadwaj theme") + +(custom-theme-set-faces + 'bharadwaj + + '(default ((t (:background "gainsboro" :foreground "black")))) + '(mouse ((t (:foreground "grey15")))) + '(cursor ((t (:background "grey15")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "LightSkyBlue")))) + '(smiley-mouse-face ((t (:background "LightSkyBlue")))) + + '(bbdb-company ((t (nil)))) + '(bbdb-field-name ((t (:bold t)))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(blank-space-face ((t (nil)))) + '(blank-tab-face ((t (nil)))) + '(blue ((t (nil)))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:bold t)))) + '(border-glyph ((t (nil)))) + '(calendar-today-face ((t (:underline t)))) + '(comint-input-face ((t (:foreground "deepskyblue")))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) + '(cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red")))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (:bold t)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :bold t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) + '(cvs-filename-face ((t (:foreground "blue4")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "blue4")))) + '(cvs-marked-face ((t (:bold t :foreground "green3")))) + '(cvs-msg-face ((t (nil)))) + '(cvs-need-action-face ((t (:foreground "orange")))) + '(cvs-unknown-face ((t (:foreground "red")))) + '(diary-face ((t (:bold t :foreground "red")))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t :foreground "forestgreen")))) + '(dired-face-executable ((t (:foreground "indianred")))) + '(dired-face-flagged ((t (:background "SlateGray")))) + '(dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue")))) + '(dired-face-permissions ((t (nil)))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "grey95")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(erc-action-face ((t (:bold t)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (nil)))) + '(erc-error-face ((t (:bold t)))) + '(erc-input-face ((t (nil)))) + '(erc-inverse-face ((t (nil)))) + '(erc-notice-face ((t (nil)))) + '(erc-pal-face ((t (nil)))) + '(erc-prompt-face ((t (nil)))) + '(erc-underline-face ((t (nil)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red")))) + '(eshell-ls-picture-face ((t (nil)))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:bold t :foreground "Red")))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green")))) + '(excerpt ((t (nil)))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(fg:black ((t (:foreground "black")))) + '(fixed ((t (:bold t)))) + '(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) + '(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) + '(font-latex-bold-face ((t (nil)))) + '(font-latex-italic-face ((t (nil)))) + '(font-latex-math-face ((t (nil)))) + '(font-latex-sedate-face ((t (nil)))) + '(font-latex-string-face ((t (nil)))) + '(font-latex-warning-face ((t (nil)))) + '(font-lock-builtin-face ((t (:foreground "ForestGreen")))) + '(font-lock-comment-face ((t (:foreground "grey55")))) + '(font-lock-constant-face ((t (:foreground "OliveDrab")))) + '(font-lock-doc-string-face ((t (:bold t :foreground "blue4")))) + '(font-lock-exit-face ((t (nil)))) + '(font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue")))) + '(font-lock-keyword-face ((t (:foreground "DarkBlue")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:foreground "DarkRed")))) + '(font-lock-type-face ((t (:foreground "SteelBlue4")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) + '(fringe ((t (:background "grey95")))) + '(gnus-cite-attribution-face ((t (:bold t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:bold t)))) + '(gnus-emphasis-highlight-words ((t (nil)))) + '(gnus-emphasis-italic ((t (nil)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t)))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:foreground "indianred4")))) + '(gnus-header-from-face ((t (:bold t :foreground "red3")))) + '(gnus-header-name-face ((t (:bold t :foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:bold t :foreground "red4")))) + '(gnus-picons-face ((t (:background "white" :foreground "black")))) + '(gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) + '(gnus-signature-face ((t (nil)))) + '(gnus-splash ((t (nil)))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (nil)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (:bold t)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(green ((t (nil)))) + '(gui-button-face ((t (:background "grey75")))) + '(gui-element ((t (:background "Gray80")))) + '(highlight ((t (:background "LightSkyBlue")))) + '(highlight-changes-delete-face ((t (:underline t :foreground "red")))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "grey95")))) + '(holiday-face ((t (:background "pink")))) + '(html-helper-italic-face ((t (nil)))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:bold t)))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (:background "yellow")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (nil)))) + '(lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) + '(left-margin ((t (nil)))) + '(linemenu-face ((t (nil)))) + '(list-mode-item-selected ((t (nil)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:bold t)))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "white" :foreground "black")))) + '(modeline-buffer-id ((t (:background "white" :foreground "black")))) + '(modeline-mousable ((t (:background "white" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "white" :foreground "black")))) + '(paren-blink-off ((t (:foreground "gray80")))) + '(paren-face-match ((t (:background "turquoise")))) + '(paren-face-mismatch ((t (:background "purple" :foreground "white")))) + '(paren-face-no-match ((t (:background "yellow" :foreground "black")))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "black")))) + '(paren-mismatch-face ((t (:bold t)))) + '(paren-no-match-face ((t (:bold t)))) + '(pointer ((t (nil)))) + '(primary-selection ((t (nil)))) + '(red ((t (nil)))) + '(region ((t (:background "grey80")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "grey55")))) + '(sgml-comment-face ((t (:foreground "dark turquoise")))) + '(sgml-doctype-face ((t (nil)))) + '(sgml-end-tag-face ((t (nil)))) + '(sgml-entity-face ((t (nil)))) + '(sgml-ignored-face ((t (nil)))) + '(sgml-ms-end-face ((t (:foreground "green")))) + '(sgml-ms-start-face ((t (:foreground "green")))) + '(sgml-pi-face ((t (:foreground "lime green")))) + '(sgml-sgml-face ((t (nil)))) + '(sgml-short-ref-face ((t (:foreground "deep sky blue")))) + '(sgml-start-tag-face ((t (nil)))) + '(shell-option-face ((t (:foreground "blue")))) + '(shell-output-2-face ((t (:foreground "darkseagreen")))) + '(shell-output-3-face ((t (:foreground "slategrey")))) + '(shell-output-face ((t (:foreground "palegreen")))) + '(shell-prompt-face ((t (:foreground "red")))) + '(show-paren-match-face ((t (:background "grey80")))) + '(show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:bold t :foreground "green4")))) + '(speedbar-directory-face ((t (:bold t :foreground "blue4")))) + '(speedbar-file-face ((t (:bold t :foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(swbuff-current-buffer-face ((t (:bold t)))) + '(template-message-face ((t (:bold t)))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(text-cursor ((t (:background "grey15" :foreground "gainsboro")))) + '(toolbar ((t (nil)))) + '(underline ((t (:underline t)))) + '(vc-annotate-face-0046FF ((t (nil)))) + '(vcursor ((t (:underline t :background "cyan" :foreground "blue")))) + '(vertical-divider ((t (nil)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(vvb-face ((t (:background "pink" :foreground "black")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "navy" :foreground "white")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "royalblue" :foreground "white")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (nil)))) + '(woman-unknown-face ((t (nil)))) + '(xref-keyword-face ((t (:foreground "blue")))) + '(xref-list-pilot-face ((t (:foreground "navy")))) + '(xref-list-symbol-face ((t (:foreground "navy")))) + '(yellow ((t (nil)))) + '(zmacs-region ((t (:background "royalblue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'bharadwaj) + +;;; bharadwaj-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/billw-theme.el b/elpa/color-theme-modern-0.0.3/billw-theme.el new file mode 100644 index 0000000..10a5fb1 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/billw-theme.el @@ -0,0 +1,217 @@ +;;; billw-theme.el --- billw theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of billw theme from `color-themes' + +;;; Code: + +(deftheme billw + "billw theme") + +(custom-theme-set-faces + 'billw + + '(default ((t (:background "black" :foreground "cornsilk")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "white")))) + '(border ((t (:foreground "black")))) + + '(modeline ((t (:foreground "black" :background "wheat")))) + '(modeline-buffer-id ((t (:foreground "black" :background "wheat")))) + '(modeline-mousable ((t (:foreground "black" :background "wheat")))) + '(modeline-mousable-minor-mode ((t (:foreground "black" :background "wheat")))) + '(highlight ((t (:foreground "wheat" :background "darkslategray")))) + '(bold ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(bold-italic ((t (:bold t :italic t)))) + '(region ((t (:background "dimgray")))) + '(secondary-selection ((t (:background "deepskyblue4")))) + '(underline ((t (:underline t)))) + '(info-node ((t (:foreground "yellow" :bold t :italic t)))) + '(info-menu-5 ((t (:underline t)))) + '(info-xref ((t (:foreground "yellow" :bold t)))) + '(diary-face ((t (:foreground "orange")))) + '(calendar-today-face ((t (:underline t)))) + '(holiday-face ((t (:background "red")))) + '(show-paren-match-face ((t (:background "deepskyblue4")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "red")))) + '(font-lock-comment-face ((t (:foreground "gold")))) + '(font-lock-string-face ((t (:foreground "orange")))) + '(font-lock-keyword-face ((t (:foreground "cyan1")))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-function-name-face ((t (:foreground "mediumspringgreen")))) + '(font-lock-variable-name-face ((t (:foreground "light salmon")))) + '(font-lock-type-face ((t (:foreground "yellow1")))) + '(font-lock-constant-face ((t (:foreground "salmon")))) + '(font-lock-warning-face ((t (:foreground "gold" :bold t)))) + '(blank-space-face ((t (:background "LightGray")))) + '(blank-tab-face ((t (:foreground "black" :background "cornsilk")))) + '(highline-face ((t (:background "gray35")))) + '(eshell-ls-directory-face ((t (:foreground "green" :bold t)))) + '(eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t)))) + '(eshell-ls-executable-face ((t (:foreground "orange" :bold t)))) + '(eshell-ls-readonly-face ((t (:foreground "gray")))) + '(eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) + '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) + '(eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) + '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) + '(eshell-ls-backup-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-product-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-clutter-face ((t (:foreground "blue" :bold t)))) + '(sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) + '(custom-button-face ((t (:foreground "white")))) + '(sgml-ignored-face ((t (:foreground "gray20" :background "gray60")))) + '(sgml-doctype-face ((t (:foreground "orange")))) + '(sgml-sgml-face ((t (:foreground "yellow")))) + '(vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black")))) + '(custom-documentation-face ((t (:foreground "white")))) + '(sgml-end-tag-face ((t (:foreground "greenyellow")))) + '(linemenu-face ((t (:background "gray30")))) + '(sgml-entity-face ((t (:foreground "gold")))) + '(message-header-to-face ((t (:foreground "floral white" :bold t)))) + '(message-header-cc-face ((t (:foreground "ivory")))) + '(message-header-subject-face ((t (:foreground "papaya whip" :bold t)))) + '(message-header-newsgroups-face ((t (:foreground "lavender blush" :bold t :italic t)))) + '(message-header-other-face ((t (:foreground "pale turquoise")))) + '(message-header-name-face ((t (:foreground "light sky blue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "sandy brown")))) + '(message-cited-text-face ((t (:foreground "plum1")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:foreground "white" :bold t)))) + '(gnus-group-news-1-empty-face ((t (:foreground "white")))) + '(gnus-group-news-2-face ((t (:foreground "lightcyan" :bold t)))) + '(gnus-group-news-2-empty-face ((t (:foreground "lightcyan")))) + '(gnus-group-news-3-face ((t (:foreground "tan" :bold t)))) + '(gnus-group-news-3-empty-face ((t (:foreground "tan")))) + '(gnus-group-news-4-face ((t (:foreground "white" :bold t)))) + '(gnus-group-news-4-empty-face ((t (:foreground "white")))) + '(gnus-group-news-5-face ((t (:foreground "wheat" :bold t)))) + '(gnus-group-news-5-empty-face ((t (:foreground "wheat")))) + '(gnus-group-news-6-face ((t (:foreground "tan" :bold t)))) + '(gnus-group-news-6-empty-face ((t (:foreground "tan")))) + '(gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-mail-1-face ((t (:foreground "white" :bold t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-2-face ((t (:foreground "lightcyan" :bold t)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "lightcyan")))) + '(gnus-group-mail-3-face ((t (:foreground "tan" :bold t)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "tan")))) + '(gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-summary-selected-face ((t (:background "deepskyblue4" :underline t)))) + '(gnus-summary-cancelled-face ((t (:foreground "black" :background "gray")))) + '(gnus-summary-high-ticked-face ((t (:foreground "gray70" :bold t)))) + '(gnus-summary-low-ticked-face ((t (:foreground "gray70" :bold t)))) + '(gnus-summary-normal-ticked-face ((t (:foreground "gray70" :bold t)))) + '(gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t)))) + '(gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t)))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-splash-face ((t (:foreground "gold")))) + '(font-latex-bold-face ((t (nil)))) + '(font-latex-italic-face ((t (nil)))) + '(font-latex-math-face ((t (nil)))) + '(font-latex-sedate-face ((t (:foreground "Gray85")))) + '(font-latex-string-face ((t (:foreground "orange")))) + '(font-latex-warning-face ((t (:foreground "gold")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-button-face ((t (:bold t)))) + '(widget-field-face ((t (:background "gray20")))) + '(widget-single-line-field-face ((t (:background "gray20")))) + '(widget-inactive-face ((t (:foreground "wheat")))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(custom-invalid-face ((t (:foreground "yellow" :background "red")))) + '(custom-rogue-face ((t (:foreground "pink" :background "black")))) + '(custom-modified-face ((t (:foreground "white" :background "blue")))) + '(custom-set-face ((t (:foreground "blue")))) + '(custom-changed-face ((t (:foreground "wheat" :background "skyblue")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-state-face ((t (:foreground "light green")))) + '(custom-variable-tag-face ((t (:foreground "skyblue" :underline t)))) + '(custom-variable-button-face ((t (:bold t :underline t)))) + '(custom-face-tag-face ((t (:foreground "white" :underline t)))) + '(custom-group-tag-face-1 ((t (:foreground "pink" :underline t)))) + '(custom-group-tag-face ((t (:foreground "skyblue" :underline t)))) + '(swbuff-current-buffer-face ((t (:foreground "red" :bold t)))) + '(ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) + '(ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) + '(ediff-current-diff-face-C ((t (:foreground "white" :background "indianred")))) + '(ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) + '(ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) + '(ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) + '(ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) + '(ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) + '(ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) + '(ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) + '(ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) + '(ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) + '(ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) + '(ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:foreground "white" :background "goldenrod4")))) + '(gnus-emphasis-underline-bold ((t (:foreground "black" :background "yellow" :bold t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:foreground "black" :background "yellow" :italic t :underline t)))) + '(gnus-emphasis-bold-italic ((t (:bold t :italic t)))) + '(gnus-emphasis-underline-bold-italic ((t (:foreground "black" :background "yellow" :bold t :italic t :underline t)))) + '(gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-header-from-face ((t (:foreground "wheat")))) + '(gnus-header-subject-face ((t (:foreground "wheat" :bold t)))) + '(gnus-header-newsgroups-face ((t (:foreground "wheat" :italic t)))) + '(gnus-header-name-face ((t (:foreground "white")))) + '(gnus-header-content-face ((t (:foreground "tan" :italic t)))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-splash ((t (:foreground "Brown")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "light blue")))) + '(gnus-cite-face-2 ((t (:foreground "light cyan")))) + '(gnus-cite-face-3 ((t (:foreground "light yellow")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'billw) + +;;; billw-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/black-on-gray-theme.el b/elpa/color-theme-modern-0.0.3/black-on-gray-theme.el new file mode 100644 index 0000000..e06e1a3 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/black-on-gray-theme.el @@ -0,0 +1,123 @@ +;;; black-on-gray-theme.el --- black-on-gray theme + +;; Copyright (C) 2002 by sbhojwani +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of black-on-gray theme from `color-themes' + +;;; Code: + +(deftheme black-on-gray + "black-on-gray theme") + +(custom-theme-set-faces + 'black-on-gray + + '(default ((t (:background "white" :foreground "black")))) + '(border ((t (:foreground "blue")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t :size "10pt")))) + '(bold-italic ((t (:italic t :bold t :size "10pt")))) + '(border-glyph ((t (:size "11pt")))) + '(buffers-tab ((t (:background "gray75")))) + '(buffers-tab-face ((t (:background "gray75")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(ecb-bucket-token-face ((t (:bold t :size "10pt")))) + '(ecb-default-general-face ((t (nil)))) + '(ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow")))) + '(ecb-directories-general-face ((t (nil)))) + '(ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow")))) + '(ecb-history-face ((t (:background "cornflower blue" :foreground "yellow")))) + '(ecb-history-general-face ((t (nil)))) + '(ecb-method-face ((t (:background "cornflower blue" :foreground "yellow")))) + '(ecb-methods-general-face ((t (nil)))) + '(ecb-source-face ((t (:background "cornflower blue" :foreground "yellow")))) + '(ecb-source-in-directories-buffer-face ((t (:foreground "medium blue")))) + '(ecb-sources-general-face ((t (nil)))) + '(ecb-token-header-face ((t (:background "SeaGreen1")))) + '(ecb-type-token-class-face ((t (:bold t :size "10pt")))) + '(ecb-type-token-enum-face ((t (:bold t :size "10pt")))) + '(ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray")))) + '(ecb-type-token-interface-face ((t (:bold t :size "10pt")))) + '(ecb-type-token-struct-face ((t (:bold t :size "10pt")))) + '(ecb-type-token-typedef-face ((t (:bold t :size "10pt")))) + '(font-lock-builtin-face ((t (:foreground "red3")))) + '(font-lock-constant-face ((t (:foreground "blue3")))) + '(font-lock-comment-face ((t (:foreground "blue")))) + '(font-lock-doc-face ((t (:foreground "green4")))) + '(font-lock-doc-string-face ((t (:foreground "green4")))) + '(font-lock-function-name-face ((t (nil)))) + '(font-lock-keyword-face ((t (nil)))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (nil)))) + '(font-lock-type-face ((t (nil)))) + '(font-lock-variable-name-face ((t (nil)))) + '(font-lock-warning-face ((t (nil)))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75")))) + '(gui-element ((t (:size "8pt" :background "gray75")))) + '(highlight ((t (:background "darkseagreen2")))) + '(isearch ((t (:background "paleturquoise")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (:size "10pt")))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68")))) + '(modeline ((t (:background "gray75")))) + '(modeline-buffer-id ((t (:background "gray75" :foreground "blue4")))) + '(modeline-mousable ((t (:background "gray75" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "gray75" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "gray")))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (nil)))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "gray65")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(semantic-dirty-token-face ((t (nil)))) + '(semantic-unmatched-syntax-face ((t (nil)))) + '(text-cursor ((t (:background "red" :foreground "gray")))) + '(toolbar ((t (:background "gray75")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (:background "gray75")))) + '(widget ((t (:size "8pt" :background "gray75")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (nil)))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "gray65"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'black-on-gray) + +;;; black-on-gray-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/blippblopp-theme.el b/elpa/color-theme-modern-0.0.3/blippblopp-theme.el new file mode 100644 index 0000000..f7ff1fe --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/blippblopp-theme.el @@ -0,0 +1,99 @@ +;;; blippblopp-theme.el --- blippblopp theme + +;; Copyright (C) 2001 by Thomas Sicheritz-Ponten +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of blippblopp theme from `color-themes' + +;;; Code: + +(deftheme blippblopp + "blippblopp theme") + +(custom-theme-set-faces + 'blippblopp + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "Red3")))) + '(border ((t (:foreground "black")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(excerpt ((t (:italic t)))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(fg:black ((t (:foreground "black")))) + '(fixed ((t (:bold t)))) + '(font-lock-builtin-face ((t (:foreground "red3")))) + '(font-lock-comment-face ((t (:foreground "orange")))) + '(font-lock-constant-face ((t (:foreground "red3")))) + '(font-lock-doc-string-face ((t (:foreground "darkgreen")))) + '(font-lock-exit-face ((t (:foreground "green")))) + '(font-lock-function-name-face ((t (:bold t :foreground "red")))) + '(font-lock-keyword-face ((t (:bold t :foreground "steelblue")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:foreground "green4")))) + '(font-lock-type-face ((t (:bold t :foreground "blue")))) + '(font-lock-variable-name-face ((t (:foreground "black")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(green ((t (:foreground "green")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "dimgray" :foreground "lemonchiffon")))) + '(modeline-buffer-id ((t (:background "dimgray" :foreground "green3")))) + '(modeline-mousable ((t (:background "dimgray" :foreground "orange")))) + '(modeline-mousable-minor-mode ((t (:background "dimgray" :foreground "blue4")))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "gray65")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(text-cursor ((t (:background "Red3" :foreground "white")))) + '(toolbar ((t (:background "Gray80")))) + '(underline ((t (:underline t)))) + '(vcursor ((t (:underline t :background "cyan" :foreground "blue")))) + '(vertical-divider ((t (:background "Gray80")))) + '(xref-keyword-face ((t (:foreground "blue")))) + '(xref-list-pilot-face ((t (:foreground "navy")))) + '(xref-list-symbol-face ((t (:foreground "navy")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "gray65"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'blippblopp) + +;;; blippblopp-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/blue-erc-theme.el b/elpa/color-theme-modern-0.0.3/blue-erc-theme.el new file mode 100644 index 0000000..02eedf1 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/blue-erc-theme.el @@ -0,0 +1,90 @@ +;;; blue-erc-theme.el --- blue-erc theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of blue-erc theme from `color-themes' + +;;; Code: + +(deftheme blue-erc + "blue-erc theme") + +(custom-theme-set-faces + 'blue-erc + + '(erc-action-face ((t (nil)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-current-nick-face ((t (:bold t :foreground "yellow")))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "pale green")))) + '(erc-error-face ((t (:bold t :foreground "IndianRed")))) + '(erc-highlight-face ((t (:bold t :foreground "pale green")))) + '(erc-input-face ((t (:foreground "light blue")))) + '(erc-inverse-face ((t (:background "steel blue")))) + '(erc-keyword-face ((t (:foreground "orange" :bold t)))) + '(erc-notice-face ((t (:foreground "light salmon")))) + '(erc-notice-face ((t (:foreground "MediumAquamarine")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:foreground "light blue" :bold t)))) + '(fg:erc-color-face0 ((t (:foreground "white")))) + '(fg:erc-color-face1 ((t (:foreground "beige")))) + '(fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) + '(fg:erc-color-face3 ((t (:foreground "light cyan")))) + '(fg:erc-color-face4 ((t (:foreground "powder blue")))) + '(fg:erc-color-face5 ((t (:foreground "sky blue")))) + '(fg:erc-color-face6 ((t (:foreground "dark sea green")))) + '(fg:erc-color-face7 ((t (:foreground "pale green")))) + '(fg:erc-color-face8 ((t (:foreground "medium spring green")))) + '(fg:erc-color-face9 ((t (:foreground "khaki")))) + '(fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) + '(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) + '(fg:erc-color-face12 ((t (:foreground "light yellow")))) + '(fg:erc-color-face13 ((t (:foreground "yellow")))) + '(fg:erc-color-face14 ((t (:foreground "light goldenrod")))) + '(fg:erc-color-face15 ((t (:foreground "lime green")))) + '(bg:erc-color-face0 ((t (nil)))) + '(bg:erc-color-face1 ((t (nil)))) + '(bg:erc-color-face2 ((t (nil)))) + '(bg:erc-color-face3 ((t (nil)))) + '(bg:erc-color-face4 ((t (nil)))) + '(bg:erc-color-face5 ((t (nil)))) + '(bg:erc-color-face6 ((t (nil)))) + '(bg:erc-color-face7 ((t (nil)))) + '(bg:erc-color-face8 ((t (nil)))) + '(bg:erc-color-face9 ((t (nil)))) + '(bg:erc-color-face10 ((t (nil)))) + '(bg:erc-color-face11 ((t (nil)))) + '(bg:erc-color-face12 ((t (nil)))) + '(bg:erc-color-face13 ((t (nil)))) + '(bg:erc-color-face14 ((t (nil)))) + '(bg:erc-color-face15 ((t (nil))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'blue-erc) + +;;; blue-erc-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/blue-eshell-theme.el b/elpa/color-theme-modern-0.0.3/blue-eshell-theme.el new file mode 100644 index 0000000..ec79855 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/blue-eshell-theme.el @@ -0,0 +1,64 @@ +;;; blue-eshell-theme.el --- blue-eshell theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of blue-eshell theme from `color-themes' + +;;; Code: + +(deftheme blue-eshell + "blue-eshell theme") + +(custom-theme-set-faces + 'blue-eshell + + '(default ((t (:background "Blue-Eshell" :foreground "DarkSlateGray4")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) + '(eshell-ls-backup-face ((t (:foreground "Grey")))) + '(eshell-ls-clutter-face ((t (:foreground "DimGray")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) + '(eshell-ls-executable-face ((t (:foreground "Coral")))) + '(eshell-ls-missing-face ((t (:foreground "black")))) + '(eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face + '(eshell-ls-product-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) + '(eshell-ls-special-face ((t (:foreground "Gold")))) + '(eshell-ls-symlink-face ((t (:foreground "White")))) + '(eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face + '(eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face + '(eshell-ls-unreadable-face ((t (:foreground "DimGray")))) + '(eshell-prompt-face ((t (:foreground "powder blue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'blue-eshell) + +;;; blue-eshell-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/blue-gnus-theme.el b/elpa/color-theme-modern-0.0.3/blue-gnus-theme.el new file mode 100644 index 0000000..d674fb1 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/blue-gnus-theme.el @@ -0,0 +1,114 @@ +;;; blue-gnus-theme.el --- blue-gnus theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of blue-gnus theme from `color-themes' + +;;; Code: + +(deftheme blue-gnus + "blue-gnus theme") + +(custom-theme-set-faces + 'blue-gnus + + '(gnus-cite-attribution-face ((t (:foreground "lemon chiffon" :bold t)))) + '(gnus-cite-face-1 ((t (:foreground "LightSalmon")))) + '(gnus-cite-face-2 ((t (:foreground "Khaki")))) + '(gnus-cite-face-3 ((t (:foreground "Coral")))) + '(gnus-cite-face-4 ((t (:foreground "yellow green")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "bisque")))) + '(gnus-cite-face-7 ((t (:foreground "peru")))) + '(gnus-cite-face-8 ((t (:foreground "light coral")))) + '(gnus-cite-face-9 ((t (:foreground "plum")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "White")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "White")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-group-news-1-empty-face ((t (:foreground "White")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "White")))) + '(gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) + '(gnus-header-from-face ((t (:bold t :foreground "light cyan")))) + '(gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(gnus-signature-face ((t (:foreground "Grey")))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "beige")))) + '(gnus-summary-low-ancient-face ((t (:foreground "DimGray")))) + '(gnus-summary-low-read-face ((t (:foreground "slate gray")))) + '(gnus-summary-low-ticked-face ((t (:foreground "Pink")))) + '(gnus-summary-low-unread-face ((t (:foreground "LightGray")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) + '(gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:background "DarkSlateBlue")))) + '(message-cited-text-face ((t (:foreground "LightSalmon")))) + '(message-header-cc-face ((t (:foreground "light cyan")))) + '(message-header-name-face ((t (:foreground "LightBlue")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) + '(message-header-other-face ((t (:foreground "MediumAquamarine")))) + '(message-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(message-header-to-face ((t (:bold t :foreground "light cyan")))) + '(message-header-xheader-face ((t (:foreground "MediumAquamarine")))) + '(message-separator-face ((t (:foreground "chocolate"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'blue-gnus) + +;;; blue-gnus-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/blue-mood-theme.el b/elpa/color-theme-modern-0.0.3/blue-mood-theme.el new file mode 100644 index 0000000..a3cb79b --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/blue-mood-theme.el @@ -0,0 +1,136 @@ +;;; blue-mood-theme.el --- blue-mood theme + +;; Copyright (C) 2002 by Nelson Loyola +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of blue-mood theme from `color-themes' + +;;; Code: + +(deftheme blue-mood + "blue-mood theme") + +(custom-theme-set-faces + 'blue-mood + + '(default ((t (:background "DodgerBlue4" :foreground "white smoke")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "DarkGoldenrod1")))) + '(border ((t (:foreground "Blue")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (nil)))) + '(border-glyph ((t (nil)))) + '(cmode-bracket-face ((t (:bold t)))) + '(cperl-array-face ((t (:bold t :foreground "wheat")))) + '(cperl-hash-face ((t (:bold t :foreground "chartreuse")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:bold t :foreground "cyan")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(font-lock-builtin-face ((t (:bold t :foreground "wheat")))) + '(font-lock-comment-face ((t (:bold t :foreground "gray72")))) + '(font-lock-constant-face ((t (:bold t :foreground "cyan3")))) + '(font-lock-doc-string-face ((t (:foreground "#00C000")))) + '(font-lock-function-name-face ((t (:bold t :foreground "chartreuse")))) + '(font-lock-keyword-face ((t (:bold t :foreground "gold1")))) + '(font-lock-other-emphasized-face ((t (:bold t :foreground "gold1")))) + '(font-lock-other-type-face ((t (:bold t :foreground "gold1")))) + '(font-lock-preprocessor-face ((t (:foreground "plum")))) + '(font-lock-reference-face ((t (:bold t :foreground "orangered")))) + '(font-lock-string-face ((t (:foreground "tomato")))) + '(font-lock-type-face ((t (:bold t :foreground "gold1")))) + '(font-lock-variable-name-face ((t (:foreground "light yellow")))) + '(font-lock-warning-face ((t (:foreground "tomato")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000")))) + '(highlight ((t (:background "red" :foreground "yellow")))) + '(isearch ((t (:bold t :background "pale turquoise" :foreground "blue")))) + '(italic ((t (nil)))) + '(lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:bold t :background "gray68" :foreground "yellow")))) + '(modeline ((t (:background "goldenrod" :foreground "darkblue")))) + '(modeline-buffer-id ((t (:background "goldenrod" :foreground "darkblue")))) + '(modeline-mousable ((t (:background "goldenrod" :foreground "darkblue")))) + '(modeline-mousable-minor-mode ((t (:background "goldenrod" :foreground "darkblue")))) + '(my-tab-face ((t (:background "SlateBlue1")))) + '(p4-depot-added-face ((t (:foreground "steelblue1")))) + '(p4-depot-deleted-face ((t (:foreground "red")))) + '(p4-depot-unmapped-face ((t (:foreground "grey90")))) + '(p4-diff-change-face ((t (:foreground "dark green")))) + '(p4-diff-del-face ((t (:bold t :foreground "salmon")))) + '(p4-diff-file-face ((t (:background "blue")))) + '(p4-diff-head-face ((t (:background "blue")))) + '(p4-diff-ins-face ((t (:foreground "steelblue1")))) + '(paren-blink-off ((t (:foreground "DodgerBlue4")))) + '(paren-match ((t (:background "red" :foreground "yellow")))) + '(paren-mismatch ((t (:background "DeepPink")))) + '(pointer ((t (:background "white")))) + '(primary-selection ((t (:bold t :background "medium sea green")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "red" :foreground "yellow")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "gray91" :foreground "sienna3")))) + '(show-paren-match-face ((t (:background "cyan3" :foreground "blue")))) + '(show-paren-mismatch-face ((t (:background "red" :foreground "blue")))) + '(show-trailing-whitespace ((t (:background "red" :foreground "blue")))) + '(speedbar-button-face ((t (:foreground "white")))) + '(speedbar-directory-face ((t (:foreground "gray")))) + '(speedbar-file-face ((t (:foreground "gold1")))) + '(speedbar-highlight-face ((t (:background "lightslateblue" :foreground "gold1")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "chartreuse")))) + '(text-cursor ((t (:background "DarkGoldenrod1" :foreground "DodgerBlue4")))) + '(toolbar ((t (:background "#e7e3d6" :foreground "#000000")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (:background "#e7e3d6" :foreground "#000000")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "white" :foreground "midnightblue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'blue-mood) + +;;; blue-mood-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/blue-sea-theme.el b/elpa/color-theme-modern-0.0.3/blue-sea-theme.el new file mode 100644 index 0000000..2a8bd0b --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/blue-sea-theme.el @@ -0,0 +1,263 @@ +;;; blue-sea-theme.el --- blue-sea theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of blue-sea theme from `color-themes' + +;;; Code: + +(deftheme blue-sea + "blue-sea theme") + +(custom-theme-set-faces + 'blue-sea + + '(default ((t (:background "MidnightBlue" :foreground "Grey")))) + '(mouse ((t (:foreground "Grey")))) + '(cursor ((t (:background "Grey")))) + '(border ((t (:foreground "Grey")))) + + '(gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t)))) + '(gnus-cite-face-1 ((t (:foreground "LightSalmon")))) + '(gnus-cite-face-2 ((t (:foreground "Khaki")))) + '(gnus-cite-face-3 ((t (:foreground "Coral")))) + '(gnus-cite-face-4 ((t (:foreground "yellow green")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "bisque")))) + '(gnus-cite-face-7 ((t (:foreground "peru")))) + '(gnus-cite-face-8 ((t (:foreground "light coral")))) + '(gnus-cite-face-9 ((t (:foreground "plum")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "White")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "White")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-group-news-1-empty-face ((t (:foreground "White")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "White")))) + '(gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) + '(gnus-header-from-face ((t (:bold t :foreground "light cyan")))) + '(gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(gnus-signature-face ((t (:foreground "Grey")))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "beige")))) + '(gnus-summary-low-ancient-face ((t (:foreground "DimGray")))) + '(gnus-summary-low-read-face ((t (:foreground "slate gray")))) + '(gnus-summary-low-ticked-face ((t (:foreground "Pink")))) + '(gnus-summary-low-unread-face ((t (:foreground "LightGray")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) + '(gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:background "DarkSlateBlue")))) + '(message-cited-text-face ((t (:foreground "LightSalmon")))) + '(message-header-cc-face ((t (:foreground "light cyan")))) + '(message-header-name-face ((t (:foreground "LightBlue")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) + '(message-header-other-face ((t (:foreground "MediumAquamarine")))) + '(message-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(message-header-to-face ((t (:bold t :foreground "light cyan")))) + '(message-header-xheader-face ((t (:foreground "MediumAquamarine")))) + '(message-separator-face ((t (:foreground "chocolate")))) + + '(erc-action-face ((t (nil)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-current-nick-face ((t (:bold t :foreground "yellow")))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "pale green")))) + '(erc-error-face ((t (:bold t :foreground "IndianRed")))) + '(erc-highlight-face ((t (:bold t :foreground "pale green")))) + '(erc-input-face ((t (:foreground "light blue")))) + '(erc-inverse-face ((t (:background "steel blue")))) + '(erc-keyword-face ((t (:foreground "orange" :bold t)))) + '(erc-notice-face ((t (:foreground "light salmon")))) + '(erc-notice-face ((t (:foreground "MediumAquamarine")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:foreground "light blue" :bold t)))) + '(fg:erc-color-face0 ((t (:foreground "white")))) + '(fg:erc-color-face1 ((t (:foreground "beige")))) + '(fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) + '(fg:erc-color-face3 ((t (:foreground "light cyan")))) + '(fg:erc-color-face4 ((t (:foreground "powder blue")))) + '(fg:erc-color-face5 ((t (:foreground "sky blue")))) + '(fg:erc-color-face6 ((t (:foreground "dark sea green")))) + '(fg:erc-color-face7 ((t (:foreground "pale green")))) + '(fg:erc-color-face8 ((t (:foreground "medium spring green")))) + '(fg:erc-color-face9 ((t (:foreground "khaki")))) + '(fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) + '(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) + '(fg:erc-color-face12 ((t (:foreground "light yellow")))) + '(fg:erc-color-face13 ((t (:foreground "yellow")))) + '(fg:erc-color-face14 ((t (:foreground "light goldenrod")))) + '(fg:erc-color-face15 ((t (:foreground "lime green")))) + '(bg:erc-color-face0 ((t (nil)))) + '(bg:erc-color-face1 ((t (nil)))) + '(bg:erc-color-face2 ((t (nil)))) + '(bg:erc-color-face3 ((t (nil)))) + '(bg:erc-color-face4 ((t (nil)))) + '(bg:erc-color-face5 ((t (nil)))) + '(bg:erc-color-face6 ((t (nil)))) + '(bg:erc-color-face7 ((t (nil)))) + '(bg:erc-color-face8 ((t (nil)))) + '(bg:erc-color-face9 ((t (nil)))) + '(bg:erc-color-face10 ((t (nil)))) + '(bg:erc-color-face11 ((t (nil)))) + '(bg:erc-color-face12 ((t (nil)))) + '(bg:erc-color-face13 ((t (nil)))) + '(bg:erc-color-face14 ((t (nil)))) + '(bg:erc-color-face15 ((t (nil)))) + + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:bold t :foreground "beige")))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:foreground "light salmon" :bold t)))) + '(cperl-hash-face ((t (:foreground "beige" :bold t :italic t)))) + '(cperl-nonoverridable-face ((t (:foreground "aquamarine")))) + '(custom-button-face ((t (:foreground "gainsboro")))) + '(custom-changed-face ((t (:foreground "white" :background "blue")))) + '(custom-documentation-face ((t (:foreground "light blue")))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:foreground "pale turquoise" :bold t)))) + '(custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t)))) + '(custom-invalid-face ((t (:foreground "yellow" :background "red")))) + '(custom-modified-face ((t (:foreground "white" :background "blue")))) + '(custom-rogue-face ((t (:foreground "pink" :background "black")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:foreground "blue" :background "white")))) + '(custom-state-face ((t (:foreground "light salmon")))) + '(custom-variable-button-face ((t (:bold t :underline t)))) + '(custom-variable-tag-face ((t (:foreground "turquoise" :bold t)))) + '(diary-face ((t (:foreground "red")))) + '(dired-face-directory ((t (:bold t :foreground "sky blue")))) + '(dired-face-permissions ((t (:foreground "aquamarine")))) + '(dired-face-flagged ((t (:foreground "tomato")))) + '(dired-face-marked ((t (:foreground "light salmon")))) + '(dired-face-executable ((t (:foreground "green yellow")))) + '(eshell-ls-archive-face ((t (:bold t :foreground "medium purple")))) + '(eshell-ls-backup-face ((t (:foreground "dim gray")))) + '(eshell-ls-clutter-face ((t (:foreground "dim gray")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "aquamarine")))) + '(eshell-ls-missing-face ((t (:foreground "black")))) + '(eshell-ls-picture-face ((t (:foreground "violet")))) + '(eshell-ls-product-face ((t (:foreground "light steel blue")))) + '(eshell-ls-readonly-face ((t (:foreground "aquamarine")))) + '(eshell-ls-special-face ((t (:foreground "gold")))) + '(eshell-ls-symlink-face ((t (:foreground "white")))) + '(eshell-ls-unreadable-face ((t (:foreground "dim gray")))) + '(eshell-prompt-face ((t (:foreground "light sky blue" :bold t)))) + '(excerpt ((t (:italic t)))) + '(fixed ((t (:bold t)))) + '(flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) + '(flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) + '(font-lock-builtin-face ((t (:foreground "aquamarine")))) + '(font-lock-comment-face ((t (:foreground "light blue")))) + '(font-lock-constant-face ((t (:foreground "pale green")))) + '(font-lock-doc-string-face ((t (:foreground "sky blue")))) + '(font-lock-function-name-face ((t (:bold t :foreground "aquamarine")))) + '(font-lock-keyword-face ((t (:foreground "pale turquoise" :bold t)))) + '(font-lock-reference-face ((t (:foreground "pale green")))) + '(font-lock-string-face ((t (:foreground "light sky blue")))) + '(font-lock-type-face ((t (:foreground "sky blue" :bold t)))) + '(font-lock-variable-name-face ((t (:foreground "turquoise" :bold t)))) + '(font-lock-warning-face ((t (:foreground "Red" :bold t)))) + '(fringe ((t (:background "MidnightBlue")))) + '(header-line ((t (:background "#002" :foreground "cornflower blue")))) + '(highlight ((t (:background "dark slate blue" :foreground "light blue")))) + '(highline-face ((t (:background "DeepSkyBlue4")))) + '(holiday-face ((t (:background "pink")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:bold t)))) + '(info-xref ((t (:bold t :foreground "sky blue")))) + '(isearch ((t (:background "slate blue")))) + '(italic ((t (:foreground "sky blue")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(menu ((t (:background "MidnightBlue" :foreground "Grey")))) + '(modeline ((t (:foreground "wheat" :background "slate blue")))) + '(mode-line-inactive ((t (:background "dark slate blue" :foreground "wheat")))) + '(modeline-buffer-id ((t (:foreground "beige" :background "slate blue")))) + '(modeline-mousable ((t (:foreground "light cyan" :background "slate blue")))) + '(modeline-mousable-minor-mode ((t (:foreground "wheat" :background "slate blue")))) + '(region ((t (:background "DarkSlateBlue")))) + '(secondary-selection ((t (:background "steel blue")))) + '(show-paren-match-face ((t (:foreground "white" :background "light slate blue")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "red")))) + '(speedbar-button-face ((t (:foreground "seashell2")))) + '(speedbar-directory-face ((t (:foreground "seashell3")))) + '(speedbar-file-face ((t (:foreground "seashell4")))) + '(speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat")))) + '(speedbar-selected-face ((t (:foreground "seashell1" :underline t)))) + '(speedbar-tag-face ((t (:foreground "antique white")))) + '(tool-bar ((t (:background "MidnightBlue" :foreground "Grey" :box (:line-width 1 :style released-button))))) + '(underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "light blue")))) + '(widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat")))) + '(woman-bold-face ((t (:foreground "sky blue" :bold t)))) + '(woman-italic-face ((t (:foreground "deep sky blue")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(Man-overstrike-face ((t (:foreground "sky blue" :bold t)))) + '(Man-underline-face ((t (:foreground "deep sky blue")))) + '(zmacs-region ((t (:background "DarkSlateBlue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'blue-sea) + +;;; blue-sea-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/calm-forest-theme.el b/elpa/color-theme-modern-0.0.3/calm-forest-theme.el new file mode 100644 index 0000000..55d60b4 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/calm-forest-theme.el @@ -0,0 +1,174 @@ +;;; calm-forest-theme.el --- calm-forest theme + +;; Copyright (C) 2003 by Artur Hefczyc +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of calm-forest theme from `color-themes' + +;;; Code: + +(deftheme calm-forest + "calm-forest theme") + +(custom-theme-set-faces + 'calm-forest + + '(default ((t (:background "gray12" :foreground "green")))) + '(mouse ((t (:background "yellow")))) + '(cursor ((t (:background "orange")))) + '(border ((t (:background "black")))) + + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(view-highlight-face ((t (:background "darkolivegreen")))) + '(widget-mouse-face ((t (:background "darkolivegreen")))) + + '(Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) + '(Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) + '(Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) + '(Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :weight bold)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(cparen-around-andor-face ((t (:bold t :foreground "maroon" :weight bold)))) + '(cparen-around-begin-face ((t (:foreground "maroon")))) + '(cparen-around-conditional-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) + '(cparen-around-define-face ((t (:bold t :foreground "Blue" :weight bold)))) + '(cparen-around-lambda-face ((t (:foreground "LightSeaGreen")))) + '(cparen-around-letdo-face ((t (:bold t :foreground "LightSeaGreen" :weight bold)))) + '(cparen-around-quote-face ((t (:foreground "SaddleBrown")))) + '(cparen-around-set!-face ((t (:foreground "OrangeRed")))) + '(cparen-around-syntax-rules-face ((t (:foreground "Magenta")))) + '(cparen-around-vector-face ((t (:foreground "chocolate")))) + '(cparen-binding-face ((t (:foreground "ForestGreen")))) + '(cparen-binding-list-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) + '(cparen-conditional-clause-face ((t (:foreground "RoyalBlue")))) + '(cparen-normal-paren-face ((t (:foreground "grey50")))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "lime green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) + '(eieio-custom-slot-tag-face ((t (:foreground "light blue")))) + '(extra-whitespace-face ((t (:background "pale green")))) + '(fixed-pitch ((t (:family "courier")))) + '(font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold)))) + '(font-latex-italic-face ((t (:italic t :foreground "OliveDrab")))) + '(font-latex-math-face ((t (:foreground "burlywood")))) + '(font-latex-sedate-face ((t (:foreground "LightGray")))) + '(font-latex-string-face ((t (:foreground "RosyBrown")))) + '(font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:foreground "chocolate1")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-doc-face ((t (:foreground "LightSalmon")))) + '(font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) + '(font-lock-keyword-face ((t (:foreground "Cyan")))) + '(font-lock-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-type-face ((t (:foreground "PaleGreen")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(fringe ((t (:background "grey10")))) + '(header-line ((t (:background "grey20" :foreground"grey90" + :box (:line-width -1 :style released-button))))) + '(highlight ((t (:background "darkolivegreen")))) + '(info-header-node ((t (:italic t :bold t :weight bold :foreground "white")))) + '(info-header-xref ((t (:bold t :weight bold :foreground "cyan")))) + '(info-menu-5 ((t (:foreground "red1")))) + '(info-menu-header ((t (:bold t :family "helv" :weight bold)))) + '(info-node ((t (:italic t :bold t :foreground "white" :weight bold)))) + '(info-xref ((t (:bold t :foreground "cyan" :weight bold)))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) + '(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) + '(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) + '(jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) + '(jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) + '(jde-java-font-lock-italic-face ((t (:italic t)))) + '(jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) + '(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) + '(jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) + '(jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) + '(jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(menu ((t (nil)))) + '(mode-line ((t (:background "grey75" :foreground "black" + :box (:line-width -1 :style released-button))))) + '(region ((t (:background "blue3")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "SkyBlue4")))) + '(semantic-dirty-token-face ((t (:background "gray10")))) + '(semantic-unmatched-syntax-face ((t (:underline "red")))) + '(senator-intangible-face ((t (:foreground "gray75")))) + '(senator-momentary-highlight-face ((t (:background "gray30")))) + '(senator-read-only-face ((t (:background "#664444")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green3")))) + '(speedbar-directory-face ((t (:foreground "light blue")))) + '(speedbar-file-face ((t (:foreground "cyan")))) + '(speedbar-highlight-face ((t (:background "sea green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray")))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(tool-bar ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'calm-forest) + +;;; calm-forest-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/charcoal-black-theme.el b/elpa/color-theme-modern-0.0.3/charcoal-black-theme.el new file mode 100644 index 0000000..7edace2 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/charcoal-black-theme.el @@ -0,0 +1,303 @@ +;;; charcoal-black-theme.el --- charcoal-black theme + +;; Copyright (C) 2003 by Lars Chr. Hausmann +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of charcoal-black theme from `color-themes' + +;;; Code: + +(deftheme charcoal-black + "charcoal-black theme") + +(custom-theme-set-faces + 'charcoal-black + + '(default ((t (:background "Grey15" :foreground "Grey")))) + '(mouse ((t (:background "Grey")))) + '(cursor ((t (:background "Grey")))) + '(border ((t (:background "Grey")))) + + '(display-time-mail-face ((t (:underline t)))) + '(gnus-article-button-face ((t (:bold t :weight bold)))) + '(gnus-article-mouse-face ((t (:background "dark slate blue" :foreground "light blue")))) + '(gnus-mouse-face ((t (:background "dark slate blue" :foreground "light blue")))) + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(mime-button-face ((t (:bold t :weight bold)))) + '(mime-button-mouse-face ((t (:background "dark slate blue" :foreground "light blue")))) + '(view-highlight-face ((t (:background "dark slate blue" :foreground "light blue")))) + '(widget-mouse-face ((t (:background "dark slate blue" :foreground "light blue")))) + + '(Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) + '(Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) + '(Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) + '(Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) + '(bg:erc-color-face0 ((t (nil)))) + '(bg:erc-color-face1 ((t (nil)))) + '(bg:erc-color-face10 ((t (nil)))) + '(bg:erc-color-face11 ((t (nil)))) + '(bg:erc-color-face12 ((t (nil)))) + '(bg:erc-color-face13 ((t (nil)))) + '(bg:erc-color-face14 ((t (nil)))) + '(bg:erc-color-face15 ((t (nil)))) + '(bg:erc-color-face2 ((t (nil)))) + '(bg:erc-color-face3 ((t (nil)))) + '(bg:erc-color-face4 ((t (nil)))) + '(bg:erc-color-face5 ((t (nil)))) + '(bg:erc-color-face6 ((t (nil)))) + '(bg:erc-color-face7 ((t (nil)))) + '(bg:erc-color-face8 ((t (nil)))) + '(bg:erc-color-face9 ((t (nil)))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:bold t :foreground "beige" :weight bold)))) + '(calendar-today-face ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(cperl-array-face ((t (:bold t :foreground "light salmon" :weight bold)))) + '(cperl-hash-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold)))) + '(cperl-nonoverridable-face ((t (:foreground "aquamarine")))) + '(custom-button-face ((t (:foreground "gainsboro")))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (:foreground "light blue")))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:bold t :foreground "pale turquoise" :weight bold)))) + '(custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "light salmon")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(diary-face ((t (:foreground "red")))) + '(dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold)))) + '(dired-face-executable ((t (:foreground "green yellow")))) + '(dired-face-flagged ((t (:foreground "tomato")))) + '(dired-face-marked ((t (:foreground "light salmon")))) + '(dired-face-permissions ((t (:foreground "aquamarine")))) + '(erc-action-face ((t (nil)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "pale green")))) + '(erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) + '(erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) + '(erc-input-face ((t (:foreground "light blue")))) + '(erc-inverse-face ((t (:background "steel blue")))) + '(erc-notice-face ((t (:foreground "light salmon")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "medium purple" :weight bold)))) + '(eshell-ls-backup-face ((t (:foreground "dim gray")))) + '(eshell-ls-clutter-face ((t (:foreground "dim gray")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue" :weight bold)))) + '(eshell-ls-executable-face ((t (:bold t :foreground "aquamarine" :weight bold)))) + '(eshell-ls-missing-face ((t (:foreground "black")))) + '(eshell-ls-picture-face ((t (:foreground "violet")))) + '(eshell-ls-product-face ((t (:foreground "light steel blue")))) + '(eshell-ls-readonly-face ((t (:foreground "aquamarine")))) + '(eshell-ls-special-face ((t (:foreground "gold")))) + '(eshell-ls-symlink-face ((t (:foreground "white")))) + '(eshell-ls-unreadable-face ((t (:foreground "dim gray")))) + '(eshell-prompt-face ((t (:bold t :foreground "light sky blue" :weight bold)))) + '(excerpt ((t (:italic t :slant italic)))) + '(fg:erc-color-face0 ((t (:foreground "white")))) + '(fg:erc-color-face1 ((t (:foreground "beige")))) + '(fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) + '(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) + '(fg:erc-color-face12 ((t (:foreground "light yellow")))) + '(fg:erc-color-face13 ((t (:foreground "yellow")))) + '(fg:erc-color-face14 ((t (:foreground "light goldenrod")))) + '(fg:erc-color-face15 ((t (:foreground "lime green")))) + '(fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) + '(fg:erc-color-face3 ((t (:foreground "light cyan")))) + '(fg:erc-color-face4 ((t (:foreground "powder blue")))) + '(fg:erc-color-face5 ((t (:foreground "sky blue")))) + '(fg:erc-color-face6 ((t (:foreground "dark sea green")))) + '(fg:erc-color-face7 ((t (:foreground "pale green")))) + '(fg:erc-color-face8 ((t (:foreground "medium spring green")))) + '(fg:erc-color-face9 ((t (:foreground "khaki")))) + '(fixed ((t (:bold t :weight bold)))) + '(fixed-pitch ((t (:family "courier")))) + '(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) + '(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) + '(font-lock-builtin-face ((t (:foreground "aquamarine")))) + '(font-lock-comment-face ((t (:foreground "light blue")))) + '(font-lock-constant-face ((t (:foreground "pale green")))) + '(font-lock-doc-face ((t (:foreground "light sky blue")))) + '(font-lock-doc-string-face ((t (:foreground "sky blue")))) + '(font-lock-function-name-face ((t (:bold t :foreground "aquamarine" :weight bold)))) + '(font-lock-keyword-face ((t (:bold t :foreground "pale turquoise" :weight bold)))) + '(font-lock-reference-face ((t (:foreground "pale green")))) + '(font-lock-string-face ((t (:foreground "light sky blue")))) + '(font-lock-type-face ((t (:bold t :foreground "sky blue" :weight bold)))) + '(font-lock-variable-name-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(fringe ((t (:background "Grey15")))) + '(gnus-cite-face-1 ((t (:foreground "LightSalmon")))) + '(gnus-cite-face-2 ((t (:foreground "Khaki")))) + '(gnus-cite-face-3 ((t (:foreground "Coral")))) + '(gnus-cite-face-4 ((t (:foreground "yellow green")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "bisque")))) + '(gnus-cite-face-7 ((t (:foreground "peru")))) + '(gnus-cite-face-8 ((t (:foreground "light coral")))) + '(gnus-cite-face-9 ((t (:foreground "plum")))) + '(gnus-emphasis-bold ((t (:bold t :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t :slant italic)))) + '(gnus-emphasis-strikethru ((t (nil)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "White")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "White" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "White")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "White" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue" :weight bold)))) + '(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) + '(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) + '(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) + '(gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) + '(gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(gnus-header-name-face ((t (:bold t :foreground "LightBlue" :weight bold)))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold)))) + '(gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) + '(gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic)))) + '(gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold)))) + '(gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight bold)))) + '(gnus-signature-face ((t (:foreground "Grey")))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "DimGray" :slant italic)))) + '(gnus-summary-low-read-face ((t (:foreground "slate gray")))) + '(gnus-summary-low-ticked-face ((t (:foreground "Pink")))) + '(gnus-summary-low-unread-face ((t (:foreground "LightGray")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) + '(gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) + '(highlight ((t (:background "dark slate blue" :foreground "light blue")))) + '(highline-face ((t (:background "DeepSkyBlue4")))) + '(holiday-face ((t (:background "pink")))) + '(info-header-node ((t (:bold t :weight bold)))) + '(info-header-xref ((t (:bold t :weight bold :foreground "sky blue")))) + '(info-menu-5 ((t (:underline t)))) + '(info-menu-header ((t (:bold t :family "helv" :weight bold)))) + '(info-node ((t (:bold t :weight bold)))) + '(info-xref ((t (:bold t :foreground "sky blue" :weight bold)))) + '(isearch ((t (:background "slate blue")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:foreground "sky blue")))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) + '(jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) + '(jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) + '(jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) + '(jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal)))) + '(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) + '(jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) + '(jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(menu ((t (:background "MidnightBlue" :foreground "Grey")))) + '(message-cited-text-face ((t (:foreground "LightSalmon")))) + '(message-header-cc-face ((t (:foreground "light cyan")))) + '(message-header-name-face ((t (:foreground "LightBlue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold)))) + '(message-header-other-face ((t (:foreground "MediumAquamarine")))) + '(message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "MediumAquamarine")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "chocolate")))) + '(mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) + '(region ((t (:background "DarkSlateBlue")))) + '(scroll-bar ((t (:background "grey75")))) + '(secondary-selection ((t (:background "steel blue")))) + '(semantic-dirty-token-face ((t (:background "gray10")))) + '(semantic-unmatched-syntax-face ((t (:underline "red")))) + '(show-paren-match-face ((t (:background "light slate blue" :foreground "white")))) + '(show-paren-mismatch-face ((t (:background "red" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "seashell2")))) + '(speedbar-directory-face ((t (:foreground "seashell3")))) + '(speedbar-file-face ((t (:foreground "seashell4")))) + '(speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat")))) + '(speedbar-selected-face ((t (:foreground "seashell1" :underline t)))) + '(speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray")))) + '(speedbar-tag-face ((t (:foreground "antique white")))) + '(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "light blue")))) + '(widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat")))) + '(woman-bold-face ((t (:bold t :foreground "sky blue" :weight bold)))) + '(woman-italic-face ((t (:foreground "deep sky blue")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(zmacs-region ((t (:background "DarkSlateBlue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'charcoal-black) + +;;; charcoal-black-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/clarity-theme.el b/elpa/color-theme-modern-0.0.3/clarity-theme.el new file mode 100644 index 0000000..2aa9086 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/clarity-theme.el @@ -0,0 +1,119 @@ +;;; clarity-theme.el --- clarity theme + +;; Copyright (C) 2003 by Richard Wellum +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of clarity theme from `color-themes' + +;;; Code: + +(deftheme clarity + "clarity theme") + +(custom-theme-set-faces + 'clarity + + '(default ((t (:background "black" :foreground "white")))) + '(mouse ((t (:background "white")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:background "white")))) + + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(view-highlight-face ((t (:background "darkolivegreen")))) + '(widget-mouse-face ((t (:background "darkolivegreen")))) + + '(CUA-global-mark-face ((t (:background "cyan" :foreground "black")))) + '(CUA-rectangle-face ((t (:background "maroon" :foreground "white")))) + '(CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(clearcase-dired-checkedout-face ((t (:foreground "red")))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(fixed-pitch ((t (:family "courier")))) + '(flash-paren-face-off ((t (nil)))) + '(flash-paren-face-on ((t (nil)))) + '(flash-paren-face-region ((t (nil)))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:foreground "OrangeRed")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-doc-face ((t (:foreground "LightSalmon")))) + '(font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) + '(font-lock-keyword-face ((t (:foreground "Cyan")))) + '(font-lock-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-type-face ((t (:foreground "PaleGreen")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(ibuffer-dired-buffer-face ((t (:foreground "LightSkyBlue")))) + '(ibuffer-help-buffer-face ((t (:foreground "OrangeRed")))) + '(ibuffer-hidden-buffer-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(ibuffer-occur-match-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(ibuffer-read-only-buffer-face ((t (:foreground "PaleGreen")))) + '(ibuffer-special-buffer-face ((t (:foreground "Cyan")))) + '(ibuffer-title-face ((t (:foreground "PaleGreen")))) + '(fringe ((t (:background "grey10")))) + '(header-line ((t (:box (:line-width -1 :style released-button) :foreground "grey20" :background "grey90" :box nil)))) + '(highlight ((t (:background "darkolivegreen")))) + '(ibuffer-deletion-face ((t (:foreground "red")))) + '(ibuffer-marked-face ((t (:foreground "green")))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t :slant italic)))) + '(menu ((t (nil)))) + '(mode-line ((t (:foreground "yellow" :background "darkslateblue" + :box (:line-width -1 :style released-button))))) + '(region ((t (:background "blue")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "darkslateblue")))) + '(show-block-face1 ((t (:background "gray10")))) + '(show-block-face2 ((t (:background "gray15")))) + '(show-block-face3 ((t (:background "gray20")))) + '(show-block-face4 ((t (:background "gray25")))) + '(show-block-face5 ((t (:background "gray30")))) + '(show-block-face6 ((t (:background "gray35")))) + '(show-block-face7 ((t (:background "gray40")))) + '(show-block-face8 ((t (:background "gray45")))) + '(show-block-face9 ((t (:background "gray50")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(tool-bar ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'clarity) + +;;; clarity-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/classic-theme.el b/elpa/color-theme-modern-0.0.3/classic-theme.el new file mode 100644 index 0000000..ae16dfa --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/classic-theme.el @@ -0,0 +1,208 @@ +;;; classic-theme.el --- classic theme + +;; Copyright (C) 2000 by Frederic Giroud +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of classic theme from `color-themes' + +;;; Code: + +(deftheme classic + "classic theme") + +(custom-theme-set-faces + 'classic + + '(default ((t (:background "darkslategrey" :foreground "AntiqueWhite")))) + ;; avoid ugly random fringe color + '(fringe ((t (:background "darkslategrey")))) + + '(mouse ((t (:foreground "Grey")))) + '(cursor ((t (:background "Red")))) + '(border ((t (:foreground "black")))) + + '(gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t)))) + '(gnus-cite-face-1 ((t (:foreground "LightSalmon")))) + '(gnus-cite-face-2 ((t (:foreground "Khaki")))) + '(gnus-cite-face-3 ((t (:foreground "Coral")))) + '(gnus-cite-face-4 ((t (:foreground "yellow green")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "bisque")))) + '(gnus-cite-face-7 ((t (:foreground "peru")))) + '(gnus-cite-face-8 ((t (:foreground "light coral")))) + '(gnus-cite-face-9 ((t (:foreground "plum")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "White")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "White")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-group-news-1-empty-face ((t (:foreground "White")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "White")))) + '(gnus-group-news-2-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-news-3-empty-face ((t (:foreground "LightBlue")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) + '(gnus-header-from-face ((t (:bold t :foreground "light cyan")))) + '(gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(gnus-signature-face ((t (:foreground "Grey")))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "beige")))) + '(gnus-summary-low-ancient-face ((t (:foreground "DimGray")))) + '(gnus-summary-low-read-face ((t (:foreground "slate gray")))) + '(gnus-summary-low-ticked-face ((t (:foreground "Pink")))) + '(gnus-summary-low-unread-face ((t (:foreground "LightGray")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine")))) + '(gnus-summary-normal-read-face ((t (:foreground "Aquamarine")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:background "DarkSlateBlue")))) + '(message-cited-text-face ((t (:foreground "LightSalmon")))) + '(message-header-cc-face ((t (:foreground "light cyan")))) + '(message-header-name-face ((t (:foreground "LightBlue")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine")))) + '(message-header-other-face ((t (:foreground "MediumAquamarine")))) + '(message-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(message-header-to-face ((t (:bold t :foreground "light cyan")))) + '(message-header-xheader-face ((t (:foreground "MediumAquamarine")))) + '(message-separator-face ((t (:foreground "chocolate")))) + + '(apropos-keybinding-face ((t (:underline t)))) + '(apropos-label-face ((t (:italic t)))) + '(apropos-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(apropos-property-face ((t (:italic t :bold t :foreground "beige")))) + '(apropos-symbol-face ((t (:underline t :foreground "DodgerBlue1")))) + '(goto-address-mail-face ((t (:bold t :foreground "light cyan")))) + '(goto-address-mail-mouse-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(goto-address-url-face ((t (:underline t :foreground "DodgerBlue1")))) + '(goto-address-url-mouse-face ((t (:background "PaleGreen" :foreground "DarkGreen")))) + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "PaleGreen" :foreground "DarkGreen")))) + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t :foreground "beige")))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:foreground "Yellow")))) + '(cperl-hash-face ((t (:foreground "White")))) + '(cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) + '(custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) + '(custom-documentation-face ((t (:foreground "Grey")))) + '(custom-group-tag-face ((t (:foreground "MediumAquamarine")))) + '(custom-state-face ((t (:foreground "LightSalmon")))) + '(custom-variable-tag-face ((t (:foreground "Aquamarine")))) + '(diary-face ((t (:foreground "IndianRed")))) + '(erc-action-face ((t (:bold t)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "LightSalmon")))) + '(erc-error-face ((t (:bold t :foreground "IndianRed")))) + '(erc-input-face ((t (:foreground "Beige")))) + '(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) + '(erc-notice-face ((t (:foreground "MediumAquamarine")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:foreground "MediumAquamarine")))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) + '(eshell-ls-backup-face ((t (:foreground "Grey")))) + '(eshell-ls-clutter-face ((t (:foreground "DimGray")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue")))) + '(eshell-ls-executable-face ((t (:foreground "Coral")))) + '(eshell-ls-missing-face ((t (:foreground "black")))) + '(eshell-ls-picture-face ((t (:foreground "Violet")))) + '(eshell-ls-product-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) + '(eshell-ls-special-face ((t (:foreground "Gold")))) + '(eshell-ls-symlink-face ((t (:foreground "White")))) + '(eshell-ls-unreadable-face ((t (:foreground "DimGray")))) + '(eshell-prompt-face ((t (:foreground "MediumAquamarine")))) + '(font-lock-builtin-face ((t (:bold t :foreground "PaleGreen")))) + '(font-lock-comment-face ((t (:foreground "tomato3")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-doc-string-face ((t (:foreground "LightSalmon3")))) + '(font-lock-function-name-face ((t (:foreground "SteelBlue1")))) + '(font-lock-keyword-face ((t (:foreground "cyan1")))) + '(font-lock-reference-face ((t (:foreground "LightSalmon2")))) + '(font-lock-string-face ((t (:foreground "LightSalmon3")))) + '(font-lock-type-face ((t (:foreground "PaleGreen3")))) + '(font-lock-variable-name-face ((t (:foreground "khaki1")))) + '(font-lock-warning-face ((t (:bold t :foreground "IndianRed")))) + '(font-lock-preprocessor-face ((t (:foreground "SkyBlue3")))) + '(widget-field-face ((t (:background "DarkCyan")))) + '(custom-group-tag-face ((t(:foreground "brown" :underline t)))) + '(custom-state-face ((t (:foreground "khaki")))) + '(highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) + '(highline-face ((t (:background "SeaGreen")))) + '(holiday-face ((t (:background "DimGray")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) + '(info-xref ((t (:underline t :foreground "DodgerBlue1")))) + '(isearch ((t (:foreground "red" :background "CornflowerBlue")))) + '(italic ((t (:italic t)))) + '(modeline ((t (:background "LightSlateGray" :foreground "AntiqueWhite")))) + '(modeline-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue")))) + '(modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat")))) + '(region ((t (:background "dark cyan" :foreground "cyan")))) + '(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) + '(underline ((t (:underline t)))) + '(widget-field-face ((t (:foreground "LightBlue")))) + '(widget-inactive-face ((t (:foreground "DimGray")))) + '(widget-single-line-field-face ((t (:foreground "LightBlue")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'classic) + +;;; classic-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/cobalt-theme.el b/elpa/color-theme-modern-0.0.3/cobalt-theme.el new file mode 100644 index 0000000..2690df3 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/cobalt-theme.el @@ -0,0 +1,82 @@ +;;; cobalt-theme.el --- cobalt theme + +;; Copyright (C) 2012 by Nick Ewing +;; Copyright (C) 2014 by Syohei YOSHIDA + +;; Author: Nick Ewing +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of cobalt theme from `color-themes' + +;;; Code: + +(deftheme cobalt + "cobalt theme") + +(custom-theme-set-faces + 'cobalt + + '(default ((t (:background "#09223F" :foreground "#F8F8F8")))) + '(cursor ((t (:background "#A7A7A7")))) + '(border ((t (:foreground "black")))) + + '(buffers-tab ((t (:background "#09223F" :foreground "white")))) + '(font-lock-builtin-face ((t (:foreground "#40FFB9")))) + '(font-lock-comment-face ((t (:foreground "#008AFF")))) + '(font-lock-constant-face ((t (:foreground "#FF518C")))) + '(font-lock-doc-face ((t (:foreground "#008AFF")))) + '(font-lock-function-name-face ((t (:foreground "#FFDD00")))) + '(font-lock-keyword-face ((t (:foreground "#FA9E18")))) + '(font-lock-preprocessor-face ((t (:foreground "#8090A2")))) + '(font-lock-reference-face ((t (:foreground "#CCCCCC")))) + '(font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062")))) + '(font-lock-regexp-grouping-construct ((t (:foreground "red")))) + '(font-lock-string-face ((t (:foreground "#42D915")))) + '(font-lock-type-face ((t (:foreground "#FFEF79")))) + '(font-lock-variable-name-face ((t (:foreground "#CCCCCC")))) + '(font-lock-warning-face ((t (:foreground "Pink")))) + '(hl-line ((t (:background "#00162A")))) + '(linum ((t (:background "#111111" :foreground "#888888" + :underline nil)))) + '(gui-element ((t (:background "#303030" :foreground "black")))) + '(region ((t (:background "#444444")))) + '(highlight ((t (:background "#26425D")))) + '(show-paren-match ((t (:background "#26425D")))) + '(show-paren-mismatch ((t (:background "#FF0000")))) + '(ecb-default-highlight-face ((t (:background "#26425D")))) + '(minibuffer-prompt ((t (:foreground "#008AFF")))) + '(modeline ((t (:background "#111111" :foreground "#888888")))) + '(modeline-inactive ((t (:background "#222222" :foreground "#888888")))) + '(italic ((t (nil)))) + '(left-margin ((t (nil)))) + '(toolbar ((t (nil)))) + '(ido-subdir ((t (:foreground "#008AFF")))) + '(ido-only-match ((t (:foreground "#42D915")))) + '(mumamo-background-chunk-major ((t (:background nil)))) + '(mumamo-background-chunk-submode1 ((t (:background nil)))) + '(underline ((nil (:underline nil))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'cobalt) + +;;; cobalt-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/color-theme-modern-autoloads.el b/elpa/color-theme-modern-0.0.3/color-theme-modern-autoloads.el new file mode 100644 index 0000000..d49d2e8 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/color-theme-modern-autoloads.el @@ -0,0 +1,1052 @@ +;;; color-theme-modern-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "aalto-dark-theme" "aalto-dark-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from aalto-dark-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "aalto-dark-theme" '("aalto-dark")) + +;;;*** + +;;;### (autoloads nil "aalto-light-theme" "aalto-light-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from aalto-light-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "aalto-light-theme" '("aalto-light")) + +;;;*** + +;;;### (autoloads nil "aliceblue-theme" "aliceblue-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from aliceblue-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "aliceblue-theme" '("aliceblue")) + +;;;*** + +;;;### (autoloads nil "andreas-theme" "andreas-theme.el" (0 0 0 0)) +;;; Generated autoloads from andreas-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "andreas-theme" '("andreas")) + +;;;*** + +;;;### (autoloads nil "arjen-theme" "arjen-theme.el" (0 0 0 0)) +;;; Generated autoloads from arjen-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "arjen-theme" '("arjen")) + +;;;*** + +;;;### (autoloads nil "beige-diff-theme" "beige-diff-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from beige-diff-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "beige-diff-theme" '("beige-diff")) + +;;;*** + +;;;### (autoloads nil "beige-eshell-theme" "beige-eshell-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from beige-eshell-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "beige-eshell-theme" '("beige-eshell")) + +;;;*** + +;;;### (autoloads nil "bharadwaj-slate-theme" "bharadwaj-slate-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from bharadwaj-slate-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "bharadwaj-slate-theme" '("bharadwaj-slate")) + +;;;*** + +;;;### (autoloads nil "bharadwaj-theme" "bharadwaj-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from bharadwaj-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "bharadwaj-theme" '("bharadwaj")) + +;;;*** + +;;;### (autoloads nil "billw-theme" "billw-theme.el" (0 0 0 0)) +;;; Generated autoloads from billw-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "billw-theme" '("billw")) + +;;;*** + +;;;### (autoloads nil "black-on-gray-theme" "black-on-gray-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from black-on-gray-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "black-on-gray-theme" '("black-on-gray")) + +;;;*** + +;;;### (autoloads nil "blippblopp-theme" "blippblopp-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from blippblopp-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "blippblopp-theme" '("blippblopp")) + +;;;*** + +;;;### (autoloads nil "blue-erc-theme" "blue-erc-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from blue-erc-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "blue-erc-theme" '("blue-erc")) + +;;;*** + +;;;### (autoloads nil "blue-eshell-theme" "blue-eshell-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from blue-eshell-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "blue-eshell-theme" '("blue-eshell")) + +;;;*** + +;;;### (autoloads nil "blue-gnus-theme" "blue-gnus-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from blue-gnus-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "blue-gnus-theme" '("blue-gnus")) + +;;;*** + +;;;### (autoloads nil "blue-mood-theme" "blue-mood-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from blue-mood-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "blue-mood-theme" '("blue-mood")) + +;;;*** + +;;;### (autoloads nil "blue-sea-theme" "blue-sea-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from blue-sea-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "blue-sea-theme" '("blue-sea")) + +;;;*** + +;;;### (autoloads nil "calm-forest-theme" "calm-forest-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from calm-forest-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "calm-forest-theme" '("calm-forest")) + +;;;*** + +;;;### (autoloads nil "charcoal-black-theme" "charcoal-black-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from charcoal-black-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "charcoal-black-theme" '("charcoal-black")) + +;;;*** + +;;;### (autoloads nil "clarity-theme" "clarity-theme.el" (0 0 0 0)) +;;; Generated autoloads from clarity-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "clarity-theme" '("clarity")) + +;;;*** + +;;;### (autoloads nil "classic-theme" "classic-theme.el" (0 0 0 0)) +;;; Generated autoloads from classic-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "classic-theme" '("classic")) + +;;;*** + +;;;### (autoloads nil "cobalt-theme" "cobalt-theme.el" (0 0 0 0)) +;;; Generated autoloads from cobalt-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "cobalt-theme" '("cobalt")) + +;;;*** + +;;;### (autoloads nil "comidia-theme" "comidia-theme.el" (0 0 0 0)) +;;; Generated autoloads from comidia-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "comidia-theme" '("comidia")) + +;;;*** + +;;;### (autoloads nil "dark-blue-theme" "dark-blue-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from dark-blue-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "dark-blue-theme" '("dark-blue")) + +;;;*** + +;;;### (autoloads nil "dark-blue2-theme" "dark-blue2-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from dark-blue2-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "dark-blue2-theme" '("dark-blue2")) + +;;;*** + +;;;### (autoloads nil "dark-erc-theme" "dark-erc-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from dark-erc-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "dark-erc-theme" '("dark-erc")) + +;;;*** + +;;;### (autoloads nil "dark-font-lock-theme" "dark-font-lock-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from dark-font-lock-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "dark-font-lock-theme" '("dark-font-lock")) + +;;;*** + +;;;### (autoloads nil "dark-gnus-theme" "dark-gnus-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from dark-gnus-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "dark-gnus-theme" '("dark-gnus")) + +;;;*** + +;;;### (autoloads nil "dark-green-theme" "dark-green-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from dark-green-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "dark-green-theme" '("dark-green")) + +;;;*** + +;;;### (autoloads nil "dark-info-theme" "dark-info-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from dark-info-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "dark-info-theme" '("dark-info")) + +;;;*** + +;;;### (autoloads nil "dark-laptop-theme" "dark-laptop-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from dark-laptop-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "dark-laptop-theme" '("dark-laptop")) + +;;;*** + +;;;### (autoloads nil "deep-blue-theme" "deep-blue-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from deep-blue-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "deep-blue-theme" '("deep-blue")) + +;;;*** + +;;;### (autoloads nil "desert-theme" "desert-theme.el" (0 0 0 0)) +;;; Generated autoloads from desert-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "desert-theme" '("desert")) + +;;;*** + +;;;### (autoloads nil "digital-ofs1-theme" "digital-ofs1-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from digital-ofs1-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "digital-ofs1-theme" '("digital-ofs1")) + +;;;*** + +;;;### (autoloads nil "emacs-21-theme" "emacs-21-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from emacs-21-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "emacs-21-theme" '("emacs-21")) + +;;;*** + +;;;### (autoloads nil "emacs-nw-theme" "emacs-nw-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from emacs-nw-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "emacs-nw-theme" '("emacs-nw")) + +;;;*** + +;;;### (autoloads nil "euphoria-theme" "euphoria-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from euphoria-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "euphoria-theme" '("euphoria")) + +;;;*** + +;;;### (autoloads nil "feng-shui-theme" "feng-shui-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from feng-shui-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "feng-shui-theme" '("feng-shui")) + +;;;*** + +;;;### (autoloads nil "fischmeister-theme" "fischmeister-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from fischmeister-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "fischmeister-theme" '("fischmeister")) + +;;;*** + +;;;### (autoloads nil "gnome-theme" "gnome-theme.el" (0 0 0 0)) +;;; Generated autoloads from gnome-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "gnome-theme" '("gnome")) + +;;;*** + +;;;### (autoloads nil "gnome2-theme" "gnome2-theme.el" (0 0 0 0)) +;;; Generated autoloads from gnome2-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "gnome2-theme" '("gnome2")) + +;;;*** + +;;;### (autoloads nil "goldenrod-theme" "goldenrod-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from goldenrod-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "goldenrod-theme" '("goldenrod")) + +;;;*** + +;;;### (autoloads nil "gray1-theme" "gray1-theme.el" (0 0 0 0)) +;;; Generated autoloads from gray1-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "gray1-theme" '("gray1")) + +;;;*** + +;;;### (autoloads nil "gray30-theme" "gray30-theme.el" (0 0 0 0)) +;;; Generated autoloads from gray30-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "gray30-theme" '("gray30")) + +;;;*** + +;;;### (autoloads nil "greiner-theme" "greiner-theme.el" (0 0 0 0)) +;;; Generated autoloads from greiner-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "greiner-theme" '("greiner")) + +;;;*** + +;;;### (autoloads nil "gtk-ide-theme" "gtk-ide-theme.el" (0 0 0 0)) +;;; Generated autoloads from gtk-ide-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "gtk-ide-theme" '("gtk-ide")) + +;;;*** + +;;;### (autoloads nil "high-contrast-theme" "high-contrast-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from high-contrast-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "high-contrast-theme" '("high-contrast")) + +;;;*** + +;;;### (autoloads nil "hober-theme" "hober-theme.el" (0 0 0 0)) +;;; Generated autoloads from hober-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "hober-theme" '("hober")) + +;;;*** + +;;;### (autoloads nil "infodoc-theme" "infodoc-theme.el" (0 0 0 0)) +;;; Generated autoloads from infodoc-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "infodoc-theme" '("infodoc")) + +;;;*** + +;;;### (autoloads nil "jb-simple-theme" "jb-simple-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from jb-simple-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "jb-simple-theme" '("jb-simple")) + +;;;*** + +;;;### (autoloads nil "jedit-grey-theme" "jedit-grey-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from jedit-grey-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "jedit-grey-theme" '("jedit-grey")) + +;;;*** + +;;;### (autoloads nil "jonadabian-slate-theme" "jonadabian-slate-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from jonadabian-slate-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "jonadabian-slate-theme" '("jonadabian-slate")) + +;;;*** + +;;;### (autoloads nil "jonadabian-theme" "jonadabian-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from jonadabian-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "jonadabian-theme" '("jonadabian")) + +;;;*** + +;;;### (autoloads nil "jsc-dark-theme" "jsc-dark-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from jsc-dark-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "jsc-dark-theme" '("jsc-dark")) + +;;;*** + +;;;### (autoloads nil "jsc-light-theme" "jsc-light-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from jsc-light-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "jsc-light-theme" '("jsc-light")) + +;;;*** + +;;;### (autoloads nil "jsc-light2-theme" "jsc-light2-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from jsc-light2-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "jsc-light2-theme" '("jsc-light2")) + +;;;*** + +;;;### (autoloads nil "julie-theme" "julie-theme.el" (0 0 0 0)) +;;; Generated autoloads from julie-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "julie-theme" '("julie")) + +;;;*** + +;;;### (autoloads nil "katester-theme" "katester-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from katester-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "katester-theme" '("katester")) + +;;;*** + +;;;### (autoloads nil "kingsajz-theme" "kingsajz-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from kingsajz-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "kingsajz-theme" '("kingsajz")) + +;;;*** + +;;;### (autoloads nil "late-night-theme" "late-night-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from late-night-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "late-night-theme" '("late-night")) + +;;;*** + +;;;### (autoloads nil "lawrence-theme" "lawrence-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from lawrence-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "lawrence-theme" '("lawrence")) + +;;;*** + +;;;### (autoloads nil "ld-dark-theme" "ld-dark-theme.el" (0 0 0 0)) +;;; Generated autoloads from ld-dark-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "ld-dark-theme" '("ld-dark")) + +;;;*** + +;;;### (autoloads nil "lethe-theme" "lethe-theme.el" (0 0 0 0)) +;;; Generated autoloads from lethe-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "lethe-theme" '("lethe")) + +;;;*** + +;;;### (autoloads nil "marine-theme" "marine-theme.el" (0 0 0 0)) +;;; Generated autoloads from marine-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "marine-theme" '("marine")) + +;;;*** + +;;;### (autoloads nil "marquardt-theme" "marquardt-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from marquardt-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "marquardt-theme" '("marquardt")) + +;;;*** + +;;;### (autoloads nil "matrix-theme" "matrix-theme.el" (0 0 0 0)) +;;; Generated autoloads from matrix-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "matrix-theme" '("matrix")) + +;;;*** + +;;;### (autoloads nil "midnight-theme" "midnight-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from midnight-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "midnight-theme" '("midnight")) + +;;;*** + +;;;### (autoloads nil "mistyday-theme" "mistyday-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from mistyday-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "mistyday-theme" '("mistyday")) + +;;;*** + +;;;### (autoloads nil "montz-theme" "montz-theme.el" (0 0 0 0)) +;;; Generated autoloads from montz-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "montz-theme" '("montz")) + +;;;*** + +;;;### (autoloads nil "oswald-theme" "oswald-theme.el" (0 0 0 0)) +;;; Generated autoloads from oswald-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "oswald-theme" '("oswald")) + +;;;*** + +;;;### (autoloads nil "parus-theme" "parus-theme.el" (0 0 0 0)) +;;; Generated autoloads from parus-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "parus-theme" '("parus")) + +;;;*** + +;;;### (autoloads nil "pierson-theme" "pierson-theme.el" (0 0 0 0)) +;;; Generated autoloads from pierson-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "pierson-theme" '("pierson")) + +;;;*** + +;;;### (autoloads nil "pok-wob-theme" "pok-wob-theme.el" (0 0 0 0)) +;;; Generated autoloads from pok-wob-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "pok-wob-theme" '("pok-wob")) + +;;;*** + +;;;### (autoloads nil "pok-wog-theme" "pok-wog-theme.el" (0 0 0 0)) +;;; Generated autoloads from pok-wog-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "pok-wog-theme" '("pok-wog")) + +;;;*** + +;;;### (autoloads nil "railscast-theme" "railscast-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from railscast-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "railscast-theme" '("railscast")) + +;;;*** + +;;;### (autoloads nil "ramangalahy-theme" "ramangalahy-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from ramangalahy-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "ramangalahy-theme" '("ramangalahy")) + +;;;*** + +;;;### (autoloads nil "raspopovic-theme" "raspopovic-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from raspopovic-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "raspopovic-theme" '("raspopovic")) + +;;;*** + +;;;### (autoloads nil "renegade-theme" "renegade-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from renegade-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "renegade-theme" '("renegade")) + +;;;*** + +;;;### (autoloads nil "resolve-theme" "resolve-theme.el" (0 0 0 0)) +;;; Generated autoloads from resolve-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "resolve-theme" '("resolve")) + +;;;*** + +;;;### (autoloads nil "retro-green-theme" "retro-green-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from retro-green-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "retro-green-theme" '("retro-green")) + +;;;*** + +;;;### (autoloads nil "retro-orange-theme" "retro-orange-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from retro-orange-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "retro-orange-theme" '("retro-orange")) + +;;;*** + +;;;### (autoloads nil "robin-hood-theme" "robin-hood-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from robin-hood-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "robin-hood-theme" '("robin-hood")) + +;;;*** + +;;;### (autoloads nil "rotor-theme" "rotor-theme.el" (0 0 0 0)) +;;; Generated autoloads from rotor-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "rotor-theme" '("rotor")) + +;;;*** + +;;;### (autoloads nil "ryerson-theme" "ryerson-theme.el" (0 0 0 0)) +;;; Generated autoloads from ryerson-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "ryerson-theme" '("ryerson")) + +;;;*** + +;;;### (autoloads nil "salmon-diff-theme" "salmon-diff-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from salmon-diff-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "salmon-diff-theme" '("salmon-diff")) + +;;;*** + +;;;### (autoloads nil "salmon-font-lock-theme" "salmon-font-lock-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from salmon-font-lock-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "salmon-font-lock-theme" '("salmon-font-lock")) + +;;;*** + +;;;### (autoloads nil "scintilla-theme" "scintilla-theme.el" (0 0 +;;;;;; 0 0)) +;;; Generated autoloads from scintilla-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "scintilla-theme" '("scintilla")) + +;;;*** + +;;;### (autoloads nil "shaman-theme" "shaman-theme.el" (0 0 0 0)) +;;; Generated autoloads from shaman-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "shaman-theme" '("shaman")) + +;;;*** + +;;;### (autoloads nil "simple-1-theme" "simple-1-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from simple-1-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "simple-1-theme" '("simple-1")) + +;;;*** + +;;;### (autoloads nil "sitaramv-nt-theme" "sitaramv-nt-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from sitaramv-nt-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "sitaramv-nt-theme" '("sitaramv-nt")) + +;;;*** + +;;;### (autoloads nil "sitaramv-solaris-theme" "sitaramv-solaris-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from sitaramv-solaris-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "sitaramv-solaris-theme" '("sitaramv-solaris")) + +;;;*** + +;;;### (autoloads nil "snow-theme" "snow-theme.el" (0 0 0 0)) +;;; Generated autoloads from snow-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "snow-theme" '("snow")) + +;;;*** + +;;;### (autoloads nil "snowish-theme" "snowish-theme.el" (0 0 0 0)) +;;; Generated autoloads from snowish-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "snowish-theme" '("snowish")) + +;;;*** + +;;;### (autoloads nil "standard-ediff-theme" "standard-ediff-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from standard-ediff-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "standard-ediff-theme" '("standard-ediff")) + +;;;*** + +;;;### (autoloads nil "standard-theme" "standard-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from standard-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "standard-theme" '("standard")) + +;;;*** + +;;;### (autoloads nil "subdued-theme" "subdued-theme.el" (0 0 0 0)) +;;; Generated autoloads from subdued-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "subdued-theme" '("subdued")) + +;;;*** + +;;;### (autoloads nil "subtle-blue-theme" "subtle-blue-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from subtle-blue-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "subtle-blue-theme" '("subtle-blue")) + +;;;*** + +;;;### (autoloads nil "subtle-hacker-theme" "subtle-hacker-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from subtle-hacker-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "subtle-hacker-theme" '("subtle-hacker")) + +;;;*** + +;;;### (autoloads nil "taming-mr-arneson-theme" "taming-mr-arneson-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from taming-mr-arneson-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "taming-mr-arneson-theme" '("taming-mr-arneson")) + +;;;*** + +;;;### (autoloads nil "taylor-theme" "taylor-theme.el" (0 0 0 0)) +;;; Generated autoloads from taylor-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "taylor-theme" '("taylor")) + +;;;*** + +;;;### (autoloads nil "tty-dark-theme" "tty-dark-theme.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from tty-dark-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "tty-dark-theme" '("tty-dark")) + +;;;*** + +;;;### (autoloads nil "vim-colors-theme" "vim-colors-theme.el" (0 +;;;;;; 0 0 0)) +;;; Generated autoloads from vim-colors-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "vim-colors-theme" '("vim-colors")) + +;;;*** + +;;;### (autoloads nil "whateveryouwant-theme" "whateveryouwant-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from whateveryouwant-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "whateveryouwant-theme" '("whateveryouwant")) + +;;;*** + +;;;### (autoloads nil "wheat-theme" "wheat-theme.el" (0 0 0 0)) +;;; Generated autoloads from wheat-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "wheat-theme" '("wheat")) + +;;;*** + +;;;### (autoloads nil "word-perfect-theme" "word-perfect-theme.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from word-perfect-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "word-perfect-theme" '("word-perfect")) + +;;;*** + +;;;### (autoloads nil "xemacs-theme" "xemacs-theme.el" (0 0 0 0)) +;;; Generated autoloads from xemacs-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "xemacs-theme" '("xemacs")) + +;;;*** + +;;;### (autoloads nil "xp-theme" "xp-theme.el" (0 0 0 0)) +;;; Generated autoloads from xp-theme.el + +(when load-file-name (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name)))) + +(register-definition-prefixes "xp-theme" 'nil) + +;;;*** + +;;;### (autoloads nil nil ("color-theme-modern-pkg.el" "color-theme-modern.el") +;;;;;; (0 0 0 0)) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; color-theme-modern-autoloads.el ends here diff --git a/elpa/color-theme-modern-0.0.3/color-theme-modern-pkg.el b/elpa/color-theme-modern-0.0.3/color-theme-modern-pkg.el new file mode 100644 index 0000000..a1a5a84 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/color-theme-modern-pkg.el @@ -0,0 +1,10 @@ +(define-package "color-theme-modern" "0.0.3" "Reimplement colortheme with Emacs 24 theme framework." + '((emacs "24")) + :commit "4f7da6f955f7c584c5dfab2dc170f9a3debd80f8" :authors + '(("Syohei YOSHIDA" . "syohex@gmail.com")) + :maintainer + '("Syohei YOSHIDA" . "syohex@gmail.com") + :url "https://github.com/emacs-jp/replace-colorthemes") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/color-theme-modern-0.0.3/color-theme-modern.el b/elpa/color-theme-modern-0.0.3/color-theme-modern.el new file mode 100644 index 0000000..65b2f06 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/color-theme-modern.el @@ -0,0 +1,30 @@ +;;; color-theme-modern.el --- ports of color-theme themes to deftheme + +;; Copyright (C) 2013-2016 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; This package ports many `color-theme' themes to `deftheme' themes. + +;;; Code: + +(provide 'color-theme-modern) + +;;; color-theme-modern.el ends here diff --git a/elpa/color-theme-modern-0.0.3/comidia-theme.el b/elpa/color-theme-modern-0.0.3/comidia-theme.el new file mode 100644 index 0000000..ff18389 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/comidia-theme.el @@ -0,0 +1,193 @@ +;;; comidia-theme.el --- comidia theme + +;; Copyright (C) 2001 by Marcelo Dias +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of comidia theme from `color-themes' + +;;; Code: + +(deftheme comidia + "comidia theme") + +(custom-theme-set-faces + 'comidia + + '(default ((t (:background "black" :foreground "SteelBlue")))) + '(mouse ((t (:background "SteelBlue")))) + '(cursor ((t (:background "SteelBlue")))) + '(border ((t (:background "black")))) + + '(bg:erc-color-face0 ((t (:background "White")))) + '(bg:erc-color-face1 ((t (:background "black")))) + '(bg:erc-color-face10 ((t (:background "lightblue1")))) + '(bg:erc-color-face11 ((t (:background "cyan")))) + '(bg:erc-color-face12 ((t (:background "blue")))) + '(bg:erc-color-face13 ((t (:background "deeppink")))) + '(bg:erc-color-face14 ((t (:background "gray50")))) + '(bg:erc-color-face15 ((t (:background "gray90")))) + '(bg:erc-color-face2 ((t (:background "blue4")))) + '(bg:erc-color-face3 ((t (:background "green4")))) + '(bg:erc-color-face4 ((t (:background "red")))) + '(bg:erc-color-face5 ((t (:background "brown")))) + '(bg:erc-color-face6 ((t (:background "purple")))) + '(bg:erc-color-face7 ((t (:background "orange")))) + '(bg:erc-color-face8 ((t (:background "yellow")))) + '(bg:erc-color-face9 ((t (:background "green")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(erc-action-face ((t (:bold t :weight bold)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-dangerous-host-face ((t (:foreground "red")))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "IndianRed")))) + '(erc-error-face ((t (:background "Red" :foreground "White")))) + '(erc-fool-face ((t (:foreground "dim gray")))) + '(erc-input-face ((t (:foreground "brown")))) + '(erc-inverse-face ((t (:background "Black" :foreground "White")))) + '(erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) + '(erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) + '(erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold)))) + '(erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) + '(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) + '(erc-underline-face ((t (:underline t)))) + '(fg:erc-color-face0 ((t (:foreground "White")))) + '(fg:erc-color-face1 ((t (:foreground "black")))) + '(fg:erc-color-face10 ((t (:foreground "lightblue1")))) + '(fg:erc-color-face11 ((t (:foreground "cyan")))) + '(fg:erc-color-face12 ((t (:foreground "blue")))) + '(fg:erc-color-face13 ((t (:foreground "deeppink")))) + '(fg:erc-color-face14 ((t (:foreground "gray50")))) + '(fg:erc-color-face15 ((t (:foreground "gray90")))) + '(fg:erc-color-face2 ((t (:foreground "blue4")))) + '(fg:erc-color-face3 ((t (:foreground "green4")))) + '(fg:erc-color-face4 ((t (:foreground "red")))) + '(fg:erc-color-face5 ((t (:foreground "brown")))) + '(fg:erc-color-face6 ((t (:foreground "purple")))) + '(fg:erc-color-face7 ((t (:foreground "orange")))) + '(fg:erc-color-face8 ((t (:foreground "yellow")))) + '(fg:erc-color-face9 ((t (:foreground "green")))) + + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:foreground "chocolate1")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-doc-face ((t (:foreground "LightSalmon")))) + '(font-lock-doc-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) + '(font-lock-keyword-face ((t (:foreground "Cyan")))) + '(font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) + '(font-lock-reference-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-type-face ((t (:foreground "PaleGreen")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(fringe ((t (:background "grey10")))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :weight bold)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t :weight bold)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t :weight bold)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) + '(gnus-summary-low-unread-face ((t (:italic t :slant italic)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(header-line ((t (:width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil)))) + '(highlight ((t (:background "darkolivegreen")))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t :slant italic)))) + '(menu ((t (nil)))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) + '(message-header-name-face ((t (:foreground "DarkGreen")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) + '(message-header-other-face ((t (:foreground "#b00000")))) + '(message-header-subject-face ((t (:foreground "green3")))) + '(message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "blue3")))) + '(modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed)))) + '(modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed)))) + '(modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed)))) + '(modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed)))) + '(primary-selection ((t (:background "blue3")))) + '(region ((t (:background "blue3")))) + '(scroll-bar ((t (:background "grey75")))) + '(secondary-selection ((t (:background "SkyBlue4")))) + '(speedbar-button-face ((t (:foreground "green3")))) + '(speedbar-directory-face ((t (:foreground "light blue")))) + '(speedbar-file-face ((t (:foreground "cyan")))) + '(speedbar-highlight-face ((t (:background "sea green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray")))) + '(zmacs-region ((t (:background "blue3"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'comidia) + +;;; comidia-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/dark-blue-theme.el b/elpa/color-theme-modern-0.0.3/dark-blue-theme.el new file mode 100644 index 0000000..69c03bb --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/dark-blue-theme.el @@ -0,0 +1,439 @@ +;;; subtle-blue-theme.el --- dark-blue theme + +;; Copyright (C) 2001 by Chris McMahan +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of dark-blue theme from `color-themes' + +;;; Code: + +(deftheme dark-blue + "dark-blue theme") + +(custom-theme-set-faces + 'dark-blue + + '(default ((t (:background "#537182" :foreground "AntiqueWhite2")))) + '(mouse ((t (:background "Grey")))) + '(cursor ((t (:background "LightGray")))) + '(border ((t (:background "black")))) + + '(bbdb-company ((t (:italic t)))) + '(bbdb-field-name ((t (:bold t :foreground "MediumAquamarine")))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(blank-space-face ((t (:background "LightGray")))) + '(blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray")))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t :foreground "MediumAquamarine")))) + '(bold-italic ((t (:italic t :bold t :foreground "SkyBlue")))) + '(border-glyph ((t (nil)))) + '(calendar-today-face ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(comint-input-face ((t (:foreground "deepskyblue")))) + '(cperl-array-face ((t (:bold t :foreground "Yellow")))) + '(cperl-hash-face ((t (:italic t :bold t :foreground "White")))) + '(cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) + '(custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine")))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (:foreground "Grey")))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine")))) + '(custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "yellow")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:bold t :foreground "Aquamarine")))) + '(cvs-filename-face ((t (:foreground "blue4")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "blue4")))) + '(cvs-marked-face ((t (:bold t :foreground "green3")))) + '(cvs-msg-face ((t (:italic t)))) + '(cvs-need-action-face ((t (:foreground "orange")))) + '(cvs-unknown-face ((t (:foreground "red")))) + '(diary-face ((t (:bold t :foreground "cyan")))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t :foreground "sky blue")))) + '(dired-face-executable ((t (:foreground "green yellow")))) + '(dired-face-flagged ((t (:foreground "tomato")))) + '(dired-face-marked ((t (:foreground "light salmon")))) + '(dired-face-permissions ((t (:foreground "aquamarine")))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "gray95")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(ecb-sources-face ((t (:foreground "LightBlue1")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "indianred" :foreground "white")))) + '(ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Gray" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White")))) + '(erc-action-face ((t (:bold t)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "LightSalmon")))) + '(erc-error-face ((t (:bold t :foreground "yellow")))) + '(erc-input-face ((t (:foreground "Beige")))) + '(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) + '(erc-notice-face ((t (:foreground "MediumAquamarine")))) + '(erc-pal-face ((t (:foreground "PaleGreen")))) + '(erc-prompt-face ((t (:foreground "MediumAquamarine")))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-backup-face ((t (:foreground "Grey")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Yellow")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-missing-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-picture-face ((t (:foreground "wheat")))) + '(eshell-ls-product-face ((t (:foreground "wheat")))) + '(eshell-ls-readonly-face ((t (:foreground "wheat")))) + '(eshell-ls-special-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "White")))) + '(eshell-ls-text-face ((t (:foreground "wheat")))) + '(eshell-ls-todo-face ((t (:foreground "wheat")))) + '(eshell-ls-unreadable-face ((t (:foreground "wheat3")))) + '(eshell-prompt-face ((t (:bold t :foreground "PaleGreen")))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green")))) + '(excerpt ((t (:italic t)))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(fixed ((t (:bold t)))) + '(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) + '(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) + '(font-latex-italic-face ((t (nil)))) + '(font-latex-math-face ((t (nil)))) + '(font-latex-sedate-face ((t (:foreground "Gray85")))) + '(font-latex-string-face ((t (:foreground "orange")))) + '(font-latex-warning-face ((t (:foreground "gold")))) + '(font-lock-builtin-face ((t (:foreground "PaleGreen")))) + '(font-lock-comment-face ((t (:italic t :foreground "Gray80")))) + '(font-lock-constant-face ((t (:foreground "LightBlue")))) + '(font-lock-doc-face ((t (:bold t)))) + '(font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen")))) + '(font-lock-exit-face ((t (:foreground "green")))) + '(font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow")))) + '(font-lock-keyword-face ((t (:bold t :foreground "LightBlue")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "PaleGreen")))) + '(font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen")))) + '(font-lock-type-face ((t (:bold t :foreground "YellowGreen")))) + '(font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue")))) + '(font-lock-warning-face ((t (:bold t :foreground "LightSalmon")))) + '(fringe ((t (:background "darkslategrey")))) + '(gnus-cite-attribution-face ((t (:italic t :bold t)))) + '(gnus-cite-face-1 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-11 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-2 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-3 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-4 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-5 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-6 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-7 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-8 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-9 ((t (:foreground "LightBlue")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-news-1-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) + '(gnus-group-news-2-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-group-news-3-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-news-4-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "Wheat")))) + '(gnus-group-news-5-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-6-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-low-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) + '(gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3")))) + '(gnus-header-from-face ((t (:bold t :foreground "light cyan")))) + '(gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) + '(gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(gnus-picons-face ((t (:background "white" :foreground "black")))) + '(gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) + '(gnus-signature-face ((t (:italic t :foreground "LightBlue")))) + '(gnus-splash ((t (:foreground "Brown")))) + '(gnus-splash-face ((t (:foreground "LightBlue")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "gray80")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat")))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "light sea green")))) + '(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue")))) + '(gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "gray80")))) + '(gnus-summary-normal-read-face ((t (:foreground "gray80")))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown")))) + '(gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat")))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "DarkSalmon" :foreground "white")))) + '(gui-element ((t (:background "Gray")))) + '(header-line ((t (:background "grey20" :foreground "grey90")))) + '(highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) + '(highlight-changes-delete-face ((t (:underline t :foreground "red")))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "SeaGreen")))) + '(holiday-face ((t (:background "DimGray")))) + '(html-helper-bold-face ((t (:foreground "DarkRed")))) + '(html-helper-italic-face ((t (:foreground "DarkBlue")))) + '(html-helper-underline-face ((t (:underline t :foreground "Black")))) + '(html-tag-face ((t (:foreground "Blue")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:underline t :italic t :bold t :foreground "light blue")))) + '(info-xref ((t (:bold t :foreground "light blue")))) + '(isearch ((t (:background "Aquamarine" :foreground "SteelBlue")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (:italic t)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) + '(jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-bold-face ((t (:bold t)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-italic-face ((t (:italic t)))) + '(jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue")))) + '(jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-number-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) + '(left-margin ((t (nil)))) + '(linemenu-face ((t (:background "gray30")))) + '(list-mode-item-selected ((t (nil)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(menu ((t (:background "wheat" :foreground "gray30")))) + '(message-cited-text-face ((t (:foreground "White")))) + '(message-header-cc-face ((t (:bold t :foreground "light cyan")))) + '(message-header-name-face ((t (:foreground "LightBlue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) + '(message-header-other-face ((t (:foreground "LightSkyBlue3")))) + '(message-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(message-header-to-face ((t (:bold t :foreground "light cyan")))) + '(message-header-xheader-face ((t (:foreground "LightBlue")))) + '(message-mml-face ((t (:bold t :foreground "LightBlue")))) + '(message-separator-face ((t (:foreground "LightBlue")))) + '(mmm-default-submode-face ((t (:background "#c0c0c5")))) + '(modeline ((t (:background "#c1ccd9" :foreground "#4f657d")))) + '(modeline-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d")))) + '(modeline-mousable ((t (:background "#c1ccd9" :foreground "#4f657d")))) + '(modeline-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d")))) + + '(my-summary-highlight-face ((t (:foreground "White")))) + '(my-url-face ((t (:foreground "LightBlue")))) + '(nil ((t (nil)))) + '(paren-blink-off ((t (:foreground "gray")))) + '(paren-face-match ((t (:background "turquoise")))) + '(paren-face-mismatch ((t (:background "purple" :foreground "white")))) + '(paren-face-no-match ((t (:background "yellow" :foreground "black")))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "black")))) + '(paren-mismatch-face ((t (:bold t)))) + '(paren-no-match-face ((t (:bold t)))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "PaleTurquoise4" :foreground "gray80")))) + '(right-margin ((t (nil)))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "sea green" :foreground "yellow")))) + '(semantic-dirty-token-face ((t (:background "gray10")))) + '(semantic-intangible-face ((t (:foreground "gray25")))) + '(semantic-read-only-face ((t (:background "gray25")))) + '(senator-intangible-face ((t (:foreground "gray75")))) + '(senator-momentary-highlight-face ((t (:background "gray80")))) + '(senator-read-only-face ((t (:background "#664444")))) + '(sgml-comment-face ((t (:foreground "dark turquoise")))) + '(sgml-doctype-face ((t (:foreground "red")))) + '(sgml-end-tag-face ((t (:foreground "blue")))) + '(sgml-entity-face ((t (:foreground "magenta")))) + '(sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) + '(sgml-ms-end-face ((t (:foreground "green")))) + '(sgml-ms-start-face ((t (:foreground "yellow")))) + '(sgml-pi-face ((t (:foreground "lime green")))) + '(sgml-sgml-face ((t (:foreground "brown")))) + '(sgml-short-ref-face ((t (:foreground "deep sky blue")))) + '(sgml-start-tag-face ((t (:foreground "dark green")))) + '(shell-option-face ((t (:foreground "blue")))) + '(shell-output-2-face ((t (:foreground "darkseagreen")))) + '(shell-output-3-face ((t (:foreground "slategray")))) + '(shell-output-face ((t (:foreground "palegreen")))) + '(shell-prompt-face ((t (:foreground "red")))) + '(show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue")))) + '(show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White")))) + '(speedbar-button-face ((t (:bold t :foreground "LightBlue")))) + '(speedbar-directory-face ((t (:bold t :foreground "yellow")))) + '(speedbar-file-face ((t (:bold t :foreground "wheat")))) + '(speedbar-highlight-face ((t (:background "sea green")))) + '(speedbar-selected-face ((t (:underline t)))) + '(speedbar-tag-face ((t (:foreground "LightBlue")))) + '(swbuff-current-buffer-face ((t (:bold t :foreground "red")))) + '(template-message-face ((t (:bold t)))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(text-cursor ((t (:background "Red3" :foreground "white")))) + '(tool-bar ((t (:background "grey75" :foreground "black")))) + '(toolbar ((t (:background "Gray")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (nil)))) + '(vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) + '(vcursor ((t (:underline t :background "cyan" :foreground "blue")))) + '(vertical-divider ((t (:background "Gray")))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) + '(vhdl-speedbar-package-face ((t (:foreground "Gray50")))) + '(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50")))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(vm-header-content-face ((t (:italic t :foreground "wheat")))) + '(vm-header-from-face ((t (:italic t :foreground "wheat")))) + '(vm-header-name-face ((t (:foreground "cyan")))) + '(vm-header-subject-face ((t (:foreground "cyan")))) + '(vm-header-to-face ((t (:italic t :foreground "cyan")))) + '(vm-message-cited-face ((t (:foreground "Gray80")))) + '(vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-highlight-face ((t (:foreground "White")))) + '(vmpc-pre-sig-face ((t (:foreground "Aquamarine")))) + '(vmpc-sig-face ((t (:foreground "LightBlue")))) + '(vvb-face ((t (:background "pink" :foreground "black")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "LightBlue")))) + '(widget-field-face ((t (:foreground "LightBlue")))) + '(widget-inactive-face ((t (:foreground "Wheat3")))) + '(widget-single-line-field-face ((t (:foreground "LightBlue")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(xref-keyword-face ((t (:foreground "blue")))) + '(xref-list-pilot-face ((t (:foreground "navy")))) + '(xref-list-symbol-face ((t (:foreground "navy")))) + '(xxml-emph-1-face ((t (:background "lightyellow")))) + '(xxml-emph-2-face ((t (:background "lightyellow")))) + '(xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) + '(xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) + '(xxml-header-3-face ((t (:background "seashell1")))) + '(xxml-header-4-face ((t (:background "seashell1")))) + '(xxml-interaction-face ((t (:background "lightcyan")))) + '(xxml-rug-face ((t (:background "cyan")))) + '(xxml-sparkle-face ((t (:background "yellow")))) + '(xxml-unbreakable-space-face ((t (:underline t :foreground "grey")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "SlateGray"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'dark-blue) + +;;; dark-blue-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/dark-blue2-theme.el b/elpa/color-theme-modern-0.0.3/dark-blue2-theme.el new file mode 100644 index 0000000..c8b7084 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/dark-blue2-theme.el @@ -0,0 +1,626 @@ +;;; dark-blue2-theme.el --- dark-blue2 theme + +;; Copyright (C) 2002 by Chris McMahan +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of dark-blue2 theme from `color-themes' + +;;; Code: + +(deftheme dark-blue2 + "dark-blue2 theme") + +(custom-theme-set-faces + 'dark-blue2 + + '(default ((t (:background "#233b5a" :foreground "#fff8dc")))) + '(mouse ((t (:background "Grey")))) + '(cursor ((t (:background "Yellow")))) + '(border ((t (:background "black")))) + + '(cperl-invalid-face ((t (:underline t)))) + '(gnus-article-button-face ((t (:bold t :foreground "cyan" :weight bold)))) + '(gnus-article-mouse-face ((t (:background "SkyBlue3")))) + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :foreground "cyan" :weight bold)))) + '(view-highlight-face ((t (:background "SkyBlue3")))) + '(vm-highlight-url-face ((t (:bold t :foreground "cyan" :weight bold)))-italic) + '(vm-highlighted-header-face ((t (:bold t :foreground "cyan" :weight bold)))) + '(vm-mime-button-face ((t (:background "grey75" :foreground "gray30")))) + '(vm-summary-highlight-face ((t (:bold t :foreground "cyan" :weight bold)))) + '(widget-mouse-face ((t (:background "SkyBlue3")))) + + '(Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv")))) + '(Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv")))) + '(Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv")))) + '(Info-title-4-face ((t (:bold t :weight bold :family "helv")))) + '(antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold)))) + '(antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold)))) + '(antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold)))) + '(antlr-font-lock-ruleref-face ((t (:foreground "Gray85")))) + '(antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold)))) + '(antlr-font-lock-tokenref-face ((t (:foreground "Gray85")))) + '(bbdb-company ((t (:italic t :slant italic)))) + '(bbdb-field-name ((t (:bold t :weight bold)))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(bg:erc-color-face0 ((t (:background "White")))) + '(bg:erc-color-face1 ((t (:background "black")))) + '(bg:erc-color-face10 ((t (:background "lightblue1")))) + '(bg:erc-color-face11 ((t (:background "cyan")))) + '(bg:erc-color-face12 ((t (:background "blue")))) + '(bg:erc-color-face13 ((t (:background "deeppink")))) + '(bg:erc-color-face14 ((t (:background "gray50")))) + '(bg:erc-color-face15 ((t (:background "gray90")))) + '(bg:erc-color-face2 ((t (:background "blue4")))) + '(bg:erc-color-face3 ((t (:background "green4")))) + '(bg:erc-color-face4 ((t (:background "red")))) + '(bg:erc-color-face5 ((t (:background "brown")))) + '(bg:erc-color-face6 ((t (:background "purple")))) + '(bg:erc-color-face7 ((t (:background "orange")))) + '(bg:erc-color-face8 ((t (:background "yellow")))) + '(bg:erc-color-face9 ((t (:background "green")))) + '(blank-space-face ((t (:background "LightGray")))) + '(blank-tab-face ((t (:background "Wheat")))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t :foreground "cyan" :weight bold)))) + '(bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold)))) + '(border-glyph ((t (nil)))) + '(buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue")))) + '(calendar-today-face ((t (:underline t)))) + '(change-log-acknowledgement-face ((t (:foreground "firebrick")))) + '(change-log-conditionals-face ((t (:background "sienna" :foreground "khaki")))) + '(change-log-date-face ((t (:foreground "gold")))) + '(change-log-email-face ((t (:foreground "khaki" :underline t)))) + '(change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold)))) + '(change-log-function-face ((t (:background "sienna" :foreground "khaki")))) + '(change-log-list-face ((t (:foreground "wheat")))) + '(change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(comint-input-face ((t (:foreground "deepskyblue")))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) + '(cperl-invalid-face ((t (:foreground "white")))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (:bold t :weight bold)))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30")))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:foreground "white")))) + '(custom-comment-tag-face ((t (:foreground "white")))) + '(custom-documentation-face ((t (:foreground "light blue")))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold)))) + '(custom-group-tag-face-1 ((t (:foreground "gray85" :underline t)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "gray30" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "gray85")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold)))) + '(cvs-filename-face ((t (:foreground "white")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:foreground "green")))) + '(cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) + '(cvs-msg-face ((t (:foreground "gray85")))) + '(cvs-need-action-face ((t (:foreground "yellow")))) + '(cvs-unknown-face ((t (:foreground "grey")))) + '(cyan ((t (:foreground "cyan")))) + '(diary-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (:foreground "grey50")))) + '(diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-function-face ((t (:foreground "grey50")))) + '(diff-header-face ((t (:foreground "lemon chiffon")))) + '(diff-hunk-header-face ((t (:background "grey85")))) + '(diff-index-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-removed-face ((t (nil)))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t :weight bold)))) + '(dired-face-executable ((t (:foreground "gray85")))) + '(dired-face-flagged ((t (:background "LightSlateGray")))) + '(dired-face-header ((t (:background "grey75" :foreground "gray30")))) + '(dired-face-marked ((t (:background "PaleVioletRed")))) + '(dired-face-permissions ((t (:background "grey75" :foreground "gray30")))) + '(dired-face-setuid ((t (:foreground "gray85")))) + '(dired-face-socket ((t (:foreground "gray85")))) + '(dired-face-symlink ((t (:foreground "cyan")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "gray85")))) + '(ebrowse-default-face ((t (nil)))) + '(ebrowse-file-name-face ((t (:italic t :slant italic)))) + '(ebrowse-member-attribute-face ((t (:foreground "red")))) + '(ebrowse-member-class-face ((t (:foreground "Gray85")))) + '(ebrowse-progress-face ((t (:background "blue")))) + '(ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold)))) + '(ebrowse-tree-mark-face ((t (:foreground "Gray85")))) + '(ecb-bucket-token-face ((t (:bold t :weight bold)))) + '(ecb-default-general-face ((t (:height 1.0)))) + '(ecb-default-highlight-face ((t (:background "magenta" :height 1.0)))) + '(ecb-directories-general-face ((t (:height 0.9)))) + '(ecb-directory-face ((t (:background "Cyan4")))) + '(ecb-history-face ((t (:background "Cyan4")))) + '(ecb-history-general-face ((t (:height 0.9)))) + '(ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal)))) + '(ecb-methods-general-face ((t (:slant normal)))) + '(ecb-source-face ((t (:background "Cyan4")))) + '(ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1" :background "Cyan4")))) + '(ecb-sources-face ((t (:foreground "LightBlue1")))) + '(ecb-sources-general-face ((t (:height 0.9)))) + '(ecb-token-header-face ((t (:background "Steelblue4")))) + '(ecb-type-token-class-face ((t (:bold t :weight bold)))) + '(ecb-type-token-enum-face ((t (:bold t :weight bold)))) + '(ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold)))) + '(ecb-type-token-interface-face ((t (:bold t :weight bold)))) + '(ecb-type-token-struct-face ((t (:bold t :weight bold)))) + '(ecb-type-token-typedef-face ((t (:bold t :weight bold)))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(erc-action-face ((t (:bold t :weight bold)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-dangerous-host-face ((t (:foreground "red")))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "pale green")))) + '(erc-error-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(erc-fool-face ((t (:foreground "Gray85")))) + '(erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) + '(erc-input-face ((t (:foreground "light blue")))) + '(erc-inverse-face ((t (:background "Black" :foreground "White")))) + '(erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) + '(erc-notice-face ((t (:foreground "light salmon")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) + '(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :weight bold)))) + '(eshell-ls-backup-face ((t (:foreground "gray85")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold)))) + '(eshell-ls-executable-face ((t (:bold t :weight bold)))) + '(eshell-ls-missing-face ((t (:bold t :weight bold)))) + '(eshell-ls-picture-face ((t (:foreground "gray85")))) + '(eshell-ls-product-face ((t (:foreground "gray85")))) + '(eshell-ls-readonly-face ((t (:foreground "gray70")))) + '(eshell-ls-special-face ((t (:bold t :weight bold)))) + '(eshell-ls-symlink-face ((t (:bold t :weight bold)))) + '(eshell-ls-text-face ((t (:foreground "gray85")))) + '(eshell-ls-todo-face ((t (:bold t :weight bold)))) + '(eshell-ls-unreadable-face ((t (:foreground "gray85")))) + '(eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold)))) + '(eshell-test-failed-face ((t (:bold t :weight bold)))) + '(eshell-test-ok-face ((t (:bold t :weight bold)))) + '(excerpt ((t (:italic t :slant italic)))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(fg:black ((t (:foreground "black")))) + '(fg:erc-color-face0 ((t (:foreground "White")))) + '(fg:erc-color-face1 ((t (:foreground "black")))) + '(fg:erc-color-face10 ((t (:foreground "lightblue1")))) + '(fg:erc-color-face11 ((t (:foreground "cyan")))) + '(fg:erc-color-face12 ((t (:foreground "blue")))) + '(fg:erc-color-face13 ((t (:foreground "deeppink")))) + '(fg:erc-color-face14 ((t (:foreground "gray50")))) + '(fg:erc-color-face15 ((t (:foreground "gray90")))) + '(fg:erc-color-face2 ((t (:foreground "blue4")))) + '(fg:erc-color-face3 ((t (:foreground "green4")))) + '(fg:erc-color-face4 ((t (:foreground "red")))) + '(fg:erc-color-face5 ((t (:foreground "brown")))) + '(fg:erc-color-face6 ((t (:foreground "purple")))) + '(fg:erc-color-face7 ((t (:foreground "orange")))) + '(fg:erc-color-face8 ((t (:foreground "yellow")))) + '(fg:erc-color-face9 ((t (:foreground "green")))) + '(fixed ((t (:bold t :weight bold)))) + '(fixed-pitch ((t (:family "outline-lucida console")))) + '(fl-comment-face ((t (:foreground "gray85")))) + '(fl-function-name-face ((t (:foreground "green")))) + '(fl-keyword-face ((t (:foreground "LightGreen")))) + '(fl-string-face ((t (:foreground "light coral")))) + '(fl-type-face ((t (:foreground "cyan")))) + '(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) + '(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) + '(font-latex-bold-face ((t (nil)))) + '(font-latex-italic-face ((t (nil)))) + '(font-latex-math-face ((t (nil)))) + '(font-latex-sedate-face ((t (:foreground "Gray85")))) + '(font-latex-string-face ((t (:foreground "orange")))) + '(font-latex-warning-face ((t (:foreground "gold")))) + '(font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold)))) + '(font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic)))) + '(font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) + '(font-lock-doc-face ((t (:bold t :weight bold)))) + '(font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold)))) + '(font-lock-exit-face ((t (:foreground "green")))) + '(font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold)))) + '(font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold)))) + '(font-lock-preprocessor-face ((t (:foreground "Gray85")))) + '(font-lock-reference-face ((t (:foreground "cyan")))) + '(font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic)))) + '(font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) + '(font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold)))) + '(font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold)))) + '(fringe ((t (:background "#3c5473")))) + '(gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold)))) + '(gnus-cite-face-1 ((t (:foreground "gold")))) + '(gnus-cite-face-10 ((t (:foreground "coral")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "wheat")))) + '(gnus-cite-face-3 ((t (:foreground "light pink")))) + '(gnus-cite-face-4 ((t (:foreground "khaki")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold")))) + '(gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic)))) + '(gnus-emphasis-underline ((t (:foreground "white" :underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic)))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "Magenta")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "Cyan")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (:foreground "wheat")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold)))) + '(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine")))) + '(gnus-group-news-4-face ((t (:bold t :weight bold)))) + '(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-5-face ((t (:bold t :weight bold)))) + '(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-6-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold)))) + '(gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic)))) + '(gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold)))) + '(gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold)))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold)))) + '(gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold)))) + '(gnus-picons-face ((t (:background "white" :foreground "gray30")))) + '(gnus-picons-xbm-face ((t (:background "white" :foreground "gray30")))) + '(gnus-signature-face ((t (:italic t :foreground "white" :slant italic)))) + '(gnus-splash ((t (:foreground "Brown")))) + '(gnus-splash-face ((t (:foreground "orange")))) + '(gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic)))) + '(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold)))) + '(gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "gray70")))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) + '(gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(gnus-summary-selected-face ((t (:foreground "white" :underline t)))) + '(gnus-x-face ((t (:background "white" :foreground "gray30")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "gray30")))) + '(gui-element ((t (:background "Gray80")))) + '(header-line ((t (:background "grey20" :foreground "grey90")))) + '(hi-black-b ((t (:bold t :weight bold)))) + '(hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv")))) + '(hi-blue ((t (:background "light blue")))) + '(hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) + '(hi-green ((t (:background "green")))) + '(hi-green-b ((t (:bold t :foreground "green" :weight bold)))) + '(hi-pink ((t (:background "pink")))) + '(hi-red-b ((t (:bold t :foreground "red" :weight bold)))) + '(hi-yellow ((t (:background "yellow")))) + '(highlight ((t (:background "SkyBlue3")))) + '(highlight-changes-delete-face ((t (:foreground "gray85" :underline t)))) + '(highlight-changes-face ((t (:foreground "gray85")))) + '(highline-face ((t (:background "#3c5473")))) + '(highline-vertical-face ((t (:background "lightcyan")))) + '(holiday-face ((t (:background "pink" :foreground "gray30")))) + '(html-helper-bold-face ((t (:bold t :weight bold)))) + '(html-helper-bold-italic-face ((t (nil)))) + '(html-helper-builtin-face ((t (:foreground "gray85" :underline t)))) + '(html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold)))) + '(html-helper-underline-face ((t (:underline t)))) + '(html-tag-face ((t (:bold t :weight bold)))) + '(hyper-apropos-documentation ((t (:foreground "white")))) + '(hyper-apropos-heading ((t (:bold t :weight bold)))) + '(hyper-apropos-hyperlink ((t (:foreground "sky blue")))) + '(hyper-apropos-major-heading ((t (:bold t :weight bold)))) + '(hyper-apropos-section-heading ((t (:bold t :weight bold)))) + '(hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold)))) + '(ibuffer-marked-face ((t (:foreground "gray85")))) + '(idlwave-help-link-face ((t (:foreground "Blue")))) + '(idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) + '(info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) + '(info-header-xref ((t (:bold t :foreground "magenta4" :weight bold)))) + '(info-menu-5 ((t (:underline t)))) + '(info-menu-6 ((t (nil)))) + '(info-menu-header ((t (:bold t :weight bold :family "helv")))) + '(info-node ((t (:italic t :bold t :slant italic :weight bold)))) + '(info-xref ((t (:bold t :weight bold)))) + '(isearch ((t (:background "LightSeaGreen")))) + '(isearch-lazy-highlight-face ((t (:background "cyan4")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) + '(jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) + '(jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t)))) + '(jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) + '(jde-java-font-lock-operator-face ((t (:foreground "cyan3")))) + '(jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold)))) + '(left-margin ((t (nil)))) + '(linemenu-face ((t (:background "gray30")))) + '(list-mode-item-selected ((t (:background "gray68")))) + '(log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) + '(log-view-message-face ((t (:background "grey85")))) + '(magenta ((t (:foreground "gray85")))) + '(makefile-space-face ((t (:background "hotpink" :foreground "white")))) + '(man-bold ((t (:bold t :weight bold)))) + '(man-heading ((t (:bold t :weight bold)))) + '(man-italic ((t (:foreground "yellow")))) + '(man-xref ((t (:underline t)))) + '(menu ((t (:background "wheat" :foreground "gray30")))) + '(message-cited-text ((t (:foreground "orange")))) + '(message-cited-text-face ((t (:foreground "medium aquamarine")))) + '(message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(message-header-contents ((t (:foreground "white")))) + '(message-header-name-face ((t (:foreground "gray85")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) + '(message-header-other-face ((t (:foreground "gray85")))) + '(message-header-subject-face ((t (:bold t :foreground "green3" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-headers ((t (:bold t :foreground "orange" :weight bold)))) + '(message-highlighted-header-contents ((t (:bold t :weight bold)))) + '(message-mml-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(message-separator-face ((t (:foreground "gray85")))) + '(message-url ((t (:bold t :foreground "pink" :weight bold)))) + '(mmm-default-submode-face ((t (:background "#c0c0c5")))) + '(mmm-face ((t (:background "black" :foreground "green")))) + '(modeline ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv"))))) + '(modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana")))) + '(modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3")))) + '(modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3")))) + '(my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White")))) + '(my-url-face ((t (:foreground "LightBlue")))) + '(nil ((t (nil)))) + '(paren-blink-off ((t (:foreground "gray80")))) + '(paren-face-match ((t (:background "turquoise")))) + '(paren-face-mismatch ((t (:background "purple" :foreground "white")))) + '(paren-face-no-match ((t (:background "yellow" :foreground "gray30")))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (:background "RosyBrown" :foreground "gray30")))) + '(paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold)))) + '(paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold)))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray40")))) + '(reb-match-0 ((t (:background "lightblue")))) + '(reb-match-1 ((t (:background "aquamarine")))) + '(reb-match-2 ((t (:background "springgreen")))) + '(reb-match-3 ((t (:background "yellow")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "Cyan4")))) + '(right-margin ((t (nil)))) + '(scroll-bar ((t (:background "grey75")))) + '(secondary-selection ((t (:background "gray60")))) + '(semantic-dirty-token-face ((t (:background "gray10")))) + '(semantic-intangible-face ((t (:foreground "gray25")))) + '(semantic-read-only-face ((t (:background "gray25")))) + '(semantic-unmatched-syntax-face ((t (:underline "red")))) + '(senator-intangible-face ((t (:foreground "gray75")))) + '(senator-momentary-highlight-face ((t (:background "gray70")))) + '(senator-read-only-face ((t (:background "#664444")))) + '(sgml-comment-face ((t (:foreground "dark turquoise")))) + '(sgml-doctype-face ((t (:foreground "turquoise")))) + '(sgml-end-tag-face ((t (:foreground "aquamarine")))) + '(sgml-entity-face ((t (:foreground "gray85")))) + '(sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) + '(sgml-ms-end-face ((t (:foreground "green")))) + '(sgml-ms-start-face ((t (:foreground "yellow")))) + '(sgml-pi-face ((t (:foreground "lime green")))) + '(sgml-sgml-face ((t (:foreground "brown")))) + '(sgml-short-ref-face ((t (:foreground "deep sky blue")))) + '(sgml-start-tag-face ((t (:foreground "aquamarine")))) + '(sh-heredoc-face ((t (:foreground "tan")))) + '(shell-option-face ((t (:foreground "gray85")))) + '(shell-output-2-face ((t (:foreground "gray85")))) + '(shell-output-3-face ((t (:foreground "gray85")))) + '(shell-output-face ((t (:bold t :weight bold)))) + '(shell-prompt-face ((t (:foreground "yellow")))) + '(show-paren-match-face ((t (:bold t :background "turquoise" :weight bold)))) + '(show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold)))) + '(show-tabs-space-face ((t (:foreground "yellow")))) + '(show-tabs-tab-face ((t (:foreground "red")))) + '(smerge-base-face ((t (:foreground "red")))) + '(smerge-markers-face ((t (:background "grey85")))) + '(smerge-mine-face ((t (:foreground "Gray85")))) + '(smerge-other-face ((t (:foreground "darkgreen")))) + '(speedbar-button-face ((t (:bold t :weight bold)))) + '(speedbar-directory-face ((t (:bold t :weight bold)))) + '(speedbar-file-face ((t (:bold t :weight bold)))) + '(speedbar-highlight-face ((t (:background "sea green")))) + '(speedbar-selected-face ((t (:underline t)))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(strokes-char-face ((t (:background "lightgray")))) + '(swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(template-message-face ((t (:bold t :weight bold)))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t :weight bold)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default ((t (:background "gray80" :foreground "gray30" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(tex-math-face ((t (:foreground "RosyBrown")))) + '(texinfo-heading-face ((t (:foreground "Blue")))) + '(text-cursor ((t (:background "Red3" :foreground "gray80")))) + '(tool-bar ((t (:background "grey75" :foreground "black")))) + '(toolbar ((t (:background "Gray80")))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) + '(vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) + '(vertical-divider ((t (:background "Gray80")))) + '(vhdl-font-lock-attribute-face ((t (:foreground "gray85")))) + '(vhdl-font-lock-directive-face ((t (:foreground "gray85")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "gray85")))) + '(vhdl-font-lock-function-face ((t (:foreground "gray85")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "gray85")))) + '(vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t)))) + '(vhdl-speedbar-configuration-face ((t (:foreground "gray85")))) + '(vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t)))) + '(vhdl-speedbar-entity-face ((t (:foreground "gray85")))) + '(vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t)))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "gray85")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t)))) + '(vhdl-speedbar-package-face ((t (:foreground "gray85")))) + '(vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t)))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic)))) + '(vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic)))) + '(vm-header-name-face ((t (:foreground "cyan")))) + '(vm-header-subject-face ((t (:foreground "cyan")))) + '(vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic)))) + '(vm-message-cited-face ((t (:foreground "Gray80")))) + '(vm-monochrome-image ((t (:background "white" :foreground "gray30")))) + '(vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-highlight-face ((t (:foreground "White")))) + '(vm-xface ((t (:background "white" :foreground "gray30")))) + '(vmpc-pre-sig-face ((t (:foreground "gray85")))) + '(vmpc-sig-face ((t (:foreground "gray85")))) + '(vvb-face ((t (:background "pink" :foreground "gray30")))) + '(w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold)))) + '(w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) + '(w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) + '(white ((t (:foreground "white")))) + '(widget ((t (nil)))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "gray85")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85" :foreground "gray30")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))) + '(woman-addition-face ((t (:foreground "orange")))) + '(woman-bold-face ((t (:bold t :weight bold)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(x-face ((t (:background "white" :foreground "gray30")))) + '(xrdb-option-name-face ((t (:foreground "gray85")))) + '(xref-keyword-face ((t (:foreground "gray85")))) + '(xref-list-default-face ((t (nil)))) + '(xref-list-pilot-face ((t (:foreground "gray85")))) + '(xref-list-symbol-face ((t (:foreground "navy")))) + '(xsl-fo-alternate-face ((t (:foreground "Yellow")))) + '(xsl-fo-main-face ((t (:foreground "PaleGreen")))) + '(xsl-other-element-face ((t (:foreground "Coral")))) + '(xsl-xslt-alternate-face ((t (:foreground "LightGray")))) + '(xsl-xslt-main-face ((t (:foreground "Wheat")))) + '(xxml-emph-1-face ((t (:background "lightyellow")))) + '(xxml-emph-2-face ((t (:background "lightyellow")))) + '(xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) + '(xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) + '(xxml-header-3-face ((t (:background "seashell1")))) + '(xxml-header-4-face ((t (:background "seashell1")))) + '(xxml-interaction-face ((t (:background "lightcyan")))) + '(xxml-rug-face ((t (:background "cyan")))) + '(xxml-sparkle-face ((t (:background "yellow")))) + '(xxml-unbreakable-space-face ((t (:foreground "grey" :underline t)))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "Cyan4"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'dark-blue2) + +;;; dark-blue2-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/dark-erc-theme.el b/elpa/color-theme-modern-0.0.3/dark-erc-theme.el new file mode 100644 index 0000000..255af66 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/dark-erc-theme.el @@ -0,0 +1,91 @@ +;;; dark-erc-theme.el --- dark-erc theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of dark-erc theme from `color-themes' + +;;; Code: + +(deftheme dark-erc + "dark-erc theme") + +(custom-theme-set-faces + 'dark-erc + + '(erc-action-face ((t (nil)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-current-nick-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (nil)))) + '(erc-error-face ((t (:bold t :foreground "IndianRed")))) + '(erc-highlight-face ((t (:bold t :foreground "pale green")))) + '(erc-input-face ((t (:foreground "#555")))) + '(erc-inverse-face ((t (:background "steel blue")))) + '(erc-keyword-face ((t (:foreground "#999" :bold t)))) + '(erc-nick-msg-face ((t (:foreground "#888")))) + '(erc-notice-face ((t (:foreground "#444")))) + '(erc-pal-face ((t (:foreground "#888")))) + '(erc-prompt-face ((t (:foreground "#777" :bold t)))) + '(erc-timestamp-face ((t (:foreground "#777" :bold t)))) + '(fg:erc-color-face0 ((t (:foreground "white")))) + '(fg:erc-color-face1 ((t (:foreground "beige")))) + '(fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) + '(fg:erc-color-face3 ((t (:foreground "light cyan")))) + '(fg:erc-color-face4 ((t (:foreground "powder blue")))) + '(fg:erc-color-face5 ((t (:foreground "sky blue")))) + '(fg:erc-color-face6 ((t (:foreground "dark sea green")))) + '(fg:erc-color-face7 ((t (:foreground "pale green")))) + '(fg:erc-color-face8 ((t (:foreground "medium spring green")))) + '(fg:erc-color-face9 ((t (:foreground "khaki")))) + '(fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) + '(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) + '(fg:erc-color-face12 ((t (:foreground "light yellow")))) + '(fg:erc-color-face13 ((t (:foreground "yellow")))) + '(fg:erc-color-face14 ((t (:foreground "light goldenrod")))) + '(fg:erc-color-face15 ((t (:foreground "lime green")))) + '(bg:erc-color-face0 ((t (nil)))) + '(bg:erc-color-face1 ((t (nil)))) + '(bg:erc-color-face2 ((t (nil)))) + '(bg:erc-color-face3 ((t (nil)))) + '(bg:erc-color-face4 ((t (nil)))) + '(bg:erc-color-face5 ((t (nil)))) + '(bg:erc-color-face6 ((t (nil)))) + '(bg:erc-color-face7 ((t (nil)))) + '(bg:erc-color-face8 ((t (nil)))) + '(bg:erc-color-face9 ((t (nil)))) + '(bg:erc-color-face10 ((t (nil)))) + '(bg:erc-color-face11 ((t (nil)))) + '(bg:erc-color-face12 ((t (nil)))) + '(bg:erc-color-face13 ((t (nil)))) + '(bg:erc-color-face14 ((t (nil)))) + '(bg:erc-color-face15 ((t (nil))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'dark-erc) + +;;; dark-erc-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/dark-font-lock-theme.el b/elpa/color-theme-modern-0.0.3/dark-font-lock-theme.el new file mode 100644 index 0000000..584a937 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/dark-font-lock-theme.el @@ -0,0 +1,57 @@ +;;; dark-font-lock-theme.el --- dark-font-lock theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of dark-font-lock theme from `color-themes' + +;;; Code: + +(deftheme dark-font-lock + "dark-font-lock theme") + +(custom-theme-set-faces + 'dark-font-lock + + '(font-lock-builtin-face ((t (:bold t :foreground "#777")))) + '(font-lock-comment-face ((t (:foreground "#555")))) + '(font-lock-constant-face ((t (:foreground "#777")))) + '(font-lock-doc-string-face ((t (:foreground "#777")))) + '(font-lock-doc-face ((t (:foreground "#777")))) + '(font-lock-function-name-face ((t (:bold t :foreground "#777")))) + '(font-lock-keyword-face ((t (:foreground "#777")))) + '(font-lock-preprocessor-face ((t (:foreground "#777")))) + '(font-lock-reference-face ((t (:foreground "#777")))) + '(font-lock-string-face ((t (:foreground "#777")))) + '(font-lock-type-face ((t (:bold t)))) + '(font-lock-variable-name-face ((t (:bold t :foreground "#888")))) + '(font-lock-warning-face ((t (:bold t :foreground "#999"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'dark-font-lock) + +;;; dark-font-lock-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/dark-gnus-theme.el b/elpa/color-theme-modern-0.0.3/dark-gnus-theme.el new file mode 100644 index 0000000..d020e14 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/dark-gnus-theme.el @@ -0,0 +1,114 @@ +;;; dark-gnus-theme.el --- dark-gnus theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of dark-gnus theme from `color-themes' + +;;; Code: + +(deftheme dark-gnus + "dark-gnus theme") + +(custom-theme-set-faces + 'dark-gnus + + '(gnus-cite-attribution-face ((t (:foreground "#bbb")))) + '(gnus-cite-face-1 ((t (:foreground "#aaa")))) + '(gnus-cite-face-2 ((t (:foreground "#aaa")))) + '(gnus-cite-face-3 ((t (:foreground "#aaa")))) + '(gnus-cite-face-4 ((t (:foreground "#aaa")))) + '(gnus-cite-face-5 ((t (:foreground "#aaa")))) + '(gnus-cite-face-6 ((t (:foreground "#aaa")))) + '(gnus-cite-face-7 ((t (:foreground "#aaa")))) + '(gnus-cite-face-8 ((t (:foreground "#aaa")))) + '(gnus-cite-face-9 ((t (:foreground "#aaa")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:foreground "#ccc")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "#999")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "#999")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "#999")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "#999")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "#888")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "#888")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "#777")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "#777")))) + '(gnus-group-news-1-empty-face ((t (:foreground "#999")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "#999")))) + '(gnus-group-news-2-empty-face ((t (:foreground "#888")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "#888")))) + '(gnus-group-news-3-empty-face ((t (:foreground "#777")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "#777")))) + '(gnus-group-news-4-empty-face ((t (:foreground "#666")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "#666")))) + '(gnus-group-news-5-empty-face ((t (:foreground "#666")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "#666")))) + '(gnus-group-news-6-empty-face ((t (:foreground "#666")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "#666")))) + '(gnus-group-news-low-empty-face ((t (:foreground "#666")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "#666")))) + '(gnus-header-content-face ((t (:foreground "#888")))) + '(gnus-header-from-face ((t (:bold t :foreground "#888")))) + '(gnus-header-name-face ((t (:bold t :foreground "#777")))) + '(gnus-header-newsgroups-face ((t (:bold t :foreground "#777")))) + '(gnus-header-subject-face ((t (:bold t :foreground "#999")))) + '(gnus-signature-face ((t (:foreground "#444")))) + '(gnus-splash-face ((t (:foreground "#ccc")))) + '(gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "#555")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "#666")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "#777")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "#888")))) + '(gnus-summary-low-ancient-face ((t (:foreground "#444")))) + '(gnus-summary-low-read-face ((t (:foreground "#555")))) + '(gnus-summary-low-ticked-face ((t (:foreground "#666")))) + '(gnus-summary-low-unread-face ((t (:foreground "#777")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "#555")))) + '(gnus-summary-normal-read-face ((t (:foreground "#666")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "#777")))) + '(gnus-summary-normal-unread-face ((t (:foreground "#888")))) + '(gnus-summary-selected-face ((t (:background "#333")))) + '(message-cited-text-face ((t (:foreground "#aaa")))) + '(message-header-cc-face ((t (:foreground "#888")))) + '(message-header-name-face ((t (:bold t :foreground "#777")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "#777")))) + '(message-header-other-face ((t (:foreground "#666")))) + '(message-header-subject-face ((t (:bold t :foreground "#999")))) + '(message-header-to-face ((t (:bold t :foreground "#777")))) + '(message-header-xheader-face ((t (:foreground "#666")))) + '(message-separator-face ((t (:foreground "#999"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'dark-gnus) + +;;; dark-gnus-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/dark-green-theme.el b/elpa/color-theme-modern-0.0.3/dark-green-theme.el new file mode 100644 index 0000000..4292d30 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/dark-green-theme.el @@ -0,0 +1,85 @@ +;;; dark-green-theme.el --- dark-green theme + +;; Copyright (C) 2002 by ces93 +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of dark-green theme from `color-themes' + +;;; Code: + +(deftheme dark-green + "dark-green theme") + +(custom-theme-set-faces + 'dark-green + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(fringe ((t (nil)))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:background "#ffffff" :foreground "#000000")))) + '(highlight ((t (:background "gray" :foreground "darkred")))) + '(isearch ((t (:background "LightSlateGray" :foreground "red")))) + '(italic ((t (:italic t)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68")))) + '(mode-line ((t (:background "LightSlateGray" :foreground "black")))) + '(modeline ((t (:background "LightSlateGray" :foreground "black")))) + '(modeline-buffer-id ((t (:background "LightSlateGray" :foreground "blue4")))) + '(modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "green4")))) + '(pointer ((t (:background "#ffffff" :foreground "#000000")))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "gray65")))) + '(right-margin ((t (nil)))) + '(rpm-spec-dir-face ((t (:foreground "green")))) + '(rpm-spec-doc-face ((t (:foreground "magenta")))) + '(rpm-spec-ghost-face ((t (:foreground "red")))) + '(rpm-spec-macro-face ((t (:foreground "purple")))) + '(rpm-spec-package-face ((t (:foreground "red")))) + '(rpm-spec-tag-face ((t (:foreground "blue")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(text-cursor ((t (:background "Red3" :foreground "DarkSlateGray")))) + '(tool-bar ((t (nil)))) + '(toolbar ((t (:background "#ffffff" :foreground "#000000")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (:background "#ffffff" :foreground "#000000")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "darkorange" :foreground "black"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'dark-green) + +;;; dark-green-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/dark-info-theme.el b/elpa/color-theme-modern-0.0.3/dark-info-theme.el new file mode 100644 index 0000000..19d9000 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/dark-info-theme.el @@ -0,0 +1,50 @@ +;;; dark-info-theme.el --- dark-info theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of dark-info theme from `color-themes' + +;;; Code: + +(deftheme dark-info + "dark-info theme") + +(custom-theme-set-faces + 'dark-info + + '(info-header-node ((t (:foreground "#666")))) + '(info-header-xref ((t (:foreground "#666")))) + '(info-menu-5 ((t (:underline t)))) + '(info-menu-header ((t (:bold t :foreground "#666")))) + '(info-node ((t (:bold t :foreground "#888")))) + '(info-xref ((t (:bold t :foreground "#777"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'dark-info) + +;;; dark-info-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/dark-laptop-theme.el b/elpa/color-theme-modern-0.0.3/dark-laptop-theme.el new file mode 100644 index 0000000..89b861d --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/dark-laptop-theme.el @@ -0,0 +1,177 @@ +;;; dark-laptop-theme.el --- dark-laptop theme + +;; Copyright (C) 2001 by Laurent Michel +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of dark-laptop theme from `color-themes' + +;;; Code: + +(deftheme dark-laptop + "dark-laptop theme") + +(custom-theme-set-faces + 'dark-laptop + + '(default ((t (:background "black" :foreground "white")))) + '(mouse ((t (:foreground "sienna1")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "darkolivegreen")))) + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "darkolivegreen")))) + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "light blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "lime green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "light blue")))) + '(fl-comment-face ((t (:foreground "pink")))) + '(fl-doc-string-face ((t (:foreground "purple")))) + '(fl-function-name-face ((t (:foreground "red")))) + '(fl-keyword-face ((t (:foreground "cyan")))) + '(fl-string-face ((t (:foreground "green")))) + '(fl-type-face ((t (:foreground "yellow")))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:foreground "OrangeRed")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-doc-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) + '(font-lock-keyword-face ((t (:foreground "Cyan")))) + '(font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) + '(font-lock-reference-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-type-face ((t (:foreground "PaleGreen")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:bold t :foreground "cyan")))) + '(gnus-cite-face-3 ((t (:bold t :foreground "gold")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:bold t :foreground "chocolate")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) + '(gnus-header-content-face ((t (:italic t :foreground "forest green")))) + '(gnus-header-from-face ((t (:bold t :foreground "spring green")))) + '(gnus-header-name-face ((t (:foreground "deep sky blue")))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple")))) + '(gnus-header-subject-face ((t (:bold t :foreground "orange")))) + '(gnus-signature-face ((t (:bold t :foreground "khaki")))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "darkolivegreen")))) + '(italic ((t (:italic t)))) + '(message-cited-text-face ((t (:bold t :foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "green4")))) + '(message-header-name-face ((t (:bold t :foreground "orange")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "violet")))) + '(message-header-other-face ((t (:bold t :foreground "chocolate")))) + '(message-header-subject-face ((t (:bold t :foreground "yellow")))) + '(message-header-to-face ((t (:bold t :foreground "cyan")))) + '(message-header-xheader-face ((t (:bold t :foreground "light blue")))) + '(message-mml-face ((t (:bold t :background "Green3")))) + '(message-separator-face ((t (:foreground "blue3")))) + '(modeline ((t (:background "white" :foreground "black")))) + '(modeline-buffer-id ((t (:background "white" :foreground "black")))) + '(modeline-mousable ((t (:background "white" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "white" :foreground "black")))) + '(region ((t (:background "blue")))) + '(primary-selection ((t (:background "blue")))) + '(isearch ((t (:background "blue")))) + '(zmacs-region ((t (:background "blue")))) + '(secondary-selection ((t (:background "darkslateblue")))) + '(underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'dark-laptop) + +;;; dark-laptop-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/deep-blue-theme.el b/elpa/color-theme-modern-0.0.3/deep-blue-theme.el new file mode 100644 index 0000000..a849362 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/deep-blue-theme.el @@ -0,0 +1,137 @@ +;;; deep-blue-theme.el --- deep-blue theme + +;; Copyright (C) 2001 by Tomas Cerha +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of deep-blue theme from `color-themes' + +;;; Code: + +(deftheme deep-blue + "deep-blue theme") + +(custom-theme-set-faces + 'deep-blue + + '(default ((t (:background "#102e4e" :foreground "#eeeeee")))) + '(mouse ((t (:background "white")))) + '(cursor ((t (:background "green" :foreground "black")))) + '(border ((t (:background "black")))) + + '(Info-title-1-face ((t (:bold t :weight bold :height 1.728)))) + '(Info-title-2-face ((t (:bold t :weight bold :height 1.44)))) + '(Info-title-3-face ((t (:bold t :weight bold :height 1.2)))) + '(Info-title-4-face ((t (:bold t :weight bold)))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(calendar-today-face ((t (:background "blue")))) + '(change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue")))) + '(change-log-conditionals-face ((t (:foreground "SeaGreen2")))) + '(change-log-date-face ((t (:foreground "burlywood")))) + '(change-log-email-face ((t (:foreground "SeaGreen2")))) + '(change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod")))) + '(change-log-function-face ((t (:foreground "SeaGreen2")))) + '(change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1")))) + '(change-log-name-face ((t (:foreground "gold")))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(cvs-filename-face ((t (:foreground "lightblue")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold)))) + '(cvs-marked-face ((t (:bold t :foreground "green" :weight bold)))) + '(cvs-msg-face ((t (:italic t :slant italic)))) + '(cvs-need-action-face ((t (:foreground "orange")))) + '(cvs-unknown-face ((t (:foreground "red")))) + '(diary-face ((t (:foreground "orange red")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (:foreground "grey70")))) + '(diff-file-header-face ((t (:bold t :background "grey60" :weight bold)))) + '(diff-function-face ((t (:foreground "grey70")))) + '(diff-header-face ((t (:background "grey45")))) + '(diff-hunk-header-face ((t (:background "grey45")))) + '(diff-index-face ((t (:bold t :weight bold :background "grey60")))) + '(diff-nonexistent-face ((t (:bold t :weight bold :background "grey60")))) + '(diff-removed-face ((t (nil)))) + + '(font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold)))) + '(font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic)))) + '(font-latex-math-face ((t (:foreground "burlywood")))) + '(font-latex-sedate-face ((t (:foreground "LightGray")))) + '(font-latex-string-face ((t (:foreground "LightSalmon")))) + '(font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(font-lock-builtin-face ((t (:foreground "LightCoral")))) + '(font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic)))) + '(font-lock-constant-face ((t (:foreground "gold")))) + '(font-lock-doc-face ((t (:foreground "BlanchedAlmond")))) + '(font-lock-doc-string-face ((t (:foreground "BlanchedAlmond")))) + '(font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold)))) + '(font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold)))) + '(font-lock-preprocessor-face ((t (:foreground "gold")))) + '(font-lock-reference-face ((t (:foreground "LightCoral")))) + '(font-lock-string-face ((t (:foreground "burlywood")))) + '(font-lock-type-face ((t (:foreground "CadetBlue1")))) + '(font-lock-variable-name-face ((t (:foreground "SeaGreen2")))) + '(font-lock-warning-face ((t (:foreground "yellow")))) + '(fringe ((t (:background "#405060")))) + '(header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) + '(highlight ((t (:background "darkgreen")))) + '(holiday-face ((t (:foreground "green")))) + '(info-header-node ((t (:foreground "DeepSkyBlue1")))) + '(info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2")))) + '(info-menu-5 ((t (:foreground "wheat")))) + '(info-menu-header ((t (:bold t :weight bold)))) + '(info-node ((t (:foreground "DeepSkyBlue1")))) + '(info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold)))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t :slant italic)))) + '(menu ((t (:background "gray" :foreground "black")))) + '(modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) + '(modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) + '(modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) + '(modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button))))) + '(region ((t (:background "DarkCyan")))) + '(scroll-bar ((t (:background "gray" :foreground "#506070")))) + '(secondary-selection ((t (:background "yellow" :foreground "gray10")))) + '(show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold)))) + '(show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold)))) + '(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "#102e4e")))) + '(underline ((t (:underline t)))) + + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'deep-blue) + +;;; deep-blue-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/desert-theme.el b/elpa/color-theme-modern-0.0.3/desert-theme.el new file mode 100644 index 0000000..158bc5c --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/desert-theme.el @@ -0,0 +1,175 @@ +;;; desert-theme.el --- desert theme + +;; Copyright (C) Sergei Lebedev +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of desert theme from `color-themes' + +;;; Code: + +(deftheme desert + "desert theme") + +(custom-theme-set-faces + 'desert + + '(default ((t (:background "gray20" :foreground "ghost white")))) + + '(ac-candidate-face ((t (:background "gray15" :foreground "ghost white")))) + '(ac-completion-face ((t (:background "olivedrab" :foreground "khaki")))) + '(ac-selection-face ((t (:foreground "khaki" :background "olivedrab")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(border ((t (nil)))) + '(buffer-menu-buffer ((t (:bold t :foreground "khaki" :weight bold)))) + '(button ((t (:bold t :weight bold :underline nil :foreground "MediumPurple3" :background "gray20")))) + + '(completions-annotations ((t (:underline t)))) + '(completions-common-part ((t (:foreground "ghost white" :background "gray20")))) + '(completions-first-difference ((t (:bold t :weight bold)))) + + '(cursor ((t (:background "khaki")))) + + '(dired-directory ((t (:bold t :weight bold :foreground "PaleGreen3")))) + '(dired-flagged ((t (:bold t :weight bold :foreground "Pink")))) + '(dired-header ((t (:bold t :weight bold :foreground "PaleGreen3")))) + '(dired-ignored ((t (:foreground "grey70")))) + '(dired-mark ((t (:foreground "#ffa0a0")))) + '(dired-marked ((t (:bold t :weight bold :foreground "DarkOrange")))) + '(dired-perm-write ((t (:foreground "LightSkyBlue3")))) + '(dired-symlink ((t (:foreground "khaki")))) + '(dired-warning ((t (:bold t :weight bold :foreground "goldenrod")))) + + '(elscreen-tab-background-face ((t (:background "gray15")))) + '(elscreen-tab-control-face + ((t (:bold t :weight bold :foreground "goldenrod" :background "gray15" :underline nil)))) + '(elscreen-tab-current-screen-face + ((t (:bold t :background "gray15" :foreground "goldenrod" :weight bold)))) + '(elscreen-tab-other-screen-face ((t (:background "gray15" :foreground "gray60")))) + + '(error ((t (:bold t :foreground "Pink" :weight bold)))) + '(escape-glyph ((t (:foreground "cyan")))) + '(file-name-shadow ((t (:foreground "grey70")))) + + '(font-lock-builtin-face ((t (:foreground "MediumPurple3")))) + '(font-lock-comment-delimiter-face ((t (:foreground "LightSkyBlue3")))) + '(font-lock-comment-face ((t (:foreground "LightSkyBlue3")))) + '(font-lock-constant-face ((t (:foreground "#ffa0a0")))) + '(font-lock-doc-face ((t (:foreground "IndianRed3")))) + '(font-lock-function-name-face ((t (:bold t :foreground "PaleGreen3" :weight bold)))) + '(font-lock-keyword-face ((t (:foreground "khaki")))) + '(font-lock-negation-char-face ((t (nil)))) + '(font-lock-preprocessor-face ((t (:foreground "MediumPurple3")))) + '(font-lock-regexp-grouping-backslash ((t (:bold t :weight bold)))) + '(font-lock-regexp-grouping-construct ((t (:bold t :weight bold)))) + '(font-lock-string-face ((t (:foreground "#ffa0a0")))) + '(font-lock-type-face ((t (:bold t :foreground "PaleGreen3" :weight bold)))) + '(font-lock-variable-name-face ((t (:foreground "ghost white")))) + '(font-lock-warning-face ((t (:bold t :foreground "goldenrod" :weight bold)))) + + '(fringe ((t (:background "gray20")))) + '(glyphless-char ((t (:height 0.6)))) + '(header-line ((t (:background "gray15" :box (:color "gray20" :line-width 2))))) + '(help-argument-name ((t (nil)))) + '(highlight ((t (:background "olivedrab" :foreground "khaki")))) + '(ido-first-match ((t (:bold t :foreground "PaleGreen3" :weight bold)))) + '(ido-only-match ((t (:bold t :foreground "PaleGreen3" :weight bold)))) + '(ido-subdir ((t (:bold t :weight bold :foreground "khaki")))) + + '(isearch ((t (:background "olivedrab" :foreground "khaki")))) + '(isearch-fail ((t (:background "red4")))) + '(isearch-lazy-light + ((t (:bold t :background "gray20" :foreground "ghost white" :weight bold)))) + + '(italic ((t (:underline t)))) + + '(jabber-activity-face ((t (:bold t :weight bold :foreground "PaleGreen3")))) + '(jabber-activity-personal-face ((t (:bold t :foreground "#ffa0a0" :weight bold)))) + '(jabber-chat-prompt-foreign ((t (:bold t :foreground "PaleGreen3" :weight bold)))) + '(jabber-chat-prompt-local ((t (:bold t :foreground "#ffa0a0" :weight bold)))) + '(jabber-chat-prompt-system ((t (:bold t :foreground "LightSkyBlue3" :weight bold)))) + '(jabber-rare-time-face ((t (:bold t :foreground "PaleGreen3" :weight bold)))) + '(jabber-roster-user-away ((t (:foreground "IndianRed3")))) + '(jabber-roster-user-chatty ((t (:bold t :foreground "PaleGreen3" :weight bold)))) + '(jabber-roster-user-dnd ((t (:foreground "LightSkyBlue3")))) + '(jabber-roster-user-error ((t (:bold t :weight bold :foreground "goldenrod")))) + '(jabber-roster-user-offline ((t (:background "gray20" :foreground "gray40")))) + '(jabber-roster-user-online ((t (:bold t :foreground "khaki" :weight bold)))) + '(jabber-roster-user-xa ((t (:foreground "IndianRed3")))) + '(jabber-title-large ((t (:bold t :weight bold :height 1.728)))) + '(jabber-title-medium ((t (:bold t :weight bold :height 1.44)))) + '(jabber-title-small ((t (:bold t :weight bold :height 1.2)))) + + '(lazy-highlight ((t (:background "paleturquoise4")))) + '(link ((t (:bold t :background "gray20" :foreground "MediumPurple3" :underline nil :weight bold)))) + '(link-visited ((t (:bold t :underline nil :foreground "MediumPurple3" :background "gray20" :weight bold)))) + '(linum ((t (:background "gray20" :foreground "yellow")))) + '(match ((t (:bold t :weight bold)))) + '(menu ((t (nil)))) + '(minibuffer-prompt ((t (:bold t :foreground "khaki" :weight bold)))) + + '(mode-line + ((t (:box (:color "gray20" :line-width 2) + :background "gray15" :foreground "gray60")))) + '(mode-line-buffer-id + ((t (:bold t :background "gray15" :box (:color "gray20" :line-width 2) + :foreground "goldenrod" :weight bold)))) + '(mode-line-emphasis ((t (:bold t :weight bold)))) + '(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button))))) + '(mode-line-inactive + ((t (:foreground "gray60" :background "gray15" + :box (:color "gray20" :line-width 2))))) + + '(mouse ((t (:background "khaki")))) + '(next-error ((t (:background "olivedrab" :foreground "khaki")))) + '(nobreak-space ((t (:foreground "cyan" :underline t)))) + '(query-replace ((t (:foreground "khaki" :background "olivedrab")))) + '(region ((t (:foreground "khaki" :background "olivedrab")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "SkyBlue4")))) + '(shadow ((t (:foreground "grey70")))) + '(show-paren-match ((t (:bold t :foreground "PaleGreen3" :weight bold)))) + '(show-paren-mismatch ((t (:bold t :foreground "goldenrod" :weight bold)))) + '(success ((t (:bold t :foreground "Green1" :weight bold)))) + '(tool-bar + ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:bold t :weight bold :foreground "goldenrod")))) + '(underline ((t (:underline t)))) + + '(vertical-border ((t (nil)))) + '(warning ((t (:bold t :foreground "DarkOrange" :weight bold)))) + '(widget-button ((t (:bold t :weight bold)))) + '(widget-button-pressed ((t (:foreground "red1")))) + '(widget-documentation ((t (:foreground "lime green")))) + '(widget-field ((t (:background "dim gray")))) + '(widget-inactive ((t (:foreground "grey70")))) + '(widget-single-line-field ((t (:background "dim gray")))) ) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'desert) + +;;; desert-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/digital-ofs1-theme.el b/elpa/color-theme-modern-0.0.3/digital-ofs1-theme.el new file mode 100644 index 0000000..d99e2ab --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/digital-ofs1-theme.el @@ -0,0 +1,518 @@ +;;; digital-ofs1-theme.el --- digital-ofs1 theme + +;; Copyright (C) 2001 by Gareth Owen +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of digital-ofs1 theme from `color-themes' + +;;; Code: + +(deftheme digital-ofs1 + "digital-ofs1 theme") + +(custom-theme-set-faces + 'digital-ofs1 + + '(default ((t (:background "#CA94AA469193" :foreground "Black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(Man-overstrike-face ((t (:bold t)))) + '(Man-underline-face ((t (:underline t :bold t)))) + '(gnus-mouse-face ((t (:bold t :background "darkseagreen2")))) + '(goto-address-mail-face ((t (:italic t :bold t)))) + '(goto-address-mail-mouse-face ((t (:bold t :background "paleturquoise")))) + '(goto-address-url-face ((t (:bold t)))) + '(goto-address-url-mouse-face ((t (:bold t :background "darkseagreen2")))) + '(ispell-highlight-face ((t (:bold t :background "darkseagreen2")))) + '(list-matching-lines-face ((t (:bold t)))) + '(rmail-highlight-face ((t (:italic t :bold t :foreground "Blue")))) + '(view-highlight-face ((t (:bold t :background "darkseagreen2")))) + + '(default ((t (:bold t)))) + '(bbdb-company ((t (:italic t)))) + '(bbdb-field-name ((t (:bold t)))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(blank-space-face ((t (nil)))) + '(blank-tab-face ((t (nil)))) + '(blue ((t (:bold t :foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (:bold t)))) + '(buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) + '(calendar-today-face ((t (:underline t :bold t :foreground "white")))) + '(comint-input-face ((t (nil)))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) + '(cperl-here-face ((t (nil)))) + '(cperl-invalid-face ((t (:foreground "white")))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(cperl-pod-face ((t (nil)))) + '(cperl-pod-head-face ((t (nil)))) + '(custom-button-face ((t (:bold t)))) + '(custom-changed-face ((t (:bold t :background "blue" :foreground "white")))) + '(custom-comment-face ((t (:foreground "white")))) + '(custom-comment-tag-face ((t (:foreground "white")))) + '(custom-documentation-face ((t (:bold t)))) + '(custom-face-tag-face ((t (:underline t :bold t)))) + '(custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue")))) + '(custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red")))) + '(custom-invalid-face ((t (:bold t :background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:bold t :background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:bold t :background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t :bold t)))) + '(custom-set-face ((t (:bold t :background "white" :foreground "blue")))) + '(custom-state-face ((t (:bold t :foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) + '(cvs-filename-face ((t (:foreground "white")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "green")))) + '(cvs-marked-face ((t (:bold t :foreground "green3")))) + '(cvs-msg-face ((t (:italic t :foreground "red")))) + '(cvs-need-action-face ((t (:foreground "yellow")))) + '(cvs-unknown-face ((t (:foreground "grey")))) + '(cyan ((t (:foreground "cyan")))) + '(diary-face ((t (:bold t :foreground "red")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-file-header-face ((t (:bold t :background "grey70")))) + '(diff-hunk-header-face ((t (:background "grey85")))) + '(diff-index-face ((t (:bold t :background "grey70")))) + '(diff-removed-face ((t (nil)))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t)))) + '(dired-face-executable ((t (:foreground "SeaGreen")))) + '(dired-face-flagged ((t (:background "LightSlateGray")))) + '(dired-face-header ((t (:background "grey75" :foreground "black")))) + '(dired-face-marked ((t (:background "PaleVioletRed")))) + '(dired-face-permissions ((t (:background "grey75" :foreground "black")))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "cyan")))) + '(display-time-mail-balloon-enhance-face ((t (:bold t :background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue")))) + '(display-time-time-balloon-face ((t (:bold t :foreground "red")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(erc-action-face ((t (:bold t)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (nil)))) + '(erc-error-face ((t (:bold t)))) + '(erc-input-face ((t (nil)))) + '(erc-inverse-face ((t (nil)))) + '(erc-notice-face ((t (nil)))) + '(erc-pal-face ((t (nil)))) + '(erc-prompt-face ((t (nil)))) + '(erc-underline-face ((t (nil)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red")))) + '(eshell-ls-picture-face ((t (:foreground "Violet")))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) + '(eshell-ls-text-face ((t (:foreground "medium aquamarine")))) + '(eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:bold t :foreground "Red")))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green")))) + '(excerpt ((t (:italic t)))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(fg:black ((t (:foreground "black")))) + '(fixed ((t (:bold t)))) + '(fl-comment-face ((t (:foreground "medium purple")))) + '(fl-doc-string-face ((t (nil)))) + '(fl-function-name-face ((t (:foreground "green")))) + '(fl-keyword-face ((t (:foreground "LightGreen")))) + '(fl-string-face ((t (:foreground "light coral")))) + '(fl-type-face ((t (:foreground "cyan")))) + '(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) + '(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) + '(font-latex-bold-face ((t (:bold t)))) + '(font-latex-italic-face ((t (:italic t)))) + '(font-latex-math-face ((t (nil)))) + '(font-latex-sedate-face ((t (nil)))) + '(font-latex-string-face ((t (nil)))) + '(font-latex-warning-face ((t (nil)))) + '(font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid")))) + '(font-lock-comment-face ((t (:bold t :foreground "Firebrick")))) + '(font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue")))) + '(font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4")))) + '(font-lock-emphasized-face ((t (:bold t)))) + '(font-lock-exit-face ((t (:foreground "green")))) + '(font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue")))) + '(font-lock-keyword-face ((t (:bold t :foreground "dark olive green")))) + '(font-lock-other-emphasized-face ((t (:italic t :bold t)))) + '(font-lock-other-type-face ((t (:bold t :foreground "DarkBlue")))) + '(font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3")))) + '(font-lock-reference-face ((t (:italic t :bold t :foreground "red3")))) + '(font-lock-special-comment-face ((t (nil)))) + '(font-lock-special-keyword-face ((t (nil)))) + '(font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue")))) + '(font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen")))) + '(font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(fringe ((t (:background "grey95")))) + '(gdb-arrow-face ((t (:bold t)))) + '(gnus-cite-attribution-face ((t (:italic t :bold t)))) + '(gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:bold t :foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:bold t :foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:bold t :foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-cite-face-list ((t (nil)))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4")))) + '(gnus-header-from-face ((t (:bold t :foreground "red3")))) + '(gnus-header-name-face ((t (:bold t :foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:bold t :foreground "red4")))) + '(gnus-picons-face ((t (:background "white" :foreground "black")))) + '(gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) + '(gnus-signature-face ((t (:italic t :bold t)))) + '(gnus-splash ((t (nil)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (:bold t)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(green ((t (:bold t :foreground "green")))) + '(gui-button-face ((t (:bold t :background "grey75" :foreground "black")))) + '(gui-element ((t (:bold t :background "Gray80")))) + '(highlight ((t (:bold t :background "darkseagreen2")))) + '(highlight-changes-delete-face ((t (:underline t :foreground "red")))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "black" :foreground "white")))) + '(holiday-face ((t (:bold t :background "pink" :foreground "white")))) + '(hproperty:but-face ((t (:bold t)))) + '(hproperty:flash-face ((t (:bold t)))) + '(hproperty:highlight-face ((t (:bold t)))) + '(hproperty:item-face ((t (:bold t)))) + '(html-helper-bold-face ((t (:bold t)))) + '(html-helper-bold-italic-face ((t (nil)))) + '(html-helper-builtin-face ((t (:underline t :foreground "blue3")))) + '(html-helper-italic-face ((t (:italic t :bold t :foreground "yellow")))) + '(html-helper-underline-face ((t (:underline t)))) + '(html-tag-face ((t (:bold t)))) + '(hyper-apropos-documentation ((t (:foreground "white")))) + '(hyper-apropos-heading ((t (:bold t)))) + '(hyper-apropos-hyperlink ((t (:foreground "sky blue")))) + '(hyper-apropos-major-heading ((t (:bold t)))) + '(hyper-apropos-section-heading ((t (:bold t)))) + '(hyper-apropos-warning ((t (:bold t :foreground "red")))) + '(ibuffer-marked-face ((t (:foreground "red")))) + '(info-menu-5 ((t (:underline t :bold t)))) + '(info-menu-6 ((t (nil)))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (:bold t :background "paleturquoise")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(ispell-face ((t (:bold t)))) + '(italic ((t (:italic t :bold t)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) + '(jde-java-font-lock-link-face ((t (:underline t :foreground "blue")))) + '(jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) + '(lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) + '(left-margin ((t (:bold t)))) + '(linemenu-face ((t (nil)))) + '(list-mode-item-selected ((t (:bold t :background "gray68")))) + '(magenta ((t (:foreground "magenta")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(man-bold ((t (:bold t)))) + '(man-heading ((t (:bold t)))) + '(man-italic ((t (:foreground "yellow")))) + '(man-xref ((t (:underline t)))) + '(message-cited-text ((t (:bold t :foreground "orange")))) + '(message-cited-text-face ((t (:bold t :foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-contents ((t (:italic t :bold t :foreground "white")))) + '(message-header-name-face ((t (:bold t :foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:bold t :foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:bold t :foreground "blue")))) + '(message-headers ((t (:bold t :foreground "orange")))) + '(message-highlighted-header-contents ((t (:bold t)))) + '(message-mml-face ((t (:bold t :foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(message-url ((t (:bold t :foreground "pink")))) + '(mmm-face ((t (:background "black" :foreground "green")))) + '(modeline ((t (:bold t :background "Black" :foreground "#CA94AA469193")))) + '(modeline-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4")))) + '(modeline-mousable ((t (:bold t :background "Gray80" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4")))) + '(my-tab-face ((t (nil)))) + '(nil ((t (nil)))) + '(p4-diff-del-face ((t (:bold t)))) + '(paren-blink-off ((t (:foreground "gray80")))) + '(paren-face ((t (nil)))) + '(paren-face-match ((t (nil)))) + '(paren-face-mismatch ((t (nil)))) + '(paren-face-no-match ((t (nil)))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "black")))) + '(paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white")))) + '(paren-no-match-face ((t (:bold t :background "yellow" :foreground "white")))) + '(pointer ((t (:bold t)))) + '(primary-selection ((t (:bold t :background "gray65")))) + '(red ((t (:bold t :foreground "red")))) + '(region ((t (:bold t :background "gray")))) + '(right-margin ((t (:bold t)))) + '(searchm-buffer ((t (:bold t)))) + '(searchm-button ((t (:bold t)))) + '(searchm-field ((t (nil)))) + '(searchm-field-label ((t (:bold t)))) + '(searchm-highlight ((t (:bold t)))) + '(secondary-selection ((t (:bold t :background "paleturquoise")))) + '(semantic-intangible-face ((t (:foreground "gray25")))) + '(semantic-read-only-face ((t (:background "gray25")))) + '(senator-momentary-highlight-face ((t (:background "gray70")))) + '(setnu-line-number-face ((t (:italic t :bold t)))) + '(sgml-comment-face ((t (:foreground "dark green")))) + '(sgml-doctype-face ((t (:foreground "maroon")))) + '(sgml-end-tag-face ((t (:foreground "blue2")))) + '(sgml-entity-face ((t (:foreground "red2")))) + '(sgml-ignored-face ((t (:background "gray90" :foreground "maroon")))) + '(sgml-ms-end-face ((t (:foreground "maroon")))) + '(sgml-ms-start-face ((t (:foreground "maroon")))) + '(sgml-pi-face ((t (:foreground "maroon")))) + '(sgml-sgml-face ((t (:foreground "maroon")))) + '(sgml-short-ref-face ((t (:foreground "goldenrod")))) + '(sgml-start-tag-face ((t (:foreground "blue2")))) + '(shell-input-face ((t (:bold t)))) + '(shell-option-face ((t (:bold t :foreground "blue4")))) + '(shell-output-2-face ((t (:bold t :foreground "green4")))) + '(shell-output-3-face ((t (:bold t :foreground "green4")))) + '(shell-output-face ((t (:bold t)))) + '(shell-prompt-face ((t (:bold t :foreground "red4")))) + '(show-paren-match-face ((t (:bold t :background "turquoise")))) + '(show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:bold t :foreground "magenta")))) + '(speedbar-directory-face ((t (:bold t :foreground "orchid")))) + '(speedbar-file-face ((t (:bold t :foreground "pink")))) + '(speedbar-highlight-face ((t (:background "black")))) + '(speedbar-selected-face ((t (:underline t :foreground "cyan")))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(swbuff-current-buffer-face ((t (:bold t :foreground "red")))) + '(template-message-face ((t (:bold t)))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue")))) + '(term-blue-face ((t (:foreground "blue")))) + '(term-blue-inv-face ((t (:background "blue")))) + '(term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan")))) + '(term-cyan-face ((t (:foreground "cyan")))) + '(term-cyan-inv-face ((t (:background "cyan")))) + '(term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray")))) + '(term-default-face ((t (:background "snow2" :foreground "darkslategray")))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-default-inv-face ((t (:background "darkslategray" :foreground "snow2")))) + '(term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray")))) + '(term-green ((t (:foreground "green")))) + '(term-green-bold-face ((t (:bold t :background "snow2" :foreground "green")))) + '(term-green-face ((t (:foreground "green")))) + '(term-green-inv-face ((t (:background "green")))) + '(term-green-ul-face ((t (:underline t :background "snow2" :foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta")))) + '(term-magenta-face ((t (:foreground "magenta")))) + '(term-magenta-inv-face ((t (:background "magenta")))) + '(term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-red-bold-face ((t (:bold t :background "snow2" :foreground "red")))) + '(term-red-face ((t (:foreground "red")))) + '(term-red-inv-face ((t (:background "red")))) + '(term-red-ul-face ((t (:underline t :background "snow2" :foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-white-bold-face ((t (:bold t :background "snow2" :foreground "white")))) + '(term-white-face ((t (:foreground "white")))) + '(term-white-inv-face ((t (:background "snow2")))) + '(term-white-ul-face ((t (:underline t :background "snow2" :foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow")))) + '(term-yellow-face ((t (:foreground "yellow")))) + '(term-yellow-inv-face ((t (:background "yellow")))) + '(term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(text-cursor ((t (:bold t :background "Red3" :foreground "gray80")))) + '(toolbar ((t (:bold t :background "Gray80")))) + '(underline ((t (:underline t :bold t)))) + '(vc-annotate-face-0046FF ((t (nil)))) + '(vcursor ((t (:underline t :background "cyan" :foreground "blue")))) + '(vertical-divider ((t (:bold t :background "Gray80")))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-generic-/constant-face ((t (nil)))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-font-lock-type-face ((t (nil)))) + '(vhdl-font-lock-variable-face ((t (nil)))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) + '(vhdl-speedbar-subprogram-face ((t (nil)))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(vm-xface ((t (:background "white" :foreground "black")))) + '(vmpc-pre-sig-face ((t (:foreground "forestgreen")))) + '(vmpc-sig-face ((t (:foreground "steelblue")))) + '(vvb-face ((t (nil)))) + '(w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) + '(w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) + '(w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) + '(w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) + '(white ((t (:foreground "white")))) + '(widget ((t (nil)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:bold t :foreground "red")))) + '(widget-documentation-face ((t (:bold t :foreground "dark green")))) + '(widget-field-face ((t (:bold t :background "gray85")))) + '(widget-inactive-face ((t (:bold t :foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(x-face ((t (:bold t :background "white" :foreground "black")))) + '(x-symbol-adobe-fontspecific-face ((t (nil)))) + '(x-symbol-face ((t (nil)))) + '(x-symbol-heading-face ((t (:bold t)))) + '(x-symbol-info-face ((t (nil)))) + '(x-symbol-invisible-face ((t (nil)))) + '(x-symbol-revealed-face ((t (nil)))) + '(xrdb-option-name-face ((t (:foreground "red")))) + '(xref-keyword-face ((t (:foreground "blue")))) + '(xref-list-default-face ((t (nil)))) + '(xref-list-pilot-face ((t (:foreground "navy")))) + '(xref-list-symbol-face ((t (:foreground "navy")))) + '(yellow ((t (:bold t :foreground "yellow")))) + '(zmacs-region ((t (:bold t :background "gray65"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'digital-ofs1) + +;;; digital-ofs1-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/emacs-21-theme.el b/elpa/color-theme-modern-0.0.3/emacs-21-theme.el new file mode 100644 index 0000000..8d453c9 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/emacs-21-theme.el @@ -0,0 +1,391 @@ +;;; emacs-21-theme.el --- emacs-21 theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of emacs-21 theme from `color-themes' + +;;; Code: + +(deftheme emacs-21 + "emacs-21 theme") + +(custom-theme-set-faces + 'emacs-21 + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:background "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:background "black")))) + + '(Man-overstrike-face ((t (:bold t :weight bold)))) + '(Man-underline-face ((t (:underline t)))) + '(cperl-here-face ((t (:foreground "RosyBrown")))) + '(cperl-invalid-face ((t (:underline t)))) + '(cperl-pod-face ((t (:foreground "Firebrick")))) + '(cperl-pod-head-face ((t (:foreground "DarkGoldenrod")))) + '(gnus-article-button-face ((t (:bold t :weight bold)))) + '(gnus-article-mouse-face ((t (:background "darkseagreen2")))) + '(gnus-mouse-face ((t (:background "darkseagreen2")))) + '(help-highlight-face ((t (:underline t)))) + '(idlwave-class-arrow-face ((t (:bold t :weight bold)))) + '(idlwave-shell-breakpoint-face ((t (:background "Pink" :foreground "Black")))) + '(idlwave-shell-expression-face ((t (:background "yellow")))) + '(idlwave-shell-stop-line-face ((t (:background "darkseagreen2")))) + '(ispell-highlight-face ((t (:background "darkseagreen2")))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + '(widget-mouse-face ((t (:background "darkseagreen2")))) + '(Info-title-1-face ((t (:bold t :weight bold :height 1.728)))) + '(Info-title-2-face ((t (:bold t :weight bold :height 1.44)))) + '(Info-title-3-face ((t (:bold t :weight bold :height 1.2)))) + '(Info-title-4-face ((t (:bold t :weight bold)))) + '(antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) + '(antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) + '(antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) + '(antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) + '(antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) + '(antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(calendar-today-face ((t (:underline t)))) + '(change-log-acknowledgement-face ((t (:foreground "Firebrick")))) + '(change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-date-face ((t (:foreground "RosyBrown")))) + '(change-log-email-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-file-face ((t (:foreground "Blue")))) + '(change-log-function-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-list-face ((t (:foreground "Purple")))) + '(change-log-name-face ((t (:foreground "CadetBlue")))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "dark blue")))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "gray85")))) + '(custom-comment-tag-face ((t (:foreground "blue4")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(cvs-filename-face ((t (:foreground "blue4")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) + '(cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) + '(cvs-msg-face ((t (:italic t :slant italic)))) + '(cvs-need-action-face ((t (:foreground "orange")))) + '(cvs-unknown-face ((t (:foreground "red")))) + '(diary-face ((t (:foreground "red")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (:foreground "grey50")))) + '(diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-function-face ((t (:foreground "grey50")))) + '(diff-header-face ((t (:background "grey85")))) + '(diff-hunk-header-face ((t (:background "grey85")))) + '(diff-index-face ((t (:bold t :weight bold :background "grey70")))) + '(diff-nonexistent-face ((t (:bold t :weight bold :background "grey70")))) + '(diff-removed-face ((t (nil)))) + '(dired-face-boring ((t (:foreground "RosyBrown")))) + '(dired-face-directory ((t (:foreground "Blue")))) + '(dired-face-executable ((t (nil)))) + '(dired-face-flagged ((t (:foreground "Red" :weight bold)))) + '(dired-face-marked ((t (:foreground "Red" :weight bold)))) + '(dired-face-permissions ((t (nil)))) + '(dired-face-setuid ((t (nil)))) + '(dired-face-socket ((t (nil)))) + '(dired-face-symlink ((t (:foreground "Purple")))) + '(ebrowse-default-face ((t (nil)))) + '(ebrowse-file-name-face ((t (:italic t :slant italic)))) + '(ebrowse-member-attribute-face ((t (:foreground "red")))) + '(ebrowse-member-class-face ((t (:foreground "purple")))) + '(ebrowse-progress-face ((t (:background "blue")))) + '(ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) + '(ebrowse-tree-mark-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) + '(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) + '(excerpt ((t (:italic t :slant italic)))) + '(fixed ((t (:bold t :weight bold)))) + '(fixed-pitch ((t (:family "courier")))) + '(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) + '(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:foreground "Firebrick")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-doc-face ((t (:foreground "RosyBrown")))) + '(font-lock-doc-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-function-name-face ((t (:foreground "Blue")))) + '(font-lock-keyword-face ((t (:foreground "Purple")))) + '(font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) + '(font-lock-reference-face ((t (:foreground "Orchid")))) + '(font-lock-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-type-face ((t (:foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(fringe ((t (:background "grey95")))) + '(gnus-cite-attribution-face ((t (:italic t :slant italic)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t :slant italic)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :weight bold)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t :weight bold)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t :weight bold)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:italic t :slant italic)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) + '(gnus-summary-low-unread-face ((t (:italic t :slant italic)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) + '(hi-black-b ((t (:bold t :weight bold)))) + '(hi-black-hb ((t (:bold t :weight bold :height 1.67)))) + '(hi-blue ((t (:background "light blue")))) + '(hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) + '(hi-green ((t (:background "green")))) + '(hi-green-b ((t (:bold t :foreground "green" :weight bold)))) + '(hi-pink ((t (:background "pink")))) + '(hi-red-b ((t (:bold t :foreground "red" :weight bold)))) + '(hi-yellow ((t (:background "yellow")))) + '(highlight ((t (:background "darkseagreen2")))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(holiday-face ((t (:background "pink")))) + '(idlwave-help-link-face ((t (:foreground "Blue")))) + '(idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) + '(info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown")))) + '(info-header-xref ((t (:bold t :weight bold :foreground "magenta4")))) + '(info-menu-5 ((t (:foreground "red1")))) + '(info-menu-header ((t (:bold t :weight bold)))) + '(info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) + '(info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) + '(isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise")))) + '(italic ((t (:italic t :slant italic)))) + '(log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) + '(log-view-message-face ((t (:background "grey85")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(menu ((t (nil)))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) + '(modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) + '(modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) + '(modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) + '(primary-selection ((t (:background "lightgoldenrod2")))) + '(reb-match-0 ((t (:background "lightblue")))) + '(reb-match-1 ((t (:background "aquamarine")))) + '(reb-match-2 ((t (:background "springgreen")))) + '(reb-match-3 ((t (:background "yellow")))) + '(region ((t (:background "lightgoldenrod2")))) + '(scroll-bar ((t (:background "grey75")))) + '(secondary-selection ((t (:background "yellow")))) + '(sh-heredoc-face ((t (:foreground "tan")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(show-tabs-space-face ((t (:foreground "yellow")))) + '(show-tabs-tab-face ((t (:foreground "red")))) + '(smerge-base-face ((t (:foreground "red")))) + '(smerge-markers-face ((t (:background "grey85")))) + '(smerge-mine-face ((t (:foreground "blue")))) + '(smerge-other-face ((t (:foreground "darkgreen")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(strokes-char-face ((t (:background "lightgray")))) + '(term-black ((t (:stipple nil :background "white" :foreground "black")))) + '(term-blackbg ((t (:stipple nil :background "black" :foreground "black")))) + '(term-blue ((t (:stipple nil :background "white" :foreground "blue")))) + '(term-bluebg ((t (:stipple nil :background "blue" :foreground "black")))) + '(term-bold ((t (:bold t :stipple nil :background "white" :foreground "black")))) + '(term-cyan ((t (:stipple nil :background "white" :foreground "cyan")))) + '(term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black")))) + '(term-default ((t (:stipple nil :background "white" :foreground "black")))) + '(term-default-bg ((t (:stipple nil :foreground "black")))) + '(term-default-bg-inv ((t (:stipple nil :foreground "black")))) + '(term-default-fg ((t (:stipple nil :background "white")))) + '(term-default-fg-inv ((t (:stipple nil :background "white")))) + '(term-green ((t (:stipple nil :background "white" :foreground "green")))) + '(term-greenbg ((t (:stipple nil :background "green" :foreground "black")))) + '(term-invisible ((t (:stipple nil :foreground "black")))) + '(term-invisible-inv ((t (:stipple nil :foreground "black")))) + '(term-magenta ((t (:stipple nil :background "white" :foreground "magenta")))) + '(term-magentabg ((t (:stipple nil :background "magenta" :foreground "black")))) + '(term-red ((t (:stipple nil :background "white" :foreground "red")))) + '(term-redbg ((t (:stipple nil :background "red" :foreground "black")))) + '(term-underline ((t (:stipple nil :background "white" :foreground "black")))) + '(term-white ((t (:stipple nil :background "white" :foreground "white")))) + '(term-whitebg ((t (:stipple nil :background "white" :foreground "black")))) + '(term-yellow ((t (:stipple nil :background "white" :foreground "yellow")))) + '(term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black")))) + '(tex-math-face ((t (:foreground "RosyBrown")))) + '(texinfo-heading-face ((t (:foreground "Blue")))) + '(tool-bar ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(woman-addition-face ((t (:foreground "orange")))) + '(woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) + '(woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) + '(woman-unknown-face ((t (:foreground "brown")))) + '(zmacs-region ((t (:background "lightgoldenrod2")))) ) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'emacs-21) + +;;; emacs-21-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/emacs-nw-theme.el b/elpa/color-theme-modern-0.0.3/emacs-nw-theme.el new file mode 100644 index 0000000..dc539d3 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/emacs-nw-theme.el @@ -0,0 +1,400 @@ +;;; emacs-nw-theme.el --- emacs-nw theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of emacs-nw theme from `color-themes' + +;;; Code: + +(deftheme emacs-nw + "emacs-nw theme") + +(custom-theme-set-faces + 'emacs-nw + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:background "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:background "black")))) + + '(Man-overstrike-face ((t (:bold t :weight bold)))) + '(Man-underline-face ((t (:underline t)))) + '(cperl-here-face ((t (:foreground "RosyBrown")))) + '(cperl-invalid-face ((t (:underline t)))) + '(cperl-pod-face ((t (:foreground "Firebrick")))) + '(cperl-pod-head-face ((t (:foreground "DarkGoldenrod")))) + '(gnus-article-button-face ((t (:bold t :weight bold)))) + '(gnus-article-mouse-face ((t (:background "darkseagreen2")))) + '(gnus-mouse-face ((t (:background "darkseagreen2")))) + '(help-highlight-face ((t (:underline t)))) + '(idlwave-class-arrow-face ((t (:bold t :weight bold)))) + '(idlwave-shell-breakpoint-face ((t (:background "Pink" :foreground "Black")))) + '(idlwave-shell-expression-face ((t (:background "yellow")))) + '(idlwave-shell-stop-line-face ((t (:background "darkseagreen2")))) + '(ispell-highlight-face ((t (:background "darkseagreen2")))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + '(widget-mouse-face ((t (:background "darkseagreen2")))) + + '(Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728)))) + '(Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44)))) + '(Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2)))) + '(Info-title-4-face ((t (:bold t :family "helv" :weight bold)))) + '(antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) + '(antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) + '(antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) + '(antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) + '(antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) + '(antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :weight bold)))) + '(calendar-today-face ((t (:underline t)))) + '(change-log-acknowledgement-face ((t (:foreground "Firebrick")))) + '(change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-date-face ((t (:foreground "RosyBrown")))) + '(change-log-email-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-file-face ((t (:foreground "Blue")))) + '(change-log-function-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-list-face ((t (:foreground "Purple")))) + '(change-log-name-face ((t (:foreground "CadetBlue")))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "dark blue")))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :weight bold)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "gray85")))) + '(custom-comment-tag-face ((t (:foreground "blue4")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) + '(cvs-filename-face ((t (:foreground "blue4")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) + '(cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) + '(cvs-msg-face ((t (:italic t)))) + '(cvs-need-action-face ((t (:foreground "orange")))) + '(cvs-unknown-face ((t (:foreground "red")))) + '(diary-face ((t (:foreground "red")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (:foreground "grey50")))) + '(diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-function-face ((t (:foreground "grey50")))) + '(diff-header-face ((t (:background "grey85")))) + '(diff-hunk-header-face ((t (:background "grey85")))) + '(diff-index-face ((t (:bold t :weight bold :background "grey70")))) + '(diff-nonexistent-face ((t (:bold t :weight bold :background "grey70")))) + '(diff-removed-face ((t (nil)))) + '(dired-face-boring ((t (:foreground "RosyBrown")))) + '(dired-face-directory ((t (:foreground "Blue")))) + '(dired-face-executable ((t (nil)))) + '(dired-face-flagged ((t (:foreground "Red" :weight bold)))) + '(dired-face-marked ((t (:foreground "Red" :weight bold)))) + '(dired-face-permissions ((t (nil)))) + '(dired-face-setuid ((t (nil)))) + '(dired-face-socket ((t (nil)))) + '(dired-face-symlink ((t (:foreground "Purple")))) + '(ebrowse-default-face ((t (nil)))) + '(ebrowse-file-name-face ((t (:italic t)))) + '(ebrowse-member-attribute-face ((t (:foreground "red")))) + '(ebrowse-member-class-face ((t (:foreground "purple")))) + '(ebrowse-progress-face ((t (:background "blue")))) + '(ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) + '(ebrowse-tree-mark-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) + '(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) + '(excerpt ((t (:italic t)))) + '(fixed ((t (:bold t :weight bold)))) + '(fixed-pitch ((t (:family "courier")))) + '(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) + '(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:foreground "Firebrick")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-doc-face ((t (:foreground "RosyBrown")))) + '(font-lock-doc-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-function-name-face ((t (:foreground "Blue")))) + '(font-lock-keyword-face ((t (:foreground "Purple")))) + '(font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) + '(font-lock-reference-face ((t (:foreground "Orchid")))) + '(font-lock-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-type-face ((t (:foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(fringe ((t (:background "grey95")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :weight bold)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t :weight bold)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t :weight bold)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4")))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil)))) + '(hi-black-b ((t (:bold t :weight bold)))) + '(hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67)))) + '(hi-blue ((t (:background "light blue")))) + '(hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) + '(hi-green ((t (:background "green")))) + '(hi-green-b ((t (:bold t :foreground "green" :weight bold)))) + '(hi-pink ((t (:background "pink")))) + '(hi-red-b ((t (:bold t :foreground "red" :weight bold)))) + '(hi-yellow ((t (:background "yellow")))) + '(highlight ((t (:background "darkseagreen2")))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(holiday-face ((t (:background "pink")))) + '(idlwave-help-link-face ((t (:foreground "Blue")))) + '(idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) + '(info-header-node ((t (:italic t :bold t :weight bold :foreground "brown")))) + '(info-header-xref ((t (:bold t :weight bold :foreground "magenta4")))) + '(info-menu-5 ((t (:foreground "red1")))) + '(info-menu-header ((t (:bold t :family "helv" :weight bold)))) + '(info-node ((t (:italic t :bold t :foreground "brown" :weight bold)))) + '(info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) + '(isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise")))) + '(italic ((t (:italic t)))) + '(log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) + '(log-view-message-face ((t (:background "grey85")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(menu ((t (:background "grey50" :foreground "white" + :box (:line-width -1 :style released-button))))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :weight bold)))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(mode-line ((t (:background "grey50" :foreground "white" + :box (:line-width -1 :style released-button))))) + '(modeline ((t (:background "grey50" :foreground "white" + :box (:line-width -1 :style released-button))))) + '(modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" + :box (:line-width -1 :style released-button))))) + '(modeline-mousable ((t (:background "grey75" :foreground "black" + :box (:line-width -1 :style released-button))))) + '(modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" + :box (:line-width -1 :style released-button))))) + '(primary-selection ((t (:background "lightgoldenrod2")))) + '(reb-match-0 ((t (:background "lightblue")))) + '(reb-match-1 ((t (:background "aquamarine")))) + '(reb-match-2 ((t (:background "springgreen")))) + '(reb-match-3 ((t (:background "yellow")))) + '(region ((t (:background "lightgoldenrod2")))) + '(scroll-bar ((t (:background "grey75")))) + '(secondary-selection ((t (:background "yellow")))) + '(sh-heredoc-face ((t (:foreground "tan")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(show-tabs-space-face ((t (:foreground "yellow")))) + '(show-tabs-tab-face ((t (:foreground "red")))) + '(smerge-base-face ((t (:foreground "red")))) + '(smerge-markers-face ((t (:background "grey85")))) + '(smerge-mine-face ((t (:foreground "blue")))) + '(smerge-other-face ((t (:foreground "darkgreen")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(strokes-char-face ((t (:background "lightgray")))) + '(term-black ((t (:background "white" :foreground "black")))) + '(term-blackbg ((t (:foreground "black")))) + '(term-blue ((t (:background "white" :foreground "blue")))) + '(term-bluebg ((t (:background "blue" :foreground "black")))) + '(term-bold ((t (:bold t :background "white" :foreground "black")))) + '(term-cyan ((t (:background "white" :foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan" :foreground "black")))) + '(term-default ((t (:background "white" :foreground "black")))) + '(term-default-bg ((t (:foreground "black")))) + '(term-default-bg-inv ((t (:foreground "black")))) + '(term-default-fg ((t (:background "white")))) + '(term-default-fg-inv ((t (:background "white")))) + '(term-green ((t (:background "white" :foreground "green")))) + '(term-greenbg ((t (:background "green" :foreground "black")))) + '(term-invisible ((t (:foreground "black")))) + '(term-invisible-inv ((t (:foreground "black")))) + '(term-magenta ((t (:background "white" :foreground "magenta")))) + '(term-magentabg ((t (:background "magenta" :foreground "black")))) + '(term-red ((t (:background "white" :foreground "red")))) + '(term-redbg ((t (:background "red" :foreground "black")))) + '(term-underline ((t (:background "white" :foreground "black")))) + '(term-white ((t (:background "white" :foreground "white")))) + '(term-whitebg ((t (:background "white" :foreground "black")))) + '(term-yellow ((t (:background "white" :foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow" :foreground "black")))) + '(tex-math-face ((t (:foreground "RosyBrown")))) + '(texinfo-heading-face ((t (:foreground "Blue")))) + '(tool-bar ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(woman-addition-face ((t (:foreground "orange")))) + '(woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) + '(woman-italic-face ((t (:italic t :foreground "red" :underline t)))) + '(woman-unknown-face ((t (:foreground "brown")))) + '(zmacs-region ((t (:background "lightgoldenrod2"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'emacs-nw) + +;;; emacs-nw-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/euphoria-theme.el b/elpa/color-theme-modern-0.0.3/euphoria-theme.el new file mode 100644 index 0000000..0292a9b --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/euphoria-theme.el @@ -0,0 +1,109 @@ +;;; euphoria-theme.el --- euphoria theme + +;; Copyright (C) 2000 by oGLOWo +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of euphoria theme from `color-themes' + +;;; Code: + +(deftheme euphoria + "euphoria theme") + +(custom-theme-set-faces + 'euphoria + + '(default ((t (:background "black" :foreground "#00ff00")))) + '(mouse ((t (:background "yellow")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:background "black")))) + + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(widget-mouse-face ((t (:background "darkolivegreen")))) + + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(fixed-pitch ((t (:family "courier")))) + '(font-lock-builtin-face ((t (:foreground "magenta")))) + '(font-lock-comment-face ((t (:foreground "deeppink")))) + '(font-lock-constant-face ((t (:foreground "blue")))) + '(font-lock-doc-face ((t (:foreground "cyan")))) + '(font-lock-doc-string-face ((t (:foreground "cyan")))) + '(font-lock-function-name-face ((t (:foreground "purple")))) + '(font-lock-keyword-face ((t (:foreground "red")))) + '(font-lock-preprocessor-face ((t (:foreground "blue1")))) + '(font-lock-reference-face ((t (nil)))) + '(font-lock-string-face ((t (:foreground "cyan")))) + '(font-lock-type-face ((t (:foreground "yellow")))) + '(font-lock-variable-name-face ((t (:foreground "violet")))) + '(font-lock-warning-face ((t (:bold t :foreground "red" :weight bold)))) + '(fringe ((t (:background "gray16" :foreground "#00ff00")))) + '(header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) + '(highlight ((t (:background "darkolivegreen")))) + '(horizontal-divider ((t (:background "gray16" :foreground "#00ff00")))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t :slant italic)))) + '(menu ((t (:background "gray16" :foreground "green")))) + '(modeline ((t (:background "gray16" :foreground "#00ff00" + :box (:line-width -1 :style released-button))))) + '(modeline-buffer-id ((t (:background "gray16" :foreground "#00ff00")))) + '(modeline-mousable ((t (:background "gray16" :foreground "#00ff00")))) + '(modeline-mousable-minor-mode ((t (:background "gray16" :foreground "#00ff00")))) + '(primary-selection ((t (:background "#00ff00" :foreground "black")))) + '(region ((t (:background "steelblue" :foreground "white")))) + '(scroll-bar ((t (:background "gray16" :foreground "#00ff00")))) + '(secondary-selection ((t (:background "#00ff00" :foreground "black")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "#00ff00")))) + '(speedbar-directory-face ((t (:foreground "#00ff00")))) + '(speedbar-file-face ((t (:foreground "cyan")))) + '(speedbar-highlight-face ((t (:background "#00ff00" :foreground "purple")))) + '(speedbar-selected-face ((t (:foreground "deeppink" :underline t)))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(tool-bar ((t (:background "gray16" :foreground "green" + :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "gray16" :foreground "#00ff00")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(vertical-divider ((t (:background "gray16" :foreground "#00ff00")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray")))) + '(zmacs-region ((t (:background "steelblue" :foreground "white"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'euphoria) + +;;; euphoria-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/feng-shui-theme.el b/elpa/color-theme-modern-0.0.3/feng-shui-theme.el new file mode 100644 index 0000000..44d5408 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/feng-shui-theme.el @@ -0,0 +1,88 @@ +;;; feng-shui-theme.el --- feng-shui theme + +;; Copyright (C) 2003 by walterh@rocketmail.com +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of feng-shui theme from `color-themes' + +;;; Code: + +(deftheme feng-shui + "feng-shui theme") + +(custom-theme-set-faces + 'feng-shui + + '(default ((t (:background "ivory" :foreground "black")))) + '(mouse ((t (:background "slateblue")))) + '(cursor ((t (:background "slateblue" :foreground "black")))) + '(border ((t (:background "black")))) + + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(view-highlight-face ((t (:background "mistyRose" :foreground "black")))) + '(widget-mouse-face ((t (:background "mistyRose" :foreground "black")))) + + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :weight bold)))) + '(fixed-pitch ((t (:family "courier")))) + '(font-lock-builtin-face ((t (:foreground "black")))) + '(font-lock-comment-face ((t (:italic t :background "seashell")))) + '(font-lock-constant-face ((t (:foreground "darkblue")))) + '(font-lock-doc-face ((t (:background "lemonChiffon")))) + '(font-lock-function-name-face ((t (:bold t :underline t :weight bold)))) + '(font-lock-keyword-face ((t (:foreground "blue")))) + '(font-lock-string-face ((t (:background "lemonChiffon")))) + '(font-lock-type-face ((t (:foreground "black")))) + '(font-lock-variable-name-face ((t (:foreground "black")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(fringe ((t (:background "grey95")))) + '(header-line ((t (:bold t :weight bold :underline t :background "grey90" :foreground "grey20")))) + '(highlight ((t (:background "mistyRose" :foreground "black")))) + '(isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise")))) + '(italic ((t (:italic t)))) + '(menu ((t (nil)))) + '(mode-line ((t (:bold t :background "mistyRose" :foreground "navy" :underline t :weight bold)))) + '(region ((t (:background "lavender" :foreground "black")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "yellow")))) + '(tool-bar ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'feng-shui) + +;;; feng-shui-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/fischmeister-theme.el b/elpa/color-theme-modern-0.0.3/fischmeister-theme.el new file mode 100644 index 0000000..ac6daca --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/fischmeister-theme.el @@ -0,0 +1,72 @@ +;;; fischmeister-theme.el --- fischmeister theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of fischmeister theme from `color-themes' + +;;; Code: + +(deftheme fischmeister + "fischmeister theme") + +(custom-theme-set-faces + 'fischmeister + + '(default ((t (:background "gray80" :foreground "black")))) + '(mouse ((t (:foreground "red")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:foreground "black")))) + + '(modeline ((t (:foreground "gray80" :background "black")))) + '(modeline-buffer-id ((t (:foreground "gray80" :background "black")))) + '(modeline-mousable ((t (:foreground "gray80" :background "black")))) + '(modeline-mousable-minor-mode ((t (:foreground "gray80" :background "black")))) + '(highlight ((t (:background "darkseagreen2")))) + '(bold ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(bold-italic ((t (:bold t :italic t)))) + '(region ((t (:background "gray")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(underline ((t (:underline t)))) + '(show-paren-match-face ((t (:foreground "yellow" :background "darkgreen")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "red")))) + '(font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t)))) + '(font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t)))) + '(font-lock-keyword-face ((t (:foreground "navy")))) + '(font-lock-builtin-face ((t (:foreground "white")))) + '(font-lock-function-name-face ((t (:foreground "Blue")))) + '(font-lock-variable-name-face ((t (:foreground "Darkblue")))) + '(font-lock-type-face ((t (:foreground "darkgreen")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-warning-face ((t (:foreground "Orchid" :bold t)))) + '(font-lock-reference-face ((t (:foreground "SteelBlue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'fischmeister) + +;;; fischmeister-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/gnome-theme.el b/elpa/color-theme-modern-0.0.3/gnome-theme.el new file mode 100644 index 0000000..9d7b8df --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/gnome-theme.el @@ -0,0 +1,56 @@ +;;; gnome-theme.el --- gnome theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of gnome theme from `color-themes' + +;;; Code: + +(deftheme gnome + "gnome theme") + +(custom-theme-set-faces + 'gnome + + '(default ((t (:background "darkslategrey" :foreground "wheat")))) + + '(region ((t (:foreground "cyan" :background "dark cyan")))) + '(underline ((t (:foreground "yellow" :underline t)))) + '(modeline ((t (:foreground "dark cyan" :background "wheat")))) + '(modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat")))) + '(modeline-mousable ((t (:foreground "dark cyan" :background "wheat")))) + '(modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat")))) + '(italic ((t (:foreground "dark red" :italic t)))) + '(bold-italic ((t (:foreground "dark red" :bold t :italic t)))) + '(font-lock-comment-face ((t (:foreground "Firebrick")))) + '(bold ((t (:bold))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'gnome) + +;;; gnome-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/gnome2-theme.el b/elpa/color-theme-modern-0.0.3/gnome2-theme.el new file mode 100644 index 0000000..752bc48 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/gnome2-theme.el @@ -0,0 +1,105 @@ +;;; gnome2-theme.el --- gnome2 theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of gnome2 theme from `color-themes' + +;;; Code: + +(deftheme gnome2 + "gnome2 theme") + +(custom-theme-set-faces + 'gnome2 + + '(default ((t (:foreground "wheat" :background "darkslategrey")))) + + '(mouse ((t (:foreground "Grey")))) + '(cursor ((t (:background "LightGray")))) + '(border ((t (:foreground "black")))) + + '(bbdb-company ((t (:foreground "pale green")))) + '(bbdb-name ((t (:bold t :foreground "pale green")))) + '(bbdb-field-name ((t (:foreground "medium sea green")))) + '(bbdb-field-value ((t (:foreground "dark sea green")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t :foreground "beige")))) + '(calendar-today-face ((t (:underline t)))) + '(comint-highlight-prompt ((t (:foreground "medium aquamarine")))) + '(cperl-array-face ((t (:foreground "Yellow")))) + '(cperl-hash-face ((t (:foreground "White")))) + '(cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) + '(custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) + '(custom-documentation-face ((t (:foreground "Grey")))) + '(custom-group-tag-face ((t (:foreground "MediumAquamarine")))) + '(custom-state-face ((t (:foreground "LightSalmon")))) + '(custom-variable-tag-face ((t (:foreground "Aquamarine")))) + '(diary-face ((t (:foreground "IndianRed")))) + '(dired-face-directory ((t (:bold t :foreground "sky blue")))) + '(dired-face-permissions ((t (:foreground "aquamarine")))) + '(dired-face-flagged ((t (:foreground "tomato")))) + '(dired-face-marked ((t (:foreground "light salmon")))) + '(dired-face-executable ((t (:foreground "green yellow")))) + '(fringe ((t (:background "darkslategrey")))) + '(highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) + '(highline-face ((t (:background "SeaGreen")))) + '(holiday-face ((t (:background "DimGray")))) + '(hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1")))) + '(hyper-apropos-documentation ((t (:foreground "LightSalmon")))) + '(info-header-xref ((t (:foreground "DodgerBlue1" :bold t)))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) + '(info-xref ((t (:bold t :foreground "DodgerBlue1")))) + '(isearch ((t (:background "sea green")))) + '(italic ((t (:italic t)))) + '(menu ((t (:foreground "wheat" :background "darkslategrey")))) + '(modeline ((t (:background "dark olive green" :foreground "wheat")))) + '(modeline-buffer-id ((t (:background "dark olive green" :foreground "beige")))) + '(modeline-mousable ((t (:background "dark olive green" :foreground "yellow green")))) + '(modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat")))) + '(region ((t (:background "dark cyan" :foreground "cyan")))) + '(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue")))) + '(show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) + '(underline ((t (:underline t)))) + '(widget-field-face ((t (:foreground "LightBlue")))) + '(widget-inactive-face ((t (:foreground "DimGray")))) + '(widget-single-line-field-face ((t (:foreground "LightBlue")))) + '(w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) + '(w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) + '(w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green")))) + '(w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'gnome2) + +;;; gnome2-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/goldenrod-theme.el b/elpa/color-theme-modern-0.0.3/goldenrod-theme.el new file mode 100644 index 0000000..43a9b07 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/goldenrod-theme.el @@ -0,0 +1,165 @@ +;;; goldenrod-theme.el --- goldenrod theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of goldenrod theme from `color-themes' + +;;; Code: + +(deftheme goldenrod + "goldenrod theme") + +(custom-theme-set-faces + 'goldenrod + + '(default ((t (:background "black" :foreground "goldenrod")))) + '(mouse ((t (:foreground "goldenrod")))) + '(cursor ((t (:background "light goldenrod")))) + '(border ((t (:foreground "black")))) + + '(erc-action-face ((t (nil)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-current-nick-face ((t (:bold t :foreground "yellow")))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "pale green")))) + '(erc-error-face ((t (:bold t :foreground "IndianRed")))) + '(erc-highlight-face ((t (:bold t :foreground "pale green")))) + '(erc-input-face ((t (:foreground "light blue")))) + '(erc-inverse-face ((t (:background "steel blue")))) + '(erc-keyword-face ((t (:foreground "orange" :bold t)))) + '(erc-notice-face ((t (:foreground "light salmon")))) + '(erc-notice-face ((t (:foreground "MediumAquamarine")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:foreground "light blue" :bold t)))) + '(fg:erc-color-face0 ((t (:foreground "white")))) + '(fg:erc-color-face1 ((t (:foreground "beige")))) + '(fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) + '(fg:erc-color-face3 ((t (:foreground "light cyan")))) + '(fg:erc-color-face4 ((t (:foreground "powder blue")))) + '(fg:erc-color-face5 ((t (:foreground "sky blue")))) + '(fg:erc-color-face6 ((t (:foreground "dark sea green")))) + '(fg:erc-color-face7 ((t (:foreground "pale green")))) + '(fg:erc-color-face8 ((t (:foreground "medium spring green")))) + '(fg:erc-color-face9 ((t (:foreground "khaki")))) + '(fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) + '(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) + '(fg:erc-color-face12 ((t (:foreground "light yellow")))) + '(fg:erc-color-face13 ((t (:foreground "yellow")))) + '(fg:erc-color-face14 ((t (:foreground "light goldenrod")))) + '(fg:erc-color-face15 ((t (:foreground "lime green")))) + '(bg:erc-color-face0 ((t (nil)))) + '(bg:erc-color-face1 ((t (nil)))) + '(bg:erc-color-face2 ((t (nil)))) + '(bg:erc-color-face3 ((t (nil)))) + '(bg:erc-color-face4 ((t (nil)))) + '(bg:erc-color-face5 ((t (nil)))) + '(bg:erc-color-face6 ((t (nil)))) + '(bg:erc-color-face7 ((t (nil)))) + '(bg:erc-color-face8 ((t (nil)))) + '(bg:erc-color-face9 ((t (nil)))) + '(bg:erc-color-face10 ((t (nil)))) + '(bg:erc-color-face11 ((t (nil)))) + '(bg:erc-color-face12 ((t (nil)))) + '(bg:erc-color-face13 ((t (nil)))) + '(bg:erc-color-face14 ((t (nil)))) + '(bg:erc-color-face15 ((t (nil)))) + + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + + '(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed")))) + '(eshell-ls-backup-face ((t (:foreground "Grey")))) + '(eshell-ls-clutter-face ((t (:foreground "DimGray")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "dark khaki")))) + '(eshell-ls-executable-face ((t (:foreground "Coral")))) + '(eshell-ls-missing-face ((t (:foreground "black")))) + '(eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face + '(eshell-ls-product-face ((t (:foreground "dark sea green")))) + '(eshell-ls-readonly-face ((t (:foreground "light steel blue")))) + '(eshell-ls-special-face ((t (:foreground "gold")))) + '(eshell-ls-symlink-face ((t (:foreground "peach puff")))) + '(eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face + '(eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face + '(eshell-ls-unreadable-face ((t (:foreground "DimGray")))) + '(eshell-prompt-face ((t (:foreground "lemon chiffon")))) + + '(goto-address-mail-face ((t (:bold t :foreground "pale goldenrod")))) + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "dark slate blue")))) + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t :foreground "lavender")))) + '(font-lock-builtin-face ((t (:foreground "pale goldenrod")))) + '(font-lock-comment-face ((t (:foreground "indian red")))) + '(font-lock-constant-face ((t (:foreground "pale green")))) + '(font-lock-function-name-face ((t (:bold t :foreground "lemon chiffon")))) + '(font-lock-keyword-face ((t (:foreground "wheat")))) + '(font-lock-string-face ((t (:foreground "gold")))) + '(font-lock-type-face ((t (:foreground "dark khaki" :bold t)))) + '(font-lock-variable-name-face ((t (:bold t :foreground "khaki")))) + '(font-lock-warning-face ((t (:bold t :foreground "orange red")))) + '(fringe ((t (:background "gray25")))) + '(header-line ((t (:background "gray20" :foreground "gray70")))) + '(highlight ((t (:background "dark slate blue")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:bold t)))) + '(info-xref ((t (:bold t :foreground "pale goldenrod")))) + '(isearch ((t (:background "SeaGreen4")))) + '(isearch-lazy-highlight-face ((t (:background "DarkOliveGreen4")))) + '(italic ((t (:italic t :foreground "lavender")))) + '(menu ((t (:background "gray25" :foreground "lemon chiffon")))) + '(modeline ((t (:background "gray40" :foreground "lemon chiffon" + :box (:line-width 1 :style released-button))))) + '(modeline-buffer-id ((t (:background "AntiqueWhite4" :foreground "lemon chiffon")))) + '(modeline-mousable ((t (:background "AntiqueWhite4" :foreground "lemon chiffon")))) + '(modeline-mousable-minor-mode ((t (:background "wheat" :foreground "lemon chiffon")))) + '(mode-line-inactive ((t (:background "gray20" :foreground "lemon chiffon")))) + '(region ((t (:background "dark olive green")))) + '(secondary-selection ((t (:background "dark green")))) + '(tool-bar ((t (:background "gray25" :foreground "lemon chiffon" + :box (:line-width 1 :style released-button))))) + '(underline ((t (:underline t))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'goldenrod) + +;;; goldenrod-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/gray1-theme.el b/elpa/color-theme-modern-0.0.3/gray1-theme.el new file mode 100644 index 0000000..3d7b850 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/gray1-theme.el @@ -0,0 +1,98 @@ +;;; gray1-theme.el --- gray1 theme + +;; Copyright (C) 2001 by Paul Pulli +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of gray1 theme from `color-themes' + +;;; Code: + +(deftheme gray1 + "gray1 theme") + +(custom-theme-set-faces + 'gray1 + + '(default ((t (:background "darkgray" :foreground "black")))) + '(cursor ((t (:background "Yellow")))) + '(border ((t (:foreground "black")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(cperl-here-face ((t (:background "gray68" :foreground "DeepPink")))) + '(font-lock-builtin-face ((t (:bold t :foreground "red3")))) + '(font-lock-comment-face ((t (:foreground "gray50")))) + '(font-lock-constant-face ((t (:bold t :foreground "blue3")))) + '(font-lock-doc-string-face ((t (:foreground "black")))) + '(font-lock-function-name-face ((t (:bold t :foreground "DeepPink3")))) + '(font-lock-keyword-face ((t (:bold t :foreground "red")))) + '(font-lock-other-type-face ((t (:bold t :foreground "green4")))) + '(font-lock-preprocessor-face ((t (:bold t :foreground "blue3")))) + '(font-lock-reference-face ((t (:bold t :foreground "red3")))) + '(font-lock-string-face ((t (:foreground "red")))) + '(font-lock-type-face ((t (:bold t :foreground "white")))) + '(font-lock-variable-name-face ((t (:bold t :foreground "blue3")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(green ((t (:foreground "green4")))) + '(gui-button-face ((t (:background "black" :foreground "red")))) + '(gui-element ((t (:background "gray58")))) + '(highlight ((t (:background "magenta" :foreground "yellow")))) + '(isearch ((t (:background "red" :foreground "yellow")))) + '(italic ((t (:italic t)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray90" :foreground "purple")))) + '(m4-face ((t (:background "gray90" :foreground "orange3")))) + '(message-cited-text ((t (nil)))) + '(message-header-contents ((t (nil)))) + '(message-headers ((t (nil)))) + '(message-highlighted-header-contents ((t (nil)))) + '(modeline ((t (:background "#aa80aa" :foreground "White")))) + '(modeline-buffer-id ((t (:background "#aa80aa" :foreground "linen")))) + '(modeline-mousable ((t (:background "#aa80aa" :foreground "cyan")))) + '(modeline-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow")))) + '(paren-blink-off ((t (:foreground "gray58")))) + '(paren-blink-on ((t (:foreground "purple")))) + '(paren-match ((t (:background "gray68" :foreground "white")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "black")))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray")))) + '(red ((t (:foreground "red")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(text-cursor ((t (:background "Yellow" :foreground "darkgray")))) + '(toolbar ((t (:background "#aa80aa" :foreground "linen")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (nil)))) + '(x-face ((t (:background "black" :foreground "lavenderblush")))) + '(yellow ((t (:foreground "yellow3")))) + '(zmacs-region ((t (:background "paleturquoise" :foreground "black"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'gray1) + +;;; gray1-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/gray30-theme.el b/elpa/color-theme-modern-0.0.3/gray30-theme.el new file mode 100644 index 0000000..e2101eb --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/gray30-theme.el @@ -0,0 +1,200 @@ +;;; gray30-theme.el --- gray30 theme + +;; Copyright (C) 2002 by Girish Bharadwaj +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of gray30 theme from `color-themes' + +;;; Code: + +(deftheme gray30 + "gray30 theme") + +(custom-theme-set-faces + 'gray30 + + '(default ((t (:background "gray30" :foreground "gainsboro")))) + '(mouse ((t (:background "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:background "black")))) + + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(widget-mouse-face ((t (:background "darkolivegreen")))) + + '(bg:erc-color-face0 ((t (:background "White")))) + '(bg:erc-color-face1 ((t (:background "black")))) + '(bg:erc-color-face10 ((t (:background "lightblue1")))) + '(bg:erc-color-face11 ((t (:background "cyan")))) + '(bg:erc-color-face12 ((t (:background "blue")))) + '(bg:erc-color-face13 ((t (:background "deeppink")))) + '(bg:erc-color-face14 ((t (:background "gray50")))) + '(bg:erc-color-face15 ((t (:background "gray90")))) + '(bg:erc-color-face2 ((t (:background "blue4")))) + '(bg:erc-color-face3 ((t (:background "green4")))) + '(bg:erc-color-face4 ((t (:background "red")))) + '(bg:erc-color-face5 ((t (:background "brown")))) + '(bg:erc-color-face6 ((t (:background "purple")))) + '(bg:erc-color-face7 ((t (:background "orange")))) + '(bg:erc-color-face8 ((t (:background "yellow")))) + '(bg:erc-color-face9 ((t (:background "green")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(button ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :foreground "pink" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "lime green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) + '(erc-action-face ((t (:bold t :weight bold)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "IndianRed")))) + '(erc-error-face ((t (:background "Red" :foreground "White")))) + '(erc-input-face ((t (:foreground "brown")))) + '(erc-inverse-face ((t (:background "Black" :foreground "White")))) + '(erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) + '(erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) + '(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) + '(eshell-ls-backup-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) + '(eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold)))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) + '(eshell-ls-product-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-readonly-face ((t (:foreground "Pink")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold)))) + '(eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) + '(fg:erc-color-face0 ((t (:foreground "White")))) + '(fg:erc-color-face1 ((t (:foreground "black")))) + '(fg:erc-color-face10 ((t (:foreground "lightblue1")))) + '(fg:erc-color-face11 ((t (:foreground "cyan")))) + '(fg:erc-color-face12 ((t (:foreground "blue")))) + '(fg:erc-color-face13 ((t (:foreground "deeppink")))) + '(fg:erc-color-face14 ((t (:foreground "gray50")))) + '(fg:erc-color-face15 ((t (:foreground "gray90")))) + '(fg:erc-color-face2 ((t (:foreground "blue4")))) + '(fg:erc-color-face3 ((t (:foreground "green4")))) + '(fg:erc-color-face4 ((t (:foreground "red")))) + '(fg:erc-color-face5 ((t (:foreground "brown")))) + '(fg:erc-color-face6 ((t (:foreground "purple")))) + '(fg:erc-color-face7 ((t (:foreground "orange")))) + '(fg:erc-color-face8 ((t (:foreground "yellow")))) + '(fg:erc-color-face9 ((t (:foreground "green")))) + + '(font-lock-builtin-face ((t (:foreground "LightSkyBlue" :underline t)))) + '(font-lock-comment-face ((t (:italic t :foreground "lightgreen" :slant oblique)))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold :height 1.05)))) + '(font-lock-keyword-face ((t (:foreground "LightPink" :height 1.05)))) + '(font-lock-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-type-face ((t (:foreground "yellow" :height 1.05)))) + '(font-lock-variable-name-face ((t (:foreground "gold")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold)))) + '(fringe ((t (:background "grey10")))) + '(header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) + '(highlight ((t (:background "darkolivegreen")))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t :slant italic)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) + '(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) + '(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) + '(jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) + '(jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) + '(jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) + '(jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal)))) + '(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) + '(jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) + '(jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) + '(jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(menu ((t (nil)))) + '(minibuffer-prompt ((t (:foreground "cyan")))) + '(mode-line ((t (:background "grey75" :foreground "black" + :box (:line-width -1 :style released-button))))) + '(mode-line-inactive ((t (:background "grey30" :foreground "grey80" :weight light + :box (:line-width -1 :color "grey40" :style nil))))) + '(primary-selection ((t (:background "blue3")))) + '(region ((t (:background "blue3")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "SkyBlue4")))) + '(semantic-dirty-token-face ((t (:background "lightyellow")))) + '(semantic-unmatched-syntax-face ((t (:underline "red")))) + '(senator-intangible-face ((t (:foreground "gray75")))) + '(senator-momentary-highlight-face ((t (:background "gray30")))) + '(senator-read-only-face ((t (:background "#664444")))) + '(show-paren-match-face ((t (:background "steelblue3")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green3")))) + '(speedbar-directory-face ((t (:foreground "light blue")))) + '(speedbar-file-face ((t (:foreground "cyan")))) + '(speedbar-highlight-face ((t (:background "sea green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(template-message-face ((t (:bold t :weight bold)))) + '(tool-bar ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray")))) + '(zmacs-region ((t (:background "blue3"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'gray30) + +;;; gray30-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/greiner-theme.el b/elpa/color-theme-modern-0.0.3/greiner-theme.el new file mode 100644 index 0000000..bcdb689 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/greiner-theme.el @@ -0,0 +1,100 @@ +;;; greiner-theme.el --- greiner theme + +;; Copyright (C) 2000 by Kevin Greiner +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of greiner theme from `color-themes' + +;;; Code: + +(deftheme greiner + "greiner theme") + +(custom-theme-set-faces + 'greiner + + '(default ((t (:background "beige" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + '(default ((t (nil)))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(list-matching-lines-face ((t (:bold t)))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(font-lock-builtin-face ((t (:foreground "blue4")))) + '(font-lock-comment-face ((t (:foreground "Firebrick")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-function-name-face ((t (:foreground "Blue")))) + '(font-lock-keyword-face ((t (:foreground "royal blue")))) + '(font-lock-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-type-face ((t (:foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(highlight ((t (:background "darkseagreen2")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(modeline ((t (:background "black" :foreground "white")))) + '(modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) + '(modeline-mousable ((t (:background "black" :foreground "white")))) + '(modeline-buffer-id ((t (:background "black" :foreground "white")))) + '(region ((t (:background "gray")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'greiner) + +;;; greiner-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/gtk-ide-theme.el b/elpa/color-theme-modern-0.0.3/gtk-ide-theme.el new file mode 100644 index 0000000..77e31cf --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/gtk-ide-theme.el @@ -0,0 +1,63 @@ +;;; gtk-ide-theme.el --- gtk-ide theme + +;; Copyright (C) 2000 by Gordon Messmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of gtk-ide theme from `color-themes' + +;;; Code: + +(deftheme gtk-ide + "gtk-ide theme") + +(custom-theme-set-faces + 'gtk-ide + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "grey15")))) + '(cursor ((t (:background "grey15")))) + + '(font-lock-comment-face ((t (:italic t :foreground "grey55")))) + '(font-lock-string-face ((t (:foreground "DarkRed")))) + '(font-lock-keyword-face ((t (:foreground "DarkBlue")))) + '(font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) + '(font-lock-constant-face ((t (:foreground "OliveDrab")))) + '(font-lock-type-face ((t (:foreground "SteelBlue4")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-function-name-face ((t (:foreground "SlateBlue")))) + '(font-lock-builtin-face ((t (:foreground "ForestGreen")))) + '(highline-face ((t (:background "grey95")))) + '(show-paren-match-face ((t (:background "grey80")))) + '(region ((t (:background "grey80")))) + '(highlight ((t (:background "LightSkyBlue")))) + '(secondary-selection ((t (:background "grey55")))) + '(widget-field-face ((t (:background "navy")))) + '(widget-single-line-field-face ((t (:background "royalblue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'gtk-ide) + +;;; gtk-ide-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/high-contrast-theme.el b/elpa/color-theme-modern-0.0.3/high-contrast-theme.el new file mode 100644 index 0000000..ad8362f --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/high-contrast-theme.el @@ -0,0 +1,271 @@ +;;; high-contrast-theme.el --- high-contrast theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of high-contrast theme from `color-themes' + +;;; Code: + +(deftheme high-contrast + "high-contrast theme") + +(custom-theme-set-faces + 'high-contrast + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "red")))) + '(border ((t (:foreground "black")))) + + '(Man-overstrike-face ((t (:bold t)))) + '(Man-underline-face ((t (:underline t)))) + '(apropos-keybinding-face ((t (:underline t)))) + '(apropos-label-face ((t (:italic t)))) + '(apropos-match-face ((t (:background "paleturquoise")))) + '(apropos-property-face ((t (:bold t :italic t)))) + '(apropos-symbol-face ((t (:bold t)))) + '(goto-address-mail-face ((t (:italic t)))) + '(goto-address-mail-mouse-face ((t (:background "paleturquoise")))) + '(goto-address-url-face ((t (:bold t)))) + '(goto-address-url-mouse-face ((t (:background "darkseagreen2")))) + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + '(bold ((t (:bold t :underline t)))) + '(bold-italic ((t (:bold t :underline t)))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t)))) + '(cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:foreground "white" :background "blue")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:foreground "blue" :underline t)))) + '(custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) + '(custom-invalid-face ((t (:foreground "yellow" :background "red")))) + '(custom-modified-face ((t (:foreground "white" :background "blue")))) + '(custom-rogue-face ((t (:foreground "pink" :background "black")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:foreground "blue" :background "white")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t)))) + '(custom-variable-tag-face ((t (:foreground "blue" :underline t)))) + '(diary-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) + '(ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) + '(ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) + '(ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink")))) + '(ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) + '(ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) + '(ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) + '(ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) + '(ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) + '(ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) + '(ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) + '(ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) + '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-ls-directory-face ((t (:foreground "Blue" :bold t)))) + '(eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t)))) + '(eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) + '(eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t)))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:foreground "Red" :bold t)))) + '(eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-test-ok-face ((t (:foreground "Green" :bold t)))) + '(excerpt ((t (:italic t)))) + '(fixed ((t (:bold t)))) + '(flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) + '(flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) + '(font-lock-builtin-face ((t (:bold t :foreground "Red")))) + '(font-lock-comment-face ((t (:bold t :foreground "Firebrick")))) + '(font-lock-constant-face ((t (:bold t :underline t :foreground "Blue")))) + '(font-lock-function-name-face ((t (:bold t :foreground "Blue")))) + '(font-lock-keyword-face ((t (:bold t :foreground "Purple")))) + '(font-lock-string-face ((t (:bold t :foreground "DarkGreen")))) + '(font-lock-type-face ((t (:bold t :foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:bold t :foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(fringe ((t (:background "grey95")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:bold t :italic t)))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) + '(gnus-header-content-face ((t (:foreground "indianred4" :italic t)))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t)))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) + '(gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) + '(gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) + '(gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) + '(gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) + '(gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "black" :foreground "white" :bold 1)))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "paleturquoise")))) + '(holiday-face ((t (:background "pink")))) + '(info-menu-5 ((t (:underline t :bold t)))) + '(info-node ((t (:bold t)))) + '(info-xref ((t (:bold t)))) + '(italic ((t (:bold t :underline t)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t)))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:foreground "navy blue" :bold t)))) + '(message-header-to-face ((t (:foreground "MidnightBlue" :bold t)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "black" :foreground "white" :bold 1)))) + '(modeline-buffer-id ((t (:background "black" :foreground "white" :bold 1)))) + '(modeline-mousable ((t (:background "black" :foreground "white" :bold 1)))) + '(modeline-mousable-minor-mode ((t (:background "black" :foreground "white" :bold 1)))) + '(region ((t (:background "black" :foreground "white" :bold 1)))) + '(secondary-selection ((t (:background "black" :foreground "white" :bold 1)))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(underline ((t (:bold t :underline t)))) + '(vcursor ((t (:foreground "blue" :background "cyan" :underline t)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t)))) + '(vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t)))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) + '(viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2")))) + '(viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink")))) + '(viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey")))) + '(viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2")))) + '(viper-search-face ((t (:foreground "Black" :background "khaki")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'high-contrast) + +;;; high-contrast-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/hober-theme.el b/elpa/color-theme-modern-0.0.3/hober-theme.el new file mode 100644 index 0000000..9364d68 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/hober-theme.el @@ -0,0 +1,277 @@ +;;; hober-theme.el --- hober theme + +;; Copyright (C) 1999, 2000 Jonadab the Unsightly One +;; Copyright (C) 2000, 2001, 2002, 2003 Alex Schroeder +;; Copyright (C) 2003, 2004, 2005, 2006 Xavier Maillard +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of hober theme from `color-themes' + +;;; Code: + +(deftheme hober + "hober theme") + +(custom-theme-set-faces + 'hober + + '(default ((t (:background "black" :foreground "#c0c0c0")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(border ((t (:background "black")))) + '(buffer-menu-buffer ((t (:bold t :weight bold)))) + '(button ((t (:underline t :foreground "cyan1")))) + '(calendar-today-face ((t (:underline t)))) + '(completions-annotations ((t (:italic t :slant italic)))) + '(completions-common-part ((t (:foreground "#c0c0c0" :background "black")))) + '(completions-first-difference ((t (:bold t :weight bold)))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" + :foreground "Blue" :weight bold)))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" + :foreground "Red" :slant italic :weight bold)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(cursor ((t (:background "medium turquoise")))) + '(diary-face ((t (:foreground "red")))) + + '(dired-directory ((t (:foreground "#4186be")))) + '(dired-flagged ((t (:bold t :weight bold :foreground "Pink")))) + '(dired-header ((t (:foreground "Coral")))) + '(dired-ignored ((t (:foreground "grey70")))) + '(dired-mark ((t (:foreground "#00ff00")))) + '(dired-marked ((t (:bold t :weight bold :foreground "DarkOrange")))) + '(dired-perm-write ((t (:foreground "Red")))) + '(dired-symlink ((t (:foreground "#00ffff")))) + '(dired-warning ((t (:bold t :weight bold :foreground "Red")))) + + '(error ((t (:bold t :foreground "Pink" :weight bold)))) + '(escape-glyph ((t (:foreground "cyan")))) + '(excerpt ((t (:italic t :slant italic)))) + '(file-name-shadow ((t (:foreground "grey70")))) + '(fixed ((t (:bold t :weight bold)))) + + '(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) + '(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) + + '(font-lock-builtin-face ((t (:foreground "#ffaa00")))) + '(font-lock-comment-delimiter-face ((t (:foreground "Red")))) + '(font-lock-comment-face ((t (:foreground "Red")))) + '(font-lock-constant-face ((t (:foreground "#00ff00")))) + '(font-lock-doc-face ((t (:foreground "#ffff00")))) + '(font-lock-function-name-face ((t (:foreground "#4186be")))) + '(font-lock-keyword-face ((t (:foreground "#00ffff")))) + '(font-lock-negation-char-face ((t (nil)))) + '(font-lock-preprocessor-face ((t (:foreground "#ffaa00")))) + '(font-lock-regexp-grouping-backslash ((t (:bold t :weight bold)))) + '(font-lock-regexp-grouping-construct ((t (:bold t :weight bold)))) + '(font-lock-string-face ((t (:foreground "#ffff00")))) + '(font-lock-type-face ((t (:foreground "Coral")))) + '(font-lock-variable-name-face ((t (:bold t :foreground "white" :weight bold)))) + '(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + + '(fringe ((t (:background "grey10")))) + '(glyphless-char ((t (:height 0.6)))) + + '(gnus-cite-attribution-face ((t (:italic t :slant italic)))) + '(gnus-cite-face-1 ((t (:foreground "Khaki")))) + '(gnus-cite-face-2 ((t (:foreground "Coral")))) + '(gnus-cite-face-3 ((t (:foreground "#4186be")))) + '(gnus-cite-face-4 ((t (:foreground "yellow green")))) + '(gnus-cite-face-5 ((t (:foreground "IndianRed")))) + '(gnus-cite-face-list ((t (:bold t :foreground "red" :weight bold)))) + '(gnus-emphasis-bold ((t (:bold t :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(gnus-emphasis-italic ((t (:italic t :slant italic)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t + :slant italic :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face + ((t (:bold t :foreground "DeepPink3" :weight bold)))) + '(gnus-group-mail-2-empty-face + ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face + ((t (:bold t :foreground "DeepPink4" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-header-content-face ((t (:italic t :foreground "#4186be" :slant italic)))) + '(gnus-header-from-face ((t (:foreground "Coral")))) + '(gnus-header-name-face ((t (:foreground "white")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "#4186be" :slant italic)))) + '(gnus-header-subject-face ((t (:foreground "#4186be")))) + '(gnus-signature-face ((t (:foreground "white")))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face + ((t (:bold t :foreground "RoyalBlue" :weight bold)))) + '(gnus-summary-high-read-face + ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-summary-high-ticked-face + ((t (:bold t :foreground "firebrick" :weight bold)))) + '(gnus-summary-high-unread-face + ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face + ((t (:italic t :foreground "RoyalBlue" :slant italic)))) + '(gnus-summary-low-read-face + ((t (:italic t :foreground "DarkGreen" :slant italic)))) + '(gnus-summary-low-ticked-face + ((t (:italic t :foreground "firebrick" :slant italic)))) + '(gnus-summary-low-unread-face + ((t (:italic t :slant italic)))) + '(gnus-summary-normal-ancient-face + ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + + '(header-line ((t (:box (:line-width -1 :style released-button) + :background "grey20" :foreground "grey90" :box nil)))) + '(help-argument-name ((t (nil)))) + '(highlight ((t (:background "#c0c0c0" :foreground "black")))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(holiday-face ((t (:background "pink")))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-fail ((t (:background "red4")))) + '(italic ((t (:italic t :slant italic)))) + '(lazy-highlight ((t (:background "paleturquoise4")))) + '(link ((t (:foreground "cyan1" :underline t)))) + '(link-visited ((t (:underline t :foreground "violet")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(match ((t (:background "RoyalBlue3")))) + '(menu ((t (nil)))) + + '(message-cited-text-face ((t (:foreground "white")))) + '(message-header-cc-face ((t (:foreground "#4186be")))) + '(message-header-name-face ((t (:foreground "white")))) + '(message-header-newsgroups-face + ((t (:bold t :foreground "Coral" :weight bold)))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face + ((t (:bold t :foreground "#4186be" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "#4186be" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "brown")))) + + '(minibuffer-prompt ((t (:foreground "cyan")))) + '(mode-line + ((t (:background "darkslateblue" :foreground "white" + :box (:line-width -1 :style released-button))))) + '(mode-line-buffer-id ((t (:bold t :background "darkslateblue" + :foreground "white" :weight bold)))) + '(mode-line-emphasis ((t (:bold t :weight bold)))) + '(mode-line-highlight + ((t (:box (:line-width 2 :color "grey40" :style released-button))))) + '(mode-line-inactive + ((t (:background "grey30" + :foreground "grey80" + :box (:line-width -1 :color "grey40" :style nil) + :weight light)))) + '(modeline-mousable ((t (:background "darkslateblue" :foreground "white")))) + '(modeline-mousable-minor-mode + ((t (:background "darkslateblue" :foreground "white")))) + + '(mouse ((t (:background "black")))) + '(next-error ((t (:foreground "white" :background "darkslateblue")))) + '(nobreak-space ((t (:foreground "cyan" :underline t)))) + '(query-replace ((t (:foreground "brown4" :background "palevioletred2")))) + '(region ((t (:background "darkslateblue" :foreground "white")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + + '(sgml-doctype-face ((t (:foreground "orange")))) + '(sgml-end-tag-face ((t (:foreground "greenyellow")))) + '(sgml-entity-face ((t (:foreground "gold")))) + '(sgml-ignored-face ((t (:background "gray60" :foreground "gray20")))) + '(sgml-sgml-face ((t (:foreground "yellow")))) + '(sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) + + '(shadow ((t (:foreground "grey70")))) + '(show-paren-match-face ((t (:background "purple" :foreground "white")))) + '(show-paren-mismatch-face ((t (:background "red" :foreground "white")))) + '(success ((t (:bold t :foreground "Green1" :weight bold)))) + + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "#4186be")))) + '(term-bluebg ((t (:background "#4186be")))) + '(term-bold ((t (:bold t :weight bold)))) + '(term-cyan ((t (:foreground "#71bebe")))) + '(term-cyanbg ((t (:background "#71bebe")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "#e5f779")))) + '(term-greenbg ((t (:background "#e5f779")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "#ef9ebe")))) + '(term-magentabg ((t (:background "#ef9ebe")))) + '(term-red ((t (:foreground "#ef8171")))) + '(term-redbg ((t (:background "#ef8171")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "#c0c0c0")))) + '(term-whitebg ((t (:background "#c0c0c0")))) + '(term-yellow ((t (:foreground "#fff796")))) + '(term-yellowbg ((t (:background "#fff796")))) + + '(tool-bar + ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(tooltip + ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red1")))) + '(underline ((t (:underline t)))) + + '(vertical-border ((t (nil)))) + '(warning ((t (:bold t :foreground "DarkOrange" :weight bold)))) + + '(widget-button ((t (:bold t :weight bold)))) + '(widget-button-pressed ((t (:background "black" :foreground "red")))) + '(widget-documentation ((t (:background "white" :foreground "dark green")))) + '(widget-field ((t (:background "gray85" :foreground "black")))) + '(widget-inactive ((t (:background "red" :foreground "dim gray")))) + '(widget-single-line-field ((t (:background "gray85" :foreground "black")))) + + '(zmacs-region ((t (:background "darkslateblue" :foreground "white"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'hober) + +;;; hober-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/infodoc-theme.el b/elpa/color-theme-modern-0.0.3/infodoc-theme.el new file mode 100644 index 0000000..ac1aa04 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/infodoc-theme.el @@ -0,0 +1,126 @@ +;;; infodoc-theme.el --- infodoc theme + +;; Copyright (C) 2000 by Frederic Giroud +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of infodoc theme from `color-themes' + +;;; Code: + +(deftheme infodoc + "infodoc theme") + +(custom-theme-set-faces + 'infodoc + + '(default ((t (:background "wheat" :foreground "black")))) + '(cursor ((t (:background "red")))) + '(border ((t (:foreground "black")))) + + '(blue ((t (:bold t :foreground "blue")))) + '(bold ((t (:background "wheat" :foreground "black")))) + '(bold-italic ((t (:bold t :background "wheat" :foreground "black")))) + '(border-glyph ((t (:bold t)))) + '(calendar-today-face ((t (:underline t :bold t)))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:bold t :background "blue" :foreground "white")))) + '(custom-documentation-face ((t (:bold t :background "wheat" :foreground "purple4")))) + '(custom-face-tag-face ((t (:underline t :bold t)))) + '(custom-group-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :bold t :background "wheat" :foreground "red")))) + '(custom-invalid-face ((t (:bold t :background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:bold t :background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:bold t :background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t :bold t)))) + '(custom-set-face ((t (:bold t :background "white" :foreground "blue")))) + '(custom-state-face ((t (:bold t :background "wheat" :foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t)))) + '(custom-variable-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue")))) + '(diary-face ((t (:bold t :foreground "red")))) + '(display-time-mail-balloon-enhance-face ((t (:bold t :background "wheat" :foreground "black")))) + '(display-time-mail-balloon-gnus-group-face ((t (:bold t :background "wheat" :foreground "blue")))) + '(display-time-time-balloon-face ((t (:bold t :background "light salmon" :foreground "dark green")))) + '(font-lock-comment-face ((t (:bold t :background "wheat" :foreground "turquoise4")))) + '(font-lock-doc-string-face ((t (:bold t :background "wheat" :foreground "purple4")))) + '(font-lock-function-name-face ((t (:bold t :background "wheat" :foreground "blue4")))) + '(font-lock-keyword-face ((t (:bold t :background "wheat" :foreground "dark orchid")))) + '(font-lock-preprocessor-face ((t (:bold t :background "wheat" :foreground "orchid4")))) + '(font-lock-reference-face ((t (:bold t :background "wheat" :foreground "red3")))) + '(font-lock-string-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) + '(font-lock-type-face ((t (:bold t :background "wheat" :foreground "brown")))) + '(font-lock-variable-name-face ((t (:bold t :background "wheat" :foreground "chocolate")))) + '(font-lock-warning-face ((t (:bold t :background "wheat" :foreground "black")))) + '(gdb-arrow-face ((t (:bold t :background "LightGreen" :foreground "black")))) + '(green ((t (:bold t :foreground "green")))) + '(gui-button-face ((t (:bold t :background "wheat" :foreground "red")))) + '(gui-element ((t (:bold t :background "wheat" :foreground "black")))) + '(highlight ((t (:bold t :background "darkseagreen2" :foreground "dark green")))) + '(holiday-face ((t (:bold t :background "pink" :foreground "black")))) + '(hproperty:but-face ((t (:bold t :background "wheat" :foreground "medium violet red")))) + '(hproperty:flash-face ((t (:bold t :background "wheat" :foreground "gray80")))) + '(hproperty:highlight-face ((t (:bold t :background "wheat" :foreground "red")))) + '(hproperty:item-face ((t (:bold t)))) + '(isearch ((t (:bold t :background "pale turquoise" :foreground "blue")))) + '(italic ((t (:bold t :background "wheat" :foreground "black")))) + '(left-margin ((t (:bold t :background "wheat" :foreground "black")))) + '(list-mode-item-selected ((t (:bold t :background "gray68" :foreground "black")))) + '(message-cited-text ((t (:bold t :background "wheat" :foreground "brown")))) + '(message-header-contents ((t (:bold t :background "wheat" :foreground "black")))) + '(message-headers ((t (:bold t :background "wheat" :foreground "black")))) + '(message-highlighted-header-contents ((t (:bold t :background "wheat" :foreground "blue")))) + '(message-url ((t (nil)))) + '(modeline ((t (:bold t :background "light salmon" :foreground "dark green")))) + '(modeline-buffer-id ((t (:bold t :background "light salmon" :foreground "blue4")))) + '(modeline-mousable ((t (:bold t :background "light salmon" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:bold t :background "light salmon" :foreground "green4")))) + '(pointer ((t (:bold t :background "wheat" :foreground "red")))) + '(primary-selection ((t (:bold t :background "medium sea green")))) + '(red ((t (:bold t :foreground "red")))) + '(right-margin ((t (:bold t :background "wheat" :foreground "black")))) + '(secondary-selection ((t (:bold t :background "paleturquoise" :foreground "black")))) + '(shell-input-face ((t (:bold t :background "wheat" :foreground "blue")))) + '(shell-option-face ((t (:bold t :background "wheat" :foreground "turquoise4")))) + '(shell-output-2-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) + '(shell-output-3-face ((t (:bold t :background "wheat" :foreground "dark goldenrod")))) + '(shell-output-face ((t (:bold t :background "wheat" :foreground "black")))) + '(shell-prompt-face ((t (:bold t :background "wheat" :foreground "dark orchid")))) + '(text-cursor ((t (:bold t :background "red" :foreground "wheat")))) + '(toolbar ((t (:bold t :background "wheat" :foreground "black")))) + '(underline ((t (:underline t :bold t :background "wheat" :foreground "black")))) + '(vertical-divider ((t (:bold t)))) + '(widget-button-face ((t (nil)))) + '(widget-button-pressed-face ((t (:bold t :background "wheat" :foreground "red")))) + '(widget-documentation-face ((t (:bold t :background "wheat" :foreground "dark green")))) + '(widget-field-face ((t (:bold t :background "gray85")))) + '(widget-inactive-face ((t (:bold t :background "wheat" :foreground "dim gray")))) + '(x-face ((t (:bold t :background "wheat" :foreground "black")))) + '(yellow ((t (:bold t :foreground "yellow")))) + '(zmacs-region ((t (:bold t :background "lightyellow" :foreground "darkgreen"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'infodoc) + +;;; infodoc-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/jb-simple-theme.el b/elpa/color-theme-modern-0.0.3/jb-simple-theme.el new file mode 100644 index 0000000..36fd321 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/jb-simple-theme.el @@ -0,0 +1,329 @@ +;;; jb-simple-theme.el --- jb-simple theme + +;; Copyright (C) 2000 by jeff +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of jb-simple theme from `color-themes' + +;;; Code: + +(deftheme jb-simple + "jb-simple theme") + +(custom-theme-set-faces + 'jb-simple + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "darkseagreen2")))) + '(list-matching-lines-face ((t (:bold t)))) + '(rmail-highlight-face ((t (:bold t :foreground "brown4")))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + + '(blank-space-face ((t (nil)))) + '(blank-tab-face ((t (nil)))) + '(blue ((t (nil)))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (:bold t)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :bold t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :bold t :foreground "blue")))) + '(diary-face ((t (:bold t :foreground "red")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(erc-action-face ((t (:bold t)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (nil)))) + '(erc-error-face ((t (:bold t)))) + '(erc-input-face ((t (nil)))) + '(erc-inverse-face ((t (nil)))) + '(erc-notice-face ((t (nil)))) + '(erc-pal-face ((t (nil)))) + '(erc-prompt-face ((t (nil)))) + '(erc-underline-face ((t (nil)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red")))) + '(eshell-ls-picture-face ((t (nil)))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:bold t :foreground "Red")))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green")))) + '(excerpt ((t (:italic t)))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(fixed ((t (:bold t)))) + '(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) + '(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) + '(font-latex-bold-face ((t (nil)))) + '(font-latex-italic-face ((t (nil)))) + '(font-latex-math-face ((t (nil)))) + '(font-latex-sedate-face ((t (nil)))) + '(font-latex-string-face ((t (nil)))) + '(font-latex-warning-face ((t (nil)))) + '(font-lock-builtin-face ((t (:bold t :foreground "Orchid")))) + '(font-lock-comment-face ((t (:italic t :bold t :foreground "blue4")))) + '(font-lock-constant-face ((t (:bold t :foreground "CadetBlue")))) + '(font-lock-doc-string-face ((t (:italic t :bold t :foreground "blue4")))) + '(font-lock-exit-face ((t (nil)))) + '(font-lock-function-name-face ((t (:bold t :foreground "brown4")))) + '(font-lock-keyword-face ((t (:bold t :foreground "black")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:italic t :bold t :foreground "green4")))) + '(font-lock-type-face ((t (:bold t :foreground "steelblue")))) + '(font-lock-variable-name-face ((t (:italic t :bold t :foreground "magenta4")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(gnus-cite-attribution-face ((t (:italic t :bold t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (nil)))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4")))) + '(gnus-header-from-face ((t (:bold t :foreground "red3")))) + '(gnus-header-name-face ((t (:bold t :foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:bold t :foreground "red4")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash ((t (nil)))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (:bold t)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(green ((t (nil)))) + '(gui-button-face ((t (:background "grey75")))) + '(gui-element ((t (:background "Gray80")))) + '(highlight ((t (:background "darkseagreen2")))) + '(highlight-changes-delete-face ((t (:underline t :foreground "red")))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "paleturquoise")))) + '(holiday-face ((t (:background "pink")))) + '(html-helper-italic-face ((t (:italic t)))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (nil)))) + '(italic ((t (:italic t)))) + '(lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) + '(left-margin ((t (nil)))) + '(linemenu-face ((t (nil)))) + '(list-mode-item-selected ((t (nil)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:bold t)))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "darkblue" :foreground "yellow")))) + '(modeline-buffer-id ((t (:background "black" :foreground "white")))) + '(modeline-mousable ((t (:background "black" :foreground "white")))) + '(modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) + '(nil ((t (nil)))) + '(paren-mismatch-face ((t (:bold t)))) + '(paren-no-match-face ((t (:bold t)))) + '(pointer ((t (nil)))) + '(primary-selection ((t (nil)))) + '(red ((t (nil)))) + '(region ((t (:background "gray")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(sgml-doctype-face ((t (nil)))) + '(sgml-end-tag-face ((t (nil)))) + '(sgml-entity-face ((t (nil)))) + '(sgml-ignored-face ((t (nil)))) + '(sgml-sgml-face ((t (nil)))) + '(sgml-start-tag-face ((t (nil)))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:bold t :foreground "green4")))) + '(speedbar-directory-face ((t (:bold t :foreground "blue4")))) + '(speedbar-file-face ((t (:bold t :foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(swbuff-current-buffer-face ((t (:bold t)))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(text-cursor ((t (nil)))) + '(toolbar ((t (nil)))) + '(underline ((t (:underline t)))) + '(vc-annotate-face-0046FF ((t (nil)))) + '(vcursor ((t (:underline t :background "cyan" :foreground "blue")))) + '(vertical-divider ((t (nil)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (nil)))) + '(woman-unknown-face ((t (nil)))) + '(yellow ((t (nil)))) + '(zmacs-region ((t (nil))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'jb-simple) + +;;; jb-simple-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/jedit-grey-theme.el b/elpa/color-theme-modern-0.0.3/jedit-grey-theme.el new file mode 100644 index 0000000..5d2e176 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/jedit-grey-theme.el @@ -0,0 +1,64 @@ +;;; jedit-grey-theme.el --- jedit-grey theme + +;; Copyright (C) 2000 by Gordon Messmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of jedit-grey theme from `color-themes' + +;;; Code: + +(deftheme jedit-grey + "jedit-grey theme") + +(custom-theme-set-faces + 'jedit-grey + + '(default ((t (:background "grey77" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(font-lock-comment-face ((t (:italic t :foreground "RoyalBlue4")))) + '(font-lock-string-face ((t (:foreground "Gold4")))) + '(font-lock-keyword-face ((t (:bold t :foreground "DarkRed")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(font-lock-constant-face ((t (:foreground "DarkCyan")))) + '(font-lock-type-face ((t (:foreground "DarkRed")))) + '(font-lock-function-name-face ((t (:foreground "Green4")))) + '(font-lock-builtin-face ((t (:bold t :foreground "DarkRed")))) + '(highline-face ((t (:background "grey84")))) + '(setnu-line-number-face ((t (:background "White" :foreground "MediumPurple3" :italic t)))) + '(show-paren-match-face ((t (:background "grey60")))) + '(region ((t (:background "grey70")))) + '(highlight ((t (:background "grey90")))) + '(secondary-selection ((t (:background "white")))) + '(widget-field-face ((t (:background "royalblue")))) + '(widget-single-line-field-face ((t (:background "royalblue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'jedit-grey) + +;;; jedit-grey-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/jonadabian-slate-theme.el b/elpa/color-theme-modern-0.0.3/jonadabian-slate-theme.el new file mode 100644 index 0000000..b873b6d --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/jonadabian-slate-theme.el @@ -0,0 +1,158 @@ +;;; jonadabian-slate-theme.el --- jonadabian-slate theme + +;; Copyright (C) 2001 by Jonadab the Unsightly One +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of jonadabian-slate theme from `color-themes' + +;;; Code: + +(deftheme jonadabian-slate + "jonadabian-slate theme") + +(custom-theme-set-faces + 'jonadabian-slate + + '(default ((t (:background "#305050" :foreground "#CCBB77")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "medium turquoise")))) + '(border ((t (:foreground "black")))) + + '(list-matching-lines-face ((t (:bold t :foreground "#EEDDAA")))) + '(ued-mode-keyname-face ((t (:background "#007080" :foreground "cyan")))) + '(view-highlight-face ((t (:background "#226644")))) + + '(fringe ((t (:background "#007080")))) + '(bold ((t (:bold t :foreground "#EEDDAA")))) + '(gnus-emphasis-bold ((t (:bold t :foreground "#EEDDAA")))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "#EEDDAA")))) + '(bold-italic ((t (:italic t :bold t :foreground "#AA0000")))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "#AA0000")))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "#AA0000")))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t :bold t :foreground "#AA0000")))) + '(calendar-today-face ((t (:underline t :background "darkslategrey")))) + '(cperl-array-face ((t (:background "#004060")))) + '(cperl-hash-face ((t (:background "#004400")))) + '(custom-button-face ((t (:background "dark blue" :foreground "rgbi:1.00/1.00/0.00")))) + '(custom-documentation-face ((t (:foreground "#10D010")))) + '(custom-face-tag-face ((t (:underline t :foreground "goldenrod")))) + '(custom-group-tag-face ((t (:underline t :foreground "light blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:foreground "#6666dd")))) + '(custom-state-face ((t (:foreground "mediumaquamarine")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "light blue")))) + '(diary-face ((t (:foreground "red")))) + '(eshell-ls-archive-face ((t (:foreground "green")))) + '(eshell-ls-backup-face ((t (:foreground "grey60")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue")))) + '(eshell-ls-executable-face ((t (:foreground "white")))) + '(eshell-ls-missing-face ((t (:foreground "red")))) + '(eshell-ls-product-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-readonly-face ((t (:foreground "indian red")))) + '(eshell-ls-special-face ((t (:foreground "yellow")))) + '(eshell-ls-symlink-face ((t (:foreground "#6666dd")))) + '(eshell-ls-unreadable-face ((t (:foreground "red")))) + '(eshell-prompt-face ((t (:bold t :background "#305050" :foreground "#EEDD99")))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:italic t :bold t :foreground "grey66")))) + '(font-lock-constant-face ((t (:foreground "indian red")))) + '(font-lock-function-name-face ((t (:foreground "#D0D000")))) + '(font-lock-keyword-face ((t (:foreground "#00BBBB")))) + '(font-lock-string-face ((t (:foreground "#10D010")))) + '(font-lock-type-face ((t (:bold t :foreground "#ff7788")))) + '(font-lock-variable-name-face ((t (:foreground "#eeddaa")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(header-line ((t (:box (:line-width 1 :style released-button))))) + '(highlight ((t (:background "#226644")))) + '(highlight-changes-delete-face ((t (:background "navy" :foreground "red")))) + '(highlight-changes-face ((t (:background "navy")))) + '(holiday-face ((t (:foreground "#ff7744")))) + '(italic ((t (:italic t :foreground "#AA0000")))) + '(gnus-emphasis-italic ((t (:italic t :foreground "#AA0000")))) + '(modeline ((t (:background "#007080" :foreground "cyan")))) + '(modeline-buffer-id ((t (:background "#007080" :foreground "cyan")))) + '(modeline-mousable ((t (:background "#007080" :foreground "cyan")))) + '(modeline-mousable-minor-mode ((t (:background "#007080" :foreground "cyan")))) + '(region ((t (:background "#226644")))) + '(secondary-selection ((t (:background "darkslategrey")))) + '(sgml-comment-face ((t (:foreground "grey60")))) + '(sgml-doctype-face ((t (:foreground "red")))) + '(sgml-end-tag-face ((t (:foreground "#00D0D0")))) + '(sgml-entity-face ((t (:foreground "indian red")))) + '(sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) + '(sgml-ms-end-face ((t (:foreground "green")))) + '(sgml-ms-start-face ((t (:foreground "green")))) + '(sgml-pi-face ((t (:foreground "lime green")))) + '(sgml-sgml-face ((t (:foreground "brown")))) + '(sgml-short-ref-face ((t (:foreground "deep sky blue")))) + '(sgml-start-tag-face ((t (:foreground "#D0D000")))) + '(show-paren-match-face ((t (:background "#400055" :foreground "cyan")))) + '(show-paren-mismatch-face ((t (:background "red")))) + '(special-string-face ((t (:foreground "light green")))) + '(term-black ((t (:background "#000055" :foreground "black")))) + '(term-blackbg ((t (:background "black" :foreground "#CCBB77")))) + '(term-blue ((t (:background "#000055" :foreground "blue")))) + '(term-bluebg ((t (:background "blue" :foreground "#CCBB77")))) + '(term-bold ((t (:bold t :background "#000055" :foreground "#CCBB77")))) + '(term-cyan ((t (:background "#000055" :foreground "cyan")))) + '(term-cyanbg ((t (:background "darkcyan")))) + '(term-default-bg ((t (:foreground "#CCBB77")))) + '(term-default-bg-inv ((t (:foreground "#CCBB77")))) + '(term-default-fg ((t (:background "#000055")))) + '(term-default-fg-inv ((t (:background "#000055")))) + '(term-green ((t (:background "#000055" :foreground "green")))) + '(term-greenbg ((t (:background "darkgreen")))) + '(term-invisible ((t (:foreground "#CCBB77")))) + '(term-invisible-inv ((t (:foreground "#CCBB77")))) + '(term-magenta ((t (:background "#000055" :foreground "magenta")))) + '(term-magentabg ((t (:background "darkmagenta")))) + '(term-red ((t (:background "#000055" :foreground "red")))) + '(term-redbg ((t (:background "darkred")))) + '(term-underline ((t (:underline t :background "#000055" :foreground "#CCBB77")))) + '(term-white ((t (:background "#000055" :foreground "white")))) + '(term-whitebg ((t (:background "grey50")))) + '(term-yellow ((t (:background "#000055" :foreground "yellow")))) + '(term-yellowbg ((t (:background "#997700")))) + '(trailing-whitespace ((t (:background "#23415A")))) + '(underline ((t (:underline t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "green")))) + '(widget-field-face ((t (:background "grey35" :foreground "black")))) + '(widget-inactive-face ((t (:foreground "gray")))) + '(widget-single-line-field-face ((t (:background "dim gray"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'jonadabian-slate) + +;;; jonadabian-slate-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/jonadabian-theme.el b/elpa/color-theme-modern-0.0.3/jonadabian-theme.el new file mode 100644 index 0000000..41674ec --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/jonadabian-theme.el @@ -0,0 +1,66 @@ +;;; jonadabian-theme.el --- jonadabian theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of jonadabian theme from `color-themes' + +;;; Code: + +(deftheme jonadabian + "jonadabian theme") + +(custom-theme-set-faces + 'jonadabian + + '(default ((t (:background "#000055" :foreground "#CCBB77")))) + '(cursor ((t (:background "medium turquoise")))) + + '(modeline ((t (:foreground "cyan" :background "#007080")))) + '(modeline-buffer-id ((t (:foreground "cyan" :background "#007080")))) + '(modeline-mousable ((t (:foreground "cyan" :background "#007080")))) + '(modeline-mousable-minor-mode ((t (:foreground "cyan" :background "#007080")))) + '(underline ((t (:underline t)))) + '(region ((t (:background "#004080")))) + '(font-lock-keyword-face ((t (:foreground "#00BBBB")))) + '(font-lock-comment-face ((t (:foreground "grey50" :bold t :italic t)))) + '(font-lock-string-face ((t (:foreground "#10D010")))) + '(font-lock-constant-face ((t (:foreground "indian red")))) + '(highlight-changes-face ((t (:background "navy")))) + '(highlight-changes-delete-face ((t (:foreground "red" :background "navy")))) + '(widget-field-face ((t (:foreground "black" :background "grey35")))) + '(widget-inactive-face ((t (:foreground "gray")))) + '(custom-button-face ((t (:foreground "yellow" :background "dark blue")))) + '(custom-state-face ((t (:foreground "mediumaquamarine")))) + '(custom-face-tag-face ((t (:foreground "goldenrod" :underline t)))) + '(custom-documentation-face ((t (:foreground "#10D010")))) + '(custom-set-face ((t (:foreground "#2020D0"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'jonadabian) + +;;; jonadabian-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/jsc-dark-theme.el b/elpa/color-theme-modern-0.0.3/jsc-dark-theme.el new file mode 100644 index 0000000..bde7130 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/jsc-dark-theme.el @@ -0,0 +1,208 @@ +;;; jsc-dark-theme.el --- jsc-dark theme + +;; Copyright (C) 2000 by John S Cooper +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of jsc-dark theme from `color-themes' + +;;; Code: + +(deftheme jsc-dark + "jsc-dark theme") + +(custom-theme-set-faces + 'jsc-dark + + '(default ((t (:background "black" :foreground "cornsilk")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "white")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "darkslategray" :foreground "wheat")))) + '(goto-address-mail-face ((t (:italic t)))) + '(goto-address-mail-mouse-face ((t (:background "deepskyblue4")))) + '(goto-address-url-face ((t (:bold t :foreground "white")))) + '(goto-address-url-mouse-face ((t (:background "darkslategray" :foreground "wheat")))) + '(list-matching-lines-face ((t (:bold t :foreground "white")))) + '(view-highlight-face ((t (:background "darkslategray" :foreground "wheat")))) + + '(blank-space-face ((t (:background "LightGray")))) + '(blank-tab-face ((t (:background "cornsilk" :foreground "black")))) + '(default ((t (nil)))) + '(bold ((t (:bold t :foreground "white")))) + '(bold-italic ((t (:italic t :bold t)))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (:foreground "white")))) + '(custom-changed-face ((t (:background "skyblue" :foreground "wheat")))) + '(custom-documentation-face ((t (:foreground "white")))) + '(custom-face-tag-face ((t (:underline t :foreground "white")))) + '(custom-group-tag-face ((t (:underline t :foreground "skyblue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "pink")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:foreground "blue")))) + '(custom-state-face ((t (:foreground "light green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "skyblue")))) + '(diary-face ((t (:bold t :foreground "orange")))) + '(font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:italic t :foreground "red")))) + '(font-lock-constant-face ((t (:bold t :foreground "salmon")))) + '(font-lock-function-name-face ((t (:bold t :foreground "orange")))) + '(font-lock-keyword-face ((t (:bold t :foreground "gold")))) + '(font-lock-string-face ((t (:italic t :foreground "orange")))) + '(font-lock-type-face ((t (:bold t :foreground "gold")))) + '(font-lock-variable-name-face ((t (:italic t :bold t :foreground "light salmon")))) + '(font-lock-warning-face ((t (:bold t :foreground "gold")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "light cyan")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "light blue")))) + '(gnus-cite-face-3 ((t (:foreground "light yellow")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:background "goldenrod4" :foreground "white")))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t :background "yellow" :foreground "black")))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :background "yellow" :foreground "black")))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t :background "yellow" :foreground "black")))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "white")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "lightcyan")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "lightcyan")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "tan")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "tan")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "white")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "white")))) + '(gnus-group-news-2-empty-face ((t (:foreground "lightcyan")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "lightcyan")))) + '(gnus-group-news-3-empty-face ((t (:foreground "tan")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "tan")))) + '(gnus-group-news-4-empty-face ((t (:foreground "white")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "white")))) + '(gnus-group-news-5-empty-face ((t (:foreground "wheat")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "wheat")))) + '(gnus-group-news-6-empty-face ((t (:foreground "tan")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "tan")))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) + '(gnus-header-content-face ((t (:italic t :foreground "plum1")))) + '(gnus-header-from-face ((t (:bold t :foreground "wheat")))) + '(gnus-header-name-face ((t (:bold t :foreground "gold")))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "wheat")))) + '(gnus-header-subject-face ((t (:bold t :foreground "red")))) + '(gnus-signature-face ((t (:italic t :foreground "maroon")))) + '(gnus-splash ((t (:foreground "Brown")))) + '(gnus-splash-face ((t (:foreground "gold")))) + '(gnus-summary-cancelled-face ((t (:background "gray" :foreground "black")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "gray70")))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "gray70")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "gray70")))) + '(gnus-summary-normal-unread-face ((t (:bold t)))) + '(gnus-summary-selected-face ((t (:underline t :background "deepskyblue4")))) + '(highlight ((t (:background "darkslategray" :foreground "wheat")))) + '(highlight-changes-delete-face ((t (:underline t :foreground "red")))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "gray35")))) + '(holiday-face ((t (:background "red")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t :foreground "yellow")))) + '(info-xref ((t (:bold t :foreground "plum")))) + '(italic ((t (:italic t)))) + '(lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) + '(linemenu-face ((t (:background "gray30")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "plum1")))) + '(message-header-cc-face ((t (:bold t :foreground "ivory")))) + '(message-header-name-face ((t (:foreground "light sky blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "lavender blush")))) + '(message-header-other-face ((t (:foreground "pale turquoise")))) + '(message-header-subject-face ((t (:bold t :foreground "papaya whip")))) + '(message-header-to-face ((t (:bold t :foreground "floral white")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:bold t :foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "sandy brown")))) + '(modeline ((t (:background "tan" :foreground "black")))) + '(modeline-buffer-id ((t (:background "tan" :foreground "black")))) + '(modeline-mousable ((t (:background "tan" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "tan" :foreground "black")))) + '(paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) + '(paren-no-match-face ((t (:bold t :background "white" :foreground "red")))) + '(region ((t (:background "slategrey")))) + '(secondary-selection ((t (:background "deepskyblue4")))) + '(sgml-doctype-face ((t (:foreground "orange")))) + '(sgml-end-tag-face ((t (:foreground "greenyellow")))) + '(sgml-entity-face ((t (:foreground "gold")))) + '(sgml-ignored-face ((t (:background "gray60" :foreground "gray20")))) + '(sgml-sgml-face ((t (:foreground "yellow")))) + '(sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) + '(show-paren-match-face ((t (:background "deepskyblue4")))) + '(show-paren-mismatch-face ((t (:bold t :background "red" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:bold t :foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "gray20")))) + '(widget-inactive-face ((t (:foreground "wheat")))) + '(widget-single-line-field-face ((t (:background "gray20")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'jsc-dark) + +;;; jsc-dark-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/jsc-light-theme.el b/elpa/color-theme-modern-0.0.3/jsc-light-theme.el new file mode 100644 index 0000000..90267d1 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/jsc-light-theme.el @@ -0,0 +1,175 @@ +;;; jsc-light-theme.el --- jsc-light theme + +;; Copyright (C) 2000 by John S Cooper +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of jsc-light theme from `color-themes' + +;;; Code: + +(deftheme jsc-light + "jsc-light theme") + +(custom-theme-set-faces + 'jsc-light + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "Red")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "antiquewhite" :foreground "blue")))) + '(list-matching-lines-face ((t (:bold t :foreground "red3")))) + '(view-highlight-face ((t (:background "antiquewhite" :foreground "blue")))) + + '(default ((t (nil)))) + '(bold ((t (:bold t :foreground "red3")))) + '(bold-italic ((t (:italic t :bold t :foreground "red")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:italic t :bold t :foreground "Red3")))) + '(font-lock-constant-face ((t (:foreground "navy")))) + '(font-lock-function-name-face ((t (:bold t :foreground "Blue")))) + '(font-lock-keyword-face ((t (:bold t :foreground "Purple")))) + '(font-lock-string-face ((t (:foreground "Green4")))) + '(font-lock-type-face ((t (:foreground "Navy")))) + '(font-lock-variable-name-face ((t (:foreground "Tan4")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "blue2")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "blue2")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:italic t :foreground "blue")))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "red3")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:bold t :foreground "red")))) + '(gnus-signature-face ((t (:foreground "pink")))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "navy")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "blue")))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "red3")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "black")))) + '(gnus-summary-normal-unread-face ((t (:bold t :foreground "red3")))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "antiquewhite" :foreground "blue")))) + '(italic ((t (:italic t)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "plum" :foreground "black")))) + '(modeline-buffer-id ((t (:background "plum" :foreground "black")))) + '(modeline-mousable ((t (:background "plum" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "plum" :foreground "black")))) + '(region ((t (:background "plum")))) + '(secondary-selection ((t (:background "palegreen")))) + '(show-paren-match-face ((t (:background "plum")))) + '(show-paren-mismatch-face ((t (:background "navy" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'jsc-light) + +;;; jsc-light-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/jsc-light2-theme.el b/elpa/color-theme-modern-0.0.3/jsc-light2-theme.el new file mode 100644 index 0000000..250e838 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/jsc-light2-theme.el @@ -0,0 +1,185 @@ +;;; jsc-light2-theme.el --- jsc-light2 theme + +;; Copyright (C) 2001 by John S Cooper +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of jsc-light2 theme from `color-themes' + +;;; Code: + +(deftheme jsc-light2 + "jsc-light2 theme") + +(custom-theme-set-faces + 'jsc-light2 + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "Red")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "antiquewhite" :foreground "blue")))) + '(list-matching-lines-face ((t (:bold t :foreground "red3")))) + '(view-highlight-face ((t (:background "antiquewhite" :foreground "blue")))) + '(default ((t (nil)))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :weight bold)))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style released-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:italic t :bold t :foreground "Red3")))) + '(font-lock-constant-face ((t (:foreground "Maroon")))) + '(font-lock-function-name-face ((t (:foreground "Blue")))) + '(font-lock-keyword-face ((t (:bold t :foreground "Purple")))) + '(font-lock-string-face ((t (:foreground "Green4")))) + '(font-lock-type-face ((t (:italic t :foreground "Navy" :slant italic)))) + '(font-lock-variable-name-face ((t (:foreground "Tan4")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "Blue2")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "blue2")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic)))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:bold t :foreground "maroon" :weight bold)))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:italic t :slant italic)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "Navy")))) + '(gnus-summary-normal-unread-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "darkseagreen2")))) + '(italic ((t (:italic t)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "plum" :foreground "black")))) + '(modeline-buffer-id ((t (:background "plum" :foreground "black")))) + '(modeline-mousable ((t (:background "plum" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "plum" :foreground "black")))) + '(region ((t (:background "lightgoldenrod2")))) + '(secondary-selection ((t (:background "yellow")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(change-log-file-face ((t (:foreground "Blue")))) + '(change-log-name-face ((t (:foreground "Maroon")))) + '(comint-highlight-prompt ((t (:foreground "dark blue")))) + '(fringe ((t (:background "grey88")))) + '(header-line ((t (:background "grey90" :foreground "grey20" :box nil)))) + '(ido-subdir-face ((t (:foreground "red")))) + '(isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) + '(mode-line ((t (:background "grey88" :foreground "black" :box (:line-width -1 :style released-button))))) + '(scroll-bar ((t (nil)))) + '(tooltip ((t (:background "lightyellow" :foreground "black"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'jsc-light2) + +;;; jsc-light2-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/julie-theme.el b/elpa/color-theme-modern-0.0.3/julie-theme.el new file mode 100644 index 0000000..c571539 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/julie-theme.el @@ -0,0 +1,432 @@ +;;; julie-theme.el --- julie theme + +;; Copyright (C) 2011 Christian Brassat, Bozhidar Batsov +;; Copyright (C) 2014 by Syohei YOSHIDA + +;; Author: Christian Brassat +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of julie theme from `color-themes' + +;;; Code: + +(deftheme julie + "julie theme") + +(let ((julie-fg "#c6a57b") + (julie-bg-1 "#101010") + (julie-bg "#151515") + (julie-bg+1 "#202020") + (julie-bg+2 "#505050") + (julie-red+1 "#8d4a4a") + (julie-red "#953331") + (julie-red-1 "#953331") + (julie-orange "#ff8939") + (julie-yellow "#909737") + (julie-yellow-1 "#909737") + (julie-green-1 "#546a29") + (julie-green "#546a29") + (julie-green+1 "#7e9960") + (julie-cyan "#34676f") + (julie-blue+1 "#5c737c") + (julie-blue "#385e6b") + (julie-blue-1 "#385e6b") + (julie-magenta "#7f355e")) + + (custom-theme-set-faces + 'julie + + ;;; color-theme mapping + `(default ((t (:background ,julie-bg :foreground ,julie-fg)))) + `(cursor ((t (:background ,julie-orange)))) + + ;;; define some reusable julie faces that we can inherit from afterwards + `(julie-strong-1-face ((t (:foreground ,julie-yellow :weight bold)))) + `(julie-strong-2-face ((t (:foreground ,julie-orange :weight bold)))) + `(julie-warning-face ((t (:foreground ,julie-yellow-1 :weight bold :underline t)))) + `(julie-error-face ((t (:foreground ,julie-red-1 :weight bold :underline t)))) + + ;;; custom faces + `(linum ((t (:foreground "#505050" :background ,julie-bg-1 :weight normal)))) + `(tooltip ((t (:foreground ,julie-bg :background ,julie-fg)))) + `(fixed-pitch ((t (:family "Anka/Coder" :height 75)))) + `(variable-pitch ((t (:family "Helvetica Neue LT Std")))) + + ;;; whitespace + `(whitespace-space ((t (:foreground ,julie-bg+1)))) + `(whitespace-tab ((t (:foreground ,julie-bg+1)))) + `(whitespace-trailing ((t (:background ,julie-yellow :weight bold)))) + `(whitespace-newline ((t (:foreground ,julie-bg+1)))) + `(whitespace-empty ((t (:foreground ,julie-fg :background ,julie-bg)))) + + ;;; basic coloring + `(fringe ((t (:foreground "#303030" :background ,julie-bg)))) + `(escape-glyph-face ((t (:foreground ,julie-red)))) + `(header-line ((t (:foreground ,julie-yellow :background ,julie-bg-1 + :box (:line-width 5 :color ,julie-bg-1))))) + `(highlight ((t (:background ,julie-bg+1)))) + + ;; faces used by isearch + `(isearch ((t (:foreground ,julie-yellow :background ,julie-bg-1)))) + `(isearch-fail ((t (:foreground ,julie-fg :background ,julie-red-1)))) + `(lazy-highlight ((t (:foreground ,julie-yellow :background ,julie-bg+2)))) + + `(menu ((t (:foreground ,julie-fg :background ,julie-bg)))) + `(minibuffer-prompt ((t (:foreground ,julie-yellow)))) + `(mode-line + ((t (:foreground ,julie-fg :background ,julie-bg+1 + :box (:line-width 5 :color ,julie-bg+1))))) + `(mode-line-highlight ((t (:inverse-video t)))) + `(mode-line-inactive ((t (:inherit mode-line :background ,julie-bg-1 + :box (:line-width 5 :color ,julie-bg-1))))) + `(mode-line-buffer-id ((t (:inherit julie-strong-1-face)))) + `(mode-line-inactive + ((t (:foreground ,julie-green-1 :background ,julie-bg-1)))) + `(mode-line-folder-face ((t (:foreground ,julie-bg+2)))) + `(mode-line-modified-face ((t (:foreground ,julie-red)))) + `(mode-line-buffer-name ((t (:foreground ,julie-yellow :weight bold)))) + `(mode-line-mode-name ((t (:foreground ,julie-blue)))) + `(mode-line-mode-string ((t (:foreground ,julie-yellow)))) + `(region ((t (:background ,julie-magenta)))) + `(secondary-selection ((t (:background ,julie-bg+2)))) + `(trailing-whitespace ((t (:background ,julie-red)))) + `(vertical-border ((t (:foreground ,julie-fg)))) + + ;;; font lock + `(font-lock-builtin-face ((t (:foreground ,julie-blue)))) + `(font-lock-comment-face ((t (:foreground ,julie-bg+2)))) + `(font-lock-comment-delimiter-face ((t (:foreground ,julie-bg+2)))) + `(font-lock-constant-face ((t (:foreground ,julie-fg)))) + `(font-lock-doc-face ((t (:foreground ,julie-green+1)))) + `(font-lock-doc-string-face ((t (:foreground ,julie-blue+1)))) + `(font-lock-function-name-face ((t (:foreground ,julie-blue)))) + `(font-lock-keyword-face ((t (:inherit julie-strong-1-face)))) + `(font-lock-negation-char-face ((t (:foreground ,julie-fg)))) + `(font-lock-preprocessor-face ((t (:foreground ,julie-blue)))) + `(font-lock-string-face ((t (:foreground ,julie-red)))) + `(font-lock-type-face ((t (:foreground ,julie-yellow)))) + `(font-lock-variable-name-face ((t (:foreground ,julie-yellow)))) + `(font-lock-warning-face ((t (:inherit julie-warning-face)))) + + ;;; external + + ;; diff + `(diff-added ((t (:foreground ,julie-green+1)))) + `(diff-changed ((t (:foreground ,julie-yellow)))) + `(diff-removed ((t (:foreground ,julie-red)))) + `(diff-header ((t (:background ,julie-bg+1)))) + `(diff-file-header + ((t (:background ,julie-bg+2 :foreground ,julie-fg :bold t)))) + + ;; eshell + `(eshell-prompt ((t (:inherit julie-strong-1-face)))) + `(eshell-ls-archive ((t (:foreground ,julie-red-1 :weight bold)))) + `(eshell-ls-backup ((t (:inherit font-lock-comment)))) + `(eshell-ls-clutter ((t (:inherit font-lock-comment)))) + `(eshell-ls-directory ((t (:foreground ,julie-blue+1 :weight bold)))) + `(eshell-ls-executable ((t (:foreground ,julie-red+1 :weight bold)))) + `(eshell-ls-unreadable ((t (:foreground ,julie-fg)))) + `(eshell-ls-missing ((t (:inherit font-lock-warning)))) + `(eshell-ls-product ((t (:inherit font-lock-doc)))) + `(eshell-ls-special ((t (:inherit julie-strong-1-face)))) + `(eshell-ls-symlink ((t (:foreground ,julie-cyan :weight bold)))) + + ;; flymake + `(flymake-errline ((t (:inherit julie-error-face)))) + `(flymake-warnline ((t (:inherit julie-warning-face)))) + + ;; flyspell + `(flyspell-duplicate ((t (:inherit julie-warning-face)))) + `(flyspell-incorrect ((t (:inherit julie-error-face)))) + + ;; erc + `(erc-action-face ((t (:inherit erc-default-face)))) + `(erc-bold-face ((t (:weight bold)))) + `(erc-current-nick-face ((t (:inherit julie-strong-1-face)))) + `(erc-dangerous-host-face ((t (:inherit font-lock-warning)))) + `(erc-default-face ((t (:foreground ,julie-fg)))) + `(erc-direct-msg-face ((t (:inherit erc-default)))) + `(erc-error-face ((t (:inherit font-lock-warning)))) + `(erc-fool-face ((t (:inherit erc-default)))) + `(erc-highlight-face ((t (:inherit hover-highlight)))) + `(erc-input-face ((t (:foreground ,julie-yellow)))) + `(erc-keyword-face ((t (:inherit julie-strong-1-face)))) + `(erc-nick-default-face ((t (:weigth bold)))) + `(erc-nick-msg-face ((t (:inherit erc-default)))) + `(erc-notice-face ((t (:foreground ,julie-green)))) + `(erc-pal-face ((t (:foreground ,julie-orange :weight bold)))) + `(erc-prompt-face ((t (:inherit julie-strong-2-face)))) + `(erc-timestamp-face ((t (:foreground ,julie-green+1)))) + `(erc-underline-face ((t (:underline t)))) + + ;; gnus + `(gnus-group-mail-1-face ((t (:bold t :inherit gnus-group-mail-1-empty)))) + `(gnus-group-mail-1-empty-face ((t (:inherit gnus-group-news-1-empty)))) + `(gnus-group-mail-2-face ((t (:bold t :inherit gnus-group-mail-2-empty)))) + `(gnus-group-mail-2-empty-face ((t (:inherit gnus-group-news-2-empty)))) + `(gnus-group-mail-3-face ((t (:bold t :inherit gnus-group-mail-3-empty)))) + `(gnus-group-mail-3-empty-face ((t (:inherit gnus-group-news-3-empty)))) + `(gnus-group-mail-4-face ((t (:bold t :inherit gnus-group-mail-4-empty)))) + `(gnus-group-mail-4-empty-face ((t (:inherit gnus-group-news-4-empty)))) + `(gnus-group-mail-5-face ((t (:bold t :inherit gnus-group-mail-5-empty)))) + `(gnus-group-mail-5-empty-face ((t (:inherit gnus-group-news-5-empty)))) + `(gnus-group-mail-6-face ((t (:bold t :inherit gnus-group-mail-6-empty)))) + `(gnus-group-mail-6-empty-face ((t (:inherit gnus-group-news-6-empty)))) + `(gnus-group-mail-low-face ((t (:bold t :inherit gnus-group-mail-low-empty)))) + `(gnus-group-mail-low-empty-face ((t (:inherit gnus-group-news-low-empty)))) + `(gnus-group-news-1-face ((t (:bold t :inherit gnus-group-news-1-empty)))) + `(gnus-group-news-2-face ((t (:bold t :inherit gnus-group-news-2-empty)))) + `(gnus-group-news-3-face ((t (:bold t :inherit gnus-group-news-3-empty)))) + `(gnus-group-news-4-face ((t (:bold t :inherit gnus-group-news-4-empty)))) + `(gnus-group-news-5-face ((t (:bold t :inherit gnus-group-news-5-empty)))) + `(gnus-group-news-6-face ((t (:bold t :inherit gnus-group-news-6-empty)))) + `(gnus-group-news-low-face ((t (:bold t :inherit gnus-group-news-low-empty)))) + `(gnus-header-content-face ((t (:inherit message-header-other)))) + `(gnus-header-from-face ((t (:inherit message-header-from)))) + `(gnus-header-name-face ((t (:inherit message-header-name)))) + `(gnus-header-newsgroups-face ((t (:inherit message-header-other)))) + `(gnus-header-subject-face ((t (:inherit message-header-subject)))) + `(gnus-summary-cancelled-face ((t (:foreground ,julie-orange)))) + `(gnus-summary-high-ancient-face ((t (:foreground ,julie-blue)))) + `(gnus-summary-high-read-face ((t (:foreground ,julie-green :weight bold)))) + `(gnus-summary-high-ticked-face ((t (:inherit julie-strong-2-face)))) + `(gnus-summary-high-unread-face ((t (:foreground ,julie-fg :weight bold)))) + `(gnus-summary-low-ancient-face ((t (:foreground ,julie-blue)))) + `(gnus-summary-low-read-face ((t (:foreground ,julie-green)))) + `(gnus-summary-low-ticked-face ((t (:inherit julie-strong-2-face)))) + `(gnus-summary-low-unread-face ((t (:foreground ,julie-fg)))) + `(gnus-summary-normal-ancient-face ((t (:foreground ,julie-blue)))) + `(gnus-summary-normal-read-face ((t (:foreground ,julie-green)))) + `(gnus-summary-normal-ticked-face ((t (:inherit julie-strong-2-face)))) + `(gnus-summary-normal-unread-face ((t (:foreground ,julie-fg)))) + `(gnus-summary-selected-face ((t (:inherit julie-strong-1-face)))) + `(gnus-cite-1-face ((t (:foreground ,julie-blue)))) + `(gnus-cite-10-face ((t (:foreground ,julie-yellow-1)))) + `(gnus-cite-11-face ((t (:foreground ,julie-yellow)))) + `(gnus-cite-2-face ((t (:foreground ,julie-blue-1)))) + `(gnus-cite-3-face ((t (:foreground ,julie-blue-1)))) + `(gnus-cite-4-face ((t (:foreground ,julie-green+1)))) + `(gnus-cite-5-face ((t (:foreground ,julie-green+1)))) + `(gnus-cite-6-face ((t (:foreground ,julie-green)))) + `(gnus-cite-7-face ((t (:foreground ,julie-red)))) + `(gnus-cite-8-face ((t (:foreground ,julie-red-1)))) + `(gnus-cite-9-face ((t (:foreground ,julie-red-1)))) + `(gnus-group-news-1-empty-face ((t (:foreground ,julie-yellow)))) + `(gnus-group-news-2-empty-face ((t (:foreground ,julie-green+1)))) + `(gnus-group-news-3-empty-face ((t (:foreground ,julie-green+1)))) + `(gnus-group-news-4-empty-face ((t (:foreground ,julie-blue-1)))) + `(gnus-group-news-5-empty-face ((t (:foreground ,julie-blue-1)))) + `(gnus-group-news-6-empty-face ((t (:foreground ,julie-bg+2)))) + `(gnus-group-news-low-empty-face ((t (:foreground ,julie-bg+2)))) + `(gnus-signature-face ((t (:foreground ,julie-yellow)))) + `(gnus-x-face ((t (:background ,julie-fg :foreground ,julie-bg)))) + + ;; hl-line-mode + `(hl-line-face ((t (:background ,julie-bg-1)))) + + ;; ido-mode + `(ido-first-match ((t (:inherit julie-strong-1-face)))) + `(ido-only-match ((t (:inherit julie-strong-2-face)))) + `(ido-subdir ((t (:foreground ,julie-yellow)))) + + ;; magit + `(magit-section-title ((t (:inherit julie-strong-1-face)))) + `(magit-branch ((t (:inherit julie-strong-2-face)))) + + ;; markdown + `(markdown-header-face ((t (:inherit variable-pitch)))) + `(markdown-header-face-1 ((t (:height 200 :inherit markdown-header-face)))) + `(markdown-header-face-2 ((t (:height 150 :inherit markdown-header-face)))) + `(markdown-header-face-3 ((t (:height 100 :inherit markdown-header-face)))) + `(markdown-header-face-4 ((t (:height 90 :inherit markdown-header-face)))) + + ;; message-mode + `(message-cited-text-face ((t (:inherit font-lock-comment)))) + `(message-header-name-face ((t (:foreground ,julie-green+1)))) + `(message-header-other-face ((t (:foreground ,julie-green)))) + `(message-header-to-face ((t (:inherit julie-strong-1-face)))) + `(message-header-from-face ((t (:inherit julie-strong-1-face)))) + `(message-header-cc-face ((t (:inherit julie-strong-1-face)))) + `(message-header-newsgroups-face ((t (:inherit julie-strong-1-face)))) + `(message-header-subject-face ((t (:inherit julie-strong-2-face)))) + `(message-header-xheader-face ((t (:foreground ,julie-green)))) + `(message-mml-face ((t (:inherit julie-strong-1-face)))) + `(message-separator-face ((t (:inherit font-lock-comment)))) + + ;; mew + `(mew-face-header-subject ((t (:foreground ,julie-orange)))) + `(mew-face-header-from ((t (:foreground ,julie-yellow)))) + `(mew-face-header-date ((t (:foreground ,julie-green)))) + `(mew-face-header-to ((t (:foreground ,julie-red)))) + `(mew-face-header-key ((t (:foreground ,julie-green)))) + `(mew-face-header-private ((t (:foreground ,julie-green)))) + `(mew-face-header-important ((t (:foreground ,julie-blue)))) + `(mew-face-header-marginal ((t (:foreground ,julie-fg :weight bold)))) + `(mew-face-header-warning ((t (:foreground ,julie-red)))) + `(mew-face-header-xmew ((t (:foreground ,julie-green)))) + `(mew-face-header-xmew-bad ((t (:foreground ,julie-red)))) + `(mew-face-body-url ((t (:foreground ,julie-orange)))) + `(mew-face-body-comment ((t (:foreground ,julie-fg :slant italic)))) + `(mew-face-body-cite1 ((t (:foreground ,julie-green)))) + `(mew-face-body-cite2 ((t (:foreground ,julie-blue)))) + `(mew-face-body-cite3 ((t (:foreground ,julie-orange)))) + `(mew-face-body-cite4 ((t (:foreground ,julie-yellow)))) + `(mew-face-body-cite5 ((t (:foreground ,julie-red)))) + `(mew-face-mark-review ((t (:foreground ,julie-blue)))) + `(mew-face-mark-escape ((t (:foreground ,julie-green)))) + `(mew-face-mark-delete ((t (:foreground ,julie-red)))) + `(mew-face-mark-unlink ((t (:foreground ,julie-yellow)))) + `(mew-face-mark-refile ((t (:foreground ,julie-green)))) + `(mew-face-mark-unread ((t (:foreground ,julie-red-1)))) + `(mew-face-eof-message ((t (:foreground ,julie-green)))) + `(mew-face-eof-part ((t (:foreground ,julie-yellow)))) + + ;; minimap + `(minimap-font-face ((default (:height 30 :family "Anka/Coder")) (nil nil))) + `(minimap-semantic-function-face ((((background dark)) (:inherit (font-lock-function-name-face minimap-font-face) :background "gray10")))) + `(minimap-semantic-type-face ((t (:inherit (font-lock-type-face minimap-font-face) :background "gray10")))) + `(minimap-semantic-variable-face ((t (:inherit (font-lock-variable-name-face minimap-font-face) :background "gray10")))) + + ;; nav + `(nav-face-heading ((t (:foreground ,julie-yellow)))) + `(nav-face-button-num ((t (:foreground ,julie-cyan)))) + `(nav-face-dir ((t (:foreground ,julie-green)))) + `(nav-face-hdir ((t (:foreground ,julie-red)))) + `(nav-face-file ((t (:foreground ,julie-fg)))) + `(nav-face-hfile ((t (:foreground ,julie-red-1)))) + + ;; org-mode + `(org-agenda-date-today + ((t (:foreground "white" :slant italic :weight bold))) t) + `(org-agenda-structure + ((t (:inherit font-lock-comment-face)))) + `(org-archived ((t (:foreground ,julie-fg :weight bold)))) + `(org-checkbox ((t (:background ,julie-bg+2 :foreground "white" + :box (:line-width 1 :style released-button))))) + `(org-date ((t (:foreground ,julie-blue :underline t)))) + `(org-deadline-announce ((t (:foreground ,julie-red-1)))) + `(org-done ((t (:bold t :weight bold :foreground ,julie-green+1)))) + `(org-formula ((t (:foreground ,julie-yellow-1)))) + `(org-headline-done ((t (:foreground ,julie-green+1)))) + `(org-hide ((t (:foreground ,julie-bg-1)))) + `(org-level-1 ((t (:foreground ,julie-orange)))) + `(org-level-2 ((t (:foreground ,julie-green+1)))) + `(org-level-3 ((t (:foreground ,julie-blue-1)))) + `(org-level-4 ((t (:foreground ,julie-yellow-1)))) + `(org-level-5 ((t (:foreground ,julie-cyan)))) + `(org-level-6 ((t (:foreground ,julie-green-1)))) + `(org-level-7 ((t (:foreground ,julie-red-1)))) + `(org-level-8 ((t (:foreground ,julie-blue-1)))) + `(org-link ((t (:foreground ,julie-yellow-1 :underline t)))) + `(org-scheduled ((t (:foreground ,julie-green+1)))) + `(org-scheduled-previously ((t (:foreground ,julie-red-1)))) + `(org-scheduled-today ((t (:foreground ,julie-blue+1)))) + `(org-special-keyword ((t (:foreground ,julie-yellow-1)))) + `(org-table ((t (:foreground ,julie-green+1)))) + `(org-tag ((t (:bold t :weight bold)))) + `(org-time-grid ((t (:foreground ,julie-orange)))) + `(org-todo ((t (:bold t :foreground ,julie-red :weight bold)))) + `(org-upcoming-deadline ((t (:inherit font-lock-keyword-face)))) + `(org-warning ((t (:bold t :foreground ,julie-red :weight bold)))) + + ;; outline + '(outline-8 ((t (:inherit default)))) + '(outline-7 ((t (:inherit outline-8 :height 1.0)))) + '(outline-6 ((t (:inherit outline-7 :height 1.0)))) + '(outline-5 ((t (:inherit outline-6 :height 1.0)))) + '(outline-4 ((t (:inherit outline-5 :height 1.0)))) + '(outline-3 ((t (:inherit outline-4 :height 1.0)))) + '(outline-2 ((t (:inherit outline-3 :height 1.0)))) + '(outline-1 ((t (:inherit outline-2 :height 1.0)))) + + ;; rainbow-delimiters + `(rainbow-delimiters-depth-1-face ((t (:foreground ,julie-cyan)))) + `(rainbow-delimiters-depth-2-face ((t (:foreground ,julie-yellow)))) + `(rainbow-delimiters-depth-3-face ((t (:foreground ,julie-blue+1)))) + `(rainbow-delimiters-depth-4-face ((t (:foreground ,julie-red+1)))) + `(rainbow-delimiters-depth-5-face ((t (:foreground ,julie-orange)))) + `(rainbow-delimiters-depth-6-face ((t (:foreground ,julie-blue-1)))) + `(rainbow-delimiters-depth-7-face ((t (:foreground ,julie-green+1)))) + `(rainbow-delimiters-depth-8-face ((t (:foreground ,julie-red-1)))) + `(rainbow-delimiters-depth-9-face ((t (:foreground ,julie-yellow-1)))) + `(rainbow-delimiters-depth-10-face ((t (:foreground ,julie-green+1)))) + `(rainbow-delimiters-depth-11-face ((t (:foreground ,julie-blue+1)))) + `(rainbow-delimiters-depth-12-face ((t (:foreground ,julie-red-1)))) + + ;; rpm-mode + `(rpm-spec-dir-face ((t (:foreground ,julie-green)))) + `(rpm-spec-doc-face ((t (:foreground ,julie-green)))) + `(rpm-spec-ghost-face ((t (:foreground ,julie-red)))) + `(rpm-spec-macro-face ((t (:foreground ,julie-yellow)))) + `(rpm-spec-obsolete-tag-face ((t (:foreground ,julie-red)))) + `(rpm-spec-package-face ((t (:foreground ,julie-red)))) + `(rpm-spec-section-face ((t (:foreground ,julie-yellow)))) + `(rpm-spec-tag-face ((t (:foreground ,julie-blue)))) + `(rpm-spec-var-face ((t (:foreground ,julie-red)))) + + ;; show-paren + `(show-paren-mismatch ((t (:background ,julie-red-1 :weight bold)))) + `(show-paren-match ((t (:background ,julie-blue-1 :weight bold)))) + + ;; wanderlust + `(wl-highlight-folder-few-face ((t (:foreground ,julie-red-1)))) + `(wl-highlight-folder-many-face ((t (:foreground ,julie-red-1)))) + `(wl-highlight-folder-path-face ((t (:foreground ,julie-orange)))) + `(wl-highlight-folder-unread-face ((t (:foreground ,julie-blue)))) + `(wl-highlight-folder-zero-face ((t (:foreground ,julie-fg)))) + `(wl-highlight-folder-unknown-face ((t (:foreground ,julie-blue)))) + `(wl-highlight-message-citation-header ((t (:foreground ,julie-red-1)))) + `(wl-highlight-message-cited-text-1 ((t (:foreground ,julie-red)))) + `(wl-highlight-message-cited-text-2 ((t (:foreground ,julie-green+1)))) + `(wl-highlight-message-cited-text-3 ((t (:foreground ,julie-blue)))) + `(wl-highlight-message-cited-text-4 ((t (:foreground ,julie-blue+1)))) + `(wl-highlight-message-header-contents-face ((t (:foreground ,julie-green)))) + `(wl-highlight-message-headers-face ((t (:foreground ,julie-red+1)))) + `(wl-highlight-message-important-header-contents ((t (:foreground ,julie-green+1)))) + `(wl-highlight-message-header-contents ((t (:foreground ,julie-green+1)))) + `(wl-highlight-message-important-header-contents2 ((t (:foreground ,julie-green+1)))) + `(wl-highlight-message-signature ((t (:foreground ,julie-green)))) + `(wl-highlight-message-unimportant-header-contents ((t (:foreground ,julie-fg)))) + `(wl-highlight-summary-answered-face ((t (:foreground ,julie-blue)))) + `(wl-highlight-summary-disposed-face ((t (:foreground ,julie-fg + :slant italic)))) + `(wl-highlight-summary-new-face ((t (:foreground ,julie-blue)))) + `(wl-highlight-summary-normal-face ((t (:foreground ,julie-fg)))) + `(wl-highlight-summary-thread-top-face ((t (:foreground ,julie-yellow)))) + `(wl-highlight-thread-indent-face ((t (:foreground ,julie-magenta)))) + `(wl-highlight-summary-refiled-face ((t (:foreground ,julie-fg)))) + `(wl-highlight-summary-displaying-face ((t (:underline t :weight bold)))) + + (eval-after-load 'term + `(setq ansi-term-color-vector + (vector 'unspecified ,julie-bg + ,julie-red ,julie-green + ,julie-yellow ,julie-blue+1 + ,julie-magenta ,julie-cyan + ;; dirty fix + "white"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'julie) + +;;; julie-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/katester-theme.el b/elpa/color-theme-modern-0.0.3/katester-theme.el new file mode 100644 index 0000000..7a6729c --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/katester-theme.el @@ -0,0 +1,271 @@ +;;; katester-theme.el --- katester theme + +;; Copyright (C) 2001 by walterh@rocketmail.com +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of katester theme from `color-themes' + +;;; Code: + +(deftheme katester + "katester theme") + +(custom-theme-set-faces + 'katester + + '(default ((t (:background "ivory" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "slateblue")))) + '(border ((t (:foreground "slateblue")))) + + '(Man-overstrike-face ((t (:bold t)))) + '(Man-underline-face ((t (:underline t)))) + '(apropos-keybinding-face ((t (:underline t)))) + '(apropos-label-face ((t (:italic t)))) + '(apropos-match-face ((t (:background "paleturquoise")))) + '(apropos-property-face ((t (:bold t :italic t)))) + '(apropos-symbol-face ((t (:bold t)))) + '(goto-address-mail-face ((t (:italic t)))) + '(goto-address-mail-mouse-face ((t (:background "paleturquoise")))) + '(goto-address-url-face ((t (:bold t)))) + '(goto-address-url-mouse-face ((t (:background "darkseagreen2")))) + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:bold t :italic t)))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t)))) + '(cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:foreground "white" :background "blue")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:foreground "blue" :underline t)))) + '(custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) + '(custom-invalid-face ((t (:foreground "yellow" :background "red")))) + '(custom-modified-face ((t (:foreground "white" :background "blue")))) + '(custom-rogue-face ((t (:foreground "pink" :background "black")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:foreground "blue" :background "white")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t)))) + '(custom-variable-tag-face ((t (:foreground "blue" :underline t)))) + '(diary-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) + '(ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) + '(ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) + '(ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink")))) + '(ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) + '(ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) + '(ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) + '(ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) + '(ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) + '(ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) + '(ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) + '(ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) + '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-ls-directory-face ((t (:foreground "Blue" :bold t)))) + '(eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t)))) + '(eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) + '(eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t)))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:foreground "Red" :bold t)))) + '(eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-test-ok-face ((t (:foreground "Green" :bold t)))) + '(excerpt ((t (:italic t)))) + '(fixed ((t (:bold t)))) + '(flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) + '(flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:background "seashell")))) + '(font-lock-constant-face ((t (:foreground "darkblue")))) + '(font-lock-function-name-face ((t (:bold t :underline t)))) + '(font-lock-keyword-face ((t (:foreground "blue")))) + '(font-lock-string-face ((t (:foreground "maroon")))) + '(font-lock-type-face ((t (:foreground "black")))) + '(font-lock-variable-name-face ((t (:foreground "black")))) + '(font-lock-warning-face ((t (:foreground "Red" :bold t)))) + '(fringe ((t (:background "grey95")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:bold t :italic t)))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) + '(gnus-header-content-face ((t (:foreground "indianred4" :italic t)))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t)))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) + '(gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) + '(gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) + '(gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) + '(gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) + '(gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "lavender")))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "paleturquoise")))) + '(holiday-face ((t (:background "pink")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:bold t :italic t)))) + '(info-xref ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t)))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:foreground "navy blue" :bold t)))) + '(message-header-to-face ((t (:foreground "MidnightBlue" :bold t)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "moccasin" :foreground "black")))) + '(modeline-buffer-id ((t (:foreground "white" :background "black")))) + '(modeline-mousable ((t (:foreground "white" :background "black")))) + '(modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) + '(region ((t (:background "lavender")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(underline ((t (:underline t)))) + '(vcursor ((t (:foreground "blue" :background "cyan" :underline t)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t)))) + '(vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t)))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) + '(viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2")))) + '(viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink")))) + '(viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey")))) + '(viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2")))) + '(viper-search-face ((t (:foreground "Black" :background "khaki")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'katester) + +;;; katester-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/kingsajz-theme.el b/elpa/color-theme-modern-0.0.3/kingsajz-theme.el new file mode 100644 index 0000000..e407516 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/kingsajz-theme.el @@ -0,0 +1,281 @@ +;;; kingsajz-theme.el --- kingsajz theme + +;; Copyright (C) 2001 by Olgierd "Kingsajz" Ziolko +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of kingsajz theme from `color-themes' + +;;; Code: + +(deftheme kingsajz + "kingsajz theme") + +(custom-theme-set-faces + 'kingsajz + + '(default ((t (:background "darkslategrey" :foreground "wheat")))) + '(mouse ((t (:background "Grey")))) + '(cursor ((t (:background "LightGray")))) + '(border ((t (:background "black")))) + + '(bbdb-field-name ((t (:foreground "green")))) + '(bg:erc-color-face0 ((t (:background "White")))) + '(bg:erc-color-face1 ((t (:background "black")))) + '(bg:erc-color-face10 ((t (:background "lightblue1")))) + '(bg:erc-color-face11 ((t (:background "cyan")))) + '(bg:erc-color-face12 ((t (:background "blue")))) + '(bg:erc-color-face13 ((t (:background "deeppink")))) + '(bg:erc-color-face14 ((t (:background "gray50")))) + '(bg:erc-color-face15 ((t (:background "gray90")))) + '(bg:erc-color-face2 ((t (:background "blue4")))) + '(bg:erc-color-face3 ((t (:background "green4")))) + '(bg:erc-color-face4 ((t (:background "red")))) + '(bg:erc-color-face5 ((t (:background "brown")))) + '(bg:erc-color-face6 ((t (:background "purple")))) + '(bg:erc-color-face7 ((t (:background "orange")))) + '(bg:erc-color-face8 ((t (:background "yellow")))) + '(bg:erc-color-face9 ((t (:background "green")))) + '(blue ((t (:foreground "cyan")))) + '(bold ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(calendar-today-face ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(cperl-array-face ((t (:foreground "Yellow")))) + '(cperl-hash-face ((t (:foreground "White")))) + '(cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) + '(custom-button-face ((t (:foreground "MediumSlateBlue" :underline t)))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (:foreground "Grey")))) + '(custom-face-tag-face ((t (:bold t :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:foreground "MediumAquamarine")))) + '(custom-group-tag-face-1 ((t (:bold t :foreground "pink" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "Coral")))) + '(custom-variable-button-face ((t (:underline t)))) + '(custom-variable-tag-face ((t (:foreground "Aquamarine")))) + '(date ((t (:foreground "green")))) + '(diary-face ((t (:bold t :foreground "IndianRed" :weight bold)))) + '(dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold)))) + '(dired-face-executable ((t (:foreground "green yellow")))) + '(dired-face-flagged ((t (:foreground "tomato")))) + '(dired-face-marked ((t (:foreground "light salmon")))) + '(dired-face-permissions ((t (:foreground "aquamarine")))) + '(erc-action-face ((t (:bold t :weight bold)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "pale green")))) + '(erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) + '(erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold)))) + '(erc-host-danger-face ((t (:foreground "red")))) + '(erc-input-face ((t (:foreground "light blue")))) + '(erc-inverse-face ((t (:background "steel blue")))) + '(erc-notice-face ((t (:foreground "light salmon")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold)))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold)))) + '(eshell-ls-backup-face ((t (:foreground "Grey")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "DimGray" :weight bold)))) + '(eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold)))) + '(eshell-ls-executable-face ((t (:bold t :foreground "Coral" :weight bold)))) + '(eshell-ls-missing-face ((t (:bold t :foreground "black" :weight bold)))) + '(eshell-ls-picture-face ((t (:foreground "Violet")))) + '(eshell-ls-product-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-readonly-face ((t (:foreground "Aquamarine")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Gold" :weight bold)))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "White" :weight bold)))) + '(eshell-ls-text-face ((t (:foreground "medium aquamarine")))) + '(eshell-ls-todo-face ((t (:bold t :foreground "aquamarine" :weight bold)))) + '(eshell-ls-unreadable-face ((t (:foreground "DimGray")))) + '(eshell-prompt-face ((t (:foreground "powder blue")))) + '(face-1 ((t (:stipple nil :foreground "royal blue")))) + '(face-2 ((t (:stipple nil :foreground "DeepSkyBlue1")))) + '(face-3 ((t (:stipple nil :foreground "NavajoWhite3")))) + '(fg:erc-color-face0 ((t (:foreground "white")))) + '(fg:erc-color-face1 ((t (:foreground "beige")))) + '(fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) + '(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) + '(fg:erc-color-face12 ((t (:foreground "light yellow")))) + '(fg:erc-color-face13 ((t (:foreground "yellow")))) + '(fg:erc-color-face14 ((t (:foreground "light goldenrod")))) + '(fg:erc-color-face15 ((t (:foreground "lime green")))) + '(fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) + '(fg:erc-color-face3 ((t (:foreground "light cyan")))) + '(fg:erc-color-face4 ((t (:foreground "powder blue")))) + '(fg:erc-color-face5 ((t (:foreground "sky blue")))) + '(fg:erc-color-face6 ((t (:foreground "dark sea green")))) + '(fg:erc-color-face7 ((t (:foreground "pale green")))) + '(fg:erc-color-face8 ((t (:foreground "medium spring green")))) + '(fg:erc-color-face9 ((t (:foreground "khaki")))) + + '(font-lock-builtin-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) + '(font-lock-comment-face ((t (:foreground "White")))) + '(font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) + '(font-lock-doc-face ((t (:italic t :slant italic :foreground "LightSalmon")))) + '(font-lock-doc-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold)))) + '(font-lock-keyword-face ((t (:foreground "Salmon")))) + '(font-lock-preprocessor-face ((t (:foreground "Salmon")))) + '(font-lock-reference-face ((t (:foreground "pale green")))) + '(font-lock-string-face ((t (:italic t :foreground "LightSalmon" :slant italic)))) + '(font-lock-type-face ((t (:bold t :foreground "YellowGreen" :weight bold)))) + '(font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine" :slant italic :weight bold)))) + '(font-lock-warning-face ((t (:bold t :foreground "IndianRed" :weight bold)))) + '(fringe ((t (:background "darkslategrey")))) + '(gnus-cite-face-1 ((t (:foreground "DarkGoldenrod3")))) + '(gnus-cite-face-10 ((t (nil)))) + '(gnus-cite-face-11 ((t (nil)))) + '(gnus-cite-face-2 ((t (:foreground "IndianRed3")))) + '(gnus-cite-face-3 ((t (:foreground "tomato")))) + '(gnus-cite-face-4 ((t (:foreground "yellow green")))) + '(gnus-cite-face-5 ((t (:foreground "SteelBlue3")))) + '(gnus-cite-face-6 ((t (:foreground "Azure3")))) + '(gnus-cite-face-7 ((t (:foreground "Azure4")))) + '(gnus-cite-face-8 ((t (:foreground "SpringGreen4")))) + '(gnus-cite-face-9 ((t (:foreground "SlateGray4")))) + '(gnus-emphasis-bold ((t (:bold t :foreground "greenyellow" :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "OrangeRed1" :slant italic :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "khaki")))) + '(gnus-emphasis-italic ((t (:italic t :bold t :foreground "orange" :slant italic :weight bold)))) + '(gnus-emphasis-underline ((t (:foreground "greenyellow" :underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :foreground "khaki" :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :foreground "orange" :underline t :slant italic)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "Salmon4")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "firebrick1" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "turquoise4")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "LightCyan4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "LightCyan1" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "SteelBlue4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "SteelBlue2" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "Salmon4")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "FireBrick1" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "darkorange3")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "dark orange" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (:foreground "turquoise4")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) + '(gnus-group-news-4-empty-face ((t (:foreground "SpringGreen4")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "SpringGreen2" :weight bold)))) + '(gnus-group-news-5-empty-face ((t (:foreground "OliveDrab4")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "OliveDrab2" :weight bold)))) + '(gnus-group-news-6-empty-face ((t (:foreground "DarkGoldenrod4")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "DarkGoldenrod3" :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "wheat4")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "tan4" :weight bold)))) + '(gnus-header-content-face ((t (:foreground "LightSkyBlue3")))) + '(gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1" :weight bold)))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold)))) + '(gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(gnus-signature-face ((t (:italic t :foreground "salmon" :slant italic)))) + '(gnus-splash-face ((t (:foreground "Firebrick1")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "MistyRose4" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "tomato3" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "red1" :slant italic :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "DarkSeaGreen4" :slant italic)))) + '(gnus-summary-low-read-face ((t (:foreground "SeaGreen4")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "Green4" :slant italic)))) + '(gnus-summary-low-unread-face ((t (:italic t :foreground "green3" :slant italic)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "khaki4")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "khaki3")))) + '(gnus-summary-normal-unread-face ((t (:foreground "khaki")))) + '(gnus-summary-selected-face ((t (:foreground "gold" :underline t)))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:foreground "red" :background "black")))) + '(gui-element ((t (:bold t :background "#ffffff" :foreground "#000000" :weight bold)))) + '(header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil)))) + '(highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) + '(highline-face ((t (:background "SeaGreen")))) + '(holiday-face ((t (:background "DimGray")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:bold t :foreground "DodgerBlue1" :underline t :weight bold)))) + '(info-xref ((t (:bold t :foreground "DodgerBlue3" :weight bold)))) + '(isearch ((t (:background "sea green" :foreground "black")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t :foreground "chocolate3" :slant italic)))) + '(menu ((t (nil)))) + '(message-cited-text-face ((t (:foreground "White")))) + '(message-header-cc-face ((t (:foreground "light cyan")))) + '(message-header-name-face ((t (:foreground "DodgerBlue1")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold)))) + '(message-header-other-face ((t (:foreground "LightSkyBlue3")))) + '(message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "DodgerBlue3")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:background "cornflower blue" :foreground "chocolate")))) + '(modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width -1 :style released-button))))) + '(modeline-buffer-id ((t (:bold t :background "dark olive green" :foreground "beige" :weight bold)))) + '(modeline-mousable ((t (:bold t :background "dark olive green" :foreground "yellow green" :weight bold)))) + '(modeline-mousable-minor-mode ((t (:bold t :background "dark olive green" :foreground "wheat" :weight bold)))) + '(paren-blink-off ((t (:foreground "brown")))) + '(region ((t (:background "dark cyan" :foreground "cyan")))) + '(ruler-mode-column-number-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :foreground "black")))) + '(ruler-mode-current-column-face ((t (:bold t :box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :foreground "yellow" :weight bold)))) + '(ruler-mode-default-face ((t (:background "grey76" :foreground "grey64" :box (:color "grey76" :line-width 1 :style released-button))))) + '(ruler-mode-fill-column-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :foreground "red")))) + '(ruler-mode-margins-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :foreground "grey64" :background "grey64")))) + '(ruler-mode-tab-stop-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :foreground "steelblue")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue" :weight bold)))) + '(show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) + '(swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold)))) + '(text-cursor ((t (:background "Red" :foreground "white")))) + '(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1" :weight bold)))) + '(w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3" :weight bold)))) + '(w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat")))) + '(w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige")))) + '(widget-button-face ((t (:bold t :foreground "green" :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:foreground "LightBlue")))) + '(widget-inactive-face ((t (:foreground "DimGray")))) + '(widget-single-line-field-face ((t (:foreground "LightBlue")))) + '(woman-bold-face ((t (:bold t :weight bold)))) + '(woman-italic-face ((t (:italic t :foreground "beige" :slant italic)))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'kingsajz) + +;;; kingsajz-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/late-night-theme.el b/elpa/color-theme-modern-0.0.3/late-night-theme.el new file mode 100644 index 0000000..e7eef22 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/late-night-theme.el @@ -0,0 +1,214 @@ +;;; late-night-theme.el --- late-night theme + +;; Copyright (C) 2002 by Alex Schroeder +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of late-night theme from `color-themes' + +;;; Code: + +(deftheme late-night + "late-night theme") + +(custom-theme-set-faces + 'late-night + + '(default ((t (:background "#000" :foreground "#666")))) + '(cursor ((t (:background "#888")))) + '(border ((t (:foreground "#000")))) + + '(erc-action-face ((t (nil)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-current-nick-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (nil)))) + '(erc-error-face ((t (:bold t :foreground "IndianRed")))) + '(erc-highlight-face ((t (:bold t :foreground "pale green")))) + '(erc-input-face ((t (:foreground "#555")))) + '(erc-inverse-face ((t (:background "steel blue")))) + '(erc-keyword-face ((t (:foreground "#999" :bold t)))) + '(erc-nick-msg-face ((t (:foreground "#888")))) + '(erc-notice-face ((t (:foreground "#444")))) + '(erc-pal-face ((t (:foreground "#888")))) + '(erc-prompt-face ((t (:foreground "#777" :bold t)))) + '(erc-timestamp-face ((t (:foreground "#777" :bold t)))) + '(fg:erc-color-face0 ((t (:foreground "white")))) + '(fg:erc-color-face1 ((t (:foreground "beige")))) + '(fg:erc-color-face2 ((t (:foreground "lemon chiffon")))) + '(fg:erc-color-face3 ((t (:foreground "light cyan")))) + '(fg:erc-color-face4 ((t (:foreground "powder blue")))) + '(fg:erc-color-face5 ((t (:foreground "sky blue")))) + '(fg:erc-color-face6 ((t (:foreground "dark sea green")))) + '(fg:erc-color-face7 ((t (:foreground "pale green")))) + '(fg:erc-color-face8 ((t (:foreground "medium spring green")))) + '(fg:erc-color-face9 ((t (:foreground "khaki")))) + '(fg:erc-color-face10 ((t (:foreground "pale goldenrod")))) + '(fg:erc-color-face11 ((t (:foreground "light goldenrod yellow")))) + '(fg:erc-color-face12 ((t (:foreground "light yellow")))) + '(fg:erc-color-face13 ((t (:foreground "yellow")))) + '(fg:erc-color-face14 ((t (:foreground "light goldenrod")))) + '(fg:erc-color-face15 ((t (:foreground "lime green")))) + '(bg:erc-color-face0 ((t (nil)))) + '(bg:erc-color-face1 ((t (nil)))) + '(bg:erc-color-face2 ((t (nil)))) + '(bg:erc-color-face3 ((t (nil)))) + '(bg:erc-color-face4 ((t (nil)))) + '(bg:erc-color-face5 ((t (nil)))) + '(bg:erc-color-face6 ((t (nil)))) + '(bg:erc-color-face7 ((t (nil)))) + '(bg:erc-color-face8 ((t (nil)))) + '(bg:erc-color-face9 ((t (nil)))) + '(bg:erc-color-face10 ((t (nil)))) + '(bg:erc-color-face11 ((t (nil)))) + '(bg:erc-color-face12 ((t (nil)))) + '(bg:erc-color-face13 ((t (nil)))) + '(bg:erc-color-face14 ((t (nil)))) + '(bg:erc-color-face15 ((t (nil)))) + + '(gnus-cite-attribution-face ((t (:foreground "#bbb")))) + '(gnus-cite-face-1 ((t (:foreground "#aaa")))) + '(gnus-cite-face-2 ((t (:foreground "#aaa")))) + '(gnus-cite-face-3 ((t (:foreground "#aaa")))) + '(gnus-cite-face-4 ((t (:foreground "#aaa")))) + '(gnus-cite-face-5 ((t (:foreground "#aaa")))) + '(gnus-cite-face-6 ((t (:foreground "#aaa")))) + '(gnus-cite-face-7 ((t (:foreground "#aaa")))) + '(gnus-cite-face-8 ((t (:foreground "#aaa")))) + '(gnus-cite-face-9 ((t (:foreground "#aaa")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:foreground "#ccc")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "#999")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "#999")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "#999")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "#999")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "#888")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "#888")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "#777")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "#777")))) + '(gnus-group-news-1-empty-face ((t (:foreground "#999")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "#999")))) + '(gnus-group-news-2-empty-face ((t (:foreground "#888")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "#888")))) + '(gnus-group-news-3-empty-face ((t (:foreground "#777")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "#777")))) + '(gnus-group-news-4-empty-face ((t (:foreground "#666")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "#666")))) + '(gnus-group-news-5-empty-face ((t (:foreground "#666")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "#666")))) + '(gnus-group-news-6-empty-face ((t (:foreground "#666")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "#666")))) + '(gnus-group-news-low-empty-face ((t (:foreground "#666")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "#666")))) + '(gnus-header-content-face ((t (:foreground "#888")))) + '(gnus-header-from-face ((t (:bold t :foreground "#888")))) + '(gnus-header-name-face ((t (:bold t :foreground "#777")))) + '(gnus-header-newsgroups-face ((t (:bold t :foreground "#777")))) + '(gnus-header-subject-face ((t (:bold t :foreground "#999")))) + '(gnus-signature-face ((t (:foreground "#444")))) + '(gnus-splash-face ((t (:foreground "#ccc")))) + '(gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "#555")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "#666")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "#777")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "#888")))) + '(gnus-summary-low-ancient-face ((t (:foreground "#444")))) + '(gnus-summary-low-read-face ((t (:foreground "#555")))) + '(gnus-summary-low-ticked-face ((t (:foreground "#666")))) + '(gnus-summary-low-unread-face ((t (:foreground "#777")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "#555")))) + '(gnus-summary-normal-read-face ((t (:foreground "#666")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "#777")))) + '(gnus-summary-normal-unread-face ((t (:foreground "#888")))) + '(gnus-summary-selected-face ((t (:background "#333")))) + '(message-cited-text-face ((t (:foreground "#aaa")))) + '(message-header-cc-face ((t (:foreground "#888")))) + '(message-header-name-face ((t (:bold t :foreground "#777")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "#777")))) + '(message-header-other-face ((t (:foreground "#666")))) + '(message-header-subject-face ((t (:bold t :foreground "#999")))) + '(message-header-to-face ((t (:bold t :foreground "#777")))) + '(message-header-xheader-face ((t (:foreground "#666")))) + '(message-separator-face ((t (:foreground "#999")))) + + '(info-header-node ((t (:foreground "#666")))) + '(info-header-xref ((t (:foreground "#666")))) + '(info-menu-5 ((t (:underline t)))) + '(info-menu-header ((t (:bold t :foreground "#666")))) + '(info-node ((t (:bold t :foreground "#888")))) + '(info-xref ((t (:bold t :foreground "#777")))) + + '(font-lock-builtin-face ((t (:bold t :foreground "#777")))) + '(font-lock-comment-face ((t (:foreground "#555")))) + '(font-lock-constant-face ((t (:foreground "#777")))) + '(font-lock-doc-string-face ((t (:foreground "#777")))) + '(font-lock-doc-face ((t (:foreground "#777")))) + '(font-lock-function-name-face ((t (:bold t :foreground "#777")))) + '(font-lock-keyword-face ((t (:foreground "#777")))) + '(font-lock-preprocessor-face ((t (:foreground "#777")))) + '(font-lock-reference-face ((t (:foreground "#777")))) + '(font-lock-string-face ((t (:foreground "#777")))) + '(font-lock-type-face ((t (:bold t)))) + '(font-lock-variable-name-face ((t (:bold t :foreground "#888")))) + '(font-lock-warning-face ((t (:bold t :foreground "#999")))) + + '(bold ((t (:bold t)))) + '(button ((t (:bold t)))) + '(custom-button-face ((t (:bold t :foreground "#999")))) + '(fringe ((t (:background "#111" :foreground "#444")))) + '(header-line ((t (:background "#333" :foreground "#000")))) + '(highlight ((t (:background "dark slate blue" :foreground "light blue")))) + '(holiday-face ((t (:background "#000" :foreground "#777")))) + '(isearch ((t (:foreground "pink" :background "red")))) + '(isearch-lazy-highlight-face ((t (:foreground "red")))) + '(italic ((t (:bold t)))) + '(menu ((t (:background "#111" :foreground "#444")))) + '(minibuffer-prompt ((t (:foreground "555")))) + '(modeline ((t (:background "#111" :foreground "#444")))) + '(mode-line-inactive ((t (:background "#000" :foreground "#444")))) + '(modeline-buffer-id ((t (:background "#000" :foreground "#555")))) + '(modeline-mousable ((t (:background "#000" :foreground "#555")))) + '(modeline-mousable-minor-mode ((t (:background "#000" :foreground "#555")))) + '(region ((t (:background "dark cyan" :foreground "cyan")))) + '(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(show-paren-match-face ((t (:foreground "white" :background "light slate blue")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "red")))) + '(tool-bar ((t (:background "#111" :foreground "#777")))) + '(tooltip ((t (:background "#333" :foreground "#777")))) + '(underline ((t (:bold t)))) + '(variable-pitch ((t (nil)))) + '(widget-button-face ((t (:bold t :foreground "#888")))) + '(widget-field-face ((t (:bold t :foreground "#999")))) ) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'late-night) + +;;; late-night-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/lawrence-theme.el b/elpa/color-theme-modern-0.0.3/lawrence-theme.el new file mode 100644 index 0000000..39ea45c --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/lawrence-theme.el @@ -0,0 +1,278 @@ +;;; lawrence-theme.el --- lawrence theme + +;; Copyright (C) 2003 by lawrence mitchell +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of lawrence theme from `color-themes' + +;;; Code: + +(deftheme lawrence + "lawrence theme") + +(custom-theme-set-faces + 'lawrence + + '(default ((t (:background "black" :foreground "#00CC00")))) + '(mouse ((t (:background "black")))) + '(cursor ((t (:background "green")))) + '(border ((t (:background "black")))) + + '(erc-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(erc-button-mouse-face ((t (:foreground "#00CC00" :background "darkgreen")))) + '(gnus-article-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(gnus-article-mouse-face ((t (:foreground "#00CC00" :background "darkgreen")))) + '(gnus-mouse-face ((t (:foreground "#00CC00" :background "darkgreen")))) + '(list-matching-lines-buffer-name-face ((t (:foreground "#00CC00" :background "black" :underline t)))) + '(list-matching-lines-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(paren-match-face ((t (:background "black" :foreground "darkgreen")))) + '(paren-mismatch-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) + '(paren-no-match-face ((t (:background "black" :foreground "red")))) + '(view-highlight-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(widget-mouse-face ((t (:bold t :foreground "#00CC00" :background "black")))) + + '(Buffer-menu-buffer-face ((t (:bold t :weight bold)))) + '(bg:erc-color-face0 ((t (:background "White")))) + '(bg:erc-color-face1 ((t (:background "black")))) + '(bg:erc-color-face10 ((t (:background "lightblue1")))) + '(bg:erc-color-face11 ((t (:background "cyan")))) + '(bg:erc-color-face12 ((t (:background "blue")))) + '(bg:erc-color-face13 ((t (:background "deeppink")))) + '(bg:erc-color-face14 ((t (:background "gray50")))) + '(bg:erc-color-face15 ((t (:background "gray90")))) + '(bg:erc-color-face2 ((t (:background "blue4")))) + '(bg:erc-color-face3 ((t (:background "green4")))) + '(bg:erc-color-face4 ((t (:background "red")))) + '(bg:erc-color-face5 ((t (:background "brown")))) + '(bg:erc-color-face6 ((t (:background "purple")))) + '(bg:erc-color-face7 ((t (:background "orange")))) + '(bg:erc-color-face8 ((t (:background "yellow")))) + '(bg:erc-color-face9 ((t (:background "green")))) + '(bold ((t (:bold t :foreground "#00CC00" :background "black")))) + '(bold-italic ((t (:italic t :bold t :slant oblique :weight semi-bold)))) + '(button ((t (:underline t)))) + '(comint-highlight-input ((t (nil)))) + '(comint-highlight-prompt ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(custom-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(custom-button-pressed-face ((t (nil)))) + '(custom-changed-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) + '(custom-comment-face ((t (nil)))) + '(custom-comment-tag-face ((t (nil)))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (nil)))) + '(custom-group-tag-face ((t (nil)))) + '(custom-group-tag-face-1 ((t (nil)))) + '(custom-invalid-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) + '(custom-modified-face ((t (nil)))) + '(custom-rogue-face ((t (nil)))) + '(custom-saved-face ((t (nil)))) + '(custom-set-face ((t (nil)))) + '(custom-state-face ((t (nil)))) + '(custom-variable-button-face ((t (nil)))) + '(custom-variable-tag-face ((t (nil)))) + '(erc-action-face ((t (:bold t :weight semi-bold)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-current-nick-face ((t (:bold t :foreground "LightSeaGreen" :weight semi-bold)))) + '(erc-dangerous-host-face ((t (:foreground "red")))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "IndianRed")))) + '(erc-error-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00")))) + '(erc-fool-face ((t (:foreground "dim gray")))) + '(erc-input-face ((t (:foreground "springgreen")))) + '(erc-inverse-face ((t (:bold t :background "Darkgreen" :foreground "Black" :weight semi-bold)))) + '(erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold)))) + '(erc-nick-default-face ((t (:bold t :weight semi-bold)))) + '(erc-nick-msg-face ((t (:bold t :foreground "springgreen" :weight semi-bold)))) + '(erc-notice-face ((t (:foreground "seagreen" :weight normal)))) + '(erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold)))) + '(erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight semi-bold)))) + '(erc-timestamp-face ((t (:foreground "seagreen" :weight normal)))) + '(erc-underline-face ((t (:underline t)))) + '(fg:erc-color-face0 ((t (:foreground "White")))) + '(fg:erc-color-face1 ((t (:foreground "black")))) + '(fg:erc-color-face10 ((t (:foreground "lightblue1")))) + '(fg:erc-color-face11 ((t (:foreground "cyan")))) + '(fg:erc-color-face12 ((t (:foreground "blue")))) + '(fg:erc-color-face13 ((t (:foreground "deeppink")))) + '(fg:erc-color-face14 ((t (:foreground "gray50")))) + '(fg:erc-color-face15 ((t (:foreground "gray90")))) + '(fg:erc-color-face2 ((t (:foreground "blue4")))) + '(fg:erc-color-face3 ((t (:foreground "green4")))) + '(fg:erc-color-face4 ((t (:foreground "red")))) + '(fg:erc-color-face5 ((t (:foreground "brown")))) + '(fg:erc-color-face6 ((t (:foreground "purple")))) + '(fg:erc-color-face7 ((t (:foreground "orange")))) + '(fg:erc-color-face8 ((t (:foreground "yellow")))) + '(fg:erc-color-face9 ((t (:foreground "green")))) + '(fixed-pitch ((t (nil)))) + '(font-latex-string-face ((t (:bold t :weight semi-bold :foreground "seagreen" :background "black")))) + '(font-latex-warning-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00")))) + '(font-lock-builtin-face ((t (:foreground "seagreen1")))) + '(font-lock-comment-face ((t (:background "black" :foreground "medium spring green")))) + '(font-lock-constant-face ((t (nil)))) + '(font-lock-doc-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold)))) + '(font-lock-function-name-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(font-lock-keyword-face ((t (:bold t :background "black" :foreground "green" :underline t :weight semi-bold)))) + '(font-lock-preprocessor-face ((t (:foreground "#00ccdd")))) + '(font-lock-string-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold)))) + '(font-lock-type-face ((t (nil)))) + '(font-lock-variable-name-face ((t (nil)))) + '(font-lock-warning-face ((t (:bold t :foreground "#00CC00" :background "darkblue" :weight semi-bold)))) + '(fringe ((t (:foreground "#00CC00" :background "#151515")))) + '(gnus-cite-attribution-face ((t (:italic t :foreground "#00CC00" :background "black" :slant italic)))) + '(gnus-cite-face-1 ((t (:background "black" :foreground "springgreen")))) + '(gnus-cite-face-10 ((t (nil)))) + '(gnus-cite-face-11 ((t (nil)))) + '(gnus-cite-face-2 ((t (:background "black" :foreground "lightseagreen")))) + '(gnus-cite-face-3 ((t (:background "black" :foreground "darkseagreen")))) + '(gnus-cite-face-4 ((t (:background "black" :foreground "forestgreen")))) + '(gnus-cite-face-5 ((t (:background "black" :foreground "springgreen")))) + '(gnus-cite-face-6 ((t (:background "black" :foreground "springgreen")))) + '(gnus-cite-face-7 ((t (:background "black" :foreground "springgreen")))) + '(gnus-cite-face-8 ((t (:background "black" :foreground "springgreen")))) + '(gnus-cite-face-9 ((t (:background "black" :foreground "springgreen")))) + '(gnus-emphasis-bold ((t (:bold t :weight semi-bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight semi-bold)))) + '(gnus-emphasis-highlight-words ((t (:bold t :foreground "#00CC00" :background "black" :underline t :weight bold)))) + '(gnus-emphasis-italic ((t (:italic t :slant italic)))) + '(gnus-emphasis-strikethru ((t (nil)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight semi-bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight semi-bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) + '(gnus-group-mail-1-empty-face ((t (nil)))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (nil)))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (nil)))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (nil)))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (nil)))) + '(gnus-group-news-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (nil)))) + '(gnus-group-news-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-group-news-low-empty-face ((t (nil)))) + '(gnus-group-news-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-header-content-face ((t (:background "black" :foreground "springgreen")))) + '(gnus-header-from-face ((t (nil)))) + '(gnus-header-name-face ((t (nil)))) + '(gnus-header-newsgroups-face ((t (nil)))) + '(gnus-header-subject-face ((t (nil)))) + '(gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) + '(gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic)))) + '(gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight semi-bold)))) + '(gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold)))) + '(gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight semi-bold)))) + '(gnus-signature-face ((t (:background "black" :foreground "springgreen" :slant normal)))) + '(gnus-splash-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-summary-cancelled-face ((t (:foreground "#00CC00" :background "black" :strike-through t)))) + '(gnus-summary-high-ancient-face ((t (nil)))) + '(gnus-summary-high-read-face ((t (nil)))) + '(gnus-summary-high-ticked-face ((t (:background "black" :foreground "seagreen")))) + '(gnus-summary-high-undownloaded-face ((t (:bold t :foreground "LightGray" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-summary-low-ancient-face ((t (nil)))) + '(gnus-summary-low-read-face ((t (nil)))) + '(gnus-summary-low-ticked-face ((t (nil)))) + '(gnus-summary-low-undownloaded-face ((t (:italic t :foreground "LightGray" :slant italic :weight normal)))) + '(gnus-summary-low-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold)))) + '(gnus-summary-normal-ancient-face ((t (nil)))) + '(gnus-summary-normal-read-face ((t (nil)))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(gnus-summary-normal-undownloaded-face ((t (:foreground "LightGray" :weight normal)))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:background "#101010")))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(header-line ((t (nil)))) + '(highlight ((t (:foreground "#00CC00" :background "darkgreen")))) + '(ido-first-match-face ((t (:bold t :weight bold)))) + '(ido-indicator-face ((t (:background "red" :foreground "yellow" :width condensed)))) + '(ido-only-match-face ((t (:foreground "ForestGreen")))) + '(ido-subdir-face ((t (:foreground "red")))) + '(isearch ((t (:background "seagreen" :foreground "black")))) + '(isearch-lazy-highlight-face ((t (:background "darkseagreen" :foreground "black")))) + '(italic ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) + '(menu ((t (:bold t :background "black" :foreground "green" :weight semi-bold + :box (:line-width -1 :color "#606060"))))) + '(message-cited-text-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) + '(message-header-cc-face ((t (nil)))) + '(message-header-name-face ((t (nil)))) + '(message-header-newsgroups-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(message-header-other-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(message-header-subject-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(message-header-to-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(message-header-xheader-face ((t (nil)))) + '(message-mml-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) + '(message-separator-face ((t (nil)))) + '(minibuffer-prompt ((t (:background "black" :foreground "seagreen")))) + '(mode-line ((t (:bold t :background "#404040" :foreground "green" :weight semi-bold + :box (:line-width -1 :color "#606060"))))) + '(mode-line-inactive ((t (:bold t :weight semi-bold :foreground "green" + :box (:line-width -1 :color "#606060") :background "#101010")))) + '(paren-face ((t (:background "black" :foreground "darkgreen")))) + '(paren-face-match ((t (:background "black" :foreground "springgreen")))) + '(paren-face-mismatch ((t (:foreground "#00CC00" :background "black" :strike-through t)))) + '(paren-face-no-match ((t (:background "black" :foreground "red")))) + '(region ((t (:background "seagreen" :foreground "black")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "darkseagreen" :foreground "black")))) + '(semantic-dirty-token-face ((t (:background "gray10")))) + '(semantic-unmatched-syntax-face ((t (:underline "red")))) + '(sgml-end-tag-face ((t (:foreground "seagreen")))) + '(sgml-start-tag-face ((t (:foreground "seagreen")))) + '(tabbar-button-face ((t (:background "black" :foreground "#00cc00" + :box (:line-width 2 :color "black" :style released-button))))) + '(tabbar-default-face ((t (:background "black" :foreground "#00cc00")))) + '(tabbar-selected-face ((t (:background "black" :foreground "springgreen" + :box (:line-width 2 :color "black" :style released-button))))) + '(tabbar-separator-face ((t (:foreground "#00cc00" :background "black" + :box (:line-width 2 :color "black" :style pressed-button))))) + '(tabbar-unselected-face ((t (:background "black" :foreground "seagreen")))) + '(tool-bar ((t (:box (:line-width 1 :style released-button))))) + '(tooltip ((t (nil)))) + '(trailing-whitespace ((t (:background "lightseagreen" :foreground "black")))) + '(underline ((t (:foreground "#00CC00" :background "black" :underline t)))) + '(variable-pitch ((t (:underline nil :foreground "#00CC00" :background "black")))) + '(widget-button-face ((t (:bold t :foreground "#00CC00" :background "black")))) + '(widget-button-pressed-face ((t (nil)))) + '(widget-documentation-face ((t (nil)))) + '(widget-field-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique)))) + '(widget-inactive-face ((t (nil)))) + '(widget-single-line-field-face ((t (nil))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'lawrence) + +;;; lawrence-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/ld-dark-theme.el b/elpa/color-theme-modern-0.0.3/ld-dark-theme.el new file mode 100644 index 0000000..672940c --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/ld-dark-theme.el @@ -0,0 +1,353 @@ +;;; ld-dark-theme.el --- ld dark theme + +;; Copyright (C) 2001 by Linh Dang +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of `ld-dark' theme from `color-themes' + +;;; Code: + +(deftheme ld-dark + "ld-dark theme") + +(custom-theme-set-faces + 'ld-dark + '(default ((t (:background "black" :foreground "white")))) + '(Info-title-1-face ((t (:bold t :weight bold :height 1.728)))) + '(Info-title-2-face ((t (:bold t :weight bold :height 1.44)))) + '(Info-title-3-face ((t (:bold t :weight bold :height 1.2)))) + '(Info-title-4-face ((t (:bold t :weight bold)))) + + '(bbdb-company ((t (:italic t :slant italic)))) + '(bbdb-field-name ((t (:bold t :weight bold)))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(border ((t (:background "black")))) + '(buffer-menu-buffer ((t (:bold t :weight bold)))) + '(button ((t (:underline t :foreground "cyan1")))) + '(calendar-today-face ((t (:underline t)))) + + '(change-log-acknowledgement-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique)))) + '(change-log-conditionals-face ((t (:foreground "Aquamarine")))) + '(change-log-date-face ((t (:italic t :foreground "BurlyWood" :slant oblique)))) + '(change-log-email-face ((t (:foreground "Aquamarine")))) + '(change-log-file-face + ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9)))) + '(change-log-function-face ((t (:foreground "Aquamarine")))) + '(change-log-list-face ((t (:foreground "LightSkyBlue")))) + '(change-log-name-face ((t (:bold t :foreground "Gold" :weight bold)))) + + '(clear-case-mode-string-face + ((t (:bold t :background "grey" :foreground "black" + :box (:line-width 2 :color "grey" :style released-button) + :weight bold :height 0.9)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(completions-annotations ((t (:italic t :slant italic)))) + '(completions-common-part ((t (::foreground "white" :background "black")))) + '(completions-first-difference ((t (:bold t :weight bold)))) + + '(cperl-array-face + ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) + '(cperl-hash-face + ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + + '(cursor ((t (:background "yellow")))) + + '(custom-button-face + ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face + ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :weight bold :height 1.1)))) + '(custom-group-tag-face + ((t (:bold t :foreground "light blue" :weight bold :height 1.1)))) + '(custom-group-tag-face-1 + ((t (:bold t :foreground "pink" :weight bold :height 1.1)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "lime green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face + ((t (:bold t :foreground "light blue" :weight bold :height 1.2)))) + '(diary-face ((t (:foreground "red")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (:foreground "grey70")))) + '(diff-file-header-face ((t (:bold t :background "grey60" :weight bold)))) + '(diff-function-face ((t (:foreground "grey70")))) + '(diff-header-face ((t (:background "grey45")))) + '(diff-hunk-header-face ((t (:background "grey45")))) + '(diff-index-face ((t (:bold t :background "grey60" :weight bold)))) + '(diff-nonexistent-face ((t (:bold t :background "grey60" :weight bold)))) + '(diff-removed-face ((t (nil)))) + '(dired-directory ((t (:bold t :weight bold :foreground "LightSkyBlue" :height 0.9)))) + '(dired-flagged ((t (:bold t :weight bold :foreground "Pink")))) + '(dired-header ((t (:bold t :weight bold :foreground "PaleGreen" :height 0.9)))) + '(dired-ignored ((t (:foreground "grey70")))) + '(dired-mark ((t (:bold t :weight bold :foreground "Gold")))) + '(dired-marked ((t (:bold t :weight bold :foreground "DarkOrange")))) + '(dired-perm-write ((t (:italic t :foreground "AntiqueWhite3" :slant oblique)))) + '(dired-symlink ((t (:foreground "LightSkyBlue")))) + '(dired-warning ((t (:bold t :weight bold :foreground "chocolate")))) + '(error ((t (:bold t :foreground "Pink" :weight bold)))) + '(escape-glyph ((t (:foreground "cyan")))) + '(excerpt ((t (:italic t :slant italic)))) + '(file-name-shadow ((t (:foreground "grey70")))) + '(fixed ((t (:bold t :weight bold)))) + + '(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) + '(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) + + '(font-lock-builtin-face ((t (:foreground "SteelBlue")))) + '(font-lock-comment-delimiter-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3")))) + '(font-lock-comment-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique)))) + '(font-lock-constant-face ((t (:bold t :foreground "Gold" :weight bold)))) + '(font-lock-doc-face ((t (:italic t :foreground "BurlyWood" :slant oblique)))) + '(font-lock-doc-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique)))) + '(font-lock-function-name-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9)))) + '(font-lock-keyword-face ((t (:foreground "LightSkyBlue")))) + '(font-lock-negation-char-face ((t (nil)))) + '(font-lock-preprocessor-face ((t (:bold t :foreground "Gold" :weight bold)))) + '(font-lock-reference-face ((t (:foreground "SteelBlue")))) + '(font-lock-regexp-grouping-backslash ((t (:bold t :weight bold)))) + '(font-lock-regexp-grouping-construct ((t (:bold t :weight bold)))) + '(font-lock-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique)))) + '(font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold :height 0.9)))) + '(font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine" :weight bold)))) + '(font-lock-warning-face ((t (:bold t :foreground "chocolate" :weight bold)))) + '(fringe + ((t (:background "grey4" :foreground "Wheat" + :slant normal :weight normal :width normal + :foundry "outline")))) + '(glyphless-char ((t (:height 0.6)))) + + '(gnus-cite-attribution-face ((t (:italic t :slant italic)))) + '(gnus-cite-face-1 ((t (:foreground "light blue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "light cyan")))) + '(gnus-cite-face-3 ((t (:foreground "light yellow")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-cite-face-list ((t (:bold t :foreground "red" :weight bold)))) + '(gnus-emphasis-bold ((t (:bold t :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t :slant italic)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :weight bold)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t :weight bold)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t :weight bold)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) + '(gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic)))) + '(gnus-header-from-face ((t (:foreground "spring green")))) + '(gnus-header-name-face ((t (:foreground "SeaGreen")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic)))) + '(gnus-header-subject-face ((t (:foreground "SeaGreen3")))) + '(gnus-signature-face ((t (:italic t :foreground "white" :slant italic)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic)))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic)))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic)))) + '(gnus-summary-low-unread-face ((t (:italic t :slant italic)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + + '(header-line + ((t (:background "grey20" :foreground "grey75" + :box (:line-width 3 :color "grey20" :style released-button) + :height 0.81)))) + '(help-argument-name ((t (nil)))) + '(highlight ((t (:background "darkolivegreen" :foreground "black")))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(holiday-face ((t (:background "pink")))) + '(info-header-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) + '(info-header-xref ((t (:bold t :foreground "cyan" :weight bold)))) + '(info-menu-5 ((t (:foreground "red1")))) + '(info-menu-header ((t (:bold t :weight bold)))) + '(info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold)))) + '(info-xref ((t (:bold t :foreground "cyan" :weight bold)))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-fail ((t (:background "red4")))) + '(italic ((t (:italic t :slant italic)))) + '(lazy-highlight ((t (:background "paleturquoise4")))) + '(link ((t (:foreground "cyan1" :underline t)))) + '(link-visited ((t (:underline t :foreground "violet")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(match ((t (:background "RoyalBlue3")))) + '(menu ((t (nil)))) + + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "green4" :weight bold)))) + '(message-header-name-face ((t (:foreground "DarkGreen")))) + '(message-header-newsgroups-face + ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold)))) + '(message-header-other-face ((t (:foreground "#b00000")))) + '(message-header-subject-face ((t (:bold t :foreground "green3" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "green2" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "blue3")))) + + '(minibuffer-prompt ((t (:foreground "cyan")))) + '(mode-line ((t (:background "grey" :foreground "black" + :box (:line-width 2 :color "grey" :style released-button) + :height 0.9)))) + '(mode-line-buffer-id + ((t (:background "grey" :foreground "black" + :box (:line-width 2 :color "grey" :style released-button) + :height 0.9)))) + '(mode-line-emphasis ((t (:bold t :weight bold)))) + '(mode-line-highlight + ((t (:box (:line-width 2 :color "grey40" :style released-button))))) + '(mode-line-inactive + ((t (:background "grey30" :foreground "grey80" + :box (:line-width -1 :color "grey40" :style nil) + :weight light :height 0.9)))) + '(modeline-mousable + ((t (:background "grey" :foreground "black" + :box (:line-width 2 :color "grey" :style released-button) + :height 0.9)))) + '(modeline-mousable-minor-mode + ((t (:background "grey" :foreground "black" + :box (:line-width 2 :color "grey" :style released-button) + :height 0.9)))) + + '(mouse ((t (:background "white")))) + '(next-error ((t (:foreground "white" :background "DarkSlateGray")))) + '(nobreak-space ((t (:foreground "cyan" :underline t)))) + '(primary-selection ((t (:background "DarkSlateGray")))) + '(query-replace ((t (:foreground "brown4" :background "palevioletred2")))) + '(region ((t (:background "DarkSlateGray" :foreground "white")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "SkyBlue4")))) + + '(sgml-doctype-face ((t (:foreground "orange")))) + '(sgml-end-tag-face ((t (:foreground "greenyellow")))) + '(sgml-entity-face ((t (:foreground "gold")))) + '(sgml-ignored-face ((t (:background "gray60" :foreground "gray20")))) + '(sgml-sgml-face ((t (:foreground "yellow")))) + '(sgml-start-tag-face ((t (:foreground "mediumspringgreen")))) + + '(shadow ((t (:foreground "grey70")))) + '(show-paren-match-face ((t (:background "purple" :foreground "white")))) + '(show-paren-mismatch-face ((t (:background "red" :foreground "white")))) + '(success ((t (:bold t :foreground "Green1" :weight bold)))) + + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "#4186be")))) + '(term-bluebg ((t (:background "#4186be")))) + '(term-bold ((t (:bold t :weight bold)))) + '(term-cyan ((t (:foreground "#71bebe")))) + '(term-cyanbg ((t (:background "#71bebe")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "#e5f779")))) + '(term-greenbg ((t (:background "#e5f779")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "#ef9ebe")))) + '(term-magentabg ((t (:background "#ef9ebe")))) + '(term-red ((t (:foreground "#ef8171")))) + '(term-redbg ((t (:background "#ef8171")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "#c0c0c0")))) + '(term-whitebg ((t (:background "#c0c0c0")))) + '(term-yellow ((t (:foreground "#fff796")))) + '(term-yellowbg ((t (:background "#fff796")))) + + '(tool-bar + ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "white")))) + '(underline ((t (:underline t)))) + + '(vertical-border ((t (nil)))) + '(warning ((t (:bold t :foreground "DarkOrange" :weight bold)))) + + '(widget-button ((t (:bold t :weight bold)))) + '(widget-button-pressed ((t (:background "black" :foreground "red")))) + '(widget-documentation ((t (:background "white" :foreground "lime green")))) + '(widget-field ((t (:background "dim gray" :foreground "black")))) + '(widget-inactive ((t (:background "red" :foreground "light gray")))) + '(widget-single-line-field ((t (:background "dim gray" :foreground "black")))) + + '(zmacs-region ((t (:background "DarkSlateGray" :foreground "white"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'ld-dark) + +;;; ld-dark-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/lethe-theme.el b/elpa/color-theme-modern-0.0.3/lethe-theme.el new file mode 100644 index 0000000..23a3f9d --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/lethe-theme.el @@ -0,0 +1,440 @@ +;;; lethe-theme.el --- lethe theme + +;; Copyright (C) 2002 by Ivica Loncar +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of lethe theme from `color-themes' + +;;; Code: + +(deftheme lethe + "lethe theme") + +(custom-theme-set-faces + 'lethe + + '(default ((t (:background "black" :foreground "peachpuff")))) + '(mouse ((t (:background "red")))) + '(cursor ((t (:background "red")))) + '(border ((t (:background "black")))) + + '(bg:erc-color-face0 ((t (:background "White")))) + '(bg:erc-color-face1 ((t (nil)))) + '(bg:erc-color-face10 ((t (:background "lightblue1")))) + '(bg:erc-color-face11 ((t (:background "cyan")))) + '(bg:erc-color-face12 ((t (:background "blue")))) + '(bg:erc-color-face13 ((t (:background "deeppink")))) + '(bg:erc-color-face14 ((t (:background "gray50")))) + '(bg:erc-color-face15 ((t (:background "gray90")))) + '(bg:erc-color-face2 ((t (:background "blue4")))) + '(bg:erc-color-face3 ((t (:background "green4")))) + '(bg:erc-color-face4 ((t (:background "red")))) + '(bg:erc-color-face5 ((t (:background "brown")))) + '(bg:erc-color-face6 ((t (:background "purple")))) + '(bg:erc-color-face7 ((t (:background "orange")))) + '(bg:erc-color-face8 ((t (:background "yellow")))) + '(bg:erc-color-face9 ((t (:background "green")))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(buffers-tab ((t (:bold t :foreground "red")))) + '(button ((t (:underline t)))) + '(calendar-today-face ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue")))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red")))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(cscope-file-face ((t (:foreground "blue")))) + '(cscope-function-face ((t (:foreground "magenta")))) + '(cscope-line-face ((t (:foreground "green")))) + '(cscope-line-number-face ((t (:foreground "red")))) + '(cscope-mouse-face ((t (:background "blue" :foreground "white")))) + '(custom-button-face ((t (nil)))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(cyan ((t (:foreground "cyan")))) + '(diary-face ((t (:foreground "red")))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t)))) + '(dired-face-executable ((t (:foreground "SeaGreen")))) + '(dired-face-flagged ((t (:background "LightSlateGray")))) + '(dired-face-marked ((t (:background "PaleVioletRed")))) + '(dired-face-permissions ((t (:background "grey75" :foreground "black")))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "cyan")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(erc-action-face ((t (:bold t)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "IndianRed")))) + '(erc-error-face ((t (:background "Red" :foreground "White")))) + '(erc-input-face ((t (:foreground "brown")))) + '(erc-inverse-face ((t (:background "Black" :foreground "White")))) + '(erc-notice-face ((t (:bold t :foreground "SlateBlue")))) + '(erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black")))) + '(erc-timestamp-face ((t (:bold t :foreground "green")))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red")))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan")))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:bold t :foreground "Red")))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green")))) + '(excerpt ((t (:italic t)))) + '(fg:erc-color-face0 ((t (:foreground "White")))) + '(fg:erc-color-face1 ((t (:foreground "black")))) + '(fg:erc-color-face10 ((t (:foreground "lightblue1")))) + '(fg:erc-color-face11 ((t (:foreground "cyan")))) + '(fg:erc-color-face12 ((t (:foreground "blue")))) + '(fg:erc-color-face13 ((t (:foreground "deeppink")))) + '(fg:erc-color-face14 ((t (:foreground "gray50")))) + '(fg:erc-color-face15 ((t (:foreground "gray90")))) + '(fg:erc-color-face2 ((t (:foreground "blue4")))) + '(fg:erc-color-face3 ((t (:foreground "green4")))) + '(fg:erc-color-face4 ((t (:foreground "red")))) + '(fg:erc-color-face5 ((t (:foreground "brown")))) + '(fg:erc-color-face6 ((t (:foreground "purple")))) + '(fg:erc-color-face7 ((t (:foreground "orange")))) + '(fg:erc-color-face8 ((t (:foreground "yellow")))) + '(fg:erc-color-face9 ((t (:foreground "green")))) + '(fixed ((t (:bold t)))) + '(fixed-pitch ((t (:size "16")))) + '(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) + '(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:bold t :foreground "cyan")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-doc-face ((t (:bold t :foreground "red")))) + '(font-lock-doc-string-face ((t (:bold t :foreground "red")))) + '(font-lock-function-name-face ((t (:bold t :foreground "white")))) + '(font-lock-keyword-face ((t (:bold t :foreground "yellow")))) + '(font-lock-preprocessor-face ((t (:bold t :foreground "blue")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:bold t :foreground "magenta")))) + '(font-lock-type-face ((t (:bold t :foreground "lightgreen")))) + '(font-lock-variable-name-face ((t (:bold t :foreground "white")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(fringe ((t (:background "grey95")))) + '(gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4")))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-picons-face ((t (:background "white" :foreground "black")))) + '(gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:size "12" :background "Gray80" :foreground "black")))) + '(header-line ((t (:background "grey20" :foreground "grey90")))) + '(highlight ((t (:bold t :background "yellow" :foreground "red")))) + '(highlight-changes-delete-face ((t (:underline t :foreground "red")))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "paleturquoise")))) + '(holiday-face ((t (:background "pink")))) + '(hyper-apropos-documentation ((t (:foreground "#aaaaaa")))) + '(hyper-apropos-heading ((t (:bold t :foreground "#999999")))) + '(hyper-apropos-hyperlink ((t (:foreground "Violet")))) + '(hyper-apropos-major-heading ((t (:bold t :foreground "#ff0000")))) + '(hyper-apropos-section-heading ((t (:italic t :bold t :foreground "#33aa55")))) + '(hyper-apropos-warning ((t (:bold t :foreground "red")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (:background "paleturquoise")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (:italic t)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) + '(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) + '(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) + '(jde-java-font-lock-api-face ((t (:foreground "light goldenrod")))) + '(jde-java-font-lock-bold-face ((t (:bold t)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "light coral")))) + '(jde-java-font-lock-italic-face ((t (:italic t)))) + '(jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue")))) + '(jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue")))) + '(jde-java-font-lock-number-face ((t (:foreground "LightSalmon")))) + '(jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) + '(jde-java-font-lock-package-face ((t (:foreground "steelblue1")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68")))) + '(magenta ((t (:foreground "magenta")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(menu ((t (nil)))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:bold t :foreground "cyan")))) + '(message-separator-face ((t (:foreground "brown")))) + '(minibuffer-prompt ((t (:foreground "cyan")))) + '(mode-line ((t (:background "grey75" :foreground "black")))) + '(mode-line-inactive ((t (:background "grey30" :foreground "grey80")))) + '(modeline ((t (:bold t :background "red" :foreground "yellow")))) + '(modeline-buffer-id ((t (:bold t :background "red" :foreground "yellow")))) + '(modeline-mousable ((t (:background "red" :foreground "yellow")))) + '(modeline-mousable-minor-mode ((t (:background "red" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "black")))) + '(paren-match ((t (:bold t :background "yellow" :foreground "red")))) + '(paren-mismatch ((t (:background "DeepPink")))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "gray75")))) + '(right-margin ((t (nil)))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(semantic-dirty-token-face ((t (:background "lightyellow")))) + '(semantic-unmatched-syntax-face ((t (nil)))) + '(senator-intangible-face ((t (:foreground "gray75")))) + '(senator-momentary-highlight-face ((t (:background "gray30")))) + '(senator-read-only-face ((t (:background "#664444")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(template-message-face ((t (:bold t)))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (nil)))) + '(term-blue ((t (:foreground "blue")))) + '(term-blue-bold-face ((t (:bold t :foreground "blue")))) + '(term-blue-face ((t (:foreground "blue")))) + '(term-blue-inv-face ((t (:background "blue")))) + '(term-blue-ul-face ((t (:underline t :foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyan-bold-face ((t (:bold t :foreground "cyan")))) + '(term-cyan-face ((t (:foreground "cyan")))) + '(term-cyan-inv-face ((t (:background "cyan")))) + '(term-cyan-ul-face ((t (:underline t :foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-bold-face ((t (:bold t)))) + '(term-default-face ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-default-inv-face ((t (:background "peachpuff" :foreground "black")))) + '(term-default-ul-face ((t (:underline t)))) + '(term-green ((t (:foreground "green")))) + '(term-green-bold-face ((t (:bold t :foreground "green")))) + '(term-green-face ((t (:foreground "green")))) + '(term-green-inv-face ((t (:background "green")))) + '(term-green-ul-face ((t (:underline t :foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magenta-bold-face ((t (:bold t :foreground "magenta")))) + '(term-magenta-face ((t (:foreground "magenta")))) + '(term-magenta-inv-face ((t (:background "magenta")))) + '(term-magenta-ul-face ((t (:underline t :foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-red-bold-face ((t (:bold t :foreground "red")))) + '(term-red-face ((t (:foreground "red")))) + '(term-red-inv-face ((t (:background "red")))) + '(term-red-ul-face ((t (:underline t :foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-white-bold-face ((t (:bold t :foreground "white")))) + '(term-white-face ((t (:foreground "white")))) + '(term-white-inv-face ((t (nil)))) + '(term-white-ul-face ((t (:underline t :foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellow-bold-face ((t (:bold t :foreground "yellow")))) + '(term-yellow-face ((t (:foreground "yellow")))) + '(term-yellow-inv-face ((t (:background "yellow")))) + '(term-yellow-ul-face ((t (:underline t :foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(text-cursor ((t (:background "red" :foreground "black")))) + '(tool-bar ((t (:background "grey75" :foreground "black")))) + '(toolbar ((t (:background "Gray80" :foreground "black")))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (nil)))) + '(vcursor ((t (:underline t :background "cyan" :foreground "blue")))) + '(vertical-divider ((t (:background "Gray80" :foreground "black")))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(white ((t (:foreground "white")))) + '(widget ((t (:size "12" :background "Gray80" :foreground "black")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (nil)))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(x-face ((t (:bold t :background "wheat" :foreground "black")))) + '(xrdb-option-name-face ((t (:bold t :foreground "yellow")))) + '(xrdb-option-value-face ((t (:bold t :foreground "magenta")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "white" :foreground "black"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'lethe) + +;;; lethe-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/marine-theme.el b/elpa/color-theme-modern-0.0.3/marine-theme.el new file mode 100644 index 0000000..261987f --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/marine-theme.el @@ -0,0 +1,123 @@ +;;; marine-theme.el --- marine theme + +;; Copyright (C) 2001 by Girish Bharadwaj +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of marine theme from `color-themes' + +;;; Code: + +(deftheme marine + "marine theme") + +(custom-theme-set-faces + 'marine + + '(default ((t (:background "#9dcec9" :foreground "darkslategray")))) + '(mouse ((t (:foreground "sienna1")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:foreground "black")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (nil)))) + '(border-glyph ((t (nil)))) + '(buffers-tab ((t (:background "#9dcec9" :foreground "darkslategray")))) + '(buffers-tab-face ((t (:background "#9dcec9" :foreground "darkslategray")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "gray85")))) + '(custom-comment-tag-face ((t (:foreground "blue4")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "deeppink")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "darkgreen")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(font-lock-builtin-face ((t (:foreground "SteelBlue")))) + '(font-lock-comment-face ((t (:foreground "cadetblue")))) + '(font-lock-constant-face ((t (:foreground "OrangeRed")))) + '(font-lock-doc-string-face ((t (:foreground "Salmon")))) + '(font-lock-function-name-face ((t (:bold t :foreground "NavyBlue")))) + '(font-lock-keyword-face ((t (:bold t :foreground "purple")))) + '(font-lock-preprocessor-face ((t (:foreground "SteelBlue")))) + '(font-lock-reference-face ((t (:foreground "SteelBlue")))) + '(font-lock-string-face ((t (:foreground "royalblue")))) + '(font-lock-type-face ((t (:foreground "darkmagenta")))) + '(font-lock-variable-name-face ((t (:foreground "violetred")))) + '(font-lock-warning-face ((t (:bold t :foreground "red")))) + '(green ((t (:foreground "green")))) + '(gnus-mouse-face ((t (:background "darkolivegreen" :foreground "white")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:background "#489088" :foreground "black")))) + '(highlight ((t (:background "darkolivegreen" :foreground "white")))) + '(isearch ((t (:background "blue")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (nil)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray")))) + '(modeline ((t (:background "black" :foreground "white")))) + '(modeline-buffer-id ((t (:background "black" :foreground "white")))) + '(modeline-mousable ((t (:background "black" :foreground "white")))) + '(modeline-mousable-minor-mode ((t (:background "black" :foreground "white")))) + '(paren-blink-off ((t (:foreground "black")))) + '(paren-match ((t (:background "darkolivegreen" :foreground "white")))) + '(paren-mismatch ((t (:background "#9dcec9" :foreground "darkslategray")))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "blue")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "blue")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "darkslateblue" :foreground "white")))) + '(smiley-mouse-face ((t (:background "darkolivegreen" :foreground "white")))) + '(template-message-face ((t (:bold t)))) + '(text-cursor ((t (:background "yellow" :foreground "#9dcec9")))) + '(toolbar ((t (nil)))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (nil)))) + '(widget ((t (nil)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "forestgreen")))) + '(widget-field-face ((t (:background "gray")))) + '(widget-inactive-face ((t (:foreground "dimgray")))) + '(widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "blue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'marine) + +;;; marine-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/marquardt-theme.el b/elpa/color-theme-modern-0.0.3/marquardt-theme.el new file mode 100644 index 0000000..e3ff60c --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/marquardt-theme.el @@ -0,0 +1,149 @@ +;;; marquardt-theme.el --- marquardt theme + +;; Copyright (C) 2000 by Colin Marquardt +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of marquardt theme from `color-themes' + +;;; Code: + +(deftheme marquardt + "marquardt theme") + +(custom-theme-set-faces + 'marquardt + + '(default ((t (:background "bisque" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "Red3")))) + '(border ((t (:foreground "black")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:bold t)))) + '(border-glyph ((t (nil)))) + '(calendar-today-face ((t (:underline t)))) + '(diary-face ((t (:foreground "red")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(font-lock-comment-face ((t (:foreground "gray50")))) + '(font-lock-doc-string-face ((t (:foreground "green4")))) + '(font-lock-function-name-face ((t (:foreground "darkorange")))) + '(font-lock-keyword-face ((t (:foreground "blue3")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-special-comment-face ((t (:foreground "blue4")))) + '(font-lock-special-keyword-face ((t (:foreground "red4")))) + '(font-lock-string-face ((t (:foreground "green4")))) + '(font-lock-type-face ((t (:foreground "steelblue")))) + '(font-lock-variable-name-face ((t (:foreground "black")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:background "azure1" :foreground "Black")))) + '(highlight ((t (:background "darkseagreen2" :foreground "blue")))) + '(holiday-face ((t (:background "pink" :foreground "black")))) + '(info-node ((t (:bold t)))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (:background "yellow" :foreground "red")))) + '(italic ((t (:bold t)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68" :foreground "black")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "bisque2" :foreground "steelblue4")))) + '(modeline-buffer-id ((t (:background "bisque2" :foreground "blue4")))) + '(modeline-mousable ((t (:background "bisque2" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "bisque2" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "azure1")))) + '(paren-face ((t (:background "lightgoldenrod")))) + '(paren-match ((t (:background "bisque2")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "black")))) + '(paren-mismatch-face ((t (:background "DeepPink")))) + '(paren-no-match-face ((t (:background "yellow")))) + '(pointer ((t (:background "white" :foreground "blue")))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(shell-option-face ((t (:foreground "gray50")))) + '(shell-output-2-face ((t (:foreground "green4")))) + '(shell-output-3-face ((t (:foreground "green4")))) + '(shell-output-face ((t (:bold t)))) + '(shell-prompt-face ((t (:foreground "blue3")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(text-cursor ((t (:background "Red3" :foreground "bisque")))) + '(toolbar ((t (:background "Gray80")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (nil)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "SaddleBrown")))) + '(vhdl-font-lock-function-face ((t (:foreground "DarkCyan")))) + '(vhdl-font-lock-generic-/constant-face ((t (:foreground "Gold3")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-font-lock-type-face ((t (:foreground "ForestGreen")))) + '(vhdl-font-lock-variable-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50")))) + '(vhdl-speedbar-subprogram-face ((t (:foreground "Orchid4")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "steelblue" :foreground "yellow"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'marquardt) + +;;; marquardt-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/matrix-theme.el b/elpa/color-theme-modern-0.0.3/matrix-theme.el new file mode 100644 index 0000000..3e19534 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/matrix-theme.el @@ -0,0 +1,683 @@ +;;; matrix-theme.el --- matrix theme + +;; Copyright (C) 2003 by walterh@rocketmail.com +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of matrix theme from `color-themes' + +;;; Code: + +(deftheme matrix + "matrix theme") + +(custom-theme-set-faces + 'matrix + + '(default ((t (:background "black" :foreground "#7eff00")))) + '(mouse ((t (:background "#7eff00")))) + '(cursor ((t (:background "#7eff00" :foreground "black")))) + '(border ((t (:background "orange")))) + + '(Buffer-menu-buffer-face ((t (nil)))) + '(CUA-global-mark-face ((t (nil)))) + '(CUA-rectangle-face ((t (nil)))) + '(CUA-rectangle-noselect-face ((t (nil)))) + '(Info-title-1-face ((t (nil)))) + '(Info-title-2-face ((t (nil)))) + '(Info-title-3-face ((t (nil)))) + '(Info-title-4-face ((t (nil)))) + '(antlr-font-lock-keyword-face ((t (nil)))) + '(antlr-font-lock-literal-face ((t (nil)))) + '(antlr-font-lock-ruledef-face ((t (nil)))) + '(antlr-font-lock-ruleref-face ((t (nil)))) + '(antlr-font-lock-tokendef-face ((t (nil)))) + '(antlr-font-lock-tokenref-face ((t (nil)))) + '(bbdb-company ((t (nil)))) + '(bbdb-field-name ((t (nil)))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (nil)))) + '(bg:erc-color-face0 ((t (nil)))) + '(bg:erc-color-face1 ((t (nil)))) + '(bg:erc-color-face10 ((t (nil)))) + '(bg:erc-color-face11 ((t (nil)))) + '(bg:erc-color-face12 ((t (nil)))) + '(bg:erc-color-face13 ((t (nil)))) + '(bg:erc-color-face14 ((t (nil)))) + '(bg:erc-color-face15 ((t (nil)))) + '(bg:erc-color-face2 ((t (nil)))) + '(bg:erc-color-face3 ((t (nil)))) + '(bg:erc-color-face4 ((t (nil)))) + '(bg:erc-color-face5 ((t (nil)))) + '(bg:erc-color-face6 ((t (nil)))) + '(bg:erc-color-face7 ((t (nil)))) + '(bg:erc-color-face8 ((t (nil)))) + '(bg:erc-color-face9 ((t (nil)))) + '(blank-space-face ((t (nil)))) + '(blank-tab-face ((t (nil)))) + '(blue ((t (nil)))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:bold t :weight bold)))) + '(border-glyph ((t (nil)))) + '(buffers-tab ((t (nil)))) + '(button ((t (nil)))) + '(calendar-today-face ((t (nil)))) + '(change-log-acknowledgement-face ((t (nil)))) + '(change-log-conditionals-face ((t (nil)))) + '(change-log-date-face ((t (nil)))) + '(change-log-email-face ((t (nil)))) + '(change-log-file-face ((t (nil)))) + '(change-log-function-face ((t (nil)))) + '(change-log-list-face ((t (nil)))) + '(change-log-name-face ((t (nil)))) + '(clearcase-dired-checkedout-face ((t (nil)))) + '(comint-highlight-input ((t (nil)))) + '(comint-highlight-prompt ((t (nil)))) + '(cparen-around-andor-face ((t (nil)))) + '(cparen-around-begin-face ((t (nil)))) + '(cparen-around-conditional-face ((t (nil)))) + '(cparen-around-define-face ((t (nil)))) + '(cparen-around-lambda-face ((t (nil)))) + '(cparen-around-letdo-face ((t (nil)))) + '(cparen-around-quote-face ((t (nil)))) + '(cparen-around-set!-face ((t (nil)))) + '(cparen-around-syntax-rules-face ((t (nil)))) + '(cparen-around-vector-face ((t (nil)))) + '(cparen-binding-face ((t (nil)))) + '(cparen-binding-list-face ((t (nil)))) + '(cparen-conditional-clause-face ((t (nil)))) + '(cparen-normal-paren-face ((t (nil)))) + '(cperl-array-face ((t (nil)))) + '(cperl-hash-face ((t (nil)))) + '(cperl-invalid-face ((t (nil)))) + '(cperl-nonoverridable-face ((t (nil)))) + '(custom-button-face ((t (nil)))) + '(custom-button-pressed-face ((t (nil)))) + '(custom-changed-face ((t (nil)))) + '(custom-comment-face ((t (nil)))) + '(custom-comment-tag-face ((t (nil)))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (nil)))) + '(custom-group-tag-face ((t (nil)))) + '(custom-group-tag-face-1 ((t (nil)))) + '(custom-invalid-face ((t (nil)))) + '(custom-modified-face ((t (nil)))) + '(custom-rogue-face ((t (nil)))) + '(custom-saved-face ((t (nil)))) + '(custom-set-face ((t (nil)))) + '(custom-state-face ((t (nil)))) + '(custom-variable-button-face ((t (nil)))) + '(custom-variable-tag-face ((t (nil)))) + '(cvs-filename-face ((t (nil)))) + '(cvs-handled-face ((t (nil)))) + '(cvs-header-face ((t (nil)))) + '(cvs-marked-face ((t (nil)))) + '(cvs-msg-face ((t (nil)))) + '(cvs-need-action-face ((t (nil)))) + '(cvs-unknown-face ((t (nil)))) + '(cyan ((t (nil)))) + '(diary-face ((t (nil)))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (nil)))) + '(diff-file-header-face ((t (nil)))) + '(diff-function-face ((t (nil)))) + '(diff-header-face ((t (nil)))) + '(diff-hunk-header-face ((t (nil)))) + '(diff-index-face ((t (nil)))) + '(diff-nonexistent-face ((t (nil)))) + '(diff-removed-face ((t (nil)))) + '(dired-face-boring ((t (nil)))) + '(dired-face-directory ((t (nil)))) + '(dired-face-executable ((t (nil)))) + '(dired-face-flagged ((t (nil)))) + '(dired-face-header ((t (nil)))) + '(dired-face-marked ((t (nil)))) + '(dired-face-permissions ((t (nil)))) + '(dired-face-setuid ((t (nil)))) + '(dired-face-socket ((t (nil)))) + '(dired-face-symlink ((t (nil)))) + '(display-time-mail-balloon-enhance-face ((t (nil)))) + '(display-time-mail-balloon-gnus-group-face ((t (nil)))) + '(display-time-time-balloon-face ((t (nil)))) + '(ebrowse-default-face ((t (nil)))) + '(ebrowse-file-name-face ((t (nil)))) + '(ebrowse-member-attribute-face ((t (nil)))) + '(ebrowse-member-class-face ((t (nil)))) + '(ebrowse-progress-face ((t (nil)))) + '(ebrowse-root-class-face ((t (nil)))) + '(ebrowse-tree-mark-face ((t (nil)))) + '(ecb-sources-face ((t (nil)))) + '(edb-inter-field-face ((t (nil)))) + '(edb-normal-summary-face ((t (nil)))) + '(ediff-current-diff-face-A ((t (nil)))) + '(ediff-current-diff-face-Ancestor ((t (nil)))) + '(ediff-current-diff-face-B ((t (nil)))) + '(ediff-current-diff-face-C ((t (nil)))) + '(ediff-even-diff-face-A ((t (nil)))) + '(ediff-even-diff-face-Ancestor ((t (nil)))) + '(ediff-even-diff-face-B ((t (nil)))) + '(ediff-even-diff-face-C ((t (nil)))) + '(ediff-fine-diff-face-A ((t (nil)))) + '(ediff-fine-diff-face-Ancestor ((t (nil)))) + '(ediff-fine-diff-face-B ((t (nil)))) + '(ediff-fine-diff-face-C ((t (nil)))) + '(ediff-odd-diff-face-A ((t (nil)))) + '(ediff-odd-diff-face-Ancestor ((t (nil)))) + '(ediff-odd-diff-face-B ((t (nil)))) + '(ediff-odd-diff-face-C ((t (nil)))) + '(eieio-custom-slot-tag-face ((t (nil)))) + '(emacs-wiki-bad-link-face ((t (nil)))) + '(emacs-wiki-link-face ((t (nil)))) + '(erc-action-face ((t (nil)))) + '(erc-bold-face ((t (nil)))) + '(erc-current-nick-face ((t (nil)))) + '(erc-dangerous-host-face ((t (nil)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (nil)))) + '(erc-error-face ((t (nil)))) + '(erc-fool-face ((t (nil)))) + '(erc-highlight-face ((t (nil)))) + '(erc-input-face ((t (nil)))) + '(erc-inverse-face ((t (nil)))) + '(erc-keyword-face ((t (nil)))) + '(erc-nick-default-face ((t (nil)))) + '(erc-nick-msg-face ((t (nil)))) + '(erc-notice-face ((t (nil)))) + '(erc-pal-face ((t (nil)))) + '(erc-prompt-face ((t (nil)))) + '(erc-timestamp-face ((t (nil)))) + '(erc-underline-face ((t (nil)))) + '(eshell-ls-archive-face ((t (nil)))) + '(eshell-ls-backup-face ((t (nil)))) + '(eshell-ls-clutter-face ((t (nil)))) + '(eshell-ls-directory-face ((t (nil)))) + '(eshell-ls-executable-face ((t (nil)))) + '(eshell-ls-missing-face ((t (nil)))) + '(eshell-ls-picture-face ((t (nil)))) + '(eshell-ls-product-face ((t (nil)))) + '(eshell-ls-readonly-face ((t (nil)))) + '(eshell-ls-special-face ((t (nil)))) + '(eshell-ls-symlink-face ((t (nil)))) + '(eshell-ls-text-face ((t (nil)))) + '(eshell-ls-todo-face ((t (nil)))) + '(eshell-ls-unreadable-face ((t (nil)))) + '(eshell-prompt-face ((t (nil)))) + '(eshell-test-failed-face ((t (nil)))) + '(eshell-test-ok-face ((t (nil)))) + '(excerpt ((t (nil)))) + '(extra-whitespace-face ((t (nil)))) + '(ff-paths-non-existant-file-face ((t (nil)))) + '(fg:black ((t (nil)))) + '(fg:erc-color-face0 ((t (nil)))) + '(fg:erc-color-face1 ((t (nil)))) + '(fg:erc-color-face10 ((t (nil)))) + '(fg:erc-color-face11 ((t (nil)))) + '(fg:erc-color-face12 ((t (nil)))) + '(fg:erc-color-face13 ((t (nil)))) + '(fg:erc-color-face14 ((t (nil)))) + '(fg:erc-color-face15 ((t (nil)))) + '(fg:erc-color-face2 ((t (nil)))) + '(fg:erc-color-face3 ((t (nil)))) + '(fg:erc-color-face4 ((t (nil)))) + '(fg:erc-color-face5 ((t (nil)))) + '(fg:erc-color-face6 ((t (nil)))) + '(fg:erc-color-face7 ((t (nil)))) + '(fg:erc-color-face8 ((t (nil)))) + '(fg:erc-color-face9 ((t (nil)))) + '(fixed ((t (nil)))) + '(fixed-pitch ((t (nil)))) + '(fl-comment-face ((t (nil)))) + '(fl-function-name-face ((t (nil)))) + '(fl-keyword-face ((t (nil)))) + '(fl-string-face ((t (nil)))) + '(fl-type-face ((t (nil)))) + '(flash-paren-face-off ((t (nil)))) + '(flash-paren-face-on ((t (nil)))) + '(flash-paren-face-region ((t (nil)))) + '(flyspell-duplicate-face ((t (nil)))) + '(flyspell-incorrect-face ((t (nil)))) + '(font-latex-bold-face ((t (nil)))) + '(font-latex-italic-face ((t (nil)))) + '(font-latex-math-face ((t (nil)))) + '(font-latex-sedate-face ((t (nil)))) + '(font-latex-string-face ((t (nil)))) + '(font-latex-warning-face ((t (nil)))) + '(font-lock-builtin-face ((t (:foreground "pink2")))) + '(font-lock-comment-face ((t (:italic t :background "black" :slant italic)))) + '(font-lock-constant-face ((t (:foreground "magenta")))) + '(font-lock-doc-face ((t (nil)))) + '(font-lock-doc-string-face ((t (nil)))) + '(font-lock-exit-face ((t (nil)))) + '(font-lock-function-name-face ((t (:bold t :underline t :weight bold)))) + '(font-lock-keyword-face ((t (:foreground "yellow1")))) + '(font-lock-other-emphasized-face ((t (nil)))) + '(font-lock-other-type-face ((t (nil)))) + '(font-lock-preprocessor-face ((t (nil)))) + '(font-lock-reference-face ((t (nil)))) + '(font-lock-special-comment-face ((t (nil)))) + '(font-lock-special-keyword-face ((t (nil)))) + '(font-lock-string-face ((t (:foreground "yellow2")))) + '(font-lock-type-face ((t (:foreground "LightYellow1")))) + '(font-lock-variable-name-face ((t (:foreground "light green")))) + '(font-lock-warning-face ((t (nil)))) + '(fringe ((t (nil)))) + '(gnus-cite-attribution-face ((t (nil)))) + '(gnus-cite-face-1 ((t (nil)))) + '(gnus-cite-face-10 ((t (nil)))) + '(gnus-cite-face-11 ((t (nil)))) + '(gnus-cite-face-2 ((t (nil)))) + '(gnus-cite-face-3 ((t (nil)))) + '(gnus-cite-face-4 ((t (nil)))) + '(gnus-cite-face-5 ((t (nil)))) + '(gnus-cite-face-6 ((t (nil)))) + '(gnus-cite-face-7 ((t (nil)))) + '(gnus-cite-face-8 ((t (nil)))) + '(gnus-cite-face-9 ((t (nil)))) + '(gnus-emphasis-bold ((t (nil)))) + '(gnus-emphasis-bold-italic ((t (nil)))) + '(gnus-emphasis-highlight-words ((t (nil)))) + '(gnus-emphasis-italic ((t (nil)))) + '(gnus-emphasis-strikethru ((t (nil)))) + '(gnus-emphasis-underline ((t (nil)))) + '(gnus-emphasis-underline-bold ((t (nil)))) + '(gnus-emphasis-underline-bold-italic ((t (nil)))) + '(gnus-emphasis-underline-italic ((t (nil)))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-group-mail-1-empty-face ((t (nil)))) + '(gnus-group-mail-1-face ((t (nil)))) + '(gnus-group-mail-2-empty-face ((t (nil)))) + '(gnus-group-mail-2-face ((t (nil)))) + '(gnus-group-mail-3-empty-face ((t (nil)))) + '(gnus-group-mail-3-face ((t (nil)))) + '(gnus-group-mail-low-empty-face ((t (nil)))) + '(gnus-group-mail-low-face ((t (nil)))) + '(gnus-group-news-1-empty-face ((t (nil)))) + '(gnus-group-news-1-face ((t (nil)))) + '(gnus-group-news-2-empty-face ((t (nil)))) + '(gnus-group-news-2-face ((t (nil)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (nil)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (nil)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (nil)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (nil)))) + '(gnus-group-news-low-empty-face ((t (nil)))) + '(gnus-group-news-low-face ((t (nil)))) + '(gnus-header-content-face ((t (nil)))) + '(gnus-header-from-face ((t (nil)))) + '(gnus-header-name-face ((t (nil)))) + '(gnus-header-newsgroups-face ((t (nil)))) + '(gnus-header-subject-face ((t (nil)))) + '(gnus-picon-face ((t (nil)))) + '(gnus-picon-xbm-face ((t (nil)))) + '(gnus-picons-face ((t (nil)))) + '(gnus-picons-xbm-face ((t (nil)))) + '(gnus-server-agent-face ((t (nil)))) + '(gnus-server-closed-face ((t (nil)))) + '(gnus-server-denied-face ((t (nil)))) + '(gnus-server-offline-face ((t (nil)))) + '(gnus-server-opened-face ((t (nil)))) + '(gnus-signature-face ((t (nil)))) + '(gnus-splash ((t (nil)))) + '(gnus-splash-face ((t (nil)))) + '(gnus-summary-cancelled-face ((t (nil)))) + '(gnus-summary-high-ancient-face ((t (nil)))) + '(gnus-summary-high-read-face ((t (nil)))) + '(gnus-summary-high-ticked-face ((t (nil)))) + '(gnus-summary-high-undownloaded-face ((t (nil)))) + '(gnus-summary-high-unread-face ((t (nil)))) + '(gnus-summary-low-ancient-face ((t (nil)))) + '(gnus-summary-low-read-face ((t (nil)))) + '(gnus-summary-low-ticked-face ((t (nil)))) + '(gnus-summary-low-undownloaded-face ((t (nil)))) + '(gnus-summary-low-unread-face ((t (nil)))) + '(gnus-summary-normal-ancient-face ((t (nil)))) + '(gnus-summary-normal-read-face ((t (nil)))) + '(gnus-summary-normal-ticked-face ((t (nil)))) + '(gnus-summary-normal-undownloaded-face ((t (nil)))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (nil)))) + '(gnus-x-face ((t (nil)))) + '(green ((t (nil)))) + '(gui-button-face ((t (nil)))) + '(gui-element ((t (nil)))) + '(header-line ((t (nil)))) + '(hi-black-b ((t (nil)))) + '(hi-black-hb ((t (nil)))) + '(hi-blue ((t (nil)))) + '(hi-blue-b ((t (nil)))) + '(hi-green ((t (nil)))) + '(hi-green-b ((t (nil)))) + '(hi-pink ((t (nil)))) + '(hi-red-b ((t (nil)))) + '(hi-yellow ((t (nil)))) + '(highlight ((t (:background "#7eff00" :foreground "black")))) + '(highlight-changes-delete-face ((t (nil)))) + '(highlight-changes-face ((t (nil)))) + '(highline-face ((t (nil)))) + '(holiday-face ((t (nil)))) + '(html-helper-bold-face ((t (nil)))) + '(html-helper-bold-italic-face ((t (nil)))) + '(html-helper-builtin-face ((t (nil)))) + '(html-helper-italic-face ((t (nil)))) + '(html-helper-underline-face ((t (nil)))) + '(html-tag-face ((t (nil)))) + '(hyper-apropos-documentation ((t (nil)))) + '(hyper-apropos-heading ((t (nil)))) + '(hyper-apropos-hyperlink ((t (nil)))) + '(hyper-apropos-major-heading ((t (nil)))) + '(hyper-apropos-section-heading ((t (nil)))) + '(hyper-apropos-warning ((t (nil)))) + '(ibuffer-deletion-face ((t (nil)))) + '(ibuffer-marked-face ((t (nil)))) + '(idlwave-help-link-face ((t (nil)))) + '(idlwave-shell-bp-face ((t (nil)))) + '(ido-first-match-face ((t (nil)))) + '(ido-indicator-face ((t (nil)))) + '(ido-only-match-face ((t (nil)))) + '(ido-subdir-face ((t (nil)))) + '(info-header-node ((t (nil)))) + '(info-header-xref ((t (nil)))) + '(info-menu-5 ((t (nil)))) + '(info-menu-6 ((t (nil)))) + '(info-menu-header ((t (nil)))) + '(info-node ((t (nil)))) + '(info-xref ((t (nil)))) + '(isearch ((t (nil)))) + '(isearch-lazy-highlight-face ((t (nil)))) + '(isearch-secondary ((t (nil)))) + '(italic ((t (:underline t)))) + '(jde-bug-breakpoint-cursor ((t (nil)))) + '(jde-bug-breakpoint-marker ((t (nil)))) + '(jde-db-active-breakpoint-face ((t (nil)))) + '(jde-db-requested-breakpoint-face ((t (nil)))) + '(jde-db-spec-breakpoint-face ((t (nil)))) + '(jde-java-font-lock-api-face ((t (nil)))) + '(jde-java-font-lock-bold-face ((t (nil)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (nil)))) + '(jde-java-font-lock-doc-tag-face ((t (nil)))) + '(jde-java-font-lock-italic-face ((t (nil)))) + '(jde-java-font-lock-link-face ((t (nil)))) + '(jde-java-font-lock-modifier-face ((t (nil)))) + '(jde-java-font-lock-number-face ((t (nil)))) + '(jde-java-font-lock-operator-face ((t (nil)))) + '(jde-java-font-lock-package-face ((t (nil)))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (nil)))) + '(lazy-highlight-face ((t (nil)))) + '(left-margin ((t (nil)))) + '(linemenu-face ((t (nil)))) + '(list-mode-item-selected ((t (nil)))) + '(log-view-file-face ((t (nil)))) + '(log-view-message-face ((t (nil)))) + '(magenta ((t (nil)))) + '(makefile-space-face ((t (nil)))) + '(man-bold ((t (nil)))) + '(man-heading ((t (nil)))) + '(man-italic ((t (nil)))) + '(man-xref ((t (nil)))) + '(menu ((t (nil)))) + '(message-cited-text ((t (nil)))) + '(message-cited-text-face ((t (nil)))) + '(message-header-cc-face ((t (nil)))) + '(message-header-contents ((t (nil)))) + '(message-header-name-face ((t (nil)))) + '(message-header-newsgroups-face ((t (nil)))) + '(message-header-other-face ((t (nil)))) + '(message-header-subject-face ((t (nil)))) + '(message-header-to-face ((t (nil)))) + '(message-header-xheader-face ((t (nil)))) + '(message-headers ((t (nil)))) + '(message-highlighted-header-contents ((t (nil)))) + '(message-mml-face ((t (nil)))) + '(message-separator-face ((t (nil)))) + '(message-url ((t (nil)))) + '(minibuffer-prompt ((t (nil)))) + '(mmm-face ((t (nil)))) + '(mode-line ((t (:bold t :background "gray" :foreground "black" :weight bold)))) + '(mode-line-inactive ((t (nil)))) + '(modeline-buffer-id ((t (:background "orange" :foreground "black")))) + '(modeline-mousable ((t (:background "orange" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "orange" :foreground "black")))) + '(mpg123-face-cur ((t (nil)))) + '(mpg123-face-slider ((t (nil)))) + '(my-tab-face ((t (nil)))) + '(nil ((t (nil)))) + '(overlay-empty-face ((t (nil)))) + '(p4-diff-del-face ((t (nil)))) + '(paren-blink-off ((t (nil)))) + '(paren-face ((t (nil)))) + '(paren-face-match ((t (nil)))) + '(paren-face-mismatch ((t (nil)))) + '(paren-face-no-match ((t (nil)))) + '(paren-match ((t (nil)))) + '(paren-mismatch ((t (nil)))) + '(paren-mismatch-face ((t (nil)))) + '(paren-no-match-face ((t (nil)))) + '(pointer ((t (nil)))) + '(primary-selection ((t (nil)))) + '(reb-match-0 ((t (nil)))) + '(reb-match-1 ((t (nil)))) + '(reb-match-2 ((t (nil)))) + '(reb-match-3 ((t (nil)))) + '(red ((t (nil)))) + '(region ((t (:background "#7eff00" :foreground "black")))) + '(right-margin ((t (nil)))) + '(rpm-spec-dir-face ((t (nil)))) + '(rpm-spec-doc-face ((t (nil)))) + '(rpm-spec-ghost-face ((t (nil)))) + '(rpm-spec-macro-face ((t (nil)))) + '(rpm-spec-package-face ((t (nil)))) + '(rpm-spec-tag-face ((t (nil)))) + '(rpm-spec-var-face ((t (nil)))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "orange" :foreground "black")))) + '(semantic-dirty-token-face ((t (nil)))) + '(semantic-intangible-face ((t (nil)))) + '(semantic-read-only-face ((t (nil)))) + '(semantic-unmatched-syntax-face ((t (nil)))) + '(senator-intangible-face ((t (nil)))) + '(senator-momentary-highlight-face ((t (nil)))) + '(senator-read-only-face ((t (nil)))) + '(sgml-comment-face ((t (nil)))) + '(sgml-doctype-face ((t (nil)))) + '(sgml-end-tag-face ((t (nil)))) + '(sgml-entity-face ((t (nil)))) + '(sgml-ignored-face ((t (nil)))) + '(sgml-ms-end-face ((t (nil)))) + '(sgml-ms-start-face ((t (nil)))) + '(sgml-pi-face ((t (nil)))) + '(sgml-sgml-face ((t (nil)))) + '(sgml-short-ref-face ((t (nil)))) + '(sgml-shortref-face ((t (nil)))) + '(sgml-start-tag-face ((t (nil)))) + '(sh-heredoc-face ((t (nil)))) + '(shell-option-face ((t (nil)))) + '(shell-output-2-face ((t (nil)))) + '(shell-output-3-face ((t (nil)))) + '(shell-output-face ((t (nil)))) + '(shell-prompt-face ((t (nil)))) + '(show-block-face1 ((t (nil)))) + '(show-block-face2 ((t (nil)))) + '(show-block-face3 ((t (nil)))) + '(show-block-face4 ((t (nil)))) + '(show-block-face5 ((t (nil)))) + '(show-block-face6 ((t (nil)))) + '(show-block-face7 ((t (nil)))) + '(show-block-face8 ((t (nil)))) + '(show-block-face9 ((t (nil)))) + '(show-paren-match-face ((t (:background "orange" :foreground "black")))) + '(show-paren-mismatch-face ((t (:underline t)))) + '(show-tabs-space-face ((t (nil)))) + '(show-tabs-tab-face ((t (nil)))) + '(smerge-base-face ((t (nil)))) + '(smerge-markers-face ((t (nil)))) + '(smerge-mine-face ((t (nil)))) + '(smerge-other-face ((t (nil)))) + '(speedbar-button-face ((t (nil)))) + '(speedbar-directory-face ((t (nil)))) + '(speedbar-file-face ((t (nil)))) + '(speedbar-highlight-face ((t (nil)))) + '(speedbar-selected-face ((t (nil)))) + '(speedbar-separator-face ((t (nil)))) + '(speedbar-tag-face ((t (nil)))) + '(strokes-char-face ((t (nil)))) + '(swbuff-current-buffer-face ((t (nil)))) + '(tabbar-button-face ((t (nil)))) + '(tabbar-default-face ((t (nil)))) + '(tabbar-selected-face ((t (nil)))) + '(tabbar-separator-face ((t (nil)))) + '(tabbar-unselected-face ((t (nil)))) + '(template-message-face ((t (nil)))) + '(term-black ((t (nil)))) + '(term-blackbg ((t (nil)))) + '(term-blue ((t (nil)))) + '(term-blue-bold-face ((t (nil)))) + '(term-blue-face ((t (nil)))) + '(term-blue-inv-face ((t (nil)))) + '(term-blue-ul-face ((t (nil)))) + '(term-bluebg ((t (nil)))) + '(term-bold ((t (nil)))) + '(term-cyan ((t (nil)))) + '(term-cyan-bold-face ((t (nil)))) + '(term-cyan-face ((t (nil)))) + '(term-cyan-inv-face ((t (nil)))) + '(term-cyan-ul-face ((t (nil)))) + '(term-cyanbg ((t (nil)))) + '(term-default ((t (nil)))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-bold-face ((t (nil)))) + '(term-default-face ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-default-inv-face ((t (nil)))) + '(term-default-ul-face ((t (nil)))) + '(term-green ((t (nil)))) + '(term-green-bold-face ((t (nil)))) + '(term-green-face ((t (nil)))) + '(term-green-inv-face ((t (nil)))) + '(term-green-ul-face ((t (nil)))) + '(term-greenbg ((t (nil)))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (nil)))) + '(term-magenta-bold-face ((t (nil)))) + '(term-magenta-face ((t (nil)))) + '(term-magenta-inv-face ((t (nil)))) + '(term-magenta-ul-face ((t (nil)))) + '(term-magentabg ((t (nil)))) + '(term-red ((t (nil)))) + '(term-red-bold-face ((t (nil)))) + '(term-red-face ((t (nil)))) + '(term-red-inv-face ((t (nil)))) + '(term-red-ul-face ((t (nil)))) + '(term-redbg ((t (nil)))) + '(term-underline ((t (nil)))) + '(term-white ((t (nil)))) + '(term-white-bold-face ((t (nil)))) + '(term-white-face ((t (nil)))) + '(term-white-inv-face ((t (nil)))) + '(term-white-ul-face ((t (nil)))) + '(term-whitebg ((t (nil)))) + '(term-yellow ((t (nil)))) + '(term-yellow-bold-face ((t (nil)))) + '(term-yellow-face ((t (nil)))) + '(term-yellow-inv-face ((t (nil)))) + '(term-yellow-ul-face ((t (nil)))) + '(term-yellowbg ((t (nil)))) + '(tex-math-face ((t (nil)))) + '(texinfo-heading-face ((t (nil)))) + '(text-cursor ((t (nil)))) + '(tool-bar ((t (nil)))) + '(tooltip ((t (nil)))) + '(trailing-whitespace ((t (nil)))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (nil)))) + '(vc-annotate-face-0046FF ((t (nil)))) + '(vcursor ((t (nil)))) + '(vertical-divider ((t (nil)))) + '(vhdl-font-lock-attribute-face ((t (nil)))) + '(vhdl-font-lock-directive-face ((t (nil)))) + '(vhdl-font-lock-enumvalue-face ((t (nil)))) + '(vhdl-font-lock-function-face ((t (nil)))) + '(vhdl-font-lock-generic-/constant-face ((t (nil)))) + '(vhdl-font-lock-prompt-face ((t (nil)))) + '(vhdl-font-lock-reserved-words-face ((t (nil)))) + '(vhdl-font-lock-translate-off-face ((t (nil)))) + '(vhdl-font-lock-type-face ((t (nil)))) + '(vhdl-font-lock-variable-face ((t (nil)))) + '(vhdl-speedbar-architecture-face ((t (nil)))) + '(vhdl-speedbar-architecture-selected-face ((t (nil)))) + '(vhdl-speedbar-configuration-face ((t (nil)))) + '(vhdl-speedbar-configuration-selected-face ((t (nil)))) + '(vhdl-speedbar-entity-face ((t (nil)))) + '(vhdl-speedbar-entity-selected-face ((t (nil)))) + '(vhdl-speedbar-instantiation-face ((t (nil)))) + '(vhdl-speedbar-instantiation-selected-face ((t (nil)))) + '(vhdl-speedbar-package-face ((t (nil)))) + '(vhdl-speedbar-package-selected-face ((t (nil)))) + '(vhdl-speedbar-subprogram-face ((t (nil)))) + '(viper-minibuffer-emacs-face ((t (nil)))) + '(viper-minibuffer-insert-face ((t (nil)))) + '(viper-minibuffer-vi-face ((t (nil)))) + '(viper-replace-overlay-face ((t (nil)))) + '(viper-search-face ((t (nil)))) + '(vm-xface ((t (nil)))) + '(vmpc-pre-sig-face ((t (nil)))) + '(vmpc-sig-face ((t (nil)))) + '(w3m-anchor-face ((t (nil)))) + '(w3m-arrived-anchor-face ((t (nil)))) + '(w3m-header-line-location-content-face ((t (nil)))) + '(w3m-header-line-location-title-face ((t (nil)))) + '(white ((t (nil)))) + '(widget ((t (nil)))) + '(widget-button-face ((t (nil)))) + '(widget-button-pressed-face ((t (nil)))) + '(widget-documentation-face ((t (nil)))) + '(widget-field-face ((t (nil)))) + '(widget-inactive-face ((t (nil)))) + '(widget-single-line-field-face ((t (nil)))) + '(woman-addition-face ((t (nil)))) + '(woman-bold-face ((t (nil)))) + '(woman-italic-face ((t (nil)))) + '(woman-unknown-face ((t (nil)))) + '(x-face ((t (nil)))) + '(xrdb-option-name-face ((t (nil)))) + '(xref-keyword-face ((t (nil)))) + '(xref-list-default-face ((t (nil)))) + '(xref-list-pilot-face ((t (nil)))) + '(xref-list-symbol-face ((t (nil)))) + '(yellow ((t (nil)))) + '(zmacs-region ((t (nil))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'matrix) + +;;; matrix-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/midnight-theme.el b/elpa/color-theme-modern-0.0.3/midnight-theme.el new file mode 100644 index 0000000..879296b --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/midnight-theme.el @@ -0,0 +1,64 @@ +;;; midnight-theme.el --- midnight theme + +;; Copyright (C) 2000 by Gordon Messmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of midnight theme from `color-themes' + +;;; Code: + +(deftheme midnight + "midnight theme") + +(custom-theme-set-faces + 'midnight + + '(default ((t (:background "black" :foreground "grey85")))) + '(mouse ((t (:foreground "grey85")))) + '(cursor ((t (:background "grey85")))) + + '(font-lock-comment-face ((t (:italic t :foreground "grey60")))) + '(font-lock-string-face ((t (:foreground "Magenta")))) + '(font-lock-keyword-face ((t (:foreground "Cyan")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(font-lock-constant-face ((t (:foreground "OliveDrab")))) + '(font-lock-type-face ((t (:foreground "DarkCyan")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-function-name-face ((t (:foreground "SlateBlue")))) + '(font-lock-builtin-face ((t (:foreground "SkyBlue")))) + '(highline-face ((t (:background "grey12")))) + '(setnu-line-number-face ((t (:background "Grey15" :foreground "White" :bold t)))) + '(show-paren-match-face ((t (:background "grey30")))) + '(region ((t (:background "grey15")))) + '(highlight ((t (:background "blue")))) + '(secondary-selection ((t (:background "navy")))) + '(widget-field-face ((t (:background "navy")))) + '(widget-single-line-field-face ((t (:background "royalblue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'midnight) + +;;; midnight-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/mistyday-theme.el b/elpa/color-theme-modern-0.0.3/mistyday-theme.el new file mode 100644 index 0000000..687c4f5 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/mistyday-theme.el @@ -0,0 +1,101 @@ +;;; mistyday-theme.el --- mistyday theme + +;; Copyright (C) 2001 by K.C. Hari Kumar +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of mistyday theme from `color-themes' + +;;; Code: + +(deftheme mistyday + "mistyday theme") + +(custom-theme-set-faces + 'mistyday + + '(default ((t (:background "mistyrose" :foreground "Black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "deep pink")))) + '(border ((t (:foreground "black")))) + + '(goto-address-mail-face ((t (:italic t)))) + '(goto-address-mail-mouse-face ((t (:background "forest green" :foreground "white smoke")))) + '(goto-address-url-face ((t (:bold t)))) + '(goto-address-url-mouse-face ((t (:background "dark slate grey" :foreground "light cyan")))) + '(list-matching-lines-face ((t (:bold t)))) + + '(default ((t (nil)))) + '(CUA-global-mark-face ((t (:background "cyan" :foreground "black")))) + '(CUA-rectangle-face ((t (:background "maroon" :foreground "white")))) + '(CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(calendar-today-face ((t (:underline t :background "Spring Green" :foreground "Brown")))) + '(custom-button-face ((t (:background "dark slate grey" :foreground "azure")))) + '(custom-documentation-face ((t (:background "white" :foreground "blue")))) + '(diary-face ((t (:background "navy" :foreground "yellow")))) + '(font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen")))) + '(font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen")))) + '(font-latex-math-face ((t (:foreground "navy")))) + '(font-latex-sedate-face ((t (:foreground "DimGray")))) + '(font-latex-string-face ((t (nil)))) + '(font-latex-warning-face ((t (nil)))) + '(font-lock-builtin-face ((t (:background "DarkTurquoise" :foreground "Navy")))) + '(font-lock-comment-face ((t (:italic t :foreground "royal blue")))) + '(font-lock-constant-face ((t (:background "pale green" :foreground "dark slate blue")))) + '(font-lock-doc-string-face ((t (:background "medium aquamarine" :foreground "deep pink")))) + '(font-lock-function-name-face ((t (:background "SpringGreen" :foreground "MidnightBlue")))) + '(font-lock-keyword-face ((t (:foreground "dark magenta")))) + '(font-lock-preprocessor-face ((t (:background "pale green" :foreground "dark slate blue")))) + '(font-lock-reference-face ((t (:background "DarkTurquoise" :foreground "Navy")))) + '(font-lock-string-face ((t (:background "medium aquamarine" :foreground "deep pink")))) + '(font-lock-type-face ((t (:background "steel blue" :foreground "khaki")))) + '(font-lock-variable-name-face ((t (:background "thistle" :foreground "orange red")))) + '(font-lock-warning-face ((t (:background "LemonChiffon" :foreground "Red")))) + '(highlight ((t (:background "dark slate grey" :foreground "light cyan")))) + '(holiday-face ((t (:background "orangered" :foreground "lightyellow")))) + '(ido-first-match-face ((t (:bold t)))) + '(ido-only-match-face ((t (:foreground "ForestGreen")))) + '(ido-subdir-face ((t (:foreground "red")))) + '(italic ((t (:italic t)))) + '(isearch ((t (:background "sienna" :foreground "light cyan")))) + '(modeline ((t (:background "Royalblue4" :foreground "lawn green")))) + '(modeline-buffer-id ((t (:background "Royalblue4" :foreground "lawn green")))) + '(modeline-mousable ((t (:background "Royalblue4" :foreground "lawn green")))) + '(modeline-mousable-minor-mode ((t (:background "Royalblue4" :foreground "lawn green")))) + '(paren-face-match ((t (:background "turquoise")))) + '(paren-face-mismatch ((t (:background "purple" :foreground "white")))) + '(paren-face-no-match ((t (:background "yellow" :foreground "black")))) + '(primary-selection ((t (:background "sienna" :foreground "light cyan")))) + '(region ((t (:background "sienna" :foreground "light cyan")))) + '(secondary-selection ((t (:background "forest green" :foreground "white smoke")))) + '(underline ((t (:underline t)))) + '(zmacs-region ((t (:background "sienna" :foreground "light cyan"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'mistyday) + +;;; mistyday-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/montz-theme.el b/elpa/color-theme-modern-0.0.3/montz-theme.el new file mode 100644 index 0000000..5a011ba --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/montz-theme.el @@ -0,0 +1,196 @@ +;;; montz-theme.el --- montz theme + +;; Copyright (C) 2000 by Brady Montz +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of montz theme from `color-themes' + +;;; Code: + +(deftheme montz + "montz theme") + +(custom-theme-set-faces + 'montz + + '(default ((t (:background "gray80" :foreground "black")))) + '(cursor ((t (:background "Red3")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "darkseagreen2")))) + '(smiley-mouse-face ((t (:background "darkseagreen2")))) + + '(bbdb-company ((t (:italic t)))) + '(bbdb-field-name ((t (:bold t)))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t)))) + '(dired-face-executable ((t (:foreground "SeaGreen")))) + '(dired-face-flagged ((t (:background "LightSlateGray")))) + '(dired-face-marked ((t (:background "PaleVioletRed")))) + '(dired-face-permissions ((t (:background "grey75" :foreground "black")))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "cyan")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(font-lock-builtin-face ((t (:foreground "red3")))) + '(font-lock-comment-face ((t (:foreground "blue")))) + '(font-lock-constant-face ((t (:foreground "red3")))) + '(font-lock-doc-string-face ((t (:foreground "mediumvioletred")))) + '(font-lock-function-name-face ((t (:foreground "firebrick")))) + '(font-lock-keyword-face ((t (:bold t :foreground "black")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:foreground "mediumvioletred")))) + '(font-lock-type-face ((t (:foreground "darkgreen")))) + '(font-lock-variable-name-face ((t (:foreground "black")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:italic t :foreground "indianred4")))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-picons-face ((t (:background "white" :foreground "black")))) + '(gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (nil)))) + '(highlight ((t (:background "darkseagreen2")))) + '(info-node ((t (:bold t)))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (:background "paleturquoise")))) + '(italic ((t (:italic t)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68" :foreground "black")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (nil)))) + '(modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) + '(modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) + '(paren-face-match ((t (:background "turquoise")))) + '(paren-face-mismatch ((t (:background "purple" :foreground "white")))) + '(paren-face-no-match ((t (:background "yellow" :foreground "black")))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(text-cursor ((t (:background "Red3" :foreground "gray80")))) + '(toolbar ((t (nil)))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (nil)))) + '(viper-minibuffer-emacs-face ((t (:background "gray80" :foreground "black")))) + '(viper-minibuffer-insert-face ((t (:background "gray80" :foreground "black")))) + '(viper-minibuffer-vi-face ((t (:background "gray80" :foreground "black")))) + '(viper-replace-overlay-face ((t (:background "black" :foreground "white")))) + '(viper-search-face ((t (:background "black" :foreground "white")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "black" :foreground "white"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'montz) + +;;; montz-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/oswald-theme.el b/elpa/color-theme-modern-0.0.3/oswald-theme.el new file mode 100644 index 0000000..5269185 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/oswald-theme.el @@ -0,0 +1,97 @@ +;;; oswald-theme.el --- oswald theme + +;; Copyright (C) 2001 by Tom Oswald +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of oswald theme from `color-themes' + +;;; Code: + +(deftheme oswald + "oswald theme") + +(custom-theme-set-faces + 'oswald + + '(default ((t (:background "black" :foreground "green")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "yellow" :foreground "red")))) + + '(blank-space-face ((t (:background "LightGray")))) + '(blank-tab-face ((t (:background "green" :foreground "black")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(font-lock-builtin-face ((t (:italic t :bold t :foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:italic t :foreground "LightGoldenrod4")))) + '(font-lock-constant-face ((t (:italic t :foreground "HotPink")))) + '(font-lock-doc-string-face ((t (:italic t :foreground "orange")))) + '(font-lock-function-name-face ((t (:italic t :bold t :foreground "red")))) + '(font-lock-keyword-face ((t (:foreground "red")))) + '(font-lock-preprocessor-face ((t (:italic t :foreground "HotPink")))) + '(font-lock-string-face ((t (:italic t :foreground "orange")))) + '(font-lock-reference-face ((t (:italic t :bold t :foreground "LightSteelBlue")))) + '(font-lock-type-face ((t (:italic t :foreground "LightSlateBlue")))) + '(font-lock-variable-name-face ((t (:underline t :foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(highlight ((t (:background "yellow" :foreground "red")))) + '(isearch ((t (:background "dim gray" :foreground "aquamarine")))) + '(ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow")))) + '(italic ((t (:italic t)))) + '(modeline ((t (:background "green" :foreground "black")))) + '(modeline-buffer-id ((t (:background "green" :foreground "black")))) + '(modeline-mousable ((t (:background "green" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "green" :foreground "black")))) + '(region ((t (:background "dim gray" :foreground "aquamarine")))) + '(secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod")))) + '(show-paren-match-face ((t (:background "turquoise" :foreground "black")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(underline ((t (:underline t)))) + '(zmacs-region ((t (:background "dim gray" :foreground "aquamarine"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'oswald) + +;;; oswald-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/parus-theme.el b/elpa/color-theme-modern-0.0.3/parus-theme.el new file mode 100644 index 0000000..99430ab --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/parus-theme.el @@ -0,0 +1,165 @@ +;;; parus-theme.el --- parus theme + +;; Copyright (C) 2000 by Jon K Hellank +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of parus theme from `color-themes' + +;;; Code: + +(deftheme parus + "parus theme") + +(custom-theme-set-faces + 'parus + + '(default ((t (:background "#00005a" :foreground "White")))) + '(mouse ((t (:foreground "yellow")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "darkolivegreen")))) + '(list-matching-lines-face ((t (:bold t)))) + '(paren-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "darkolivegreen")))) + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(font-latex-bold-face ((t (:bold t :foreground "OliveDrab")))) + '(font-latex-italic-face ((t (:italic t :foreground "OliveDrab")))) + '(font-latex-math-face ((t (:foreground "burlywood")))) + '(font-latex-sedate-face ((t (:foreground "LightGray")))) + '(font-latex-string-face ((t (:foreground "LightSalmon")))) + '(font-latex-warning-face ((t (:foreground "Pink")))) + '(font-lock-builtin-face ((t (:foreground "#e0e0ff")))) + '(font-lock-reference-face ((t (:foreground "#e0e0ff")))) + '(font-lock-comment-face ((t (:foreground "#FFd1d1")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-preprocessor-face ((t (:foreground "Aquamarine")))) + '(font-lock-function-name-face ((t (:foreground "#b2e4ff")))) + '(font-lock-keyword-face ((t (:foreground "#a0ffff")))) + '(font-lock-string-face ((t (:foreground "#efca10")))) + '(font-lock-doc-string-face ((t (:foreground "#efca10")))) + '(font-lock-type-face ((t (:foreground "PaleGreen")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "#dfdfff")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "light cyan")))) + '(gnus-cite-face-3 ((t (:foreground "light yellow")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) + '(gnus-header-content-face ((t (:italic t :foreground "#90f490")))) + '(gnus-header-from-face ((t (:foreground "#aaffaa")))) + '(gnus-header-name-face ((t (:foreground "#c7e3c7")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) + '(gnus-header-subject-face ((t (:foreground "#a0f0a0")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "darkolivegreen")))) + '(italic ((t (:italic t)))) + '(message-cited-text-face ((t (:foreground "#dfdfff")))) + '(message-header-cc-face ((t (:bold t :foreground "#a0f0a0")))) + '(message-header-name-face ((t (:foreground "#c7e3c7")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) + '(message-header-other-face ((t (:foreground "#db9b9b")))) + '(message-header-subject-face ((t (:foreground "#a0f0a0")))) + '(message-header-to-face ((t (:bold t :foreground "#aaffaa")))) + '(message-header-xheader-face ((t (:foreground "#e2e2ff")))) + '(message-mml-face ((t (:foreground "#abdbab")))) + '(message-separator-face ((t (:foreground "#dfdfff")))) + '(modeline ((t (:background "White" :foreground "#00005a")))) + '(modeline-buffer-id ((t (:background "White" :foreground "#00005a")))) + '(modeline-mousable ((t (:background "White" :foreground "#00005a")))) + '(modeline-mousable-minor-mode ((t (:background "White" :foreground "#00005a")))) + '(paren-mismatch-face ((t (:background "DeepPink")))) + '(paren-no-match-face ((t (:background "yellow")))) + '(region ((t (:background "blue")))) + '(primary-selection ((t (:background "blue")))) + '(isearch ((t (:background "blue")))) + '(secondary-selection ((t (:background "darkslateblue")))) + '(underline ((t (:underline t)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'parus) + +;;; parus-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/pierson-theme.el b/elpa/color-theme-modern-0.0.3/pierson-theme.el new file mode 100644 index 0000000..f3b49e4 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/pierson-theme.el @@ -0,0 +1,70 @@ +;;; pierson-theme.el --- pierson theme + +;; Copyright (C) 2000 by Dan L. Pierson +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of pierson theme from `color-themes' + +;;; Code: + +(deftheme pierson + "pierson theme") + +(custom-theme-set-faces + 'pierson + + '(default ((t (:background "AntiqueWhite" :foreground "black")))) + '(cursor ((t (:background "Orchid")))) + '(border ((t (:foreground "black")))) + + '(bold ((t (:bold t)))) + '(list-matching-lines-face ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:foreground "ForestGreen")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-function-name-face ((t (:foreground "blue3")))) + '(font-lock-keyword-face ((t (:foreground "Blue")))) + '(font-lock-string-face ((t (:foreground "Firebrick")))) + '(font-lock-type-face ((t (:foreground "Purple")))) + '(font-lock-variable-name-face ((t (:foreground "blue3")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(highlight ((t (:background "darkseagreen2")))) + '(italic ((t (:italic t)))) + '(modeline ((t (:foreground "antiquewhite" :background "black")))) + '(modeline-mousable-minor-mode ((t (:foreground "antiquewhite" :background "black")))) + '(modeline-mousable ((t (:foreground "antiquewhite" :background "black")))) + '(modeline-buffer-id ((t (:foreground "antiquewhite" :background "black")))) + '(region ((t (:background "gray")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(underline ((t (:underline t))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'pierson) + +;;; pierson-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/pok-wob-theme.el b/elpa/color-theme-modern-0.0.3/pok-wob-theme.el new file mode 100644 index 0000000..a563218 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/pok-wob-theme.el @@ -0,0 +1,181 @@ +;;; pok-wob-theme.el --- pok-wob theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of pok-wob theme from `color-themes' + +;;; Code: + +(deftheme pok-wob + "pok-wob theme") + +(custom-theme-set-faces + 'pok-wob + + '(default ((t (:background "black" :foreground "white")))) + '(mouse ((t (:foreground "gold")))) + '(cursor ((t (:background "yellow")))) + '(border ((t (:foreground "black")))) + + '(bold ((t (:bold t :foreground "light gray")))) + '(bold-italic ((t (:italic t :bold t :foreground "cyan")))) + '(calendar-today-face ((t (:underline t :foreground "white")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t)))) + '(custom-group-tag-face-1 ((t (:underline t)))) + '(custom-invalid-face ((t (:background "red" :foreground "white")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (nil)))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t)))) + '(diary-face ((t (:foreground "gold")))) + '(font-lock-builtin-face ((t (:bold t :foreground "cyan")))) + '(font-lock-comment-face ((t (:foreground "Gold")))) + '(font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue")))) + '(font-lock-function-name-face ((t (:bold t :foreground "gold")))) + '(font-lock-keyword-face ((t (:bold t :foreground "Cyan")))) + '(font-lock-string-face ((t (:foreground "Khaki")))) + '(font-lock-type-face ((t (:bold t :foreground "Cyan")))) + '(font-lock-variable-name-face ((t (:italic t :foreground "gold")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(gnus-cite-attribution-face ((t (:underline t :foreground "beige")))) + '(gnus-cite-face-1 ((t (:foreground "gold")))) + '(gnus-cite-face-10 ((t (:foreground "coral")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "wheat")))) + '(gnus-cite-face-3 ((t (:foreground "light pink")))) + '(gnus-cite-face-4 ((t (:foreground "khaki")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t :foreground "light gray")))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan")))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "gold")))) + '(gnus-emphasis-italic ((t (:italic t :foreground "cyan")))) + '(gnus-emphasis-underline ((t (:underline t :foreground "white")))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "white")))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "white")))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white")))) + '(gnus-group-mail-1-empty-face ((t (:foreground "Magenta")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "Magenta")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "Cyan")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "Cyan")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) + '(gnus-group-mail-low-face ((t (:foreground "aquamarine4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-news-3-empty-face ((t (:foreground "wheat")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "Wheat")))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-header-content-face ((t (:italic t :foreground "Wheat")))) + '(gnus-header-from-face ((t (:foreground "light yellow")))) + '(gnus-header-name-face ((t (:foreground "Wheat")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "gold")))) + '(gnus-header-subject-face ((t (:bold t :foreground "Gold")))) + '(gnus-signature-face ((t (:italic t :foreground "white")))) + '(gnus-splash-face ((t (:foreground "orange")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "orange")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "red")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "coral")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "gold")))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "red")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "coral")))) + '(gnus-summary-low-unread-face ((t (:italic t :foreground "white")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (:foreground "white")))) + '(gnus-summary-selected-face ((t (:underline t :foreground "white")))) + '(highlight ((t (:background "Blue" :foreground "white")))) + '(highline-face ((t (:background "dark slate gray" :foreground "white")))) + '(holiday-face ((t (:background "red" :foreground "white")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t :foreground "white")))) + '(info-xref ((t (:bold t :foreground "light gray")))) + '(italic ((t (:italic t :foreground "cyan")))) + '(makefile-space-face ((t (:background "hotpink" :foreground "white")))) + '(message-cited-text-face ((t (:foreground "green")))) + '(message-header-cc-face ((t (:bold t :foreground "Aquamarine")))) + '(message-header-name-face ((t (:foreground "Gold")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold")))) + '(message-header-other-face ((t (:foreground "lightGray")))) + '(message-header-subject-face ((t (:foreground "Yellow")))) + '(message-header-to-face ((t (:bold t :foreground "green2")))) + '(message-header-xheader-face ((t (:foreground "sky blue")))) + '(message-mml-face ((t (:bold t :foreground "khaki")))) + '(message-separator-face ((t (:background "aquamarine" :foreground "black")))) + '(modeline ((t (:background "dark gray" :foreground "black")))) + '(modeline-buffer-id ((t (:background "dark gray" :foreground "black")))) + '(modeline-mousable ((t (:background "dark gray" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "dark gray" :foreground "black")))) + '(paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) + '(paren-no-match-face ((t (:bold t :background "white" :foreground "red")))) + '(region ((t (:background "MediumSlateBlue" :foreground "white")))) + '(secondary-selection ((t (:background "Sienna" :foreground "white")))) + '(show-paren-match-face ((t (:background "purple" :foreground "white")))) + '(show-paren-mismatch-face ((t (:bold t :background "white" :foreground "red")))) + '(speedbar-button-face ((t (nil)))) + '(speedbar-directory-face ((t (nil)))) + '(speedbar-file-face ((t (:bold t)))) + '(speedbar-highlight-face ((t (nil)))) + '(speedbar-selected-face ((t (:underline t)))) + '(speedbar-tag-face ((t (nil)))) + '(swbuff-current-buffer-face ((t (:bold t :foreground "red")))) + '(underline ((t (:underline t :foreground "white")))) + '(widget-button-face ((t (:bold t :foreground "coral")))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray" :foreground "white")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'pok-wob) + +;;; pok-wob-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/pok-wog-theme.el b/elpa/color-theme-modern-0.0.3/pok-wog-theme.el new file mode 100644 index 0000000..72e1c84 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/pok-wog-theme.el @@ -0,0 +1,167 @@ +;;; pok-wog-theme.el --- pok-wog theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of pok-wog theme from `color-themes' + +;;; Code: + +(deftheme pok-wog + "pok-wog theme") + +(custom-theme-set-faces + 'pok-wog + + '(default ((t (:background "DarkSlateGray" :foreground "White")))) + '(mouse ((t (:foreground "gold")))) + '(cursor ((t (:background "Cyan")))) + '(border ((t (:foreground "black")))) + + '(bold ((t (:bold t :foreground "Wheat")))) + '(bold-italic ((t (:italic t :bold t :foreground "wheat")))) + '(calendar-today-face ((t (:underline t :foreground "white")))) + '(diary-face ((t (:foreground "red")))) + '(font-lock-builtin-face ((t (:bold t :foreground "cyan")))) + '(font-lock-comment-face ((t (:foreground "Gold")))) + '(font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue")))) + '(font-lock-function-name-face ((t (:bold t :foreground "Yellow")))) + '(font-lock-keyword-face ((t (:bold t :foreground "Cyan")))) + '(font-lock-string-face ((t (:foreground "Khaki")))) + '(font-lock-type-face ((t (:bold t :foreground "Cyan")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(gnus-cite-attribution-face ((t (:bold t :foreground "Wheat")))) + '(gnus-cite-face-1 ((t (:foreground "wheat")))) + '(gnus-cite-face-10 ((t (:foreground "wheat")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "cyan")))) + '(gnus-cite-face-3 ((t (:foreground "light yellow")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t :foreground "wheat")))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t :foreground "white")))) + '(gnus-emphasis-underline ((t (:underline t :foreground "white")))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "wheat")))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white")))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "Salmon")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "gold")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "Wheat")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :foreground "Wheat")))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) + '(gnus-header-content-face ((t (:italic t :foreground "Wheat")))) + '(gnus-header-from-face ((t (:foreground "light yellow")))) + '(gnus-header-name-face ((t (:foreground "cyan")))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) + '(gnus-header-subject-face ((t (:bold t :foreground "Gold")))) + '(gnus-signature-face ((t (:italic t :foreground "wheat")))) + '(gnus-splash-face ((t (:foreground "orange")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "gold")))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (:foreground "wheat")))) + '(gnus-summary-selected-face ((t (:underline t :foreground "white")))) + '(highlight ((t (:background "Blue" :foreground "white")))) + '(highline-face ((t (:background "black" :foreground "white")))) + '(holiday-face ((t (:background "pink" :foreground "white")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t :foreground "white")))) + '(info-xref ((t (:bold t :foreground "wheat")))) + '(italic ((t (:italic t :foreground "white")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "green")))) + '(message-header-cc-face ((t (:bold t :foreground "Aquamarine")))) + '(message-header-name-face ((t (:foreground "Gold")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) + '(message-header-other-face ((t (:foreground "lightGray")))) + '(message-header-subject-face ((t (:foreground "Yellow")))) + '(message-header-to-face ((t (:bold t :foreground "green2")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:bold t :foreground "khaki")))) + '(message-separator-face ((t (:background "aquamarine" :foreground "black")))) + '(modeline ((t (:background "DarkGray" :foreground "Black")))) + '(modeline-buffer-id ((t (:background "DarkGray" :foreground "Black")))) + '(modeline-mousable ((t (:background "DarkGray" :foreground "Black")))) + '(modeline-mousable-minor-mode ((t (:background "DarkGray" :foreground "Black")))) + '(paren-mismatch-face ((t (:background "DeepPink" :foreground "white")))) + '(paren-no-match-face ((t (:background "yellow" :foreground "white")))) + '(region ((t (:background "MediumSlateBlue" :foreground "white")))) + '(secondary-selection ((t (:background "Sienna" :foreground "white")))) + '(show-paren-match-face ((t (:background "turquoise" :foreground "white")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:bold t :foreground "magenta")))) + '(speedbar-directory-face ((t (:bold t :foreground "orchid")))) + '(speedbar-file-face ((t (:foreground "pink")))) + '(speedbar-highlight-face ((t (:background "black")))) + '(speedbar-selected-face ((t (:underline t :foreground "cyan")))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(swbuff-current-buffer-face ((t (:bold t :foreground "red")))) + '(underline ((t (:underline t :foreground "white")))) + '(widget-button-face ((t (:bold t :foreground "wheat")))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray" :foreground "white")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'pok-wog) + +;;; pok-wog-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/railscast-theme.el b/elpa/color-theme-modern-0.0.3/railscast-theme.el new file mode 100644 index 0000000..f3c3483 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/railscast-theme.el @@ -0,0 +1,91 @@ +;;; railscast-theme.el --- railscast theme + +;; Copyright (C) 2009 Oleg Shaldybin +;; Copyright (C) 2014 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;;; License: + +;; MIT License +;; ----------- +;; Permission is hereby granted, free of charge, to any person +;; obtaining a copy of this software and associated documentation +;; files (the "Software"), to deal in the Software without +;; restriction, including without limitation the rights to use, +;; copy, modify, merge, publish, distribute, sublicense, and/or +;; sell copies of the Software, and to permit persons to whom the +;; Software is furnished to do so, subject to the following +;; conditions: +;; +;; The above copyright notice and this permission notice shall +;; be included in all copies or substantial portions of the +;; Software. +;; +;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES +;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT +;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, +;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR +;; OTHER DEALINGS IN THE SOFTWARE. + +;;; Commentary: +;; +;; Port of railscast theme from https://github.com/olegshaldybin/color-theme-railscasts.git + +;;; Code: + +(deftheme railscast + "railscast theme") + +(custom-theme-set-faces + 'railscast + + '(default ((t (:background "#232323" :foreground "#E6E1DC")))) + '(border ((t (:foreground "#232323")))) + '(mouse ((t (:foreground "sienna1")))) + '(cursor ((t (:background "#5A647E")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(fringe ((t (:background "#232323")))) + '(font-lock-builtin-face ((t (:foreground "#D0D0FF")))) + '(font-lock-comment-face ((t (:foreground "#BC9458" :italic t)))) + '(font-lock-constant-face ((t (:foreground "#6D9CBE")))) + '(font-lock-doc-string-face ((t (:foreground "#A5C261")))) + '(font-lock-function-name-face ((t (:foreground "#FFC66D")))) + '(font-lock-keyword-face ((t (:foreground "#CC7833")))) + '(font-lock-preprocessor-face ((t (:foreground "#CC7833")))) + '(font-lock-reference-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-string-face ((t (:foreground "#A5C261")))) + '(font-lock-type-face ((t (:foreground "white")))) + '(font-lock-variable-name-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-warning-face ((t (:foreground "Pink")))) + '(paren-face-match-light ((t (:foreground "#FFC66D" :background "#555577")))) + '(highlight ((t (:background "darkolivegreen")))) + '(italic ((t (:italic t)))) + '(mode-line ((t (:background "#A5BAF1" :foreground "black")))) + '(mode-line-buffer-id ((t (:background "#A5BAF1" :foreground "black")))) + '(region ((t (:background "#555577")))) + '(primary-selection ((t (:background "#555577")))) + '(isearch ((t (:background "#555555")))) + '(zmacs-region ((t (:background "#555577")))) + '(secondary-selection ((t (:background "darkslateblue")))) + '(flymake-errline ((t (:background "LightSalmon" :foreground "black")))) + '(flymake-warnline ((t (:background "LightSteelBlue" :foreground "black")))) + '(underline ((t (:underline t)))) + '(minibuffer-prompt ((t (:bold t :foreground "#FF6600"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'railscast) + +;;; railscast-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/ramangalahy-theme.el b/elpa/color-theme-modern-0.0.3/ramangalahy-theme.el new file mode 100644 index 0000000..c02a443 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/ramangalahy-theme.el @@ -0,0 +1,211 @@ +;;; ramangalahy-theme.el --- ramangalahy theme + +;; Copyright (C) 2000 by Solofo Ramangalahy +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of ramangalahy theme from `color-themes' + +;;; Code: + +(deftheme ramangalahy + "ramangalahy theme") + +(custom-theme-set-faces + 'ramangalahy + + '(default ((t (:background "lightgrey" :foreground "black")))) + '(cursor ((t (:background "blue")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "darkseagreen2")))) + '(goto-address-mail-face ((t (:underline t :bold t :foreground "#0000ee")))) + '(ispell-highlight-face ((t (:background "darkseagreen2")))) + '(setnu-line-number-face ((t (:bold t)))) + '(tinyreplace-face ((t (:background "darkseagreen2")))) + '(vm-highlight-url-face ((t (:italic t :bold t)))) + '(vm-highlighted-header-face ((t (:bold t)))) + '(vm-mime-button-face ((t (:background "grey75" :foreground "black")))) + '(vm-summary-highlight-face ((t (:bold t)))) + + '(bbdb-company ((t (nil)))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(cperl-here-face ((t (:foreground "green4")))) + '(cperl-pod-face ((t (:foreground "brown4")))) + '(cperl-pod-head-face ((t (:foreground "steelblue")))) + '(custom-button-face ((t (:bold t)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t)))) + '(dired-face-executable ((t (:foreground "SeaGreen")))) + '(dired-face-flagged ((t (:background "LightSlateGray")))) + '(dired-face-marked ((t (:background "PaleVioletRed")))) + '(dired-face-permissions ((t (:background "grey75" :foreground "black")))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "blue")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(font-lock-comment-face ((t (:bold t :foreground "purple")))) + '(font-lock-doc-string-face ((t (:bold t :foreground "slateblue")))) + '(font-lock-emphasized-face ((t (:bold t :background "lightyellow2")))) + '(font-lock-function-name-face ((t (:bold t :foreground "blue")))) + '(font-lock-keyword-face ((t (:bold t :foreground "violetred")))) + '(font-lock-other-emphasized-face ((t (:italic t :bold t :background "lightyellow2")))) + '(font-lock-other-type-face ((t (:bold t :foreground "orange3")))) + '(font-lock-preprocessor-face ((t (:bold t :foreground "mediumblue")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:foreground "green4")))) + '(font-lock-type-face ((t (:bold t :foreground "steelblue")))) + '(font-lock-variable-name-face ((t (:foreground "magenta4")))) + '(font-lock-warning-face ((t (:bold t :background "yellow" :foreground "Red")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (nil)))) + '(gnus-emphasis-italic ((t (nil)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t)))) + '(gnus-emphasis-underline-italic ((t (:underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:foreground "indianred4")))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:bold t)))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (nil)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (:background "lightgrey" :foreground "black")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:background "lightgrey")))) + '(highlight ((t (:background "darkseagreen2")))) + '(info-node ((t (:underline t :bold t :foreground "mediumpurple")))) + '(info-xref ((t (:underline t :bold t :foreground "#0000ee")))) + '(isearch ((t (:background "paleturquoise")))) + '(italic ((t (:italic t)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68" :foreground "black")))) + '(message-cited-text ((t (:foreground "slategrey")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-contents ((t (:italic t)))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-headers ((t (:bold t)))) + '(message-highlighted-header-contents ((t (:bold t)))) + '(message-separator-face ((t (:foreground "brown")))) + '(message-url ((t (:bold t)))) + '(modeline ((t (:bold t :background "Gray75" :foreground "Black")))) + '(modeline-buffer-id ((t (:bold t :background "Gray75" :foreground "blue4")))) + '(modeline-mousable ((t (:bold t :background "Gray75" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:bold t :background "Gray75" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "lightgrey")))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "black")))) + '(pointer ((t (:foreground "blue")))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "black" :foreground "white")))) + '(right-margin ((t (nil)))) + '(searchm-buffer ((t (:bold t :background "white" :foreground "red")))) + '(searchm-button ((t (:bold t :background "CadetBlue" :foreground "white")))) + '(searchm-field ((t (:background "grey89")))) + '(searchm-field-label ((t (:bold t)))) + '(searchm-highlight ((t (:bold t :background "darkseagreen2" :foreground "black")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(template-message-face ((t (:bold t)))) + '(text-cursor ((t (:background "blue" :foreground "lightgrey")))) + '(toolbar ((t (nil)))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (nil)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(x-face ((t (:background "white" :foreground "black")))) + '(x-symbol-adobe-fontspecific-face ((t (nil)))) + '(x-symbol-face ((t (nil)))) + '(x-symbol-heading-face ((t (:underline t :bold t :foreground "green4")))) + '(x-symbol-info-face ((t (:foreground "green4")))) + '(x-symbol-invisible-face ((t (nil)))) + '(x-symbol-revealed-face ((t (:background "pink")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "yellow"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'ramangalahy) + +;;; ramangalahy-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/raspopovic-theme.el b/elpa/color-theme-modern-0.0.3/raspopovic-theme.el new file mode 100644 index 0000000..1589c95 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/raspopovic-theme.el @@ -0,0 +1,105 @@ +;;; raspopovic-theme.el --- raspopovic theme + +;; Copyright (C) 2000 by Pedja Raspopovic +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of raspopovic theme from `color-themes' + +;;; Code: + +(deftheme raspopovic + "raspopovic theme") + +(custom-theme-set-faces + 'raspopovic + + '(default ((t (:background "darkblue" :foreground "yellow")))) + '(cursor ((t (:background "Red3")))) + '(border ((t (:foreground "black")))) + + '(setnu-line-number-face ((t (:bold t :background "darkblue" :foreground "yellow")))) + '(goto-address-mail-face ((t (:bold t :background "darkblue" :foreground "yellow")))) + + '(blue ((t (:background "darkblue" :foreground "blue")))) + '(bold ((t (:bold t :background "darkblue" :foreground "yellow")))) + '(bold-italic ((t (:bold t :background "darkblue" :foreground "red3")))) + '(comint-input-face ((t (:foreground "deepskyblue")))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:foreground "lightgreen")))) + '(dired-face-executable ((t (:foreground "indianred")))) + '(dired-face-flagged ((t (:background "LightSlateGray")))) + '(dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue")))) + '(dired-face-permissions ((t (:background "darkblue" :foreground "white")))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "grey95")))) + '(font-lock-comment-face ((t (:background "darkblue" :foreground "lightgreen")))) + '(font-lock-doc-string-face ((t (:background "darkblue" :foreground "darkseagreen")))) + '(font-lock-function-name-face ((t (:bold t :background "darkblue" :foreground "indianred")))) + '(font-lock-keyword-face ((t (:background "darkblue" :foreground "skyblue")))) + '(font-lock-preprocessor-face ((t (:background "darkblue" :foreground "orange")))) + '(font-lock-reference-face ((t (:background "darkblue" :foreground "deepskyblue")))) + '(font-lock-string-face ((t (:background "darkblue" :foreground "lightgrey")))) + '(font-lock-type-face ((t (:background "darkblue" :foreground "orange")))) + '(font-lock-variable-name-face ((t (:background "darkblue" :foreground "white")))) + '(green ((t (:background "darkblue" :foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(highlight ((t (:background "yellow" :foreground "darkblue")))) + '(info-node ((t (:bold t :background "darkblue" :foreground "red3")))) + '(info-xref ((t (:bold t :background "darkblue" :foreground "yellow")))) + '(isearch ((t (:background "yellow" :foreground "darkblue")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (:background "darkblue" :foreground "red3")))) + '(left-margin ((t (:background "darkblue" :foreground "yellow")))) + '(list-mode-item-selected ((t (:background "gray68" :foreground "yellow")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(modeline ((t (:background "Gray75" :foreground "Black")))) + '(modeline-buffer-id ((t (:background "Gray75" :foreground "blue")))) + '(modeline-mousable ((t (:background "Gray75" :foreground "red")))) + '(modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "darkblue")))) + '(paren-match ((t (:background "yellow" :foreground "darkblue")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "yellow")))) + '(pointer ((t (:background "darkblue" :foreground "red3")))) + '(primary-selection ((t (:background "yellow" :foreground "darkblue")))) + '(red ((t (:background "darkblue" :foreground "red")))) + '(right-margin ((t (:background "darkblue" :foreground "yellow")))) + '(secondary-selection ((t (:background "darkblue" :foreground "yellow")))) + '(shell-option-face ((t (:background "darkblue" :foreground "cyan2")))) + '(shell-output-2-face ((t (:background "darkblue" :foreground "darkseagreen")))) + '(shell-output-3-face ((t (:background "darkblue" :foreground "lightgrey")))) + '(shell-output-face ((t (:background "darkblue" :foreground "white")))) + '(shell-prompt-face ((t (:background "darkblue" :foreground "red")))) + '(text-cursor ((t (:background "Red3" :foreground "white")))) + '(underline ((t (:underline t :background "darkblue" :foreground "yellow")))) + '(vvb-face ((t (:background "pink" :foreground "black")))) + '(yellow ((t (:background "darkblue" :foreground "yellow")))) + '(zmacs-region ((t (:background "gray" :foreground "black"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'raspopovic) + +;;; raspopovic-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/renegade-theme.el b/elpa/color-theme-modern-0.0.3/renegade-theme.el new file mode 100644 index 0000000..84a6330 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/renegade-theme.el @@ -0,0 +1,75 @@ +;;; renegade-theme.el --- renegade theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of renegade theme from `color-themes' + +;;; Code: + +(deftheme renegade + "renegade theme") + +(custom-theme-set-faces + 'renegade + + '(default ((t (:background "black" :foreground "cyan3")))) + '(mouse ((t (:foreground "white")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(bold ((t (:bold t :foreground "cyan" :weight bold)))) + '(bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold)))) + '(fixed-pitch ((t (:family "courier")))) + '(font-lock-builtin-face ((t (:bold t :foreground "cornflower blue" :weight bold)))) + '(font-lock-comment-face ((t (:bold t :foreground "yellow" :weight bold)))) + '(font-lock-constant-face ((t (:foreground "magenta3")))) + '(font-lock-doc-face ((t (:bold t :weight bold :foreground "red")))) + '(font-lock-function-name-face ((t (:foreground "gray")))) + '(font-lock-keyword-face ((t (:bold t :foreground "cyan" :weight bold)))) + '(font-lock-string-face ((t (:bold t :foreground "red" :weight bold)))) + '(font-lock-type-face ((t (:bold t :foreground "cyan" :weight bold)))) + '(font-lock-variable-name-face ((t (:foreground "cyan3")))) + '(font-lock-warning-face ((t (:bold t :foreground "red" :weight bold)))) + '(fringe ((t (:background "gray32")))) + '(highlight ((t (:background "blue")))) + '(isearch ((t (:background "blue" :foreground "cyan3")))) + '(isearch-lazy-highlight-face ((t (:background "turquoise3" :foreground "black")))) + '(menu ((t (nil)))) + '(mode-line ((t (:bold t :background "blue3" :foreground "white" :weight bold + :box (:line-width -1 :style released-button))))) + '(mouse ((t (:background "white")))) + '(region ((t (:bold t :background "white" :foreground "blue" :weight bold)))) + '(scroll-bar ((t (nil)))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'renegade) + +;;; renegade-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/resolve-theme.el b/elpa/color-theme-modern-0.0.3/resolve-theme.el new file mode 100644 index 0000000..d435b89 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/resolve-theme.el @@ -0,0 +1,193 @@ +;;; resolve-theme.el --- resolve theme + +;; Copyright (C) 2002 by Damien Elmes +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of resolve theme from `color-themes' + +;;; Code: + +(deftheme resolve + "resolve theme") + +(custom-theme-set-faces + 'resolve + + '(default ((t (:background "#00457f" :foreground "white smoke")))) + '(mouse ((t (:background "white")))) + '(cursor ((t (:background "DarkGoldenrod1")))) + '(border ((t (:background "black")))) + + '(display-time-mail-face ((t (:foreground "white" :background "#001040")))-line) + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :foreground "snow2" :weight bold)))) + '(view-highlight-face ((t (:background "gray91" :foreground "firebrick")))) + '(widget-mouse-face ((t (:background "gray91" :foreground "firebrick")))) + + '(bold ((t (:bold t :foreground "snow2" :weight bold)))) + '(bold-italic ((t (:italic t :bold t :weight bold)))) + '(calendar-today-face ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(cperl-array-face ((t (:bold t :foreground "wheat" :weight bold)))) + '(cperl-hash-face ((t (:bold t :foreground "chartreuse" :weight bold)))) + '(diary-face ((t (:foreground "yellow")))) + '(erc-input-face ((t (:foreground "lightblue2")))) + '(erc-notice-face ((t (:foreground "lightyellow3")))) + + '(font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold)))) + '(font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen")))) + '(font-latex-math-face ((t (:foreground "burlywood")))) + '(font-latex-sedate-face ((t (:foreground "LightGray")))) + '(font-latex-string-face ((t (:foreground "RosyBrown")))) + '(font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(font-lock-builtin-face ((t (:foreground "wheat")))) + '(font-lock-comment-face ((t (:foreground "light steel blue")))) + '(font-lock-constant-face ((t (:foreground "seashell3")))) + '(font-lock-doc-face ((t (:foreground "plum")))) + '(font-lock-doc-string-face ((t (:foreground "#008000")))) + '(font-lock-function-name-face ((t (:foreground "thistle1")))) + '(font-lock-keyword-face ((t (:foreground "wheat")))) + '(font-lock-other-emphasized-face ((t (:bold t :foreground "gold1" :weight bold)))) + '(font-lock-other-type-face ((t (:bold t :foreground "gold1" :weight bold)))) + '(font-lock-preprocessor-face ((t (:foreground "#800080")))) + '(font-lock-reference-face ((t (:foreground "wheat")))) + '(font-lock-string-face ((t (:foreground "plum")))) + '(font-lock-type-face ((t (:foreground "lawn green")))) + '(font-lock-variable-name-face ((t (:foreground "light yellow")))) + '(font-lock-warning-face ((t (:foreground "plum")))) + '(fringe ((t (:background "#000000")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "light blue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "light cyan")))) + '(gnus-cite-face-3 ((t (:foreground "light yellow")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold)))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :weight bold)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t :weight bold)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t :weight bold)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold)))) + '(gnus-header-content-face ((t (:italic t :foreground "snow2")))) + '(gnus-header-from-face ((t (:foreground "spring green")))) + '(gnus-header-name-face ((t (:bold t :foreground "snow2" :weight bold)))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "yellow")))) + '(gnus-header-subject-face ((t (:bold t :foreground "peach puff" :weight bold)))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(header-line ((t (:background "grey20" :foreground "grey90")))) + '(highlight ((t (:background "gray91" :foreground "firebrick")))) + '(highline-face ((t (:background "paleturquoise" :foreground "black")))) + '(holiday-face ((t (:background "chocolate4")))) + '(isearch ((t (:background "palevioletred2" :foreground "brown4")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(italic ((t (:italic t)))) + '(menu ((t (nil)))) + '(message-cited-text-face ((t (:foreground "seashell3")))) + '(message-header-cc-face ((t (:bold t :foreground "snow2" :weight bold)))) + '(message-header-name-face ((t (:bold t :foreground "snow1" :weight bold)))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :weight bold)))) + '(message-header-other-face ((t (:foreground "snow2")))) + '(message-header-subject-face ((t (:bold t :foreground "snow2" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "snow2" :weight bold)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "misty rose")))) + '(modeline ((t (:foreground "white" :background "#001040" + :box (:line-width -1 :style released-button))))) + '(modeline-buffer-id ((t (:foreground "white" :background "#001040")))) + '(modeline-mousable ((t (:foreground "white" :background "#001040")))) + '(modeline-mousable-minor-mode ((t (:foreground "white" :background "#001040")))) + '(my-tab-face ((t (:background "SlateBlue1")))) + '(p4-diff-del-face ((t (:bold t :foreground "salmon" :weight bold)))) + '(primary-selection ((t (:background "gray91" :foreground "DodgerBlue4")))) + '(region ((t (:background "gray91" :foreground "DodgerBlue4")))) + '(scroll-bar ((t (:background "grey75")))) + '(secondary-selection ((t (:background "gray91" :foreground "sienna3")))) + '(show-paren-match-face ((t (:background "cyan3" :foreground "blue")))) + '(show-paren-mismatch-face ((t (:background "red" :foreground "blue")))) + '(tool-bar ((t (:background "grey75" :foreground "black")))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "steel blue")))) + '(widget-inactive-face ((t (:foreground "grey")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(zmacs-region ((t (:background "gray91" :foreground "DodgerBlue4"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'resolve) + +;;; resolve-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/retro-green-theme.el b/elpa/color-theme-modern-0.0.3/retro-green-theme.el new file mode 100644 index 0000000..2628813 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/retro-green-theme.el @@ -0,0 +1,60 @@ +;;; retro-green-theme.el --- retro-green theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of retro-green theme from `color-themes' + +;;; Code: + +(deftheme retro-green + "retro-green theme") + +(let ((foreground "green") + (faces '((default ((t (:background "black" :foreground "green")))) + (mouse ((t (:foreground "green")))) + (cursor ((t (:background "green")))) + (border ((t (:foreground "green"))))))) + (dolist (face (face-list)) + (cond ((memq face '(bold bold-italic)) + (add-to-list 'faces `(,face ((t (:bold t)))))) + ((memq face '(italic underline show-paren-mismatch-face)) + (add-to-list 'faces `(,face ((t (:underline t)))))) + ((memq face '(modeline modeline-buffer-id modeline-mousable + modeline-mousable-minor-mode highlight region + secondary-selection show-paren-match-face)) + (add-to-list 'faces `(,face ((t (:foreground "black" + :background ,foreground + :inverse t)))))) + (t + (add-to-list 'faces `(,face ((t (nil)))))))) + (apply 'custom-theme-set-faces 'retro-green faces)) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'retro-green) + +;;; retro-green-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/retro-orange-theme.el b/elpa/color-theme-modern-0.0.3/retro-orange-theme.el new file mode 100644 index 0000000..098a1a6 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/retro-orange-theme.el @@ -0,0 +1,60 @@ +;;; retro-orange-theme.el --- retro-orange theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of retro-orange theme from `color-themes' + +;;; Code: + +(deftheme retro-orange + "retro-orange theme") + +(let ((foreground "orange") + (faces '((default ((t (:background "black" :foreground "orange")))) + (mouse ((t (:foreground "orange")))) + (cursor ((t (:background "orange")))) + (border ((t (:foreground "orange"))))))) + (dolist (face (face-list)) + (cond ((memq face '(bold bold-italic)) + (add-to-list 'faces `(,face ((t (:bold t)))))) + ((memq face '(italic underline show-paren-mismatch-face)) + (add-to-list 'faces `(,face ((t (:underline t)))))) + ((memq face '(modeline modeline-buffer-id modeline-mousable + modeline-mousable-minor-mode highlight region + secondary-selection show-paren-match-face)) + (add-to-list 'faces `(,face ((t (:foreground "black" + :background ,foreground + :inverse t)))))) + (t + (add-to-list 'faces `(,face ((t (nil)))))))) + (apply 'custom-theme-set-faces 'retro-orange faces)) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'retro-orange) + +;;; retro-orange-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/robin-hood-theme.el b/elpa/color-theme-modern-0.0.3/robin-hood-theme.el new file mode 100644 index 0000000..6e01f60 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/robin-hood-theme.el @@ -0,0 +1,114 @@ +;;; robin-hood-theme.el --- robin-hood theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of robin-hood theme from `color-themes' + +;;; Code: + +(deftheme robin-hood + "robin-hood theme") + +(custom-theme-set-faces + 'robin-hood + + '(default ((t (:background "#304020" :foreground "navajo white")))) + '(mouse ((t (:foreground "Grey")))) + '(cursor ((t (:background "LightGray")))) + '(border ((t (:foreground "black")))) + + '(button ((t (:bold t)))) + '(header-line ((t (:background "#030" :foreground "#AA7")))) + '(ido-subdir-face ((t (:foreground "MediumSlateBlue")))) + '(minibuffer-prompt ((t (:foreground "pale green")))) + '(semantic-dirty-token-face ((t (:background "grey22")))) + '(tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lemon chiffon" :foreground "black")))) + + '(bbdb-company ((t (:foreground "pale green")))) + '(bbdb-name ((t (:bold t :foreground "pale green")))) + '(bbdb-field-name ((t (:foreground "medium sea green")))) + '(bbdb-field-value ((t (:foreground "dark sea green")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t :foreground "beige")))) + '(calendar-today-face ((t (:underline t :foreground "lemon chiffon")))) + '(comint-highlight-prompt ((t (:foreground "medium aquamarine")))) + '(cperl-array-face ((t (:foreground "Yellow")))) + '(cperl-hash-face ((t (:foreground "White")))) + '(cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) + '(custom-button-face ((t (:bold t :foreground "DodgerBlue1" :underline t)))) + '(custom-documentation-face ((t (:foreground "Grey")))) + '(custom-group-tag-face ((t (:foreground "MediumAquamarine")))) + '(custom-state-face ((t (:foreground "LightSalmon")))) + '(custom-variable-tag-face ((t (:foreground "Aquamarine")))) + '(diary-face ((t (:bold t :foreground "yellow")))) + '(dired-face-directory ((t (:bold t :foreground "sky blue")))) + '(dired-face-permissions ((t (:foreground "aquamarine")))) + '(dired-face-flagged ((t (:foreground "tomato")))) + '(dired-face-marked ((t (:foreground "light salmon")))) + '(dired-face-executable ((t (:foreground "green yellow")))) + '(fringe ((t (:background "#003700")))) + '(highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) + '(highline-face ((t (:background "SeaGreen")))) + '(holiday-face ((t (:bold t :foreground "peru")))) + '(hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1")))) + '(hyper-apropos-documentation ((t (:foreground "LightSalmon")))) + '(info-header-xref ((t (:foreground "DodgerBlue1" :bold t)))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) + '(info-xref ((t (:bold t :foreground "DodgerBlue1")))) + '(isearch ((t (:foreground "pink" :background "red")))) + '(isearch-lazy-highlight-face ((t (:foreground "red")))) + '(italic ((t (:italic t)))) + '(menu ((t (:background "#304020" :foreground "navajo white")))) + '(modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button))))) + '(mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button))))) + '(modeline-buffer-id ((t (:background "dark olive green" :foreground "beige")))) + '(modeline-mousable ((t (:background "dark olive green" :foreground "yellow green")))) + '(modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat")))) + '(region ((t (:background "dark cyan" :foreground "cyan")))) + '(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue")))) + '(show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) + '(underline ((t (:underline t)))) + '(widget-field-face ((t (:foreground "LightBlue")))) + '(widget-inactive-face ((t (:foreground "DimGray")))) + '(widget-single-line-field-face ((t (:foreground "LightBlue")))) + '(w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) + '(w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) + '(w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green")))) + '(w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(zmacs-region ((t (:background "dark cyan" :foreground "cyan")))) ) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'robin-hood) + +;;; robin-hood-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/rotor-theme.el b/elpa/color-theme-modern-0.0.3/rotor-theme.el new file mode 100644 index 0000000..73a466e --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/rotor-theme.el @@ -0,0 +1,113 @@ +;;; rotor-theme.el --- rotor theme + +;; Copyright (C) 2000 Jinwei Shen +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of rotor theme from `color-themes' + +;;; Code: + +(deftheme rotor + "rotor theme") + +(custom-theme-set-faces + 'rotor + + '(default ((t (:background "Beige" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "Maroon")))) + '(border ((t (:foreground "black")))) + + '(Man-overstrike-face ((t (:foreground "MediumSlateBlue")))) + '(Man-underline-face ((t (:foreground "ForestGreen")))) + '(list-matching-lines-face ((t (:bold t :background "grey40" :foreground "yellow")))) + '(rmail-highlight-face ((t (:foreground "MediumSlateBlue")))) + '(watson-attribution-face ((t (:italic t :foreground "yellow3")))) + '(watson-url-face ((t (:bold t :background "grey40" :foreground "yellow")))) + '(watson-url-mouse-face ((t (:background "PaleGreen" :foreground "black")))) + + '(bold ((t (:bold t :background "grey40" :foreground "yellow")))) + '(bold-italic ((t (:italic t :bold t :foreground "yellow green")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:foreground "MediumBlue")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-function-name-face ((t (:foreground "MediumSlateBlue")))) + '(font-lock-keyword-face ((t (:foreground "#80a0ff")))) + '(font-lock-string-face ((t (:foreground "red")))) + '(font-lock-type-face ((t (:foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(highlight ((t (:background "PaleGreen" :foreground "black")))) + '(italic ((t (:italic t :foreground "yellow3")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "wheat" :foreground "DarkOliveGreen")))) + '(modeline-buffer-id ((t (:background "wheat" :foreground "DarkOliveGreen")))) + '(modeline-mousable ((t (:background "wheat" :foreground "DarkOliveGreen")))) + '(modeline-mousable-minor-mode ((t (:background "wheat" :foreground "DarkOliveGreen")))) + '(nil ((t (nil)))) + '(region ((t (:background "dark cyan" :foreground "cyan")))) + '(secondary-selection ((t (:background "Turquoise" :foreground "black")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(underline ((t (:underline t)))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'rotor) + +;;; rotor-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/ryerson-theme.el b/elpa/color-theme-modern-0.0.3/ryerson-theme.el new file mode 100644 index 0000000..67291e3 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/ryerson-theme.el @@ -0,0 +1,52 @@ +;;; ryerson-theme.el --- ryerson theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of ryerson theme from `color-themes' + +;;; Code: + +(deftheme ryerson + "ryerson theme") + +(custom-theme-set-faces + 'ryerson + + '(default ((t (:background "midnightblue" :foreground "white")))) + '(cursor ((t (:background "red")))) + + '(modeline-buffer-id ((t (:foreground "black" :background "slategray3")))) + '(modeline-mousable ((t (:foreground "black" :background "slategray3")))) + '(modeline-mousable-minor-mode ((t (:foreground "black" :background "slategray3")))) + '(underline ((t (:underline t)))) + '(region ((t (:foreground "black" :background "slategray3"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'ryerson) + +;;; ryerson-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/salmon-diff-theme.el b/elpa/color-theme-modern-0.0.3/salmon-diff-theme.el new file mode 100644 index 0000000..b8d6107 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/salmon-diff-theme.el @@ -0,0 +1,63 @@ +;;; salmon-diff-theme.el --- salmon-diff theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of salmon-diff theme from `color-themes' + +;;; Code: + +(deftheme salmon-diff + "salmon-diff theme") + +(custom-theme-set-faces + 'salmon-diff + + '(change-log-acknowledgement-face ((t (:foreground "LightBlue")))) + '(change-log-conditionals-face ((t (:bold t :weight bold :foreground "Aquamarine")))) + '(change-log-date-face ((t (:foreground "LightSalmon")))) + '(change-log-email-face ((t (:bold t :weight bold :foreground "Aquamarine")))) + '(change-log-file-face ((t (:bold t :weight bold :foreground "Aquamarine")))) + '(change-log-function-face ((t (:bold t :weight bold :foreground "Aquamarine")))) + '(change-log-list-face ((t (:foreground "Salmon")))) + '(change-log-name-face ((t (:foreground "Aquamarine")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (:foreground "grey70")))) + '(diff-file-header-face ((t (:bold t)))) + '(diff-function-face ((t (:foreground "grey70")))) + '(diff-header-face ((t (:foreground "light salmon")))) + '(diff-hunk-header-face ((t (:foreground "light salmon")))) + '(diff-index-face ((t (:bold t)))) + '(diff-nonexistent-face ((t (:bold t)))) + '(diff-removed-face ((t (nil)))) + '(log-view-message-face ((t (:foreground "light salmon"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'salmon-diff) + +;;; salmon-diff-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/salmon-font-lock-theme.el b/elpa/color-theme-modern-0.0.3/salmon-font-lock-theme.el new file mode 100644 index 0000000..0a91510 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/salmon-font-lock-theme.el @@ -0,0 +1,56 @@ +;;; salmon-font-lock-theme.el --- salmon-font-lock theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of salmon-font-lock theme from `color-themes' + +;;; Code: + +(deftheme salmon-font-lock + "salmon-font-lock theme") + +(custom-theme-set-faces + 'salmon-font-lock + + '(font-lock-builtin-face ((t (:bold t :foreground "PaleGreen")))) + '(font-lock-comment-face ((t (:foreground "LightBlue")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-doc-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-function-name-face ((t (:bold t :foreground "Aquamarine")))) + '(font-lock-keyword-face ((t (:foreground "Salmon")))) + '(font-lock-preprocessor-face ((t (:foreground "Salmon")))) + '(font-lock-reference-face ((t (:foreground "pale green")))) + '(font-lock-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-type-face ((t (:bold t :foreground "YellowGreen")))) + '(font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine")))) + '(font-lock-warning-face ((t (:bold t :foreground "red"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'salmon-font-lock) + +;;; salmon-font-lock-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/scintilla-theme.el b/elpa/color-theme-modern-0.0.3/scintilla-theme.el new file mode 100644 index 0000000..1945506 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/scintilla-theme.el @@ -0,0 +1,63 @@ +;;; scintilla-theme.el --- scintilla theme + +;; Copyright (C) 2000 by Gordon Messmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of scintilla theme from `color-themes' + +;;; Code: + +(deftheme scintilla + "scintilla theme") + +(custom-theme-set-faces + 'scintilla + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "grey15")))) + '(cursor ((t (:background "grey15")))) + + '(font-lock-comment-face ((t (:italic t :foreground "ForestGreen")))) + '(font-lock-string-face ((t (:foreground "DarkMagenta")))) + '(font-lock-keyword-face ((t (:foreground "NavyBlue")))) + '(font-lock-warning-face ((t (:bold t :foreground "VioletRed")))) + '(font-lock-constant-face ((t (:foreground "Blue")))) + '(font-lock-type-face ((t (:foreground "NavyBlue")))) + '(font-lock-variable-name-face ((t (:foreground "DarkCyan")))) + '(font-lock-function-name-face ((t (:foreground "DarkCyan")))) + '(font-lock-builtin-face ((t (:foreground "NavyBlue")))) + '(highline-face ((t (:background "Grey95")))) + '(show-paren-match-face ((t (:background "Grey80")))) + '(region ((t (:background "Grey80")))) + '(highlight ((t (:foreground "ForestGreen")))) + '(secondary-selection ((t (:background "NavyBlue" :foreground "white")))) + '(widget-field-face ((t (:background "NavyBlue")))) + '(widget-single-line-field-face ((t (:background "RoyalBlue"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'scintilla) + +;;; scintilla-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/shaman-theme.el b/elpa/color-theme-modern-0.0.3/shaman-theme.el new file mode 100644 index 0000000..0f55d48 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/shaman-theme.el @@ -0,0 +1,115 @@ +;;; shaman-theme.el --- shaman theme + +;; Copyright (C) 2002 by shaman +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of shaman theme from `color-themes' + +;;; Code: + +(deftheme shaman + "shaman theme") + +(custom-theme-set-faces + 'shaman + + '(default ((t (:background "#456345" :foreground "White")))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t :size "12")))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(buffers-tab ((t (:background "Gray80" :foreground "black")))) + '(buffers-tab-face ((t (:background "Gray80" :foreground "black")))) + '(font-lock-builtin-face ((t (:foreground "cadetblue2")))) + '(font-lock-comment-face ((t (:foreground "gray80")))) + '(font-lock-constant-face ((t (:foreground "steelblue1")))) + '(font-lock-doc-face ((t (:foreground "light coral")))) + '(font-lock-doc-string-face ((t (:foreground "light coral")))) + '(font-lock-function-name-face ((t (:foreground "aquamarine")))) + '(font-lock-keyword-face ((t (:foreground "cyan")))) + '(font-lock-preprocessor-face ((t (:foreground "steelblue1")))) + '(font-lock-reference-face ((t (:foreground "cadetblue2")))) + '(font-lock-string-face ((t (:foreground "tan")))) + '(font-lock-type-face ((t (:foreground "wheat")))) + '(font-lock-variable-name-face ((t (:foreground "cyan3")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(fringe ((t (nil)))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:background "Gray80" :foreground "black")))) + '(highlight ((t (:background "darkseagreen2")))) + '(isearch ((t (:background "paleturquoise")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (:italic t)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "green4")))) + '(message-header-name-face ((t (:foreground "DarkGreen")))) + '(message-header-newsgroups-face ((t (:bold t :foreground "yellow")))) + '(message-header-other-face ((t (:foreground "#b00000")))) + '(message-header-subject-face ((t (:foreground "green3")))) + '(message-header-to-face ((t (:bold t :foreground "green2")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "blue3")))) + '(mode-line ((t (:background "Gray80" :foreground "black")))) + '(modeline ((t (:background "Gray80" :foreground "black")))) + '(modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) + '(modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) + '(pointer ((t (:foreground "White")))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "gray65")))) + '(right-margin ((t (nil)))) + '(rpm-spec-dir-face ((t (:foreground "green")))) + '(rpm-spec-doc-face ((t (:foreground "magenta")))) + '(rpm-spec-ghost-face ((t (:foreground "red")))) + '(rpm-spec-macro-face ((t (:foreground "yellow")))) + '(rpm-spec-package-face ((t (:foreground "red")))) + '(rpm-spec-tag-face ((t (:foreground "blue")))) + '(rpm-spec-var-face ((t (:foreground "maroon")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(text-cursor ((t (:background "Pink" :foreground "Black")))) + '(tool-bar ((t (nil)))) + '(toolbar ((t (:background "Gray80" :foreground "black")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (:background "Gray80" :foreground "black")))) + '(widget ((t (:background "Gray80" :foreground "black")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "gray65"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'shaman) + +;;; shaman-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/simple-1-theme.el b/elpa/color-theme-modern-0.0.3/simple-1-theme.el new file mode 100644 index 0000000..5422783 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/simple-1-theme.el @@ -0,0 +1,55 @@ +;;; simple-1-theme.el --- simple-1 theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of simple-1 theme from `color-themes' + +;;; Code: + +(deftheme simple-1 + "simple-1 theme") + +(custom-theme-set-faces + 'simple-1 + + '(default ((t (:background "black" :foreground "white")))) + '(mouse ((t (:foreground "white")))) + '(cursor ((t (:background "indian red")))) + '(border ((t (:foreground "white")))) + + '(modeline ((t (:foreground "black" :background "white")))) + '(modeline-buffer-id ((t (:foreground "black" :background "white")))) + '(modeline-mousable ((t (:foreground "black" :background "white")))) + '(modeline-mousable-minor-mode ((t (:foreground "black" :background "white")))) + '(underline ((t (:underline t)))) + '(region ((t (:background "grey"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'simple-1) + +;;; simple-1-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/sitaramv-nt-theme.el b/elpa/color-theme-modern-0.0.3/sitaramv-nt-theme.el new file mode 100644 index 0000000..e09b202 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/sitaramv-nt-theme.el @@ -0,0 +1,99 @@ +;;; sitaramv-nt-theme.el --- sitaramv-nt theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of sitaramv-nt theme from `color-themes' + +;;; Code: + +(deftheme sitaramv-nt + "sitaramv-nt theme") + +(custom-theme-set-faces + 'sitaramv-nt + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "sienna3")))) + '(cursor ((t (:background "HotPink")))) + '(border ((t (:foreground "Blue")))) + + '(modeline ((t (:foreground "black" :background "gold2")))) + '(modeline-buffer-id ((t (:foreground "black" :background "gold2")))) + '(modeline-mousable ((t (:foreground "black" :background "gold2")))) + '(modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2")))) + '(highlight ((t (:foreground "black" :background "darkseagreen2")))) + '(bold ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(bold-italic ((t (:bold t :italic t)))) + '(region ((t (:foreground "black" :background "snow3")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(underline ((t (:underline t)))) + '(lazy-highlight-face ((t (:foreground "dark magenta" :bold t)))) + '(font-lock-comment-face ((t (:foreground "ForestGreen" :italic t)))) + '(font-lock-string-face ((t (:foreground "red")))) + '(font-lock-keyword-face ((t (:foreground "blue" :bold t)))) + '(font-lock-builtin-face ((t (:foreground "black")))) + '(font-lock-function-name-face ((t (:foreground "dark magenta" :bold t)))) + '(font-lock-variable-name-face ((t (:foreground "black")))) + '(font-lock-type-face ((t (:foreground "blue")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-warning-face ((t (:foreground "Red" :bold t)))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-button-face ((t (:bold t)))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(custom-invalid-face ((t (:foreground "yellow" :background "red")))) + '(custom-rogue-face ((t (:foreground "pink" :background "black")))) + '(custom-modified-face ((t (:foreground "white" :background "blue")))) + '(custom-set-face ((t (:foreground "blue" :background "white")))) + '(custom-changed-face ((t (:foreground "white" :background "blue")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-button-face ((t (nil)))) + '(custom-documentation-face ((t (nil)))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-tag-face ((t (:foreground "blue" :underline t)))) + '(custom-variable-button-face ((t (:bold t :underline t)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) + '(custom-group-tag-face ((t (:foreground "blue" :underline t)))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-highlight-face ((t (:background "green")))) + '(ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t)))) + '(show-paren-match-face ((t (:background "light blue")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'sitaramv-nt) + +;;; sitaramv-nt-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/sitaramv-solaris-theme.el b/elpa/color-theme-modern-0.0.3/sitaramv-solaris-theme.el new file mode 100644 index 0000000..beecef5 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/sitaramv-solaris-theme.el @@ -0,0 +1,210 @@ +;;; sitaramv-solaris-theme.el --- sitaramv-solaris theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of sitaramv-solaris theme from `color-themes' + +;;; Code: + +(deftheme sitaramv-solaris + "sitaramv-solaris theme") + +(custom-theme-set-faces + 'sitaramv-solaris + + '(default ((t (:background "MidnightBlue" :foreground "white")))) + '(mouse ((t (:foreground "yellow")))) + '(cursor ((t (:background "magenta2")))) + '(border ((t (:foreground "black")))) + + '(modeline ((t (:foreground "black" :background "gold2")))) + '(modeline-buffer-id ((t (:foreground "black" :background "gold2")))) + '(modeline-mousable ((t (:foreground "black" :background "gold2")))) + '(modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2")))) + '(highlight ((t (:foreground "black" :background "Aquamarine")))) + '(bold ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(bold-italic ((t (:bold t :italic t)))) + '(region ((t (:foreground "black" :background "snow3")))) + '(secondary-selection ((t (:foreground "black" :background "aquamarine")))) + '(underline ((t (:underline t)))) + '(lazy-highlight-face ((t (:foreground "yellow")))) + '(font-lock-comment-face ((t (:foreground "orange" :italic t)))) + '(font-lock-string-face ((t (:foreground "orange")))) + '(font-lock-keyword-face ((t (:foreground "green")))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-function-name-face ((t (:foreground "cyan" :bold t)))) + '(font-lock-variable-name-face ((t (:foreground "white")))) + '(font-lock-type-face ((t (:foreground "cyan")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-warning-face ((t (:foreground "Pink" :bold t)))) + '(widget-documentation-face ((t (:foreground "lime green")))) + '(widget-button-face ((t (:bold t)))) + '(widget-field-face ((t (:background "dim gray")))) + '(widget-single-line-field-face ((t (:background "dim gray")))) + '(widget-inactive-face ((t (:foreground "light gray")))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(custom-invalid-face ((t (:foreground "yellow" :background "red")))) + '(custom-rogue-face ((t (:foreground "pink" :background "black")))) + '(custom-modified-face ((t (:foreground "white" :background "blue")))) + '(custom-set-face ((t (:foreground "blue" :background "white")))) + '(custom-changed-face ((t (:foreground "white" :background "blue")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-button-face ((t (nil)))) + '(custom-documentation-face ((t (nil)))) + '(custom-state-face ((t (:foreground "lime green")))) + '(custom-variable-tag-face ((t (:foreground "light blue" :underline t)))) + '(custom-variable-button-face ((t (:bold t :underline t)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face-1 ((t (:foreground "pink" :underline t)))) + '(custom-group-tag-face ((t (:foreground "light blue" :underline t)))) + '(speedbar-button-face ((t (:foreground "green3")))) + '(speedbar-file-face ((t (:foreground "cyan")))) + '(speedbar-directory-face ((t (:foreground "light blue")))) + '(speedbar-tag-face ((t (:foreground "yellow")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-highlight-face ((t (:background "sea green")))) + '(font-lock-doc-string-face ((t (:foreground "Plum1" :bold t)))) + '(font-lock-exit-face ((t (:foreground "green")))) + '(ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t)))) + '(show-paren-match-face ((t (:background "red")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) + '(message-header-to-face ((t (:foreground "green2" :bold t)))) + '(message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t)))) + '(message-header-subject-face ((t (:foreground "green3")))) + '(message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t)))) + '(message-header-other-face ((t (:foreground "Salmon")))) + '(message-header-name-face ((t (:foreground "green3")))) + '(message-header-xheader-face ((t (:foreground "GreenYellow")))) + '(message-separator-face ((t (:foreground "Tan")))) + '(message-cited-text-face ((t (:foreground "Gold")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t)))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-2-face ((t (:foreground "turquoise" :bold t)))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) + '(gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t)))) + '(gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t)))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t)))) + '(gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t)))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t)))) + '(eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t)))) + '(eshell-ls-executable-face ((t (:foreground "Green" :bold t)))) + '(eshell-ls-readonly-face ((t (:foreground "Pink")))) + '(eshell-ls-unreadable-face ((t (:foreground "DarkGrey")))) + '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) + '(eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) + '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) + '(eshell-ls-backup-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-product-face ((t (:foreground "LightSalmon")))) + '(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-prompt-face ((t (:foreground "Pink" :bold t)))) + '(term-default-fg ((t (nil)))) + '(term-default-bg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-bold ((t (:bold t)))) + '(term-underline ((t (:underline t)))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-black ((t (:foreground "black")))) + '(term-red ((t (:foreground "red")))) + '(term-green ((t (:foreground "green")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-blue ((t (:foreground "blue")))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-white ((t (:foreground "white")))) + '(term-blackbg ((t (:background "black")))) + '(term-redbg ((t (:background "red")))) + '(term-greenbg ((t (:background "green")))) + '(term-yellowbg ((t (:background "yellow")))) + '(term-bluebg ((t (:background "blue")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-whitebg ((t (:background "white")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-emphasis-bold-italic ((t (:bold t :italic t)))) + '(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) + '(gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-header-from-face ((t (:foreground "spring green")))) + '(gnus-header-subject-face ((t (:foreground "yellow" :bold t)))) + '(gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t)))) + '(gnus-header-name-face ((t (:foreground "pink")))) + '(gnus-header-content-face ((t (:foreground "lime green" :italic t)))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "light blue")))) + '(gnus-cite-face-2 ((t (:foreground "light cyan")))) + '(gnus-cite-face-3 ((t (:foreground "light yellow")))) + '(gnus-cite-face-4 ((t (:foreground "light pink")))) + '(gnus-cite-face-5 ((t (:foreground "pale green")))) + '(gnus-cite-face-6 ((t (:foreground "beige")))) + '(gnus-cite-face-7 ((t (:foreground "orange")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'sitaramv-solaris) + +;;; sitaramv-solaris-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/snow-theme.el b/elpa/color-theme-modern-0.0.3/snow-theme.el new file mode 100644 index 0000000..169c347 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/snow-theme.el @@ -0,0 +1,139 @@ +;;; snow-theme.el --- snow theme + +;; Copyright (C) 2001 by Nicolas Rist +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of snow theme from `color-themes' + +;;; Code: + +(deftheme snow + "snow theme") + +(custom-theme-set-faces + 'snow + + '(default ((t (:background "snow2" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "RoyalBlue2")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "LightSteelBlue1")))) + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "LightSteelBlue1")))) + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(calendar-today-face ((t (:underline t)))) + '(custom-button-face ((t (:background "gainsboro" :foreground "dark cyan")))) + '(custom-documentation-face ((t (:background "gainsboro")))) + '(diary-face ((t (:foreground "red")))) + '(fg:black ((t (:foreground "black")))) + '(font-lock-builtin-face ((t (:background "gainsboro" :foreground "medium orchid")))) + '(font-lock-comment-face ((t (:background "gainsboro" :foreground "SteelBlue3")))) + '(font-lock-constant-face ((t (:background "gainsboro" :foreground "orange3")))) + '(font-lock-function-name-face ((t (:background "gainsboro" :foreground "blue3")))) + '(font-lock-keyword-face ((t (:background "gainsboro" :foreground "red3")))) + '(font-lock-string-face ((t (:background "gainsboro" :foreground "SpringGreen3")))) + '(font-lock-type-face ((t (:background "gainsboro" :foreground "dark cyan")))) + '(font-lock-variable-name-face ((t (:background "gainsboro" :foreground "purple2")))) + '(font-lock-warning-face ((t (:bold t :background "gainsboro" :foreground "red")))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gui-button-face ((t (:foreground "light grey")))) + '(highlight ((t (:background "LightSteelBlue1")))) + '(holiday-face ((t (:background "pink")))) + '(ibuffer-marked-face ((t (:foreground "red")))) + '(italic ((t (:italic t)))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:background "dark slate gray" :foreground "gainsboro")))) + '(modeline-buffer-id ((t (:background "dark slate gray" :foreground "gainsboro")))) + '(modeline-mousable ((t (:background "dark slate gray" :foreground "gainsboro")))) + '(modeline-mousable-minor-mode ((t (:background "dark slate gray" :foreground "gainsboro")))) + '(region ((t (:background "lavender")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(sgml-comment-face ((t (:foreground "dark green")))) + '(sgml-doctype-face ((t (:foreground "maroon")))) + '(sgml-end-tag-face ((t (:foreground "blue2")))) + '(sgml-entity-face ((t (:foreground "red2")))) + '(sgml-ignored-face ((t (:background "gray90" :foreground "maroon")))) + '(sgml-ms-end-face ((t (:foreground "maroon")))) + '(sgml-ms-start-face ((t (:foreground "maroon")))) + '(sgml-pi-face ((t (:foreground "maroon")))) + '(sgml-sgml-face ((t (:foreground "maroon")))) + '(sgml-short-ref-face ((t (:foreground "goldenrod")))) + '(sgml-start-tag-face ((t (:foreground "blue2")))) + '(show-paren-match-face ((t (:background "SlateGray1")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "dark turquoise" :foreground "white")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(underline ((t (:underline t))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'snow) + +;;; snow-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/snowish-theme.el b/elpa/color-theme-modern-0.0.3/snowish-theme.el new file mode 100644 index 0000000..a8b2731 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/snowish-theme.el @@ -0,0 +1,267 @@ +;;; snowish-theme.el --- snowish theme + +;; Copyright (C) 2001 by Girish Bharadwaj +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of snowish theme from `color-themes' + +;;; Code: + +(deftheme snowish + "snowish theme") + +(custom-theme-set-faces + 'snowish + + '(default ((t (:background "snow2" :foreground "darkslategray")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "Red3")))) + '(border ((t (:foreground "black")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t :foreground "peru")))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(buffers-tab ((t (:background "snow2" :foreground "darkslategray")))) + '(custom-button-face ((t (:bold t)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "gray85")))) + '(custom-comment-tag-face ((t (:foreground "blue4")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(cyan ((t (:foreground "cyan")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid")))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Blue")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen")))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red")))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta")))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan")))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:bold t :foreground "Red")))) + '(font-lock-builtin-face ((t (:underline t :foreground "blue")))) + '(font-lock-comment-face ((t (:foreground "snow4")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-doc-string-face ((t (:foreground "mediumblue")))) + '(font-lock-function-name-face ((t (:bold t :foreground "darkblue")))) + '(font-lock-keyword-face ((t (:bold t :foreground "dodgerblue")))) + '(font-lock-preprocessor-face ((t (:underline t :foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:foreground "darkviolet")))) + '(font-lock-type-face ((t (:foreground "goldenrod")))) + '(font-lock-variable-name-face ((t (:foreground "tomato")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(gnus-cite-attribution-face ((t (nil)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (nil)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (nil)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t)))) + '(gnus-emphasis-underline-italic ((t (:underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen")))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-header-content-face ((t (:foreground "indianred4")))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:foreground "MidnightBlue")))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-picons-face ((t (:background "white" :foreground "black")))) + '(gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) + '(gnus-signature-face ((t (nil)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-low-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-low-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-low-unread-face ((t (nil)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:background "#D4D0C8" :foreground "black")))) + '(highlight ((t (:background "darkseagreen2")))) + '(html-helper-bold-face ((t (:bold t)))) + '(html-helper-bold-italic-face ((t (nil)))) + '(html-helper-builtin-face ((t (:underline t :foreground "blue3")))) + '(html-helper-italic-face ((t (:foreground "medium sea green")))) + '(html-helper-underline-face ((t (:underline t)))) + '(html-tag-face ((t (:bold t)))) + '(hyper-apropos-documentation ((t (:foreground "darkred")))) + '(hyper-apropos-heading ((t (:bold t)))) + '(hyper-apropos-hyperlink ((t (:foreground "blue4")))) + '(hyper-apropos-major-heading ((t (:bold t)))) + '(hyper-apropos-section-heading ((t (nil)))) + '(hyper-apropos-warning ((t (:bold t :foreground "red")))) + '(info-menu-6 ((t (nil)))) + '(isearch ((t (:background "paleturquoise")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (nil)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) + '(jde-java-font-lock-link-face ((t (:underline t :foreground "blue")))) + '(jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray")))) + '(magenta ((t (:foreground "magenta")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:foreground "blue4")))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue")))) + '(message-header-to-face ((t (:bold t :foreground "MidnightBlue")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (nil)))) + '(modeline-buffer-id ((t (:background "#D4D0C8" :foreground "blue4")))) + '(modeline-mousable ((t (:background "#D4D0C8" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "#D4D0C8" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "snow2")))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (:background "snow2" :foreground "darkslategray")))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(semantic-intangible-face ((t (:foreground "gray25")))) + '(semantic-read-only-face ((t (:background "gray25")))) + '(senator-momentary-highlight-face ((t (:background "gray70")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:underline t :foreground "red")))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(template-message-face ((t (:bold t)))) + '(term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue")))) + '(term-blue-face ((t (:foreground "blue")))) + '(term-blue-inv-face ((t (:background "blue")))) + '(term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue")))) + '(term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan")))) + '(term-cyan-face ((t (:foreground "cyan")))) + '(term-cyan-inv-face ((t (:background "cyan")))) + '(term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan")))) + '(term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray")))) + '(term-default-face ((t (:background "snow2" :foreground "darkslategray")))) + '(term-default-inv-face ((t (:background "darkslategray" :foreground "snow2")))) + '(term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray")))) + '(term-green-bold-face ((t (:bold t :background "snow2" :foreground "green")))) + '(term-green-face ((t (:foreground "green")))) + '(term-green-inv-face ((t (:background "green")))) + '(term-green-ul-face ((t (:underline t :background "snow2" :foreground "green")))) + '(term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta")))) + '(term-magenta-face ((t (:foreground "magenta")))) + '(term-magenta-inv-face ((t (:background "magenta")))) + '(term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta")))) + '(term-red-bold-face ((t (:bold t :background "snow2" :foreground "red")))) + '(term-red-face ((t (:foreground "red")))) + '(term-red-inv-face ((t (:background "red")))) + '(term-red-ul-face ((t (:underline t :background "snow2" :foreground "red")))) + '(term-white-bold-face ((t (:bold t :background "snow2" :foreground "white")))) + '(term-white-face ((t (:foreground "white")))) + '(term-white-inv-face ((t (:background "snow2")))) + '(term-white-ul-face ((t (:underline t :background "snow2" :foreground "white")))) + '(term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow")))) + '(term-yellow-face ((t (:foreground "yellow")))) + '(term-yellow-inv-face ((t (:background "yellow")))) + '(term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow")))) + '(text-cursor ((t (:background "Red3" :foreground "snow2")))) + '(toolbar ((t (nil)))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (nil)))) + '(white ((t (:foreground "white")))) + '(widget ((t (nil)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "gray65"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'snowish) + +;;; snowish-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/standard-ediff-theme.el b/elpa/color-theme-modern-0.0.3/standard-ediff-theme.el new file mode 100644 index 0000000..0bed478 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/standard-ediff-theme.el @@ -0,0 +1,60 @@ +;;; standard-ediff-theme.el --- standard-ediff theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of standard-ediff theme from `color-themes' + +;;; Code: + +(deftheme standard-ediff + "standard-ediff theme") + +(custom-theme-set-faces + 'standard-ediff + + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'standard-ediff) + +;;; standard-ediff-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/standard-theme.el b/elpa/color-theme-modern-0.0.3/standard-theme.el new file mode 100644 index 0000000..9b43d5b --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/standard-theme.el @@ -0,0 +1,273 @@ + +;;; standard-theme.el --- standard theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of standard theme from `color-themes' + +;;; Code: + +(deftheme standard + "standard theme") + +(custom-theme-set-faces + 'standard + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(Man-overstrike-face ((t (:bold t)))) + '(Man-underline-face ((t (:underline t)))) + '(apropos-keybinding-face ((t (:underline t)))) + '(apropos-label-face ((t (:italic t)))) + '(apropos-match-face ((t (:background "paleturquoise")))) + '(apropos-property-face ((t (:bold t :italic t)))) + '(apropos-symbol-face ((t (:bold t)))) + '(goto-address-mail-face ((t (:italic t)))) + '(goto-address-mail-mouse-face ((t (:background "paleturquoise")))) + '(goto-address-url-face ((t (:bold t)))) + '(goto-address-url-mouse-face ((t (:background "darkseagreen2")))) + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + + '(bold ((t (:bold t)))) + '(bold-italic ((t (:bold t :italic t)))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t)))) + '(cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:foreground "white" :background "blue")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:foreground "blue" :underline t)))) + '(custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) + '(custom-invalid-face ((t (:foreground "yellow" :background "red")))) + '(custom-modified-face ((t (:foreground "white" :background "blue")))) + '(custom-rogue-face ((t (:foreground "pink" :background "black")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:foreground "blue" :background "white")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t)))) + '(custom-variable-tag-face ((t (:foreground "blue" :underline t)))) + '(diary-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) + '(ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) + '(ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) + '(ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink")))) + '(ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) + '(ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) + '(ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) + '(ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) + '(ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) + '(ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) + '(ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) + '(ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) + '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-ls-directory-face ((t (:foreground "Blue" :bold t)))) + '(eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t)))) + '(eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) + '(eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t)))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:foreground "Red" :bold t)))) + '(eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-test-ok-face ((t (:foreground "Green" :bold t)))) + '(excerpt ((t (:italic t)))) + '(fixed ((t (:bold t)))) + '(flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) + '(flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:foreground "Firebrick")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-function-name-face ((t (:foreground "Blue")))) + '(font-lock-keyword-face ((t (:foreground "Purple")))) + '(font-lock-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-type-face ((t (:foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:foreground "Red" :bold t)))) + '(fringe ((t (:background "grey95")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:bold t :italic t)))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) + '(gnus-header-content-face ((t (:foreground "indianred4" :italic t)))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t)))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) + '(gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) + '(gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) + '(gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) + '(gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) + '(gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "darkseagreen2")))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "paleturquoise")))) + '(holiday-face ((t (:background "pink")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:bold t :italic t)))) + '(info-xref ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t)))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:foreground "navy blue" :bold t)))) + '(message-header-to-face ((t (:foreground "MidnightBlue" :bold t)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:foreground "white" :background "black")))) + '(modeline-buffer-id ((t (:foreground "white" :background "black")))) + '(modeline-mousable ((t (:foreground "white" :background "black")))) + '(modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) + '(region ((t (:background "gray")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(underline ((t (:underline t)))) + '(vcursor ((t (:foreground "blue" :background "cyan" :underline t)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t)))) + '(vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t)))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) + '(viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2")))) + '(viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink")))) + '(viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey")))) + '(viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2")))) + '(viper-search-face ((t (:foreground "Black" :background "khaki")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'standard) + +;;; standard-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/subdued-theme.el b/elpa/color-theme-modern-0.0.3/subdued-theme.el new file mode 100644 index 0000000..0be4bd3 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/subdued-theme.el @@ -0,0 +1,110 @@ +;;; subdued-theme.el --- subdued theme + +;; Copyright (C) 2009-2010 Jason R. Blevins +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of subdued theme from http://jblevins.org/projects/emacs-color-themes/ + +;;; Code: + +(deftheme subdued + "subdued theme") + +(custom-theme-set-faces + 'subdued + + '(default ((t (:background "#000" :foreground "#d3d7cf")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "#73d216")))) + '(border ((t (:foreground "#73d216")))) + + '(font-lock-comment-face ((t (:foreground "#61635e")))) ; dark aluminum + '(font-lock-comment-delimiter-face ((t (:foreground "#61635e")))) ; dark aluminum + '(font-lock-doc-face ((t (:foreground "#77507b")))) ; plum + '(font-lock-doc-string-face ((t (:foreground "#77507b")))) ; plum + '(font-lock-string-face ((t (:foreground "#77507b")))) ; plum + '(font-lock-keyword-face ((t (:foreground "#729fcf")))) ; light sky blue + '(font-lock-builtin-face ((t (:foreground "#855c1b")))) ; med-dark chocolate + '(font-lock-function-name-face ((t (:foreground "#c4a000")))) ; dark butter + '(font-lock-variable-name-face ((t (nil)))) + '(font-lock-preprocessor-face ((t (:foreground "#888a85")))) ; aluminum + '(font-lock-constant-face ((t (:foreground "#4e9a06")))) ; dark chameleon + '(font-lock-type-face ((t (:foreground "#ad7fa8")))) ; light plum + '(font-lock-warning-face ((t (:bold t :foreground "#cc0000")))) ; scarlet red + + ;; Search + '(isearch ((t (:foreground "#080808" :background "#edd400")))) + '(isearch-lazy-highlight-face ((t (:foreground "#080808" :background "#2e3436")))) + + ;; Emacs Interface + '(fringe ((t (:background "#0f0f0f")))) + '(border ((t (:background "#0f0f0f")))) + '(mode-line ((t (:background "#1f1f1f" :foreground "#eeeeec")))) + '(mode-line-buffer-id ((t (:background "#1f1f1f" :foreground "#eeeeec")))) + '(mode-line-inactive ((t (:background "#1f1f1f" :foreground "#888a85")))) + '(minibuffer-prompt ((t (:foreground "#729fcf")))) ; light sky blue + '(region ((t (:background "#2e3436")))) + + ;; Parenthesis matching + '(show-paren-match-face ((t (:foreground "#2e3436" :background "#73d216")))) + '(show-paren-mismatch-face ((t (:foreground "#2e3436" :background "#ef2929")))) + + ;; Line highlighting + '(highlight ((t (:background "#1f1f1f" :foreground nil)))) + '(highlight-current-line-face ((t (:background "#1f1f1f" :foreground nil)))) + + ;; Calendar + '(holiday-face ((t (:foreground "#cc0000")))) ; dark scarlet red + + ;; Info + '(info-xref ((t (:foreground "#729fcf")))) ; light sky blue + '(info-xref-visited ((t (:foreground "#ad7fa8")))) ; light plum + +;;; AUCTeX + '(font-latex-sectioning-5-face ((t (:foreground "#c4a000" :bold t)))) ; dark butter + '(font-latex-bold-face ((t (:foreground "#4e9a06" :bold t)))) ; dark chameleon + '(font-latex-italic-face ((t (:foreground "#4e9a06" :italic t)))) ; dark chameleon + '(font-latex-math-face ((t (:foreground "#855c1b")))) ; med-dark chocolate + '(font-latex-string-face ((t (:foreground "#77507b")))) ; plum + '(font-latex-warning-face ((t (:foreground "#cc0000")))) ; dark scarlet red + '(font-latex-slide-title-face ((t (:foreground "#c4a000")))) ; dark butter + +;;; post-mode + '(post-emoticon-face ((t (:background "#edd400" :foreground "#000000")))) ; medium butter + '(post-header-value-face ((t (:foreground "#4e9a06")))) ; dark chameleon + '(post-header-keyword-face ((t (:foreground "#4e9a06" :bold t)))) ; dark chameleon + '(post-signature-text-face ((t (:foreground "#cc0000")))) ; dark scarlet red + '(post-quoted-text-face ((t (:foreground "#855c1b" :slant normal)))) ; med-dark chocolate + '(post-double-quoted-text-face ((t (:foreground "#77507b" :slant normal)))) ; plum + '(post-multiply-quoted-text-face ((t (:foreground "#61635e" :slant normal)))) ; dark aluminum + '(post-email-address-text-face ((t (:foreground "#729fcf" :bold t)))) ; light sky blue + '(post-url-face ((t (:foreground "#729fcf" :bold t)))) ; light sky blue + ) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'subdued) + +;;; subdued-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/subtle-blue-theme.el b/elpa/color-theme-modern-0.0.3/subtle-blue-theme.el new file mode 100644 index 0000000..37e3399 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/subtle-blue-theme.el @@ -0,0 +1,437 @@ +;;; subtle-blue-theme.el --- subtle-blue theme + +;; Copyright (C) 2001 by Chris McMahan +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of subtle-blue theme from `color-themes' + +;;; Code: + +(deftheme subtle-blue + "subtle-blue theme") + +(custom-theme-set-faces + 'subtle-blue + + '(default ((t (:background "#65889C" :foreground "#eedfcc")))) + '(mouse ((t (:background "Grey")))) + '(cursor ((t (:background "white")))) + '(border ((t (:background "black")))) + + '(bbdb-company ((t (:italic t)))) + '(bbdb-field-name ((t (:bold t :foreground "MediumAquamarine")))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(blank-space-face ((t (:background "gray80")))) + '(blank-tab-face ((t (:background "LightBlue" :foreground "DarkSlateGray")))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t :foreground "MediumAquamarine")))) + '(bold-italic ((t (:italic t :bold t :foreground "SkyBlue")))) + '(border-glyph ((t (nil)))) + '(calendar-today-face ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t)))) + '(comint-highlight-prompt ((t (:foreground "cyan")))) + '(comint-input-face ((t (:foreground "deepskyblue")))) + '(cperl-array-face ((t (:bold t :foreground "Yellow")))) + '(cperl-hash-face ((t (:italic t :bold t :foreground "White")))) + '(cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) + '(custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine")))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black")))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "dim gray")))) + '(custom-comment-tag-face ((t (:foreground "gray80")))) + '(custom-documentation-face ((t (:foreground "Grey")))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine")))) + '(custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "yellow")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:bold t :foreground "Aquamarine")))) + '(cvs-filename-face ((t (:foreground "blue4")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "blue4")))) + '(cvs-marked-face ((t (:bold t :foreground "green3")))) + '(cvs-msg-face ((t (:italic t)))) + '(cvs-need-action-face ((t (:foreground "orange")))) + '(cvs-unknown-face ((t (:foreground "red")))) + '(diary-face ((t (:bold t :foreground "cyan")))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t :foreground "sky blue")))) + '(dired-face-executable ((t (:foreground "MediumAquaMarine")))) + '(dired-face-flagged ((t (:foreground "Cyan")))) + '(dired-face-marked ((t (:foreground "cyan")))) + '(dired-face-permissions ((t (:foreground "aquamarine")))) + '(dired-face-setuid ((t (:foreground "LightSalmon")))) + '(dired-face-socket ((t (:foreground "LightBlue")))) + '(dired-face-symlink ((t (:foreground "gray95")))) + '(display-time-mail-balloon-enhance-face ((t (:background "orange")))) + '(display-time-mail-balloon-gnus-group-face ((t (:foreground "blue")))) + '(display-time-time-balloon-face ((t (:foreground "red")))) + '(ecb-sources-face ((t (:foreground "LightBlue1")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "indianred" :foreground "white")))) + '(ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Gray" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White")))) + '(erc-action-face ((t (:bold t)))) + '(erc-bold-face ((t (:bold t)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "LightSalmon")))) + '(erc-error-face ((t (:bold t :foreground "yellow")))) + '(erc-input-face ((t (:foreground "Beige")))) + '(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) + '(erc-notice-face ((t (:foreground "MediumAquamarine")))) + '(erc-pal-face ((t (:foreground "PaleGreen")))) + '(erc-prompt-face ((t (:foreground "MediumAquamarine")))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-backup-face ((t (:foreground "Grey")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Yellow")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-missing-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-picture-face ((t (:foreground "wheat")))) + '(eshell-ls-product-face ((t (:foreground "wheat")))) + '(eshell-ls-readonly-face ((t (:foreground "wheat")))) + '(eshell-ls-special-face ((t (:bold t :foreground "wheat")))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "White")))) + '(eshell-ls-text-face ((t (:foreground "wheat")))) + '(eshell-ls-todo-face ((t (:foreground "wheat")))) + '(eshell-ls-unreadable-face ((t (:foreground "wheat3")))) + '(eshell-prompt-face ((t (:bold t :foreground "PaleGreen")))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed")))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green")))) + '(excerpt ((t (:italic t)))) + '(ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue")))) + '(flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3")))) + '(flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed")))) + '(font-latex-italic-face ((t (nil)))) + '(font-latex-math-face ((t (nil)))) + '(font-latex-sedate-face ((t (:foreground "Gray85")))) + '(font-latex-string-face ((t (:foreground "orange")))) + '(font-latex-warning-face ((t (:foreground "gold")))) + '(font-lock-builtin-face ((t (:foreground "PaleGreen")))) + '(font-lock-comment-face ((t (:italic t :foreground "Wheat3")))) + '(font-lock-constant-face ((t (:foreground "LightBlue")))) + '(font-lock-doc-face ((t (:bold t :foreground "DarkSeaGreen")))) + '(font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen")))) + '(font-lock-exit-face ((t (:foreground "green")))) + '(font-lock-function-name-face ((t (:italic t :bold t :foreground "cyan")))) + '(font-lock-keyword-face ((t (:bold t :foreground "LightBlue")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "PaleGreen")))) + '(font-lock-string-face ((t (:italic t :foreground "MediumAquamarine")))) + '(font-lock-type-face ((t (:bold t :foreground "LightBlue")))) + '(font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue")))) + '(font-lock-warning-face ((t (:bold t :foreground "LightSalmon")))) + '(fringe ((t (:background "darkslategrey")))) + '(gnus-cite-attribution-face ((t (:italic t :bold t)))) + '(gnus-cite-face-1 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-11 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-2 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-3 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-4 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-5 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-6 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-7 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-8 ((t (:foreground "LightBlue")))) + '(gnus-cite-face-9 ((t (:foreground "LightBlue")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:underline t :bold t)))) + '(gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t)))) + '(gnus-emphasis-underline-italic ((t (:underline t :italic t)))) + '(gnus-filterhist-face-1 ((t (nil)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "gray80")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-news-1-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) + '(gnus-group-news-2-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine")))) + '(gnus-group-news-3-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-group-news-4-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-4-face ((t (:bold t :foreground "Wheat")))) + '(gnus-group-news-5-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-6-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine")))) + '(gnus-group-news-low-empty-face ((t (:foreground "gray80")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) + '(gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3")))) + '(gnus-header-from-face ((t (:bold t :foreground "light cyan")))) + '(gnus-header-name-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) + '(gnus-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(gnus-picons-face ((t (:background "white" :foreground "black")))) + '(gnus-picons-xbm-face ((t (:background "white" :foreground "black")))) + '(gnus-signature-face ((t (:italic t :foreground "LightBlue")))) + '(gnus-splash ((t (:foreground "Brown")))) + '(gnus-splash-face ((t (:foreground "LightBlue")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "gray80")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat")))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "light sea green")))) + '(gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue")))) + '(gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "gray80")))) + '(gnus-summary-normal-read-face ((t (:foreground "gray80")))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown")))) + '(gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat")))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(gnus-x-face ((t (:background "white" :foreground "black")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "cyan" :foreground "#65889C")))) + '(gui-element ((t (:background "Gray")))) + '(header-line ((t (:background "grey20" :foreground "grey90")))) + '(highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) + '(highlight-changes-delete-face ((t (:underline t :foreground "red")))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "SeaGreen")))) + '(holiday-face ((t (:background "DimGray")))) + '(html-helper-bold-face ((t (:foreground "DarkRed")))) + '(html-helper-italic-face ((t (:foreground "DarkBlue")))) + '(html-helper-underline-face ((t (:underline t :foreground "Black")))) + '(html-tag-face ((t (:foreground "Blue")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:underline t :italic t :bold t :foreground "light blue")))) + '(info-xref ((t (:bold t :foreground "light blue")))) + '(isearch ((t (:background "Aquamarine" :foreground "SteelBlue")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise4")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (:italic t)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red")))) + '(jde-java-font-lock-api-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-bold-face ((t (:bold t)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-italic-face ((t (:italic t)))) + '(jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue")))) + '(jde-java-font-lock-modifier-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-number-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-package-face ((t (:foreground "LightBlue")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(lazy-highlight-face ((t (:bold t :foreground "dark magenta")))) + '(left-margin ((t (nil)))) + '(linemenu-face ((t (:background "gray30")))) + '(list-mode-item-selected ((t (nil)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(menu ((t (:background "wheat" :foreground "gray30")))) + '(message-cited-text-face ((t (:foreground "White")))) + '(message-header-cc-face ((t (:bold t :foreground "light cyan")))) + '(message-header-name-face ((t (:foreground "LightBlue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) + '(message-header-other-face ((t (:foreground "LightSkyBlue3")))) + '(message-header-subject-face ((t (:bold t :foreground "light cyan")))) + '(message-header-to-face ((t (:bold t :foreground "light cyan")))) + '(message-header-xheader-face ((t (:foreground "LightBlue")))) + '(message-mml-face ((t (:bold t :foreground "LightBlue")))) + '(message-separator-face ((t (:foreground "LightBlue")))) + '(mmm-default-submode-face ((t (:background "#c0c0c5")))) + '(modeline ((t (:background "#4f657d" :foreground "gray80")))) + '(modeline-buffer-id ((t (:background "#4f657d" :foreground "gray80")))) + '(modeline-mousable ((t (:background "#4f657d" :foreground "gray80")))) + '(modeline-mousable-minor-mode ((t (:background "#4f657d" :foreground "gray80")))) + '(my-summary-highlight-face ((t (:foreground "White")))) + '(my-url-face ((t (:foreground "PaleTurquoise")))) + '(nil ((t (nil)))) + '(paren-blink-off ((t (:foreground "gray")))) + '(paren-face-match ((t (:background "turquoise")))) + '(paren-face-mismatch ((t (:background "purple" :foreground "white")))) + '(paren-face-no-match ((t (:background "yellow" :foreground "black")))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "black")))) + '(paren-mismatch-face ((t (:bold t)))) + '(paren-no-match-face ((t (:bold t)))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "CadetBlue" :foreground "gray80")))) + '(right-margin ((t (nil)))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "LightBlue" :foreground "#4f657d")))) + '(semantic-dirty-token-face ((t (:background "gray10")))) + '(semantic-intangible-face ((t (:foreground "gray25")))) + '(semantic-read-only-face ((t (:background "gray25")))) + '(senator-intangible-face ((t (:foreground "gray75")))) + '(senator-momentary-highlight-face ((t (:background "gray80")))) + '(senator-read-only-face ((t (:background "#664444")))) + '(sgml-comment-face ((t (:foreground "dark turquoise")))) + '(sgml-doctype-face ((t (:foreground "red")))) + '(sgml-end-tag-face ((t (:foreground "blue")))) + '(sgml-entity-face ((t (:foreground "magenta")))) + '(sgml-ignored-face ((t (:background "gray60" :foreground "gray40")))) + '(sgml-ms-end-face ((t (:foreground "green")))) + '(sgml-ms-start-face ((t (:foreground "yellow")))) + '(sgml-pi-face ((t (:foreground "lime green")))) + '(sgml-sgml-face ((t (:foreground "brown")))) + '(sgml-short-ref-face ((t (:foreground "deep sky blue")))) + '(sgml-start-tag-face ((t (:foreground "dark green")))) + '(shell-option-face ((t (:foreground "blue")))) + '(shell-output-2-face ((t (:foreground "darkseagreen")))) + '(shell-output-3-face ((t (:foreground "slategray")))) + '(shell-output-face ((t (:foreground "palegreen")))) + '(shell-prompt-face ((t (:foreground "red")))) + '(show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue")))) + '(show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White")))) + '(speedbar-button-face ((t (:bold t :foreground "LightBlue")))) + '(speedbar-directory-face ((t (:bold t :foreground "yellow")))) + '(speedbar-file-face ((t (:bold t :foreground "wheat")))) + '(speedbar-highlight-face ((t (:background "sea green")))) + '(speedbar-selected-face ((t (:underline t)))) + '(speedbar-tag-face ((t (:foreground "LightBlue")))) + '(swbuff-current-buffer-face ((t (:bold t :foreground "red")))) + '(template-message-face ((t (:bold t)))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(text-cursor ((t (:background "Red3" :foreground "white")))) + '(tool-bar ((t (:background "grey75" :foreground "black")))) + '(toolbar ((t (:background "Gray")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (nil)))) + '(vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat")))) + '(vcursor ((t (:underline t :background "cyan" :foreground "blue")))) + '(vertical-divider ((t (:background "Gray")))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red")))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange")))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue")))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod")))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen")))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown")))) + '(vhdl-speedbar-package-face ((t (:foreground "Gray50")))) + '(vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50")))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(vm-header-content-face ((t (:italic t :foreground "gray80")))) + '(vm-header-from-face ((t (:italic t :background "#65889C" :foreground "cyan")))) + '(vm-header-name-face ((t (:foreground "cyan")))) + '(vm-header-subject-face ((t (:foreground "cyan")))) + '(vm-header-to-face ((t (:italic t :foreground "cyan")))) + '(vm-message-cited-face ((t (:foreground "Gray80")))) + '(vm-summary-face-1 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-2 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-3 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-face-4 ((t (:foreground "MediumAquamarine")))) + '(vm-summary-highlight-face ((t (:foreground "White")))) + '(vmpc-pre-sig-face ((t (:foreground "Aquamarine")))) + '(vmpc-sig-face ((t (:foreground "LightBlue")))) + '(vvb-face ((t (:background "pink" :foreground "black")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "cyan")))) + '(widget-documentation-face ((t (:foreground "LightBlue")))) + '(widget-field-face ((t (:foreground "LightBlue")))) + '(widget-inactive-face ((t (:foreground "Wheat3")))) + '(widget-single-line-field-face ((t (:foreground "LightBlue")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(xref-keyword-face ((t (:foreground "Cyan")))) + '(xref-list-pilot-face ((t (:foreground "navy")))) + '(xref-list-symbol-face ((t (:foreground "navy")))) + '(xxml-emph-1-face ((t (:background "lightyellow")))) + '(xxml-emph-2-face ((t (:background "lightyellow")))) + '(xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine")))) + '(xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue")))) + '(xxml-header-3-face ((t (:background "seashell1")))) + '(xxml-header-4-face ((t (:background "seashell1")))) + '(xxml-interaction-face ((t (:background "lightcyan")))) + '(xxml-rug-face ((t (:background "cyan")))) + '(xxml-sparkle-face ((t (:background "yellow")))) + '(xxml-unbreakable-space-face ((t (:underline t :foreground "grey")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "#4f657d"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'subtle-blue) + +;;; subtle-blue-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/subtle-hacker-theme.el b/elpa/color-theme-modern-0.0.3/subtle-hacker-theme.el new file mode 100644 index 0000000..af3850e --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/subtle-hacker-theme.el @@ -0,0 +1,156 @@ +;;; subtle-hacker-theme.el --- subtle-hacker theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of subtle-hacker theme from `color-themes' + +;;; Code: + +(deftheme subtle-hacker + "subtle-hacker theme") + +(custom-theme-set-faces + 'subtle-hacker + + '(default ((t (:foreground "wheat" :background "darkslategrey")))) + + '(mouse ((t (:foreground "Grey")))) + '(cursor ((t (:background "LightGray")))) + '(border ((t (:foreground "black")))) + + '(bbdb-company ((t (:foreground "pale green")))) + '(bbdb-name ((t (:bold t :foreground "pale green")))) + '(bbdb-field-name ((t (:foreground "medium sea green")))) + '(bbdb-field-value ((t (:foreground "dark sea green")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t :foreground "beige")))) + '(calendar-today-face ((t (:underline t)))) + '(comint-highlight-prompt ((t (:foreground "medium aquamarine")))) + '(cperl-array-face ((t (:foreground "Yellow")))) + '(cperl-hash-face ((t (:foreground "White")))) + '(cperl-nonoverridable-face ((t (:foreground "SkyBlue")))) + '(custom-button-face ((t (:underline t :foreground "MediumSlateBlue")))) + '(custom-documentation-face ((t (:foreground "Grey")))) + '(custom-group-tag-face ((t (:foreground "MediumAquamarine")))) + '(custom-state-face ((t (:foreground "Coral")))) + '(custom-variable-tag-face ((t (:foreground "Aquamarine")))) + '(diary-face ((t (:bold t :foreground "IndianRed")))) + '(dired-face-directory ((t (:bold t :foreground "sky blue")))) + '(dired-face-permissions ((t (:foreground "aquamarine")))) + '(dired-face-flagged ((t (:foreground "tomato")))) + '(dired-face-marked ((t (:foreground "light salmon")))) + '(dired-face-executable ((t (:foreground "green yellow")))) + '(fringe ((t (:background "darkslategrey")))) + '(highlight ((t (:background "PaleGreen" :foreground "DarkGreen")))) + '(highline-face ((t (:background "SeaGreen")))) + '(holiday-face ((t (:background "DimGray")))) + '(hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1")))) + '(hyper-apropos-documentation ((t (:foreground "LightSalmon")))) + '(info-header-xref ((t (:foreground "DodgerBlue1" :bold t)))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:underline t :bold t :foreground "DodgerBlue1")))) + '(info-xref ((t (:bold t :foreground "DodgerBlue1")))) + '(isearch ((t (:background "sea green")))) + '(italic ((t (:italic t)))) + '(menu ((t (:foreground "wheat" :background "darkslategrey")))) + '(modeline ((t (:background "dark olive green" :foreground "wheat")))) + '(modeline-buffer-id ((t (:background "dark olive green" :foreground "beige")))) + '(modeline-mousable ((t (:background "dark olive green" :foreground "yellow green")))) + '(modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat")))) + '(region ((t (:background "dark cyan" :foreground "cyan")))) + '(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue")))) + '(show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue")))) + '(show-paren-mismatch-face ((t (:background "Red" :foreground "White")))) + '(underline ((t (:underline t)))) + '(widget-field-face ((t (:foreground "LightBlue")))) + '(widget-inactive-face ((t (:foreground "DimGray")))) + '(widget-single-line-field-face ((t (:foreground "LightBlue")))) + '(w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1")))) + '(w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3")))) + '(w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green")))) + '(w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green")))) + '(woman-bold-face ((t (:bold t)))) + '(woman-italic-face ((t (:foreground "beige")))) + '(woman-unknown-face ((t (:foreground "LightSalmon")))) + '(zmacs-region ((t (:background "dark cyan" :foreground "cyan")))) + + '(eshell-ls-clutter-face ((t (:bold t :foreground "DimGray")))) + '(eshell-ls-executable-face ((t (:bold t :foreground "Coral")))) + '(eshell-ls-missing-face ((t (:bold t :foreground "black")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Gold")))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "White")))) + '(font-lock-comment-face ((t (:foreground "White")))) + '(font-lock-constant-face ((t (:bold t :foreground "Aquamarine")))) + '(font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue")))) + '(font-lock-string-face ((t (:italic t :foreground "LightSalmon")))) + '(font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine")))) + '(gnus-cite-face-1 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-2 ((t (:foreground "chocolate")))) + '(gnus-cite-face-3 ((t (:foreground "tomato")))) + '(gnus-group-mail-1-empty-face ((t (:foreground "light cyan")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "light cyan")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "tomato")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "tomato")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "dodger blue")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue")))) + '(gnus-group-news-1-empty-face ((t (:foreground "green yellow")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "green yellow")))) + '(gnus-group-news-2-empty-face ((t (:foreground "dark orange")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "dark orange")))) + '(gnus-group-news-3-empty-face ((t (:foreground "tomato")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "tomato")))) + '(gnus-group-news-low-empty-face ((t (:foreground "yellow green")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "yellow green")))) + '(gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1")))) + '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) + '(gnus-signature-face ((t (:foreground "salmon")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "forest green")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood")))) + '(gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "cyan")))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "chocolate")))) + '(gnus-summary-low-read-face ((t (:foreground "light sea green")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "chocolate")))) + '(gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "khaki")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "sandy brown")))) + '(gnus-summary-normal-unread-face ((t (:foreground "aquamarine")))) + '(message-cited-text-face ((t (:foreground "White")))) + '(message-header-name-face ((t (:foreground "DodgerBlue1")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3")))) + '(message-header-other-face ((t (:foreground "LightSkyBlue3")))) + '(message-header-xheader-face ((t (:foreground "DodgerBlue3")))) ) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'subtle-hacker) + +;;; subtle-hacker-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/taming-mr-arneson-theme.el b/elpa/color-theme-modern-0.0.3/taming-mr-arneson-theme.el new file mode 100644 index 0000000..3c0f7eb --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/taming-mr-arneson-theme.el @@ -0,0 +1,178 @@ +;;; taming-mr-arneson-theme.el --- taming-mr-arneson theme + +;; Copyright (C) 2001 by Erik Arneson +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of taming-mr-arneson theme from `color-themes' + +;;; Code: + +(deftheme taming-mr-arneson + "taming-mr-arneson theme") + +(custom-theme-set-faces + 'taming-mr-arneson + + '(default ((t (:background "black" :foreground "LightSkyBlue")))) + '(cursor ((t (:background "Red3")))) + '(border ((t (:foreground "black")))) + + '(bbdb-company ((t (nil)))) + '(bbdb-field-name ((t (:bold t)))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:bold t :foreground "yellow")))) + '(border-glyph ((t (nil)))) + '(buffers-tab ((t (:background "black" :foreground "LightSkyBlue")))) + '(cperl-array-face ((t (:bold t :foreground "SkyBlue2")))) + '(cperl-hash-face ((t (:foreground "LightBlue2")))) + '(cperl-invalid-face ((t (:foreground "white")))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (:bold t)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:foreground "white")))) + '(custom-comment-tag-face ((t (:foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "white")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(cvs-filename-face ((t (:foreground "white")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:foreground "green")))) + '(cvs-marked-face ((t (:bold t :foreground "green3")))) + '(cvs-msg-face ((t (:foreground "red")))) + '(cvs-need-action-face ((t (:foreground "yellow")))) + '(cvs-unknown-face ((t (:foreground "grey")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-file-header-face ((t (:bold t :background "grey70")))) + '(diff-hunk-header-face ((t (:background "grey85")))) + '(diff-index-face ((t (:bold t :background "grey70")))) + '(diff-removed-face ((t (nil)))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t :foreground "SkyBlue2")))) + '(dired-face-executable ((t (:foreground "Green")))) + '(dired-face-flagged ((t (:background "LightSlateGray")))) + '(dired-face-header ((t (:background "grey75" :foreground "black")))) + '(dired-face-marked ((t (:background "PaleVioletRed")))) + '(dired-face-permissions ((t (:background "grey75" :foreground "black")))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "cyan")))) + '(excerpt ((t (nil)))) + '(fixed ((t (:bold t)))) + '(font-lock-builtin-face ((t (:foreground "red3")))) + '(font-lock-comment-face ((t (:foreground "red")))) + '(font-lock-constant-face ((t (nil)))) + '(font-lock-doc-string-face ((t (:foreground "turquoise")))) + '(font-lock-function-name-face ((t (:foreground "white")))) + '(font-lock-keyword-face ((t (:foreground "green")))) + '(font-lock-preprocessor-face ((t (:foreground "green3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:foreground "turquoise")))) + '(font-lock-type-face ((t (:foreground "steelblue")))) + '(font-lock-variable-name-face ((t (:foreground "magenta2")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (nil)))) + '(highlight ((t (:background "darkseagreen2" :foreground "blue")))) + '(html-helper-bold-face ((t (:bold t)))) + '(html-helper-italic-face ((t (:bold t :foreground "yellow")))) + '(html-helper-underline-face ((t (:underline t)))) + '(hyper-apropos-documentation ((t (:foreground "white")))) + '(hyper-apropos-heading ((t (:bold t)))) + '(hyper-apropos-hyperlink ((t (:foreground "sky blue")))) + '(hyper-apropos-major-heading ((t (:bold t)))) + '(hyper-apropos-section-heading ((t (:bold t)))) + '(hyper-apropos-warning ((t (:bold t :foreground "red")))) + '(info-node ((t (:bold t :foreground "yellow")))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (:background "paleturquoise" :foreground "dark red")))) + '(isearch-secondary ((t (:foreground "red3")))) + '(italic ((t (:bold t :foreground "yellow")))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68" :foreground "dark green")))) + '(man-bold ((t (:bold t)))) + '(man-heading ((t (:bold t)))) + '(man-italic ((t (:foreground "yellow")))) + '(man-xref ((t (:underline t)))) + '(message-cited-text ((t (:foreground "orange")))) + '(message-header-contents ((t (:foreground "white")))) + '(message-headers ((t (:bold t :foreground "orange")))) + '(message-highlighted-header-contents ((t (:bold t)))) + '(message-url ((t (:bold t :foreground "pink")))) + '(mmm-face ((t (:background "black" :foreground "green")))) + '(modeline ((t (nil)))) + '(modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) + '(modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "gray80")))) + '(paren-match ((t (:background "dark blue")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue")))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray65" :foreground "DarkBlue")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "gray65" :foreground "DarkBlue")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise" :foreground "black")))) + '(shell-option-face ((t (:foreground "blue4")))) + '(shell-output-2-face ((t (:foreground "green4")))) + '(shell-output-3-face ((t (:foreground "green4")))) + '(shell-output-face ((t (:bold t)))) + '(shell-prompt-face ((t (:foreground "red4")))) + '(text-cursor ((t (:background "Red3" :foreground "black")))) + '(toolbar ((t (:background "Gray80" :foreground "black")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (nil)))) + '(vm-xface ((t (:background "white" :foreground "black")))) + '(vmpc-pre-sig-face ((t (:foreground "forestgreen")))) + '(vmpc-sig-face ((t (:foreground "steelblue")))) + '(widget ((t (nil)))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85" :foreground "black")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(x-face ((t (:background "white" :foreground "black")))) + '(xrdb-option-name-face ((t (:foreground "red")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "gray65"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'taming-mr-arneson) + +;;; taming-mr-arneson-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/taylor-theme.el b/elpa/color-theme-modern-0.0.3/taylor-theme.el new file mode 100644 index 0000000..2e2bd08 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/taylor-theme.el @@ -0,0 +1,129 @@ +;;; taylor-theme.el --- taylor theme + +;; Copyright (C) 2000 by Art Taylor +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of taylor theme from `color-themes' + +;;; Code: + +(deftheme taylor + "taylor theme") + +(custom-theme-set-faces + 'taylor + + '(default ((t (:background "black" :foreground "wheat")))) + '(cursor ((t (:background "red")))) + '(border ((t (:foreground "black")))) + + '(gnus-mouse-face ((t (:background "black" :foreground "black")))) + '(list-matching-lines-face ((t (:bold t :background "grey40" :foreground "yellow")))) + '(view-highlight-face ((t (:background "black" :foreground "black")))) + + '(bold ((t (:bold t :background "grey40" :foreground "yellow")))) + '(bold-italic ((t (:italic t :bold t :foreground "yellow green")))) + '(fl-comment-face ((t (:foreground "medium purple")))) + '(fl-function-name-face ((t (:foreground "green")))) + '(fl-keyword-face ((t (:foreground "LightGreen")))) + '(fl-string-face ((t (:foreground "light coral")))) + '(fl-type-face ((t (:foreground "cyan")))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:foreground "OrangeRed")))) + '(font-lock-constant-face ((t (:foreground "Aquamarine")))) + '(font-lock-function-name-face ((t (:foreground "LightSkyBlue")))) + '(font-lock-keyword-face ((t (:foreground "Cyan")))) + '(font-lock-string-face ((t (:foreground "LightSalmon")))) + '(font-lock-type-face ((t (:foreground "PaleGreen")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "Pink")))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "pink")))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "pink")))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "PaleGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "pink")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "black" :foreground "black")))) + '(italic ((t (:italic t :foreground "yellow3")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "green4")))) + '(message-header-name-face ((t (:foreground "DarkGreen")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) + '(message-header-other-face ((t (:foreground "#b00000")))) + '(message-header-subject-face ((t (:foreground "green3")))) + '(message-header-to-face ((t (:bold t :foreground "green2")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "blue3")))) + '(modeline ((t (:background "wheat" :foreground "black")))) + '(modeline-buffer-id ((t (:background "wheat" :foreground "black")))) + '(modeline-mousable ((t (:background "wheat" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "wheat" :foreground "black")))) + '(region ((t (:background "blue")))) + '(secondary-selection ((t (:background "darkslateblue" :foreground "black")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(underline ((t (:underline t)))) + '(xref-keyword-face ((t (:foreground "blue")))) + '(xref-list-default-face ((t (nil)))) + '(xref-list-pilot-face ((t (:foreground "navy")))) + '(xref-list-symbol-face ((t (:foreground "navy"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'taylor) + +;;; taylor-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/tty-dark-theme.el b/elpa/color-theme-modern-0.0.3/tty-dark-theme.el new file mode 100644 index 0000000..179b1f6 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/tty-dark-theme.el @@ -0,0 +1,88 @@ +;;; tty-dark-theme.el --- tty-dark theme + +;; Copyright (C) 2001 by Oivvio Polite +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of tty-dark theme from `color-themes' + +;;; Code: + +(deftheme tty-dark + "tty-dark theme") + +(custom-theme-set-faces + 'tty-dark + + '(default ((t (:background "black" :foreground "white")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "red")))) + '(border ((t (:foreground "blue")))) + + '(bold ((t (:underline t :background "black" :foreground "white")))) + '(bold-italic ((t (:underline t :foreground "white")))) + '(calendar-today-face ((t (:underline t)))) + '(diary-face ((t (:foreground "red")))) + '(font-lock-builtin-face ((t (:foreground "blue")))) + '(font-lock-comment-face ((t (:foreground "cyan")))) + '(font-lock-constant-face ((t (:foreground "magenta")))) + '(font-lock-function-name-face ((t (:foreground "cyan")))) + '(font-lock-keyword-face ((t (:foreground "red")))) + '(font-lock-string-face ((t (:foreground "green")))) + '(font-lock-type-face ((t (:foreground "yellow")))) + '(font-lock-variable-name-face ((t (:foreground "blue")))) + '(font-lock-warning-face ((t (:bold t :foreground "magenta")))) + '(highlight ((t (:background "blue" :foreground "yellow")))) + '(holiday-face ((t (:background "cyan")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(italic ((t (:underline t :background "red")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:bold t :foreground "green")))) + '(message-header-name-face ((t (:foreground "green")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow")))) + '(message-header-other-face ((t (:foreground "#b00000")))) + '(message-header-subject-face ((t (:foreground "green")))) + '(message-header-to-face ((t (:bold t :foreground "green")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "green")))) + '(message-separator-face ((t (:foreground "blue")))) + + '(modeline ((t (:background "white" :foreground "blue")))) + '(modeline-buffer-id ((t (:background "white" :foreground "red")))) + '(modeline-mousable ((t (:background "white" :foreground "magenta")))) + '(modeline-mousable-minor-mode ((t (:background "white" :foreground "yellow")))) + '(region ((t (:background "white" :foreground "black")))) + '(zmacs-region ((t (:background "cyan" :foreground "black")))) + '(secondary-selection ((t (:background "blue")))) + '(show-paren-match-face ((t (:background "red")))) + '(show-paren-mismatch-face ((t (:background "magenta" :foreground "white")))) + '(underline ((t (:underline t))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'tty-dark) + +;;; tty-dark-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/vim-colors-theme.el b/elpa/color-theme-modern-0.0.3/vim-colors-theme.el new file mode 100644 index 0000000..ad4f99a --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/vim-colors-theme.el @@ -0,0 +1,125 @@ +;;; vim-colors-theme.el --- vim-colors theme + +;; Copyright (C) 2003 by Michael Soulier +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of vim-colors theme from `color-themes' + +;;; Code: + +(deftheme vim-colors + "vim-colors theme") + +(custom-theme-set-faces + 'vim-colors + + '(default ((t (:background "#ffffff" :foreground "#000000")))) + '(mouse ((t (:background "#000000")))) + '(cursor ((t (:background "#000000")))) + '(border ((t (:background "black")))) + + '(Man-overstrike-face ((t (:weight bold)))) + '(Man-underline-face ((t (:underline t)))) + '(apropos-keybinding-face ((t (:underline t)))) + '(apropos-label-face ((t (:italic t)))) + + '(apropos-match-face ((t (:background "yellow")))) + '(apropos-property-face ((t (:italic t :weight bold)))) + '(apropos-symbol-face ((t (:weight bold)))) + '(cperl-here-face ((t (:background "#f2f2f2" :foreground "#ff00ff")))) + '(cperl-invalid-face ((t (:underline t)))) + '(cperl-pod-face ((t (:foreground "blue")))) + '(cperl-pod-head-face ((t (:foreground "#008b8b")))) + '(help-highlight-face ((t (:underline t)))) + '(ispell-highlight-face ((t (:background "darkseagreen2")))) + '(list-matching-lines-face ((t (:weight bold)))) + + '(tags-tag-face ((t (:background "#ffffff" :foreground "#000000")))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + '(widget-mouse-face ((t (:background "darkseagreen2")))) + + '(default ((t (:background "#ffffff" :foreground "#000000")))) + '(Info-title-4-face ((t (:weight bold)))) + '(bold ((t (:weight bold)))) + '(bold-italic ((t (:italic t :weight bold)))) + '(comint-highlight-input ((t (:weight bold)))) + '(comint-highlight-prompt ((t (:foreground "dark blue")))) + '(cperl-array-face ((t (:foreground "brown")))) + '(cperl-hash-face ((t (:foreground "red")))) + '(cperl-nonoverridable-face ((t (:foreground "#008b8b")))) + + '(font-lock-builtin-face ((t (:foreground "purple")))) + '(font-lock-comment-face ) + '(font-lock-constant-face ((t (:foreground "green4")))) + '(font-lock-doc-face ((t (:background "#f2f2f2")))) + '(font-lock-function-name-face ((t (:foreground "#008b8b")))) + '(font-lock-keyword-face ((t (:weight bold :foreground "#a52a2a")))) + '(font-lock-string-face ((t (:background "#f2f2f2" :foreground "#ff00ff")))) + '(font-lock-type-face ((t (:foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:foreground "#008b8b")))) + '(font-lock-warning-face ((t (:weight bold :foreground "Red")))) + '(fringe ((t (:background "#e5e5e5")))) + '(header-line ((t (:background "grey90" :foreground "grey20")))) + '(highlight ((t (:background "darkseagreen2")))) + '(info-header-node ((t (nil)))) + '(info-header-xref ((t (nil)))) + '(info-menu-5 ((t (:foreground "red1")))) + '(info-menu-header ((t (:weight bold)))) + '(info-node ((t (:italic t :weight bold :foreground "brown")))) + '(info-xref ((t (:weight bold :foreground "magenta4")))) + '(isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise")))) + '(italic ((t (:italic t)))) + + '(mode-line ((t (:background "grey75" :foreground "black")))) + '(region ((t (:background "lightgoldenrod2")))) + '(rpm-spec-dir-face ((t (:foreground "green")))) + '(rpm-spec-doc-face ((t (:foreground "magenta")))) + '(rpm-spec-ghost-face ((t (:foreground "red")))) + '(rpm-spec-macro-face ((t (:foreground "purple")))) + '(rpm-spec-package-face ((t (:foreground "red")))) + '(rpm-spec-tag-face ((t (:foreground "blue")))) + '(scroll-bar ((t (:background "grey75" :foreground "#000000")))) + '(secondary-selection ((t (:background "yellow")))) + '(sh-heredoc-face ((t (:foreground "tan")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(tool-bar ((t (:background "grey75" :foreground "black")))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + + '(widget-button-face ((t (:weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'vim-colors) + +;;; vim-colors-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/whateveryouwant-theme.el b/elpa/color-theme-modern-0.0.3/whateveryouwant-theme.el new file mode 100644 index 0000000..35b65f5 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/whateveryouwant-theme.el @@ -0,0 +1,410 @@ +;;; whateveryouwant-theme.el --- whateveryouwant theme + +;; Copyright (C) 2002 by Fabien Penso +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of whateveryouwant theme from `color-themes' + +;;; Code: + +(deftheme whateveryouwant + "whateveryouwant theme") + +(custom-theme-set-faces + 'whateveryouwant + + '(default ((t (:background "white" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:background "black")))) + + '(Info-title-1-face ((t (:bold t :weight bold :height 1.728)))) + '(Info-title-2-face ((t (:bold t :weight bold :height 1.44)))) + '(Info-title-3-face ((t (:bold t :weight bold :height 1.2)))) + '(Info-title-4-face ((t (:bold t :weight bold)))) + '(antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold)))) + '(antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold)))) + '(antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold)))) + '(antlr-font-lock-ruleref-face ((t (:foreground "blue4")))) + '(antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold)))) + '(antlr-font-lock-tokenref-face ((t (:foreground "orange4")))) + '(bbdb-company ((t (:italic t :slant italic)))) + '(bbdb-field-name ((t (:bold t :foreground "gray40" :weight bold)))) + '(bbdb-field-value ((t (nil)))) + '(bbdb-name ((t (:underline t)))) + '(bold ((t (:bold t :foreground "gray40" :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(calendar-today-face ((t (:underline t)))) + '(change-log-acknowledgement-face ((t (:foreground "Firebrick")))) + '(change-log-conditionals-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-date-face ((t (:foreground "RosyBrown")))) + '(change-log-email-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-file-face ((t (:foreground "Blue")))) + '(change-log-function-face ((t (:foreground "DarkGoldenrod")))) + '(change-log-list-face ((t (:foreground "Purple")))) + '(change-log-name-face ((t (:foreground "CadetBlue")))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "dark blue")))) + '(cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold)))) + '(cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "gray85")))) + '(custom-comment-tag-face ((t (:foreground "blue4")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(cvs-filename-face ((t (:foreground "blue4")))) + '(cvs-handled-face ((t (:foreground "pink")))) + '(cvs-header-face ((t (:bold t :foreground "blue4" :weight bold)))) + '(cvs-marked-face ((t (:bold t :foreground "green3" :weight bold)))) + '(cvs-msg-face ((t (:italic t :slant italic)))) + '(cvs-need-action-face ((t (:foreground "orange")))) + '(cvs-unknown-face ((t (:foreground "red")))) + '(diary-face ((t (:foreground "red")))) + '(diff-added-face ((t (nil)))) + '(diff-changed-face ((t (nil)))) + '(diff-context-face ((t (:foreground "grey50")))) + '(diff-file-header-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-function-face ((t (:foreground "grey50")))) + '(diff-header-face ((t (:background "grey85")))) + '(diff-hunk-header-face ((t (:background "grey85")))) + '(diff-index-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold)))) + '(diff-removed-face ((t (nil)))) + '(dired-face-boring ((t (:foreground "RosyBrown")))) + '(dired-face-directory ((t (:foreground "Blue")))) + '(dired-face-executable ((t (nil)))) + '(dired-face-flagged ((t (:bold t :foreground "Red" :weight bold)))) + '(dired-face-marked ((t (:bold t :foreground "Red" :weight bold)))) + '(dired-face-permissions ((t (nil)))) + '(dired-face-setuid ((t (nil)))) + '(dired-face-socket ((t (nil)))) + '(dired-face-symlink ((t (:foreground "Purple")))) + '(ebrowse-default-face ((t (nil)))) + '(ebrowse-file-name-face ((t (:italic t :slant italic)))) + '(ebrowse-member-attribute-face ((t (:foreground "red")))) + '(ebrowse-member-class-face ((t (:foreground "purple")))) + '(ebrowse-progress-face ((t (:background "blue")))) + '(ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold)))) + '(ebrowse-tree-mark-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick")))) + '(ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black")))) + '(ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid")))) + '(ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy")))) + '(ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black")))) + '(ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-B ((t (:background "Grey" :foreground "White")))) + '(ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black")))) + '(ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy")))) + '(ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black")))) + '(ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black")))) + '(ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black")))) + '(ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White")))) + '(ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black")))) + '(ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))) + '(erc-action-face ((t (:bold t :weight bold)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "LightSalmon")))) + '(erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold)))) + '(erc-input-face ((t (:foreground "Beige")))) + '(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey")))) + '(erc-notice-face ((t (:foreground "MediumAquamarine")))) + '(erc-pal-face ((t (:foreground "pale green")))) + '(erc-prompt-face ((t (:foreground "MediumAquamarine")))) + '(erc-underline-face ((t (:underline t)))) + '(eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold)))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold)))) + '(eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold)))) + '(eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold)))) + '(eshell-ls-picture-face ((t (:foreground "Violet")))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold)))) + '(eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold)))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:bold t :foreground "#aa0000" :weight bold :width condensed)))) + '(eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold)))) + '(eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold)))) + '(excerpt ((t (:italic t :slant italic)))) + '(fixed ((t (:bold t :weight bold)))) + + '(flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold)))) + '(flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold)))) + '(font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold)))) + '(font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic)))) + '(font-latex-math-face ((t (:foreground "SaddleBrown")))) + '(font-latex-sedate-face ((t (:foreground "DimGray")))) + '(font-latex-string-face ((t (:foreground "RosyBrown")))) + '(font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(font-lock-builtin-face ((t (:foreground "dodgerblue3")))) + '(font-lock-comment-face ((t (:foreground "#cc0000" :width semi-condensed)))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-doc-face ((t (:foreground "RosyBrown")))) + '(font-lock-doc-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-function-name-face ((t (:bold t :foreground "navy" :weight bold :height 100)))) + '(font-lock-keyword-face ((t (:bold t :foreground "red4" :weight bold)))) + '(font-lock-preprocessor-face ((t (:foreground "CadetBlue")))) + '(font-lock-reference-face ((t (:foreground "Orchid")))) + '(font-lock-string-face ((t (:foreground "navy")))) + '(font-lock-type-face ((t (:bold t :foreground "black" :weight bold)))) + '(font-lock-variable-name-face ((t (:foreground "black")))) + '(font-lock-warning-face ((t (:foreground "orange2")))) + '(fringe ((t (:background "white")))) + '(gnus-cite-attribution-face ((t (:italic t :slant italic)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t :weight bold)))) + '(gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) + '(gnus-emphasis-italic ((t (:italic t :slant italic)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold)))) + '(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold)))) + '(gnus-group-news-1-empty-face ((t (:foreground "red" :weight normal :height 120)))) + '(gnus-group-news-1-face ((t (:foreground "red" :weight normal :height 120)))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t :weight bold)))) + '(gnus-group-news-4-empty-face ((t (nil)))) + '(gnus-group-news-4-face ((t (:bold t :weight bold)))) + '(gnus-group-news-5-empty-face ((t (nil)))) + '(gnus-group-news-5-face ((t (:bold t :weight bold)))) + '(gnus-group-news-6-empty-face ((t (nil)))) + '(gnus-group-news-6-face ((t (:bold t :weight bold)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-header-content-face ((t (:foreground "goldenrod" :slant normal)))) + '(gnus-header-from-face ((t (:bold t :foreground "grey75" :weight bold :height 140)))) + '(gnus-header-name-face ((t (:foreground "grey75" :height 120)))) + '(gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic)))) + '(gnus-header-subject-face ((t (:bold t :foreground "firebrick" :weight bold :height 160)))) + '(gnus-picon-face ((t (:background "white" :foreground "black")))) + '(gnus-picon-xbm-face ((t (:background "white" :foreground "black")))) + '(gnus-signature-face ((t (:italic t :slant italic)))) + '(gnus-splash-face ((t (:foreground "Brown")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold)))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold)))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold)))) + '(gnus-summary-high-unread-face ((t (:bold t :weight bold)))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic)))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic)))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic)))) + '(gnus-summary-low-unread-face ((t (:italic t :slant italic)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "grey65" :height 110 :width condensed)))) + '(gnus-summary-normal-read-face ((t (:foreground "grey75" :height 110 :width condensed )))) + '(gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick" :weight bold :height 110 :width condensed)))) + '(gnus-summary-normal-unread-face ((t (:foreground "firebrick" :height 110 :width condensed)))) + '(gnus-summary-selected-face ((t (:background "gold" :foreground "black" :box (:line-width 1 :color "yellow" :style released-button) :height 140 :width condensed)))) + '(header-line ((t (:background "grey90" :foreground "grey20" :box nil)))) + '(hi-black-b ((t (:bold t :weight bold)))) + '(hi-black-hb ((t (:bold t :weight bold :height 1.67)))) + '(hi-blue ((t (:background "light blue")))) + '(hi-blue-b ((t (:bold t :foreground "blue" :weight bold)))) + '(hi-green ((t (:background "green")))) + '(hi-green-b ((t (:bold t :foreground "green" :weight bold)))) + '(hi-pink ((t (:background "pink")))) + '(hi-red-b ((t (:bold t :foreground "red" :weight bold)))) + '(hi-yellow ((t (:background "yellow")))) + '(highlight ((t (:background "black" :foreground "white")))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "gray80")))) + '(holiday-face ((t (:background "pink")))) + '(idlwave-help-link-face ((t (:foreground "Blue")))) + '(idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black")))) + '(info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) + '(info-header-xref ((t (:bold t :foreground "magenta4" :weight bold)))) + '(info-menu-5 ((t (:foreground "red1")))) + '(info-menu-header ((t (:bold t :weight bold)))) + '(info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold)))) + '(info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) + '(isearch ((t (:background "magenta4" :foreground "lightskyblue1")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise")))) + '(italic ((t (:italic t :slant italic)))) + '(log-view-file-face ((t (:bold t :background "grey70" :weight bold)))) + '(log-view-message-face ((t (:background "grey85")))) + '(makefile-space-face ((t (:background "hotpink")))) + '(menu ((t (nil)))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "grey45" :weight normal)))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold)))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold)))) + '(message-header-to-face ((t (:bold t :foreground "grey60" :weight bold :height 120)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-mml-face ((t (:foreground "ForestGreen")))) + '(message-separator-face ((t (:foreground "brown")))) + '(mode-line ((t (:background "grey90" :foreground "black" :box (:line-width 1 :style none) :width condensed)))) + '(modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button) :weight bold)))) + '(modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) + '(modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button))))) + '(mouse ((t (:background "black")))) + '(mpg123-face-cur ((t (:background "#004080" :foreground "yellow")))) + '(mpg123-face-slider ((t (:background "yellow" :foreground "black")))) + '(primary-selection ((t (:background "lightgoldenrod2")))) + '(reb-match-0 ((t (:background "lightblue")))) + '(reb-match-1 ((t (:background "aquamarine")))) + '(reb-match-2 ((t (:background "springgreen")))) + '(reb-match-3 ((t (:background "yellow")))) + '(region ((t (:background "#aa0000" :foreground "white")))) + '(scroll-bar ((t (:background "grey75")))) + '(secondary-selection ((t (:background "yellow")))) + '(sgml-comment-face ((t (:italic t :foreground "SeaGreen" :slant italic)))) + '(sgml-doctype-face ((t (:bold t :foreground "FireBrick" :weight bold)))) + '(sgml-end-tag-face ((t (:background "white" :foreground "SlateBlue" :height 116)))) + '(sgml-entity-face ((t (:stipple nil :background "SlateBlue" :foreground "Red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal)))) + '(sgml-ignored-face ((t (nil)))) + '(sgml-ms-end-face ((t (nil)))) + '(sgml-ms-start-face ((t (nil)))) + '(sgml-pi-face ((t (:bold t :foreground "gray40" :weight bold)))) + '(sgml-sgml-face ((t (:bold t :foreground "gray40" :weight bold)))) + '(sgml-short-ref-face ((t (nil)))) + '(sgml-shortref-face ((t (:bold t :foreground "gray40" :weight bold)))) + '(sgml-start-tag-face ((t (:background "white" :foreground "SlateBlue" :height 116)))) + '(sh-heredoc-face ((t (:foreground "tan")))) + '(show-paren-match-face ((t (:background "gray80" :foreground "black")))) + '(show-paren-mismatch-face ((t (:background "red" :foreground "yellow")))) + '(show-tabs-space-face ((t (:foreground "yellow")))) + '(show-tabs-tab-face ((t (:foreground "red")))) + '(smerge-base-face ((t (:foreground "red")))) + '(smerge-markers-face ((t (:background "grey85")))) + '(smerge-mine-face ((t (:foreground "blue")))) + '(smerge-other-face ((t (:foreground "darkgreen")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(strokes-char-face ((t (:background "lightgray")))) + '(term-black ((t (:background "white" :foreground "black")))) + '(term-blackbg ((t (:background "black" :foreground "black")))) + '(term-blue ((t (:background "white" :foreground "blue")))) + '(term-bluebg ((t (:background "blue" :foreground "black")))) + '(term-bold ((t (:bold t :background "white" :foreground "black")))) + '(term-cyan ((t (:background "white" :foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan" :foreground "black")))) + '(term-default ((t (:background "white" :foreground "black")))) + '(term-default-bg ((t (:foreground "black")))) + '(term-default-bg-inv ((t (:foreground "black")))) + '(term-default-fg ((t (:background "white")))) + '(term-default-fg-inv ((t (:background "white")))) + '(term-green ((t (:background "white" :foreground "green")))) + '(term-greenbg ((t (:background "green" :foreground "black")))) + '(term-invisible ((t (:foreground "black")))) + '(term-invisible-inv ((t (:foreground "black")))) + '(term-magenta ((t (:background "white" :foreground "magenta")))) + '(term-magentabg ((t (:background "magenta" :foreground "black")))) + '(term-red ((t (:background "white" :foreground "red")))) + '(term-redbg ((t (:background "red" :foreground "black")))) + '(term-underline ((t (:background "white" :foreground "black")))) + '(term-white ((t (:background "white" :foreground "white")))) + '(term-whitebg ((t (:background "white" :foreground "black")))) + '(term-yellow ((t (:background "white" :foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow" :foreground "black")))) + '(tex-math-face ((t (:foreground "RosyBrown")))) + '(texinfo-heading-face ((t (:foreground "Blue")))) + '(tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:foreground "navy" :underline t)))) + + '(vcursor ((t (:background "cyan" :foreground "blue" :underline t)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold)))) + '(vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold)))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) + '(viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black")))) + '(viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen")))) + '(viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black")))) + '(viper-search-face ((t (:background "khaki" :foreground "Black")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(woman-addition-face ((t (:foreground "orange")))) + '(woman-bold-face ((t (:bold t :foreground "blue" :weight bold)))) + '(woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic)))) + '(woman-unknown-face ((t (:foreground "brown")))) + '(zmacs-region ((t (:background "lightgoldenrod2"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'whateveryouwant) + +;;; whateveryouwant-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/wheat-theme.el b/elpa/color-theme-modern-0.0.3/wheat-theme.el new file mode 100644 index 0000000..af7e5d9 --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/wheat-theme.el @@ -0,0 +1,274 @@ +;;; wheat-theme.el --- wheat theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of wheat theme from `color-themes' + +;;; Code: + +(deftheme wheat + "wheat theme") + +(custom-theme-set-faces + 'wheat + + '(default ((t (:background "Wheat" :foreground "black")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:foreground "black")))) + + '(Man-overstrike-face ((t (:bold t)))) + '(Man-underline-face ((t (:underline t)))) + '(apropos-keybinding-face ((t (:underline t)))) + '(apropos-label-face ((t (:italic t)))) + '(apropos-match-face ((t (:background "paleturquoise")))) + '(apropos-property-face ((t (:bold t :italic t)))) + '(apropos-symbol-face ((t (:bold t)))) + '(goto-address-mail-face ((t (:italic t)))) + '(goto-address-mail-mouse-face ((t (:background "paleturquoise")))) + '(goto-address-url-face ((t (:bold t)))) + '(goto-address-url-mouse-face ((t (:background "darkseagreen2")))) + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t)))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + + + '(default ((t (nil)))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:bold t :italic t)))) + '(calendar-today-face ((t (:underline t)))) + '(cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t)))) + '(cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t)))) + '(cperl-nonoverridable-face ((t (:foreground "chartreuse3")))) + '(custom-button-face ((t (nil)))) + '(custom-changed-face ((t (:foreground "white" :background "blue")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:foreground "blue" :underline t)))) + '(custom-group-tag-face-1 ((t (:foreground "red" :underline t)))) + '(custom-invalid-face ((t (:foreground "yellow" :background "red")))) + '(custom-modified-face ((t (:foreground "white" :background "blue")))) + '(custom-rogue-face ((t (:foreground "pink" :background "black")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:foreground "blue" :background "white")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t)))) + '(custom-variable-tag-face ((t (:foreground "blue" :underline t)))) + '(diary-face ((t (:foreground "red")))) + '(ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green")))) + '(ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed")))) + '(ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow")))) + '(ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink")))) + '(ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey")))) + '(ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-B ((t (:foreground "White" :background "Grey")))) + '(ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey")))) + '(ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue")))) + '(ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green")))) + '(ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan")))) + '(ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise")))) + '(ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey")))) + '(ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey")))) + '(ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey")))) + '(eshell-ls-archive-face ((t (:foreground "Orchid" :bold t)))) + '(eshell-ls-backup-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-ls-directory-face ((t (:foreground "Blue" :bold t)))) + '(eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t)))) + '(eshell-ls-missing-face ((t (:foreground "Red" :bold t)))) + '(eshell-ls-product-face ((t (:foreground "OrangeRed")))) + '(eshell-ls-readonly-face ((t (:foreground "Brown")))) + '(eshell-ls-special-face ((t (:foreground "Magenta" :bold t)))) + '(eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t)))) + '(eshell-ls-unreadable-face ((t (:foreground "Grey30")))) + '(eshell-prompt-face ((t (:foreground "Red" :bold t)))) + '(eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t)))) + '(eshell-test-ok-face ((t (:foreground "Green" :bold t)))) + '(excerpt ((t (:italic t)))) + '(fixed ((t (:bold t)))) + '(flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))) + '(flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t)))) + '(font-lock-builtin-face ((t (:foreground "Orchid")))) + '(font-lock-comment-face ((t (:foreground "Firebrick")))) + '(font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(font-lock-function-name-face ((t (:foreground "Blue")))) + '(font-lock-keyword-face ((t (:foreground "Purple")))) + '(font-lock-string-face ((t (:foreground "RosyBrown")))) + '(font-lock-type-face ((t (:foreground "ForestGreen")))) + '(font-lock-variable-name-face ((t (:foreground "DarkGoldenrod")))) + '(font-lock-warning-face ((t (:foreground "Red" :bold t)))) + '(fringe ((t (:background "grey95")))) + '(gnus-cite-attribution-face ((t (:italic t)))) + '(gnus-cite-face-1 ((t (:foreground "MidnightBlue")))) + '(gnus-cite-face-10 ((t (:foreground "medium purple")))) + '(gnus-cite-face-11 ((t (:foreground "turquoise")))) + '(gnus-cite-face-2 ((t (:foreground "firebrick")))) + '(gnus-cite-face-3 ((t (:foreground "dark green")))) + '(gnus-cite-face-4 ((t (:foreground "OrangeRed")))) + '(gnus-cite-face-5 ((t (:foreground "dark khaki")))) + '(gnus-cite-face-6 ((t (:foreground "dark violet")))) + '(gnus-cite-face-7 ((t (:foreground "SteelBlue4")))) + '(gnus-cite-face-8 ((t (:foreground "magenta")))) + '(gnus-cite-face-9 ((t (:foreground "violet")))) + '(gnus-emphasis-bold ((t (:bold t)))) + '(gnus-emphasis-bold-italic ((t (:bold t :italic t)))) + '(gnus-emphasis-italic ((t (:italic t)))) + '(gnus-emphasis-underline ((t (:underline t)))) + '(gnus-emphasis-underline-bold ((t (:bold t :underline t)))) + '(gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t)))) + '(gnus-emphasis-underline-italic ((t (:italic t :underline t)))) + '(gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3")))) + '(gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t)))) + '(gnus-group-mail-2-empty-face ((t (:foreground "HotPink3")))) + '(gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t)))) + '(gnus-group-mail-3-empty-face ((t (:foreground "magenta4")))) + '(gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t)))) + '(gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4")))) + '(gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t)))) + '(gnus-group-news-1-empty-face ((t (:foreground "ForestGreen")))) + '(gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t)))) + '(gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4")))) + '(gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t)))) + '(gnus-group-news-3-empty-face ((t (nil)))) + '(gnus-group-news-3-face ((t (:bold t)))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkGreen")))) + '(gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t)))) + '(gnus-header-content-face ((t (:foreground "indianred4" :italic t)))) + '(gnus-header-from-face ((t (:foreground "red3")))) + '(gnus-header-name-face ((t (:foreground "maroon")))) + '(gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t)))) + '(gnus-header-subject-face ((t (:foreground "red4")))) + '(gnus-signature-face ((t (:italic t)))) + '(gnus-splash-face ((t (:foreground "ForestGreen")))) + '(gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black")))) + '(gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t)))) + '(gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t)))) + '(gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t)))) + '(gnus-summary-high-unread-face ((t (:bold t)))) + '(gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t)))) + '(gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t)))) + '(gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t)))) + '(gnus-summary-low-unread-face ((t (:italic t)))) + '(gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue")))) + '(gnus-summary-normal-read-face ((t (:foreground "DarkGreen")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "firebrick")))) + '(gnus-summary-normal-unread-face ((t (nil)))) + '(gnus-summary-selected-face ((t (:underline t)))) + '(highlight ((t (:background "darkseagreen2")))) + '(highlight-changes-delete-face ((t (:foreground "red" :underline t)))) + '(highlight-changes-face ((t (:foreground "red")))) + '(highline-face ((t (:background "paleturquoise")))) + '(holiday-face ((t (:background "pink")))) + '(info-menu-5 ((t (:underline t)))) + '(info-node ((t (:bold t :italic t)))) + '(info-xref ((t (:bold t)))) + '(italic ((t (:italic t)))) + '(makefile-space-face ((t (:background "hotpink")))) + '(message-cited-text-face ((t (:foreground "red")))) + '(message-header-cc-face ((t (:foreground "MidnightBlue")))) + '(message-header-name-face ((t (:foreground "cornflower blue")))) + '(message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t)))) + '(message-header-other-face ((t (:foreground "steel blue")))) + '(message-header-subject-face ((t (:foreground "navy blue" :bold t)))) + '(message-header-to-face ((t (:foreground "MidnightBlue" :bold t)))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "brown")))) + '(modeline ((t (:foreground "white" :background "black")))) + '(modeline-buffer-id ((t (:foreground "white" :background "black")))) + '(modeline-mousable ((t (:foreground "white" :background "black")))) + '(modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) + '(region ((t (:background "gray")))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:foreground "white" :background "purple")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(term-black ((t (:foreground "black")))) + '(term-blackbg ((t (:background "black")))) + '(term-blue ((t (:foreground "blue")))) + '(term-bluebg ((t (:background "blue")))) + '(term-bold ((t (:bold t)))) + '(term-cyan ((t (:foreground "cyan")))) + '(term-cyanbg ((t (:background "cyan")))) + '(term-default-bg ((t (nil)))) + '(term-default-bg-inv ((t (nil)))) + '(term-default-fg ((t (nil)))) + '(term-default-fg-inv ((t (nil)))) + '(term-green ((t (:foreground "green")))) + '(term-greenbg ((t (:background "green")))) + '(term-invisible ((t (nil)))) + '(term-invisible-inv ((t (nil)))) + '(term-magenta ((t (:foreground "magenta")))) + '(term-magentabg ((t (:background "magenta")))) + '(term-red ((t (:foreground "red")))) + '(term-redbg ((t (:background "red")))) + '(term-underline ((t (:underline t)))) + '(term-white ((t (:foreground "white")))) + '(term-whitebg ((t (:background "white")))) + '(term-yellow ((t (:foreground "yellow")))) + '(term-yellowbg ((t (:background "yellow")))) + '(underline ((t (:underline t)))) + '(vcursor ((t (:foreground "blue" :background "cyan" :underline t)))) + '(vhdl-font-lock-attribute-face ((t (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((t (:foreground "CadetBlue")))) + '(vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4")))) + '(vhdl-font-lock-function-face ((t (:foreground "Orchid4")))) + '(vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t)))) + '(vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t)))) + '(vhdl-font-lock-translate-off-face ((t (:background "LightGray")))) + '(vhdl-speedbar-architecture-face ((t (:foreground "Blue")))) + '(vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t)))) + '(vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod")))) + '(vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t)))) + '(vhdl-speedbar-entity-face ((t (:foreground "ForestGreen")))) + '(vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t)))) + '(vhdl-speedbar-instantiation-face ((t (:foreground "Brown")))) + '(vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t)))) + '(vhdl-speedbar-package-face ((t (:foreground "Grey50")))) + '(vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t)))) + '(viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2")))) + '(viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink")))) + '(viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey")))) + '(viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2")))) + '(viper-search-face ((t (:foreground "Black" :background "khaki")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'wheat) + +;;; wheat-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/word-perfect-theme.el b/elpa/color-theme-modern-0.0.3/word-perfect-theme.el new file mode 100644 index 0000000..78bed1a --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/word-perfect-theme.el @@ -0,0 +1,154 @@ +;;; word-perfect-theme.el --- word-perfect theme + +;; Copyright (C) 2001 by Thomas Gehrlein +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of word-perfect theme from `color-themes' + +;;; Code: + +(deftheme word-perfect + "word-perfect theme") + +(custom-theme-set-faces + 'word-perfect + + '(default ((t (:background "blue4" :foreground "white")))) + '(mouse ((t (:foreground "black")))) + '(cursor ((t (:background "gold")))) + '(border ((t (:foreground "black")))) + + '(ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1")))) + '(gnus-mouse-face ((t (:background "steel blue" :foreground "black")))) + '(goto-address-mail-face ((t (:italic t :foreground "yellow2")))) + '(goto-address-mail-mouse-face ((t (:background "yellow2" :foreground "black")))) + '(goto-address-url-face ((t (:bold t :foreground "white")))) + '(goto-address-url-mouse-face ((t (:background "steel blue" :foreground "black")))) + '(list-matching-lines-face ((t (:bold t :foreground "white")))) + '(view-highlight-face ((t (:background "steel blue" :foreground "black")))) + + '(bbdb-field-name ((t (:foreground "lime green")))) + '(bbdb-field-value ((t (:foreground "white")))) + '(bbdb-name ((t (:underline t :foreground "lime green")))) + '(bold ((t (:bold t :foreground "white")))) + '(bold-italic ((t (:italic t :bold t :foreground "yellow")))) + '(calendar-today-face ((t (:underline t :foreground "deep sky blue")))) + '(diary-face ((t (:foreground "gold")))) + '(ecb-sources-face ((t (:foreground "LightBlue1")))) + '(edb-inter-field-face ((t (:foreground "deep sky blue")))) + '(edb-normal-summary-face ((t (:foreground "gold")))) + '(emacs-wiki-bad-link-face ((t (:underline "coral" :bold t :foreground "coral")))) + '(emacs-wiki-link-face ((t (:underline "cyan" :bold t :foreground "cyan")))) + '(font-lock-builtin-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-comment-face ((t (:foreground "deep sky blue")))) + '(font-lock-constant-face ((t (:foreground "lime green")))) + '(font-lock-doc-face ((t (:foreground "gold")))) + '(font-lock-doc-string-face ((t (:foreground "gold")))) + '(font-lock-function-name-face ((t (:background "blue4" :foreground "IndianRed")))) + '(font-lock-keyword-face ((t (:foreground "lime green")))) + '(font-lock-preprocessor-face ((t (:foreground "lime green")))) + '(font-lock-reference-face ((t (:foreground "LightSteelBlue")))) + '(font-lock-string-face ((t (:foreground "gold")))) + '(font-lock-type-face ((t (:foreground "lime green")))) + '(font-lock-variable-name-face ((t (:foreground "LightGoldenrod")))) + '(font-lock-warning-face ((t (:bold t :foreground "firebrick")))) + '(gnus-emphasis-bold ((t (:foreground "yellow2")))) + '(gnus-emphasis-bold-italic ((t (:foreground "yellow2")))) + '(gnus-emphasis-italic ((t (:foreground "yellow2")))) + '(gnus-emphasis-underline ((t (:foreground "yellow2")))) + '(gnus-emphasis-underline-bold ((t (:foreground "yellow2")))) + '(gnus-emphasis-underline-bold-italic ((t (:foreground "yellow2")))) + '(gnus-emphasis-underline-italic ((t (:foreground "yellow2")))) + '(gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1")))) + '(gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1")))) + '(gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2")))) + '(gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2")))) + '(gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3")))) + '(gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3")))) + '(gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4")))) + '(gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4")))) + '(gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise")))) + '(gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise")))) + '(gnus-group-news-2-empty-face ((t (:foreground "turquoise")))) + '(gnus-group-news-2-face ((t (:bold t :foreground "turquoise")))) + '(gnus-group-news-3-empty-face ((t (:foreground "deep sky blue")))) + '(gnus-group-news-3-face ((t (:bold t :foreground "deep sky blue")))) + '(gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise")))) + '(gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise")))) + '(gnus-header-content-face ((t (:foreground "gold")))) + '(gnus-header-from-face ((t (:foreground "gold")))) + '(gnus-header-name-face ((t (:foreground "deep sky blue")))) + '(gnus-header-newsgroups-face ((t (:foreground "gold")))) + '(gnus-header-subject-face ((t (:foreground "gold")))) + '(gnus-signature-face ((t (:foreground "gold")))) + '(gnus-splash-face ((t (:foreground "firebrick")))) + '(gnus-summary-cancelled-face ((t (:background "black" :foreground "deep sky blue")))) + '(gnus-summary-high-ancient-face ((t (:bold t :foreground "deep sky blue")))) + '(gnus-summary-high-read-face ((t (:bold t :foreground "deep sky blue")))) + '(gnus-summary-high-ticked-face ((t (:bold t :foreground "deep sky blue")))) + '(gnus-summary-high-unread-face ((t (:bold t :foreground "lime green")))) + '(gnus-summary-low-ancient-face ((t (:italic t :foreground "deep sky blue")))) + '(gnus-summary-low-read-face ((t (:italic t :foreground "deep sky blue")))) + '(gnus-summary-low-ticked-face ((t (:italic t :foreground "deep sky blue")))) + '(gnus-summary-low-unread-face ((t (:italic t :foreground "lime green")))) + '(gnus-summary-normal-ancient-face ((t (:foreground "deep sky blue")))) + '(gnus-summary-normal-read-face ((t (:foreground "deep sky blue")))) + '(gnus-summary-normal-ticked-face ((t (:foreground "deep sky blue")))) + '(gnus-summary-normal-unread-face ((t (:foreground "lime green")))) + '(gnus-summary-selected-face ((t (:underline t :foreground "gold")))) + '(highlight ((t (:background "steel blue" :foreground "black")))) + '(holiday-face ((t (:background "blue4" :foreground "IndianRed1")))) + '(info-menu-5 ((t (:underline t :foreground "gold")))) + '(info-node ((t (:italic t :bold t :foreground "gold")))) + '(info-xref ((t (:bold t :foreground "gold")))) + '(isearch ((t (:background "firebrick" :foreground "white")))) + '(italic ((t (:italic t :foreground "yellow2")))) + '(message-cited-text-face ((t (:foreground "gold")))) + '(message-header-cc-face ((t (:bold t :foreground "green4")))) + '(message-header-name-face ((t (:foreground "deep sky blue")))) + '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold")))) + '(message-header-other-face ((t (:foreground "gold")))) + '(message-header-subject-face ((t (:foreground "gold")))) + '(message-header-to-face ((t (:bold t :foreground "gold")))) + '(message-header-xheader-face ((t (:foreground "blue")))) + '(message-separator-face ((t (:foreground "lime green")))) + '(modeline ((t (:foreground "white" :background "black")))) + '(modeline-buffer-id ((t (:foreground "white" :background "black")))) + '(modeline-mousable ((t (:foreground "white" :background "black")))) + '(modeline-mousable-minor-mode ((t (:foreground "white" :background "black")))) + '(overlay-empty-face ((t (nil)))) + '(primary-selection ((t (:background "firebrick" :foreground "white")))) + '(region ((t (:background "firebrick" :foreground "white")))) + '(secondary-selection ((t (:background "yellow2" :foreground "black")))) + '(semantic-dirty-token-face ((t (:background "gray10")))) + '(show-paren-match-face ((t (:background "deep sky blue" :foreground "black")))) + '(show-paren-mismatch-face ((t (:background "firebrick" :foreground "white")))) + '(underline ((t (:underline t :background "blue4" :foreground "white"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'word-perfect) + +;;; word-perfect-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/xemacs-theme.el b/elpa/color-theme-modern-0.0.3/xemacs-theme.el new file mode 100644 index 0000000..02b69da --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/xemacs-theme.el @@ -0,0 +1,121 @@ +;;; xemacs-theme.el --- xemacs theme + +;; Copyright (C) 2005, 2006 Xavier Maillard +;; Copyright (C) 2005, 2006 Brian Palmer +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of xemacs theme from `color-themes' + +;;; Code: + +(deftheme xemacs + "xemacs theme") + +(custom-theme-set-faces + 'xemacs + + '(default ((t (:background "gray80" :foreground "black")))) + '(cursor ((t (:background "Red3")))) + '(border ((t (:foreground "black")))) + + '(blue ((t (:foreground "blue")))) + '(bold ((t (:bold t)))) + '(bold-italic ((t (:italic t :bold t)))) + '(border-glyph ((t (nil)))) + '(custom-button-face ((t (:bold t)))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:underline t)))) + '(custom-group-tag-face ((t (:underline t :foreground "blue")))) + '(custom-group-tag-face-1 ((t (:underline t :foreground "red")))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:underline t :bold t)))) + '(custom-variable-tag-face ((t (:underline t :foreground "blue")))) + '(dired-face-boring ((t (:foreground "Gray65")))) + '(dired-face-directory ((t (:bold t)))) + '(dired-face-executable ((t (:foreground "SeaGreen")))) + '(dired-face-flagged ((t (:background "LightSlateGray")))) + '(dired-face-marked ((t (:background "PaleVioletRed")))) + '(dired-face-permissions ((t (:background "grey75" :foreground "black")))) + '(dired-face-setuid ((t (:foreground "Red")))) + '(dired-face-socket ((t (:foreground "magenta")))) + '(dired-face-symlink ((t (:foreground "cyan")))) + '(font-lock-builtin-face ((t (:foreground "red3")))) + '(font-lock-comment-face ((t (:foreground "blue4")))) + '(font-lock-constant-face ((t (:foreground "red3")))) + '(font-lock-doc-string-face ((t (:foreground "green4")))) + '(font-lock-function-name-face ((t (:foreground "brown4")))) + '(font-lock-keyword-face ((t (:foreground "red4")))) + '(font-lock-preprocessor-face ((t (:foreground "blue3")))) + '(font-lock-reference-face ((t (:foreground "red3")))) + '(font-lock-string-face ((t (:foreground "green4")))) + '(font-lock-type-face ((t (:foreground "steelblue")))) + '(font-lock-variable-name-face ((t (:foreground "magenta4")))) + '(font-lock-warning-face ((t (:bold t :foreground "Red")))) + '(green ((t (:foreground "green")))) + '(gui-button-face ((t (:background "grey75" :foreground "black")))) + '(gui-element ((t (:background "Gray80")))) + '(highlight ((t (:background "darkseagreen2")))) + '(info-node ((t (:italic t :bold t)))) + '(info-xref ((t (:bold t)))) + '(isearch ((t (:background "paleturquoise")))) + '(italic ((t (:italic t)))) + '(left-margin ((t (nil)))) + '(list-mode-item-selected ((t (:background "gray68")))) + '(modeline ((t (:background "Gray80")))) + '(modeline-buffer-id ((t (:background "Gray80" :foreground "blue4")))) + '(modeline-mousable ((t (:background "Gray80" :foreground "firebrick")))) + '(modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4")))) + '(paren-blink-off ((t (:foreground "gray80")))) + '(paren-match ((t (:background "darkseagreen2")))) + '(paren-mismatch ((t (:background "DeepPink" :foreground "black")))) + '(pointer ((t (nil)))) + '(primary-selection ((t (:background "gray65")))) + '(red ((t (:foreground "red")))) + '(region ((t (:background "gray65")))) + '(right-margin ((t (nil)))) + '(secondary-selection ((t (:background "paleturquoise")))) + '(text-cursor ((t (:background "Red3" :foreground "gray80")))) + '(toolbar ((t (:background "Gray80")))) + '(underline ((t (:underline t)))) + '(vertical-divider ((t (:background "Gray80")))) + '(widget-button-face ((t (:bold t)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(yellow ((t (:foreground "yellow")))) + '(zmacs-region ((t (:background "gray65"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'xemacs) + +;;; xemacs-theme.el ends here diff --git a/elpa/color-theme-modern-0.0.3/xp-theme.el b/elpa/color-theme-modern-0.0.3/xp-theme.el new file mode 100644 index 0000000..3a06e6b --- /dev/null +++ b/elpa/color-theme-modern-0.0.3/xp-theme.el @@ -0,0 +1,191 @@ +;;; xp-theme.el --- xp theme + +;; Copyright (C) 2002 by Girish Bharadwaj +;; Copyright (C) 2013 by Syohei YOSHIDA + +;; Author: Syohei YOSHIDA +;; URL: https://github.com/emacs-jp/replace-colorthemes +;; Version: 0.01 + +;; 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 . + +;;; Commentary: +;; +;; Port of xp theme from `color-themes' + +;;; Code: + +(deftheme xp + "xp theme") + +(custom-theme-set-faces + 'xp + + '(default ((t (:background "lightyellow2" :foreground "gray20")))) + '(mouse ((t (:background "black")))) + '(cursor ((t (:background "black")))) + '(border ((t (:background "black")))) + + '(help-highlight-face ((t (:underline t)))) + '(list-matching-lines-face ((t (:bold t :weight bold)))) + '(view-highlight-face ((t (:background "darkseagreen2")))) + '(widget-mouse-face ((t (:background "darkseagreen2")))) + + '(bg:erc-color-face0 ((t (:background "White")))) + '(bg:erc-color-face1 ((t (:background "black")))) + '(bg:erc-color-face10 ((t (:background "lightblue1")))) + '(bg:erc-color-face11 ((t (:background "cyan")))) + '(bg:erc-color-face12 ((t (:background "blue")))) + '(bg:erc-color-face13 ((t (:background "deeppink")))) + '(bg:erc-color-face14 ((t (:background "gray50")))) + '(bg:erc-color-face15 ((t (:background "gray90")))) + '(bg:erc-color-face2 ((t (:background "blue4")))) + '(bg:erc-color-face3 ((t (:background "green4")))) + '(bg:erc-color-face4 ((t (:background "red")))) + '(bg:erc-color-face5 ((t (:background "brown")))) + '(bg:erc-color-face6 ((t (:background "purple")))) + '(bg:erc-color-face7 ((t (:background "orange")))) + '(bg:erc-color-face8 ((t (:background "yellow")))) + '(bg:erc-color-face9 ((t (:background "green")))) + '(bold ((t (:bold t :weight bold)))) + '(bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) + '(button ((t (:underline t)))) + '(comint-highlight-input ((t (:bold t :weight bold)))) + '(comint-highlight-prompt ((t (:foreground "dark blue")))) + '(custom-button-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style released-button))))) + '(custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" + :box (:line-width 2 :style pressed-button))))) + '(custom-changed-face ((t (:background "blue" :foreground "white")))) + '(custom-comment-face ((t (:background "gray85")))) + '(custom-comment-tag-face ((t (:foreground "blue4")))) + '(custom-documentation-face ((t (nil)))) + '(custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2)))) + '(custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2)))) + '(custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2)))) + '(custom-invalid-face ((t (:background "red" :foreground "yellow")))) + '(custom-modified-face ((t (:background "blue" :foreground "white")))) + '(custom-rogue-face ((t (:background "black" :foreground "pink")))) + '(custom-saved-face ((t (:underline t)))) + '(custom-set-face ((t (:background "white" :foreground "blue")))) + '(custom-state-face ((t (:foreground "dark green")))) + '(custom-variable-button-face ((t (:bold t :underline t :weight bold)))) + '(custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2)))) + '(erc-action-face ((t (:bold t :weight bold)))) + '(erc-bold-face ((t (:bold t :weight bold)))) + '(erc-default-face ((t (nil)))) + '(erc-direct-msg-face ((t (:foreground "IndianRed")))) + '(erc-error-face ((t (:background "Red" :foreground "White")))) + '(erc-input-face ((t (:foreground "brown")))) + '(erc-inverse-face ((t (:background "Black" :foreground "White")))) + '(erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold)))) + '(erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold)))) + '(erc-timestamp-face ((t (:bold t :foreground "green" :weight bold)))) + '(erc-underline-face ((t (:underline t)))) + '(fg:erc-color-face0 ((t (:foreground "White")))) + '(fg:erc-color-face1 ((t (:foreground "black")))) + '(fg:erc-color-face10 ((t (:foreground "lightblue1")))) + '(fg:erc-color-face11 ((t (:foreground "cyan")))) + '(fg:erc-color-face12 ((t (:foreground "blue")))) + '(fg:erc-color-face13 ((t (:foreground "deeppink")))) + '(fg:erc-color-face14 ((t (:foreground "gray50")))) + '(fg:erc-color-face15 ((t (:foreground "gray90")))) + '(fg:erc-color-face2 ((t (:foreground "blue4")))) + '(fg:erc-color-face3 ((t (:foreground "green4")))) + '(fg:erc-color-face4 ((t (:foreground "red")))) + '(fg:erc-color-face5 ((t (:foreground "brown")))) + '(fg:erc-color-face6 ((t (:foreground "purple")))) + '(fg:erc-color-face7 ((t (:foreground "orange")))) + '(fg:erc-color-face8 ((t (:foreground "yellow")))) + '(fg:erc-color-face9 ((t (:foreground "green")))) + '(fixed-pitch ((t (:family "courier")))) + '(font-lock-builtin-face ((t (:foreground "magenta3" :underline t :height 0.9)))) + '(font-lock-comment-face ((t (:italic t :foreground "gray60" :slant oblique :height 0.9)))) + '(font-lock-constant-face ((t (:bold t :foreground "medium purple" :weight bold :height 0.9)))) + '(font-lock-function-name-face ((t (:bold t :foreground "black" :weight bold)))) + '(font-lock-keyword-face ((t (:bold t :foreground "blue" :weight bold)))) + '(font-lock-string-face ((t (:foreground "red" :height 0.9)))) + '(font-lock-type-face ((t (:foreground "Royalblue")))) + '(font-lock-variable-name-face ((t (:bold t :foreground "maroon" :weight bold :height 0.9)))) + '(font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold)))) + '(fringe ((t (:background "dodgerblue")))) + '(header-line ((t (:underline "red" :overline "red" :background "grey90" :foreground "grey20" :box nil)))) + '(highlight ((t (:background "darkseagreen2")))) + '(isearch ((t (:background "magenta2" :foreground "lightskyblue1")))) + '(isearch-lazy-highlight-face ((t (:background "paleturquoise")))) + '(italic ((t (:italic t :slant italic)))) + '(jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan")))) + '(jde-db-active-breakpoint-face ((t (:background "red" :foreground "black")))) + '(jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black")))) + '(jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black")))) + '(jde-java-font-lock-api-face ((t (:foreground "dark goldenrod")))) + '(jde-java-font-lock-bold-face ((t (:bold t :weight bold)))) + '(jde-java-font-lock-code-face ((t (nil)))) + '(jde-java-font-lock-constant-face ((t (:foreground "CadetBlue")))) + '(jde-java-font-lock-doc-tag-face ((t (:foreground "green4")))) + '(jde-java-font-lock-italic-face ((t (:italic t :slant italic)))) + '(jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal)))) + '(jde-java-font-lock-modifier-face ((t (:foreground "Orchid")))) + '(jde-java-font-lock-number-face ((t (:foreground "RosyBrown")))) + '(jde-java-font-lock-operator-face ((t (:foreground "medium blue")))) + '(jde-java-font-lock-package-face ((t (:foreground "blue3")))) + '(jde-java-font-lock-pre-face ((t (nil)))) + '(jde-java-font-lock-underline-face ((t (:underline t)))) + '(menu ((t (nil)))) + '(minibuffer-prompt ((t (:foreground "dark blue")))) + '(modeline ((t (:background "dodgerblue" :foreground "black" :overline "red" :underline "red")))) + '(modeline-buffer-id ((t (:background "dodgerblue" :foreground "black")))) + '(modeline-mousable ((t (:background "dodgerblue" :foreground "black")))) + '(modeline-mousable-minor-mode ((t (:background "dodgerblue" :foreground "black")))) + '(mode-line-inactive ((t (:italic t :underline "red" :overline "red" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light)))) + '(primary-selection ((t (:background "lightgoldenrod2")))) + '(region ((t (:background "lightgoldenrod2")))) + '(scroll-bar ((t (nil)))) + '(secondary-selection ((t (:background "yellow")))) + '(semantic-dirty-token-face ((t (:background "lightyellow")))) + '(semantic-unmatched-syntax-face ((t (:underline "red")))) + '(senator-intangible-face ((t (:foreground "gray25")))) + '(senator-momentary-highlight-face ((t (:background "gray70")))) + '(senator-read-only-face ((t (:background "#CCBBBB")))) + '(show-paren-match-face ((t (:background "turquoise")))) + '(show-paren-mismatch-face ((t (:background "purple" :foreground "white")))) + '(speedbar-button-face ((t (:foreground "green4")))) + '(speedbar-directory-face ((t (:foreground "blue4")))) + '(speedbar-file-face ((t (:foreground "cyan4")))) + '(speedbar-highlight-face ((t (:background "green")))) + '(speedbar-selected-face ((t (:foreground "red" :underline t)))) + '(speedbar-tag-face ((t (:foreground "brown")))) + '(template-message-face ((t (:bold t :weight bold)))) + '(tool-bar ((t (:background "grey75" :foreground "black" + :box (:line-width 1 :style released-button))))) + '(tooltip ((t (:background "lightyellow" :foreground "black")))) + '(trailing-whitespace ((t (:background "red")))) + '(underline ((t (:underline t)))) + '(variable-pitch ((t (:family "helv")))) + '(widget-button-face ((t (:bold t :weight bold)))) + '(widget-button-pressed-face ((t (:foreground "red")))) + '(widget-documentation-face ((t (:foreground "dark green")))) + '(widget-field-face ((t (:background "gray85")))) + '(widget-inactive-face ((t (:foreground "dim gray")))) + '(widget-single-line-field-face ((t (:background "gray85")))) + '(zmacs-region ((t (:background "lightgoldenrod2"))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'xp) + +;;; xp-theme.el ends here diff --git a/elpa/cond-let-0.2.1/cond-let-autoloads.el b/elpa/cond-let-0.2.1/cond-let-autoloads.el new file mode 100644 index 0000000..889b2af --- /dev/null +++ b/elpa/cond-let-0.2.1/cond-let-autoloads.el @@ -0,0 +1,28 @@ +;;; cond-let-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + +;;; Code: + +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + + + +;;; Generated autoloads from cond-let.el + +(register-definition-prefixes "cond-let" '("cond-let")) + +;;; End of scraped data + +(provide 'cond-let-autoloads) + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; no-native-compile: t +;; coding: utf-8-emacs-unix +;; End: + +;;; cond-let-autoloads.el ends here diff --git a/elpa/cond-let-0.2.1/cond-let-pkg.el b/elpa/cond-let-0.2.1/cond-let-pkg.el new file mode 100644 index 0000000..53d12eb --- /dev/null +++ b/elpa/cond-let-0.2.1/cond-let-pkg.el @@ -0,0 +1,8 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "cond-let" "0.2.1" + "Additional and improved binding conditionals." + '((emacs "28.1")) + :url "https://github.com/tarsius/cond-let" + :commit "0430bd1eb3493ea90d69feb6b7eb7dac3e10d0ba" + :revdesc "v0.2.1-0-g0430bd1eb349" + :keywords '("extensions")) diff --git a/elpa/cond-let-0.2.1/cond-let.el b/elpa/cond-let-0.2.1/cond-let.el new file mode 100644 index 0000000..1372736 --- /dev/null +++ b/elpa/cond-let-0.2.1/cond-let.el @@ -0,0 +1,534 @@ +;;; cond-let.el --- Additional and improved binding conditionals -*- lexical-binding:t -*- + +;; Copyright (C) 2025-2026 Jonas Bernoulli + +;; May contain traces of Emacs, which is +;; Copyright (C) 1985-2025 Free Software Foundation, Inc. + +;; Authors: Jonas Bernoulli +;; Homepage: https://github.com/tarsius/cond-let +;; Keywords: extensions + +;; Package-Version: 0.2.1 +;; Package-Revision: v0.2.1-0-g0430bd1eb349 +;; Package-Requires: ((emacs "28.1")) + +;; SPDX-License-Identifier: GPL-3.0-or-later + +;; 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 of the License, +;; 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 this file. If not, see . + +;;; Commentary: + +;; This is an ALPHA release! +;; Breaking changes are possible! + +;; Emacs provides the binding conditionals `if-let', `if-let*', +;; `when-let', `when-let*', `and-let*' and `while-let'. + +;; This package implements the missing `and-let' and `while-let*', +;; and the original `cond-let', `cond-let*', `and$' and `and>'. + +;; This package additionally provides more consistent and improved +;; implementations of the binding conditionals already provided by +;; Emacs. Merely loading this library does not shadow the built-in +;; implementations; this can optionally be done in the context of +;; an individual library, as described below. + +;; `cond-let' and `cond-let*' are provided exactly under these names. +;; The names of all other macros implemented by this package begin +;; with `cond-let--', the package's prefix for private symbol. + +;; Users of this package are not expected to use these unwieldy +;; names. Instead one should use Emacs' shorthand feature to use +;; all or some of these macros by their conceptual names. E.g., if +;; you want to use all of the available macros, add this at the end +;; of a library. + +;; Local Variables: +;; read-symbol-shorthands: ( +;; ("and$" . "cond-let--and$") +;; ("and>" . "cond-let--and>") +;; ("and-let" . "cond-let--and-let") +;; ("if-let" . "cond-let--if-let") +;; ("when-let" . "cond-let--when-let") +;; ("while-let" . "cond-let--while-let")) +;; End: + +;; You can think of these file-local settings as import statements of +;; sorts. If you do this, then this package's implementations shadow +;; the built-in implementations. Doing so does not affect any other +;; libraries, which continue to use the built-in implementations. + +;; Due to limitations of the shorthand implementation this has to be +;; done for each individual library. "dir-locals.el" cannot be used. + +;; If you use `and$' and `and>', you might want to add this to your +;; configuration: + +;; (with-eval-after-load 'cond-let +;; (font-lock-add-keywords 'emacs-lisp-mode +;; cond-let-font-lock-keywords t)) + +;; For information about the individual macros, please refer to their +;; docstrings. + +;; See also https://github.com/tarsius/cond-let/wiki. + +;;; Code: +;;; Cond + +(defun cond-let--prepare-clauses (tag sequential clauses) + "Used by macros `cond-let*' and `cond-let'." + (let (body) + (dolist (clause (nreverse clauses)) + (cond + ((vectorp clause) + (setq body + `((,(if (and sequential (length> clause 1)) 'let* 'let) + ,(mapcar (lambda (vec) (append vec nil)) clause) + ,@body)))) + ((let (varlist) + (while (vectorp (car clause)) + (push (append (pop clause) nil) varlist)) + (push (cond + (varlist + `(,(pcase (list (and body t) + (and sequential (length> varlist 1))) + ('(t t ) 'cond-let--when-let*) + (`(t ,_) 'cond-let--when-let) + ('(nil t ) 'cond-let--and-let*) + (`(nil ,_) 'cond-let--and-let)) + ,(nreverse varlist) + ,(if body + `(throw ',tag ,(macroexp-progn clause)) + (macroexp-progn clause)))) + ((length= clause 1) + (if body + (let ((a (gensym "anon"))) + `(let ((,a ,(car clause))) + (when ,a (throw ',tag ,a)))) + (car clause))) + ((and (eq (car clause) t) (not body)) + (macroexp-progn (cdr clause))) + (t + `(when ,(pop clause) + (throw ',tag ,(macroexp-progn clause))))) + body))))) + body)) + +(defmacro cond-let* (&rest clauses) + "Try each clause until one succeeds. + +Each clause has one of these forms: +- a plain clause (CONDITION BODY...) +- a binding clause ([SYMBOL VALUEFORM]... BODY...) +- a binding vector [[SYMBOL VALUEFORM]...] + +A (CONDITION BODY...) clause works as for `cond'. Evaluate CONDITION, +and if it yields non-nil, the clause succeeds. Then evaluate BODY forms +sequentially and return the value of the last; or if there are no BODY +forms, return the value of CONDITION. If CONDITION yields nil, do not +evaluate the BODY forms and instead proceed to the next clause. + +A ([SYMBOL VALUEFORM]... BODY...) clause begins with one or more binding +vectors, followed by one or more BODY forms. Bind SYMBOL to the value +of VALUEFORM. Each VALUEFORM can refer to symbols already bound by this +VARLIST (as for `let*'). + +If all VALUEFORMs yield non-nil, evaluate BODY forms sequentially, with +VARLIST's bindings in effect, and return the value of the last form. + +If any VALUEFORM yields nil, evaluate neither the remaining VALUEFORMs +nor the BODY forms, and proceed to the next clause. + +A [[SYMBOL VALUEFORM]...] form creates bindings, which extend to all +remaining clauses and binding vectors. Unlike for the previous form, +always bind all SYMBOLs, even if a VALUEFORM yields nil. Always proceed +to the next clause." + (declare (indent 0) + (debug (&rest [&or + (vector &rest (vector symbolp form)) + ([&rest (vector symbolp form)] body) + (form body)]))) + (let ((tag (gensym ":cond-let*"))) + `(catch ',tag + ,@(cond-let--prepare-clauses tag t clauses)))) + +(defmacro cond-let (&rest clauses) + "Try each clause until one succeeds. + +Each clause has one of these forms: +- a plain clause (CONDITION BODY...) +- a binding clause ([SYMBOL VALUEFORM]... BODY...) +- a binding vector [[SYMBOL VALUEFORM]...] + +A (CONDITION BODY...) clause works as for `cond'. Evaluate CONDITION, +and if it yields non-nil, the clause succeeds. Then evaluate BODY forms +sequentially and return the value of the last; or if there are no BODY +forms, return the value of CONDITION. If CONDITION yields nil, do not +evaluate the BODY forms and instead proceed to the next clause. + +A ([SYMBOL VALUEFORM]... BODY...) clause begins with one or more binding +vectors, followed by one or more BODY forms. Bind SYMBOL to the value +of VALUEFORM. Evaluate all VALUEFORMs before binding their respective +SYMBOLs (as for `let'). + +If all VALUEFORMs yield non-nil, evaluate BODY forms sequentially, with +VARLIST's bindings in effect, and return the value of the last form. + +If any VALUEFORM yields nil, evaluate neither the remaining VALUEFORMs +nor the BODY forms, and proceed to the next clause. + +A [[SYMBOL VALUEFORM]...] form creates bindings, which extend to all +remaining clauses and binding vectors. Evaluate all VALUEFORMs before +binding their respective SYMBOLs. Unlike for the previous form, bind +all SYMBOLs, even if a VALUEFORM yields nil. Always proceed to the +next clause." + (declare (indent 0) (debug cond-let*)) + (let ((tag (gensym ":cond-let"))) + `(catch ',tag + ,@(cond-let--prepare-clauses tag nil clauses)))) + +;;; Common + +(defun cond-let--prepare-varlist (varlist) + "Used by Cond-Let's `when-let*', `and-let*' and `while-let*'. +Also used by other macros via `cond-let--prepare-varforms'. +Return (VARLIST LASTVAR)." + (let (prevvar) + (list (mapcar (lambda (binding) + (unless (length= binding 2) + (signal 'error (cons "Invalid binding" binding))) + (pcase-let ((`(,var ,form) binding)) + (when (string-prefix-p "_" (symbol-name var)) + (setq var (gensym "anon"))) + (prog1 (if prevvar + `(,var (and ,prevvar ,form)) + (list var form)) + (setq prevvar var)))) + varlist) + prevvar))) + +(defun cond-let--prepare-varforms (varlist &optional if-let) + "Used by Cond-Let's `when-let', `and-let', `while-let' and `if-let'. +Return (ANON-VARLIST ANON-SETQ VARLIST LASTVAR), or if the length of +VARLIST is 1 and IF-LET is nil, return (nil nil VARLIST LASTVAR)." + (if (and (not if-let) + (length= varlist 1)) + `(nil nil ,@(cond-let--prepare-varlist varlist)) + (let ((triples + (mapcar (lambda (binding) + (unless (length= binding 2) + (signal 'error (cons "Invalid binding" binding))) + (pcase-let ((`(,var ,form) binding)) + (when (string-prefix-p "_" (symbol-name var)) + (setq var nil)) + (list (and var (gensym "anon")) + var + form))) + varlist))) + (list (mapcan (pcase-lambda (`(,anon ,_ ,_)) + (and anon (list anon))) + triples) + (mapcar (pcase-lambda (`(,anon ,_ ,form)) + (if anon + `(setq ,anon ,form) + form)) + triples) + (mapcan (pcase-lambda (`(,anon ,var ,_)) + (and var `((,var ,anon)))) + triples) + (cadr (car (last triples))))))) + +;;; And + +(defmacro cond-let--and-let* (varlist &optional bodyform) + "Bind according to VARLIST until one yields nil, else evaluate BODYFORM. + +Each element of VARLIST is a list (SYMBOL VALUEFORM), which binds SYMBOL +to the value of VALUEFORM. Each VALUEFORM can refer to symbols already +bound by this VARLIST (as for `let*'). + +Evaluate VALUEFORMs until on of them yields nil. If that happens return +nil, and evaluate neither the remaining VALUEFORMs nor BODYFORM. If all +VALUEFORMs yield non-nil, evaluate BODYFORM with the bindings in effect, +and return its value; or if there is no BODYFORM, the value of the last +VALUEFORM." + (declare (indent 1) + (debug ((&rest (symbolp form)) form))) + (pcase-let ((`(,varlist ,lastvar) + (cond-let--prepare-varlist varlist))) + `(let* ,varlist + ,(if bodyform + `(and ,lastvar ,bodyform) + lastvar)))) + +(defmacro cond-let--and-let (varlist &optional bodyform) + "Bind according to VARLIST until one yields nil, else evaluate BODYFORM. + +Each element of VARLIST is a list (SYMBOL VALUEFORM), which binds SYMBOL +to the value of VALUEFORM. Evaluate all VALUEFORMs before binding their +respective SYMBOLs (as for `let'). + +Evaluate VALUEFORMs until on of them yields nil. If that happens return +nil, and evaluate neither the remaining VALUEFORMs nor BODYFORM. If all +VALUEFORMs yield non-nil, evaluate BODYFORM with the bindings in effect, +and return its value; or if there is no BODYFORM, the value of the last +VALUEFORM." + (declare (indent 1) (debug cond-let--and-let*)) + (pcase-let ((`(,anon ,set ,bind ,lastvar) + (cond-let--prepare-varforms varlist))) + (cond (anon + `(let ,anon + (and ,@set + (let ,bind + ,(or bodyform lastvar))))) + (t + `(let ,bind + ,(if bodyform + `(and ,lastvar ,bodyform) + lastvar)))))) + +(defmacro cond-let--and$ (varform bodyform) + "Bind variable `$' to value of VARFORM and conditionally evaluate BODYFORM. + +If VARFORM yields a non-nil value, bind the symbol `$' to that value, +evaluate BODYFORM with that binding in effect, and return the value of +BODYFORM. If VARFORM yields nil, do not evaluate BODYFORM, and return +nil." + (declare (debug (form form))) + `(let (($ ,varform)) + (and $ ,bodyform))) + +(defmacro cond-let--and> (form form2 &rest forms) + "Bind variables according to each VARFORM until one of them yields nil. + +Evaluate the first FORM and if that yields a non-nil value, bind the +symbol `$' to that value, and evaluate the next FORM with that binding +in effect. Repeat this process with subsequent FORMs until one yields +nil, then return nil without evaluate the remaining FORMs. If all +FORMs yield non-nil, return the value of the last FORM. + +\(fn FORM FORM...)" + (declare (debug (form form body))) + `(,(if forms 'let* 'let) + (($ ,form) + ,@(and forms + (mapcar (lambda (form) + `($ (and $ ,form))) + (cons form2 (butlast forms))))) + (and $ + ,(or (car (last forms)) + form2)))) + +;;; If + +(defmacro cond-let--if-let* (varlist then &rest else) + "Bind variables according to VARLIST and evaluate THEN or ELSE. + +Each element of VARLIST is a list (SYMBOL VALUEFORM), which binds SYMBOL +to the value of VALUEFORM. Each VALUEFORM can refer to symbols already +bound by this VARLIST (as for `let*'). + +If all VALUEFORMs yield non-nil, evaluate THEN with VARLIST's bindings +in effect, and return its value. THEN must be one expression. + +If any VALUEFORM yields nil, evaluate ELSE sequentially and return the +value of the last form; or if there are no ELSE forms return nil. The +bindings from VARLIST do _not_ extend to the ELSE forms. + +\(fn VARLIST THEN [ELSE...])" + (declare (indent 2) + (debug ((&rest (symbolp form)) form body))) + (pcase-let ((`(,varlist ,lastvar) + (cond-let--prepare-varlist varlist)) + (tag (gensym ":if-let*"))) + `(catch ',tag + (let* ,varlist + (when ,lastvar + (throw ',tag ,then))) + ,@else))) + +(defmacro cond-let--if-let (varlist then &rest else) + "Bind variables according to VARLIST and evaluate THEN or ELSE. + +Each element of VARLIST is a list (SYMBOL VALUEFORM), which binds SYMBOL +to the value of VALUEFORM. Evaluate all VALUEFORMs before binding their +respective SYMBOLs (as for `let'). + +If all VALUEFORMs yield non-nil, evaluate THEN with VARLIST's bindings +in effect, and return its value. THEN must be one expression. + +If any VALUEFORM yields nil, evaluate ELSE sequentially and return the +value of the last form; or if there are no ELSE forms return nil. The +bindings from VARLIST do _not_ extend to the ELSE forms. + +\(fn VARLIST THEN [ELSE...])" + (declare (indent 2) (debug cond-let--if-let*)) + (pcase-let* ((`(,anon ,set ,bind ,_) + (cond-let--prepare-varforms varlist t)) + (set (if (length= set 1) (car set) (cons 'and set)))) + `(let ,anon + (if ,set + (let ,bind + ,then) + ,@else)))) + +;;; When + +(defmacro cond-let--when-let* (varlist bodyform &rest body) + "Bind variables according to VARLIST and conditionally evaluate BODY. + +Each element of VARLIST is a list (SYMBOL VALUEFORM), which binds SYMBOL +to the value of VALUEFORM. Each VALUEFORM can refer to symbols already +bound by this VARLIST (as for `let*'). + +If all VALUEFORMs yield non-nil, evaluate BODY forms sequentially, with +VARLIST's bindings in effect, and return the value of the last form. + +If any VALUEFORM yields nil, evaluate neither the remaining VALUEFORMs +nor the BODY forms, and instead return nil. + +BODY must be one or more expressions. If VARLIST is empty, do nothing +and return nil. + +\(fn VARLIST BODY...)" + (declare (indent 1) + (debug ((&rest (symbolp form)) form body))) + (pcase-let ((`(,varlist ,lastvar) + (cond-let--prepare-varlist varlist))) + `(let* ,varlist + (when ,lastvar + ,bodyform ,@body)))) + +(defmacro cond-let--when-let (varlist bodyform &rest body) + "Bind variables according to VARLIST and conditionally evaluate BODY. + +Each element of VARLIST is a list (SYMBOL VALUEFORM), which binds SYMBOL +to the value of VALUEFORM. Evaluate all VALUEFORMs before binding their +respective SYMBOLs (as for `let'). + +If all VALUEFORMs yield non-nil, evaluate BODY forms sequentially, with +VARLIST's bindings in effect, and return the value of the last form. + +If any VALUEFORM yields nil, evaluate neither the remaining VALUEFORMs +nor the BODY forms, and instead return nil. + +BODY must be one or more expressions. If VARLIST is empty, do nothing +and return nil. + +\(fn VARLIST BODY...)" + (declare (indent 1) (debug cond-let--when-let*)) + (pcase-let ((`(,anon ,set ,bind ,lastvar) + (cond-let--prepare-varforms varlist))) + (cond (anon + `(let ,anon + (when (and ,@set) + (let ,bind + ,bodyform ,@body)))) + (t + `(let ,bind + (when ,lastvar + ,bodyform ,@body)))))) + +(defmacro cond-let--when$ (varform bodyform &rest body) + "Bind variable `$' to value of VARFORM and conditionally evaluate BODY. + +If VARFORM yields a non-nil value, bind the symbol `$' to that value, +evaluate BODY with that binding in effect, and return the value of the +last form. If VARFORM yields nil, do not evaluate BODY, and return nil. +BODY must be one or more expressions. If VARLIST is empty, do nothing +and return nil. + +\(fn VARLIST BODY...)" + (declare (debug (form form))) + `(let (($ ,varform)) + (when $ + ,bodyform ,@body))) + +;;; While + +(defmacro cond-let--while-let* (varlist &rest body) + "Bind variables according to VARLIST, conditionally evaluate BODY, and repeat. + +Each element of VARLIST is a list (SYMBOL VALUEFORM), which binds SYMBOL +to the value of VALUEFORM. Each VALUEFORM can refer to symbols already +bound by this VARLIST (as for `let*'). + +If all VALUEFORMs yield non-nil, evaluate BODY forms sequentially, with +VARLIST's bindings in effect, and repeat the loop. + +If any VALUEFORM yields nil, evaluate neither the remaining VALUEFORMs +nor the BODY forms, and instead return, always yielding nil. + +BODY can be zero or more expressions. + +\(fn VARLIST [BODY...])" + (declare (indent 1) (debug cond-let--if-let*)) + (pcase-let ((`(,varlist ,lastvar) + (cond-let--prepare-varlist varlist)) + (tag (gensym ":while-let*"))) + `(catch ',tag + (while t + (let* ,varlist + (if ,lastvar + ,(macroexp-progn body) + (throw ',tag nil))))))) + +(defmacro cond-let--while-let (varlist bodyform &rest body) + "Bind variables according to VARLIST, conditionally evaluate BODY, and repeat. + +Each element of VARLIST is a list (SYMBOL VALUEFORM), which binds SYMBOL +to the value of VALUEFORM. Evaluate all VALUEFORMs before binding their +respective SYMBOLs (as for `let'). + +If all VALUEFORMs yield non-nil, evaluate BODY forms sequentially, with +VARLIST's bindings in effect, and repeat the loop. + +If any VALUEFORM yields nil, evaluate neither the remaining VALUEFORMs +nor the BODY forms, and instead return, always yielding nil. + +BODY can be one or more expressions. + +\(fn VARLIST BODY...)" + (declare (indent 1) (debug cond-let--if-let*)) + (pcase-let ((`(,anon ,set ,bind ,lastvar) + (cond-let--prepare-varforms varlist)) + (tag (gensym ":while-let"))) + (cond (anon + `(catch ',tag + (while t + (let ,anon + (if (and ,@set) + (let ,bind + ,bodyform ,@body) + (throw ',tag nil)))))) + (t + `(catch ',tag + (while t + (let ,bind + (if ,lastvar + ,(macroexp-progn (cons bodyform body)) + (throw ',tag nil))))))))) + +;;; Font-Lock + +(defvar cond-let-font-lock-keywords + '(("\\_<\\$\\_>" 0 'font-lock-variable-name-face)) + "Highlight `$' using `font-lock-variable-name-face'. +To add these keywords, add this to your configuration: +\(font-lock-add-keywords \\='emacs-lisp-mode cond-let-font-lock-keywords t)") + +(provide 'cond-let) +;;; cond-let.el ends here diff --git a/elpa/dash-2.20.0/dash-autoloads.el b/elpa/dash-2.20.0/dash-autoloads.el new file mode 100644 index 0000000..3d8c46f --- /dev/null +++ b/elpa/dash-2.20.0/dash-autoloads.el @@ -0,0 +1,83 @@ +;;; dash-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + +;;; Code: + +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + + + +;;; Generated autoloads from dash.el + +(autoload 'dash-fontify-mode "dash" "\ +Toggle fontification of Dash special variables. + +Dash-Fontify mode is a buffer-local minor mode intended for Emacs +Lisp buffers. Enabling it causes the special variables bound in +anaphoric Dash macros to be fontified. These anaphoras include +`it', `it-index', `acc', and `other'. In older Emacs versions +which do not dynamically detect macros, Dash-Fontify mode +additionally fontifies Dash macro calls. + +See also `dash-fontify-mode-lighter' and +`global-dash-fontify-mode'. + +This is a minor mode. If called interactively, toggle the `Dash-Fontify +mode' mode. If the prefix argument is positive, enable the mode, and if +it is zero or negative, disable the mode. + +If called from Lisp, toggle the mode if ARG is `toggle'. Enable the +mode if ARG is nil, omitted, or is a positive number. Disable the mode +if ARG is a negative number. + +To check whether the minor mode is enabled in the current buffer, +evaluate the variable `dash-fontify-mode'. + +The mode's hook is called both when the mode is enabled and when it is +disabled. + +(fn &optional ARG)" t) +(put 'global-dash-fontify-mode 'globalized-minor-mode t) +(defvar global-dash-fontify-mode nil "\ +Non-nil if Global Dash-Fontify mode is enabled. +See the `global-dash-fontify-mode' command +for a description of this minor mode. +Setting this variable directly does not take effect; +either customize it (see the info node `Easy Customization') +or call the function `global-dash-fontify-mode'.") +(custom-autoload 'global-dash-fontify-mode "dash" nil) +(autoload 'global-dash-fontify-mode "dash" "\ +Toggle Dash-Fontify mode in all buffers. +With prefix ARG, enable Global Dash-Fontify mode if ARG is positive; +otherwise, disable it. + +If called from Lisp, toggle the mode if ARG is `toggle'. +Enable the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. + +Dash-Fontify mode is enabled in all buffers where +`dash--turn-on-fontify-mode' would do it. + +See `dash-fontify-mode' for more information on Dash-Fontify mode. + +(fn &optional ARG)" t) +(autoload 'dash-register-info-lookup "dash" "\ +Register the Dash Info manual with `info-lookup-symbol'. +This allows Dash symbols to be looked up with \\[info-lookup-symbol]." t) +(register-definition-prefixes "dash" '("!cdr" "!cons" "--" "->" "-a" "-butlast" "-c" "-d" "-e" "-f" "-gr" "-i" "-juxt" "-keep" "-l" "-m" "-no" "-o" "-p" "-r" "-s" "-t" "-u" "-value-to-list" "-when-let" "-zip" "dash-")) + +;;; End of scraped data + +(provide 'dash-autoloads) + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; no-native-compile: t +;; coding: utf-8-emacs-unix +;; End: + +;;; dash-autoloads.el ends here diff --git a/elpa/dash-2.20.0/dash-pkg.el b/elpa/dash-2.20.0/dash-pkg.el new file mode 100644 index 0000000..933285c --- /dev/null +++ b/elpa/dash-2.20.0/dash-pkg.el @@ -0,0 +1,10 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "dash" "2.20.0" + "A modern list library for Emacs." + '((emacs "24")) + :url "https://github.com/magnars/dash.el" + :commit "fcb5d831fc08a43f984242c7509870f30983c27c" + :revdesc "2.20.0-0-gfcb5d831fc08" + :keywords '("extensions" "lisp") + :authors '(("Magnar Sveen" . "magnars@gmail.com")) + :maintainers '(("Basil L. Contovounesios" . "basil@contovou.net"))) diff --git a/elpa/dash-2.20.0/dash.el b/elpa/dash-2.20.0/dash.el new file mode 100644 index 0000000..07638c9 --- /dev/null +++ b/elpa/dash-2.20.0/dash.el @@ -0,0 +1,4165 @@ +;;; dash.el --- A modern list library for Emacs -*- lexical-binding: t -*- + +;; Copyright (C) 2012-2025 Free Software Foundation, Inc. + +;; Author: Magnar Sveen +;; Maintainer: Basil L. Contovounesios +;; Package-Version: 2.20.0 +;; Package-Revision: 2.20.0-0-gfcb5d831fc08 +;; Package-Requires: ((emacs "24")) +;; Keywords: extensions, lisp +;; URL: https://github.com/magnars/dash.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 . + +;;; Commentary: + +;; A modern list API for Emacs. +;; +;; See its overview at https://github.com/magnars/dash.el#functions. + +;;; Code: + +(eval-when-compile + (unless (fboundp 'static-if) + (defmacro static-if (condition then-form &rest else-forms) + "Expand to THEN-FORM or ELSE-FORMS based on compile-time CONDITION. +Polyfill for Emacs 30 `static-if'." + (declare (debug (sexp sexp &rest sexp)) (indent 2)) + (if (eval condition lexical-binding) + then-form + (cons 'progn else-forms)))) + + ;; TODO: Emacs 24.3 first introduced `gv', so remove this and all + ;; calls to `defsetf' when support for earlier versions is dropped. + (unless (fboundp 'gv-define-setter) + (require 'cl)) + + ;; - 24.3 started complaining about unknown `declare' props. + ;; - 25 introduced `pure' and `side-effect-free'. + ;; - 30 introduced `important-return-value'. + (when (boundp 'defun-declarations-alist) + (dolist (prop '(important-return-value pure side-effect-free)) + (unless (assq prop defun-declarations-alist) + (push (list prop #'ignore) defun-declarations-alist))))) + +(defgroup dash () + "Customize group for Dash, a modern list library." + :group 'extensions + :group 'lisp + :prefix "dash-") + +(defmacro !cons (car cdr) + "Destructive: Set CDR to the cons of CAR and CDR." + (declare (debug (form symbolp))) + `(setq ,cdr (cons ,car ,cdr))) + +(defmacro !cdr (list) + "Destructive: Set LIST to the cdr of LIST." + (declare (debug (symbolp))) + `(setq ,list (cdr ,list))) + +(defmacro --each (list &rest body) + "Evaluate BODY for each element of LIST and return nil. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating BODY. +This is the anaphoric counterpart to `-each'." + (declare (debug (form body)) (indent 1)) + (let ((l (make-symbol "list")) + (i (make-symbol "i"))) + `(let ((,l ,list) + (,i 0)) + (while ,l + (let ((it (pop ,l)) (it-index ,i)) + (ignore it it-index) + ,@body) + (setq ,i (1+ ,i)))))) + +(defun -each (list fn) + "Call FN on each element of LIST. +Return nil; this function is intended for side effects. + +Its anaphoric counterpart is `--each'. + +For access to the current element's index in LIST, see +`-each-indexed'." + (declare (indent 1)) + (ignore (mapc fn list))) + +(defalias '--each-indexed '--each) + +(defun -each-indexed (list fn) + "Call FN on each index and element of LIST. +For each ITEM at INDEX in LIST, call (funcall FN INDEX ITEM). +Return nil; this function is intended for side effects. + +See also: `-map-indexed'." + (declare (indent 1)) + (--each list (funcall fn it-index it))) + +(defmacro --each-while (list pred &rest body) + "Evaluate BODY for each item in LIST, while PRED evaluates to non-nil. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating PRED or BODY. Once +an element is reached for which PRED evaluates to nil, no further +BODY is evaluated. The return value is always nil. +This is the anaphoric counterpart to `-each-while'." + (declare (debug (form form body)) (indent 2)) + (let ((l (make-symbol "list")) + (i (make-symbol "i")) + (elt (make-symbol "elt"))) + `(let ((,l ,list) + (,i 0) + ,elt) + (while (when ,l + (setq ,elt (car-safe ,l)) + (let ((it ,elt) (it-index ,i)) + (ignore it it-index) + ,pred)) + (let ((it ,elt) (it-index ,i)) + (ignore it it-index) + ,@body) + (setq ,i (1+ ,i) ,l (cdr ,l)))))) + +(defun -each-while (list pred fn) + "Call FN on each ITEM in LIST, while (PRED ITEM) is non-nil. +Once an ITEM is reached for which PRED returns nil, FN is no +longer called. Return nil; this function is intended for side +effects. + +Its anaphoric counterpart is `--each-while'." + (declare (indent 2)) + (--each-while list (funcall pred it) (funcall fn it))) + +(defmacro --each-r (list &rest body) + "Evaluate BODY for each element of LIST in reversed order. +Each element of LIST in turn, starting at its end, is bound to +`it' and its index within LIST to `it-index' before evaluating +BODY. The return value is always nil. +This is the anaphoric counterpart to `-each-r'." + (declare (debug (form body)) (indent 1)) + (let ((v (make-symbol "vector")) + (i (make-symbol "i"))) + ;; Implementation note: building a vector is considerably faster + ;; than building a reversed list (vector takes less memory, so + ;; there is less GC), plus `length' comes naturally. In-place + ;; `nreverse' would be faster still, but BODY would be able to see + ;; that, even if the modification was undone before we return. + `(let* ((,v (vconcat ,list)) + (,i (length ,v)) + it it-index) + (ignore it it-index) + (while (> ,i 0) + (setq ,i (1- ,i) it-index ,i it (aref ,v ,i)) + ,@body)))) + +(defun -each-r (list fn) + "Call FN on each element of LIST in reversed order. +Return nil; this function is intended for side effects. + +Its anaphoric counterpart is `--each-r'." + (--each-r list (funcall fn it))) + +(defmacro --each-r-while (list pred &rest body) + "Eval BODY for each item in reversed LIST, while PRED evals to non-nil. +Each element of LIST in turn, starting at its end, is bound to +`it' and its index within LIST to `it-index' before evaluating +PRED or BODY. Once an element is reached for which PRED +evaluates to nil, no further BODY is evaluated. The return value +is always nil. +This is the anaphoric counterpart to `-each-r-while'." + (declare (debug (form form body)) (indent 2)) + (let ((v (make-symbol "vector")) + (i (make-symbol "i")) + (elt (make-symbol "elt"))) + `(let* ((,v (vconcat ,list)) + (,i (length ,v)) + ,elt it it-index) + (ignore it it-index) + (while (when (> ,i 0) + (setq ,i (1- ,i) it-index ,i) + (setq ,elt (aref ,v ,i) it ,elt) + ,pred) + (setq it-index ,i it ,elt) + ,@body)))) + +(defun -each-r-while (list pred fn) + "Call FN on each ITEM in reversed LIST, while (PRED ITEM) is non-nil. +Once an ITEM is reached for which PRED returns nil, FN is no +longer called. Return nil; this function is intended for side +effects. + +Its anaphoric counterpart is `--each-r-while'." + (--each-r-while list (funcall pred it) (funcall fn it))) + +(defmacro --dotimes (num &rest body) + "Evaluate BODY NUM times, presumably for side effects. +BODY is evaluated with the local variable `it' temporarily bound +to successive integers running from 0, inclusive, to NUM, +exclusive. BODY is not evaluated if NUM is less than 1. +This is the anaphoric counterpart to `-dotimes'." + (declare (debug (form body)) (indent 1)) + (let ((n (make-symbol "num")) + (i (make-symbol "i"))) + `(let ((,n ,num) + (,i 0) + it) + (ignore it) + (while (< ,i ,n) + (setq it ,i ,i (1+ ,i)) + ,@body)))) + +(defun -dotimes (num fn) + "Call FN NUM times, presumably for side effects. +FN is called with a single argument on successive integers +running from 0, inclusive, to NUM, exclusive. FN is not called +if NUM is less than 1. + +This function's anaphoric counterpart is `--dotimes'." + (declare (indent 1)) + (--dotimes num (funcall fn it))) + +(defun -map (fn list) + "Apply FN to each item in LIST and return the list of results. + +This function's anaphoric counterpart is `--map'." + (declare (important-return-value t)) + (mapcar fn list)) + +(defmacro --map (form list) + "Eval FORM for each item in LIST and return the list of results. +Each element of LIST in turn is bound to `it' before evaluating +FORM. +This is the anaphoric counterpart to `-map'." + (declare (debug (def-form form))) + `(mapcar (lambda (it) (ignore it) ,form) ,list)) + +(defmacro --reduce-from (form init list) + "Accumulate a value by evaluating FORM across LIST. +This macro is like `--each' (which see), but it additionally +provides an accumulator variable `acc' which it successively +binds to the result of evaluating FORM for the current LIST +element before processing the next element. For the first +element, `acc' is initialized with the result of evaluating INIT. +The return value is the resulting value of `acc'. If LIST is +empty, FORM is not evaluated, and the return value is the result +of INIT. +This is the anaphoric counterpart to `-reduce-from'." + (declare (debug (form form form))) + `(let ((acc ,init)) + (--each ,list (setq acc ,form)) + acc)) + +(defun -reduce-from (fn init list) + "Reduce the function FN across LIST, starting with INIT. +Return the result of applying FN to INIT and the first element of +LIST, then applying FN to that result and the second element, +etc. If LIST is empty, return INIT without calling FN. + +This function's anaphoric counterpart is `--reduce-from'. + +For other folds, see also `-reduce' and `-reduce-r'." + (declare (important-return-value t)) + (--reduce-from (funcall fn acc it) init list)) + +(defmacro --reduce (form list) + "Accumulate a value by evaluating FORM across LIST. +This macro is like `--reduce-from' (which see), except the first +element of LIST is taken as INIT. Thus if LIST contains a single +item, it is returned without evaluating FORM. If LIST is empty, +FORM is evaluated with `it' and `acc' bound to nil. +This is the anaphoric counterpart to `-reduce'." + (declare (debug (form form))) + (let ((lv (make-symbol "list-value"))) + `(let ((,lv ,list)) + (if ,lv + (--reduce-from ,form (car ,lv) (cdr ,lv)) + ;; Explicit nil binding pacifies lexical "variable left uninitialized" + ;; warning. See issue #377 and upstream https://bugs.gnu.org/47080. + (let ((acc nil) (it nil)) + (ignore acc it) + ,form))))) + +(defun -reduce (fn list) + "Reduce the function FN across LIST. +Return the result of applying FN to the first two elements of +LIST, then applying FN to that result and the third element, etc. +If LIST contains a single element, return it without calling FN. +If LIST is empty, return the result of calling FN with no +arguments. + +This function's anaphoric counterpart is `--reduce'. + +For other folds, see also `-reduce-from' and `-reduce-r'." + (declare (important-return-value t)) + (if list + (-reduce-from fn (car list) (cdr list)) + (funcall fn))) + +(defmacro --reduce-r-from (form init list) + "Accumulate a value by evaluating FORM across LIST in reverse. +This macro is like `--reduce-from', except it starts from the end +of LIST. +This is the anaphoric counterpart to `-reduce-r-from'." + (declare (debug (form form form))) + `(let ((acc ,init)) + (--each-r ,list (setq acc ,form)) + acc)) + +(defun -reduce-r-from (fn init list) + "Reduce the function FN across LIST in reverse, starting with INIT. +Return the result of applying FN to the last element of LIST and +INIT, then applying FN to the second-to-last element and the +previous result of FN, etc. That is, the first argument of FN is +the current element, and its second argument the accumulated +value. If LIST is empty, return INIT without calling FN. + +This function is like `-reduce-from' but the operation associates +from the right rather than left. In other words, it starts from +the end of LIST and flips the arguments to FN. Conceptually, it +is like replacing the conses in LIST with applications of FN, and +its last link with INIT, and evaluating the resulting expression. + +This function's anaphoric counterpart is `--reduce-r-from'. + +For other folds, see also `-reduce-r' and `-reduce'." + (declare (important-return-value t)) + (--reduce-r-from (funcall fn it acc) init list)) + +(defmacro --reduce-r (form list) + "Accumulate a value by evaluating FORM across LIST in reverse order. +This macro is like `--reduce', except it starts from the end of +LIST. +This is the anaphoric counterpart to `-reduce-r'." + (declare (debug (form form))) + `(--reduce ,form (reverse ,list))) + +(defun -reduce-r (fn list) + "Reduce the function FN across LIST in reverse. +Return the result of applying FN to the last two elements of +LIST, then applying FN to the third-to-last element and the +previous result of FN, etc. That is, the first argument of FN is +the current element, and its second argument the accumulated +value. If LIST contains a single element, return it without +calling FN. If LIST is empty, return the result of calling FN +with no arguments. + +This function is like `-reduce' but the operation associates from +the right rather than left. In other words, it starts from the +end of LIST and flips the arguments to FN. Conceptually, it is +like replacing the conses in LIST with applications of FN, +ignoring its last link, and evaluating the resulting expression. + +This function's anaphoric counterpart is `--reduce-r'. + +For other folds, see also `-reduce-r-from' and `-reduce'." + (declare (important-return-value t)) + (if list + (--reduce-r (funcall fn it acc) list) + (funcall fn))) + +(defmacro --reductions-from (form init list) + "Return a list of FORM's intermediate reductions across LIST. +That is, a list of the intermediate values of the accumulator +when `--reduce-from' (which see) is called with the same +arguments. +This is the anaphoric counterpart to `-reductions-from'." + (declare (debug (form form form))) + `(nreverse + (--reduce-from (cons (let ((acc (car acc))) (ignore acc) ,form) acc) + (list ,init) + ,list))) + +(defun -reductions-from (fn init list) + "Return a list of FN's intermediate reductions across LIST. +That is, a list of the intermediate values of the accumulator +when `-reduce-from' (which see) is called with the same +arguments. + +This function's anaphoric counterpart is `--reductions-from'. + +For other folds, see also `-reductions' and `-reductions-r'." + (declare (important-return-value t)) + (--reductions-from (funcall fn acc it) init list)) + +(defmacro --reductions (form list) + "Return a list of FORM's intermediate reductions across LIST. +That is, a list of the intermediate values of the accumulator +when `--reduce' (which see) is called with the same arguments. +This is the anaphoric counterpart to `-reductions'." + (declare (debug (form form))) + (let ((lv (make-symbol "list-value"))) + `(let ((,lv ,list)) + (if ,lv + (--reductions-from ,form (car ,lv) (cdr ,lv)) + ;; Explicit nil binding pacifies lexical "variable left uninitialized" + ;; warning. See issue #377 and upstream https://bugs.gnu.org/47080. + (let ((acc nil) (it nil)) + (ignore acc it) + (list ,form)))))) + +(defun -reductions (fn list) + "Return a list of FN's intermediate reductions across LIST. +That is, a list of the intermediate values of the accumulator +when `-reduce' (which see) is called with the same arguments. + +This function's anaphoric counterpart is `--reductions'. + +For other folds, see also `-reductions' and `-reductions-r'." + (declare (important-return-value t)) + (if list + (--reductions-from (funcall fn acc it) (car list) (cdr list)) + (list (funcall fn)))) + +(defmacro --reductions-r-from (form init list) + "Return a list of FORM's intermediate reductions across reversed LIST. +That is, a list of the intermediate values of the accumulator +when `--reduce-r-from' (which see) is called with the same +arguments. +This is the anaphoric counterpart to `-reductions-r-from'." + (declare (debug (form form form))) + `(--reduce-r-from (cons (let ((acc (car acc))) (ignore acc) ,form) acc) + (list ,init) + ,list)) + +(defun -reductions-r-from (fn init list) + "Return a list of FN's intermediate reductions across reversed LIST. +That is, a list of the intermediate values of the accumulator +when `-reduce-r-from' (which see) is called with the same +arguments. + +This function's anaphoric counterpart is `--reductions-r-from'. + +For other folds, see also `-reductions' and `-reductions-r'." + (declare (important-return-value t)) + (--reductions-r-from (funcall fn it acc) init list)) + +(defmacro --reductions-r (form list) + "Return a list of FORM's intermediate reductions across reversed LIST. +That is, a list of the intermediate values of the accumulator +when `--reduce-re' (which see) is called with the same arguments. +This is the anaphoric counterpart to `-reductions-r'." + (declare (debug (form list))) + (let ((lv (make-symbol "list-value"))) + `(let ((,lv (reverse ,list))) + (if ,lv + (--reduce-from (cons (let ((acc (car acc))) (ignore acc) ,form) acc) + (list (car ,lv)) + (cdr ,lv)) + ;; Explicit nil binding pacifies lexical "variable left uninitialized" + ;; warning. See issue #377 and upstream https://bugs.gnu.org/47080. + (let ((acc nil) (it nil)) + (ignore acc it) + (list ,form)))))) + +(defun -reductions-r (fn list) + "Return a list of FN's intermediate reductions across reversed LIST. +That is, a list of the intermediate values of the accumulator +when `-reduce-r' (which see) is called with the same arguments. + +This function's anaphoric counterpart is `--reductions-r'. + +For other folds, see also `-reductions-r-from' and +`-reductions'." + (declare (important-return-value t)) + (if list + (--reductions-r (funcall fn it acc) list) + (list (funcall fn)))) + +(defmacro --filter (form list) + "Return a new list of the items in LIST for which FORM evals to non-nil. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. +This is the anaphoric counterpart to `-filter'. +For the opposite operation, see also `--remove'." + (declare (debug (form form))) + (let ((r (make-symbol "result"))) + `(let (,r) + (--each ,list (when ,form (push it ,r))) + (nreverse ,r)))) + +(defun -filter (pred list) + "Return a new list of the items in LIST for which PRED returns non-nil. + +Alias: `-select'. + +This function's anaphoric counterpart is `--filter'. + +For similar operations, see also `-keep' and `-remove'." + (declare (important-return-value t)) + (--filter (funcall pred it) list)) + +(defalias '-select '-filter) +(defalias '--select '--filter) + +(defmacro --remove (form list) + "Return a new list of the items in LIST for which FORM evals to nil. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. +This is the anaphoric counterpart to `-remove'. +For the opposite operation, see also `--filter'." + (declare (debug (form form))) + `(--filter (not ,form) ,list)) + +(defun -remove (pred list) + "Return a new list of the items in LIST for which PRED returns nil. + +Alias: `-reject'. + +This function's anaphoric counterpart is `--remove'. + +For similar operations, see also `-keep' and `-filter'." + (declare (important-return-value t)) + (--remove (funcall pred it) list)) + +(defalias '-reject '-remove) +(defalias '--reject '--remove) + +(defmacro --remove-first (form list) + "Remove the first item from LIST for which FORM evals to non-nil. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. This is a +non-destructive operation, but only the front of LIST leading up +to the removed item is a copy; the rest is LIST's original tail. +If no item is removed, then the result is a complete copy. +This is the anaphoric counterpart to `-remove-first'." + (declare (debug (form form))) + (let ((front (make-symbol "front")) + (tail (make-symbol "tail"))) + `(let ((,tail ,list) ,front) + (--each-while ,tail (not ,form) + (push (pop ,tail) ,front)) + (if ,tail + (nconc (nreverse ,front) (cdr ,tail)) + (nreverse ,front))))) + +(defun -remove-first (pred list) + "Remove the first item from LIST for which PRED returns non-nil. +This is a non-destructive operation, but only the front of LIST +leading up to the removed item is a copy; the rest is LIST's +original tail. If no item is removed, then the result is a +complete copy. + +Alias: `-reject-first'. + +This function's anaphoric counterpart is `--remove-first'. + +See also `-map-first', `-remove-item', and `-remove-last'." + (declare (important-return-value t)) + (--remove-first (funcall pred it) list)) + +;; TODO: #'-quoting the macro upsets Emacs 24. +(defalias '-reject-first #'-remove-first) +(defalias '--reject-first '--remove-first) + +(defmacro --remove-last (form list) + "Remove the last item from LIST for which FORM evals to non-nil. +Each element of LIST in turn is bound to `it' before evaluating +FORM. The result is a copy of LIST regardless of whether an +element is removed. +This is the anaphoric counterpart to `-remove-last'." + (declare (debug (form form))) + `(nreverse (--remove-first ,form (reverse ,list)))) + +(defun -remove-last (pred list) + "Remove the last item from LIST for which PRED returns non-nil. +The result is a copy of LIST regardless of whether an element is +removed. + +Alias: `-reject-last'. + +This function's anaphoric counterpart is `--remove-last'. + +See also `-map-last', `-remove-item', and `-remove-first'." + (declare (important-return-value t)) + (--remove-last (funcall pred it) list)) + +(defalias '-reject-last '-remove-last) +(defalias '--reject-last '--remove-last) + +(defalias '-remove-item #'remove + "Return a copy of LIST with all occurrences of ITEM removed. +The comparison is done with `equal'. +\n(fn ITEM LIST)") + +(defmacro --keep (form list) + "Eval FORM for each item in LIST and return the non-nil results. +Like `--filter', but returns the non-nil results of FORM instead +of the corresponding elements of LIST. Each element of LIST in +turn is bound to `it' and its index within LIST to `it-index' +before evaluating FORM. +This is the anaphoric counterpart to `-keep'." + (declare (debug (form form))) + (let ((r (make-symbol "result")) + (m (make-symbol "mapped"))) + `(let (,r) + (--each ,list (let ((,m ,form)) (when ,m (push ,m ,r)))) + (nreverse ,r)))) + +(defun -keep (fn list) + "Return a new list of the non-nil results of applying FN to each item in LIST. +Like `-filter', but returns the non-nil results of FN instead of +the corresponding elements of LIST. + +Its anaphoric counterpart is `--keep'." + (declare (important-return-value t)) + (--keep (funcall fn it) list)) + +(defun -non-nil (list) + "Return a copy of LIST with all nil items removed." + (declare (side-effect-free t)) + (--filter it list)) + +(defmacro --map-indexed (form list) + "Eval FORM for each item in LIST and return the list of results. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. This is like +`--map', but additionally makes `it-index' available to FORM. + +This is the anaphoric counterpart to `-map-indexed'." + (declare (debug (form form))) + (let ((r (make-symbol "result"))) + `(let (,r) + (--each ,list + (push ,form ,r)) + (nreverse ,r)))) + +(defun -map-indexed (fn list) + "Apply FN to each index and item in LIST and return the list of results. +This is like `-map', but FN takes two arguments: the index of the +current element within LIST, and the element itself. + +This function's anaphoric counterpart is `--map-indexed'. + +For a side-effecting variant, see also `-each-indexed'." + (declare (important-return-value t)) + (--map-indexed (funcall fn it-index it) list)) + +(defmacro --map-when (pred rep list) + "Anaphoric form of `-map-when'." + (declare (debug (form form form))) + (let ((r (make-symbol "result"))) + `(let (,r) + (--each ,list (!cons (if ,pred ,rep it) ,r)) + (nreverse ,r)))) + +(defun -map-when (pred rep list) + "Use PRED to conditionally apply REP to each item in LIST. +Return a copy of LIST where the items for which PRED returns nil +are unchanged, and the rest are mapped through the REP function. + +Alias: `-replace-where' + +See also: `-update-at'" + (declare (important-return-value t)) + (--map-when (funcall pred it) (funcall rep it) list)) + +(defalias '-replace-where '-map-when) +(defalias '--replace-where '--map-when) + +(defun -map-first (pred rep list) + "Use PRED to determine the first item in LIST to call REP on. +Return a copy of LIST where the first item for which PRED returns +non-nil is replaced with the result of calling REP on that item. + +See also: `-map-when', `-replace-first'" + (declare (important-return-value t)) + (let (front) + (while (and list (not (funcall pred (car list)))) + (push (car list) front) + (!cdr list)) + (if list + (-concat (nreverse front) (cons (funcall rep (car list)) (cdr list))) + (nreverse front)))) + +(defmacro --map-first (pred rep list) + "Anaphoric form of `-map-first'." + (declare (debug (def-form def-form form))) + `(-map-first (lambda (it) (ignore it) ,pred) + (lambda (it) (ignore it) ,rep) + ,list)) + +(defun -map-last (pred rep list) + "Use PRED to determine the last item in LIST to call REP on. +Return a copy of LIST where the last item for which PRED returns +non-nil is replaced with the result of calling REP on that item. + +See also: `-map-when', `-replace-last'" + (declare (important-return-value t)) + (nreverse (-map-first pred rep (reverse list)))) + +(defmacro --map-last (pred rep list) + "Anaphoric form of `-map-last'." + (declare (debug (def-form def-form form))) + `(-map-last (lambda (it) (ignore it) ,pred) + (lambda (it) (ignore it) ,rep) + ,list)) + +(defun -replace (old new list) + "Replace all OLD items in LIST with NEW. + +Elements are compared using `equal'. + +See also: `-replace-at'" + (declare (pure t) (side-effect-free t)) + (--map-when (equal it old) new list)) + +(defun -replace-first (old new list) + "Replace the first occurrence of OLD with NEW in LIST. + +Elements are compared using `equal'. + +See also: `-map-first'" + (declare (pure t) (side-effect-free t)) + (--map-first (equal old it) new list)) + +(defun -replace-last (old new list) + "Replace the last occurrence of OLD with NEW in LIST. + +Elements are compared using `equal'. + +See also: `-map-last'" + (declare (pure t) (side-effect-free t)) + (--map-last (equal old it) new list)) + +(defmacro --mapcat (form list) + "Anaphoric form of `-mapcat'." + (declare (debug (form form))) + `(apply #'append (--map ,form ,list))) + +(defun -mapcat (fn list) + "Return the concatenation of the result of mapping FN over LIST. +Thus function FN should return a list." + (declare (important-return-value t)) + (--mapcat (funcall fn it) list)) + +(defmacro --iterate (form init n) + "Anaphoric version of `-iterate'." + (declare (debug (form form form))) + (let ((res (make-symbol "result")) + (len (make-symbol "n"))) + `(let ((,len ,n)) + (when (> ,len 0) + (let* ((it ,init) + (,res (list it))) + (dotimes (_ (1- ,len)) + (push (setq it ,form) ,res)) + (nreverse ,res)))))) + +(defun -iterate (fun init n) + "Return a list of iterated applications of FUN to INIT. + +This means a list of the form: + + (INIT (FUN INIT) (FUN (FUN INIT)) ...) + +N is the length of the returned list." + (declare (important-return-value t)) + (--iterate (funcall fun it) init n)) + +(defun -flatten (l) + "Take a nested list L and return its contents as a single, flat list. + +Note that because nil represents a list of zero elements (an +empty list), any mention of nil in L will disappear after +flattening. If you need to preserve nils, consider `-flatten-n' +or map them to some unique symbol and then map them back. + +Conses of two atoms are considered \"terminals\", that is, they +aren't flattened further. + +See also: `-flatten-n'" + (declare (pure t) (side-effect-free t)) + (if (and (listp l) (listp (cdr l))) + (-mapcat '-flatten l) + (list l))) + +(defun -flatten-n (num list) + "Flatten NUM levels of a nested LIST. + +See also: `-flatten'" + (declare (pure t) (side-effect-free t)) + (dotimes (_ num) + (setq list (apply #'append (mapcar #'-list list)))) + list) + +(defalias '-concat #'append + "Concatenate all SEQUENCES and make the result a list. +The result is a list whose elements are the elements of all the arguments. +Each argument may be a list, vector or string. + +All arguments except the last argument are copied. The last argument +is just used as the tail of the new list. If the last argument is not +a list, this results in a dotted list. + +As an exception, if all the arguments except the last are nil, and the +last argument is not a list, the return value is that last argument +unaltered, not a list. + +\(fn &rest SEQUENCES)") + +(defalias '-copy #'copy-sequence + "Create a shallow copy of LIST. +The elements of LIST are not copied; they are shared with the original. +\n(fn LIST)") + +(defmacro --splice (pred form list) + "Splice lists generated by FORM in place of items satisfying PRED in LIST. + +Evaluate PRED for each element of LIST in turn bound to `it'. +Whenever the result of PRED is nil, leave that `it' is-is. +Otherwise, evaluate FORM with the same `it' binding still in +place. The result should be a (possibly empty) list of items to +splice in place of `it' in LIST. + +This can be useful as an alternative to the `,@' construct in a +`\\=`' structure, in case you need to splice several lists at +marked positions (for example with keywords). + +This is the anaphoric counterpart to `-splice'." + (declare (debug (form form form))) + (let ((r (make-symbol "result"))) + `(let (,r) + (--each ,list + (if ,pred + (--each ,form (push it ,r)) + (push it ,r))) + (nreverse ,r)))) + +(defun -splice (pred fun list) + "Splice lists generated by FUN in place of items satisfying PRED in LIST. + +Call PRED on each element of LIST. Whenever the result of PRED +is nil, leave that `it' as-is. Otherwise, call FUN on the same +`it' that satisfied PRED. The result should be a (possibly +empty) list of items to splice in place of `it' in LIST. + +This can be useful as an alternative to the `,@' construct in a +`\\=`' structure, in case you need to splice several lists at +marked positions (for example with keywords). + +This function's anaphoric counterpart is `--splice'. + +See also: `-splice-list', `-insert-at'." + (declare (important-return-value t)) + (--splice (funcall pred it) (funcall fun it) list)) + +(defun -splice-list (pred new-list list) + "Splice NEW-LIST in place of elements matching PRED in LIST. + +See also: `-splice', `-insert-at'" + (declare (important-return-value t)) + (-splice pred (lambda (_) new-list) list)) + +(defmacro --splice-list (pred new-list list) + "Anaphoric form of `-splice-list'." + (declare (debug (def-form form form))) + `(-splice-list (lambda (it) (ignore it) ,pred) ,new-list ,list)) + +(defun -cons* (&rest args) + "Make a new list from the elements of ARGS. +The last 2 elements of ARGS are used as the final cons of the +result, so if the final element of ARGS is not a list, the result +is a dotted list. With no ARGS, return nil." + (declare (side-effect-free t)) + (let* ((len (length args)) + (tail (nthcdr (- len 2) args)) + (last (cdr tail))) + (if (null last) + (car args) + (setcdr tail (car last)) + args))) + +(defun -snoc (list elem &rest elements) + "Append ELEM to the end of the list. + +This is like `cons', but operates on the end of list. + +If any ELEMENTS are given, append them to the list as well." + (declare (side-effect-free t)) + (-concat list (list elem) elements)) + +(defmacro --first (form list) + "Return the first item in LIST for which FORM evals to non-nil. +Return nil if no such element is found. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. +This is the anaphoric counterpart to `-first'." + (declare (debug (form form))) + (let ((n (make-symbol "needle"))) + `(let (,n) + (--each-while ,list (or (not ,form) + (ignore (setq ,n it)))) + ,n))) + +(defun -first (pred list) + "Return the first item in LIST for which PRED returns non-nil. +Return nil if no such element is found. + +To get the first item in the list no questions asked, +use `-first-item'. + +Alias: `-find'. + +This function's anaphoric counterpart is `--first'." + (declare (important-return-value t)) + (--first (funcall pred it) list)) + +(defalias '-find #'-first) +(defalias '--find '--first) + +(defmacro --some (form list) + "Return non-nil if FORM evals to non-nil for at least one item in LIST. +If so, return the first such result of FORM. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. +This is the anaphoric counterpart to `-some'." + (declare (debug (form form))) + (let ((n (make-symbol "needle"))) + `(let (,n) + (--each-while ,list (not (setq ,n ,form))) + ,n))) + +(defun -some (pred list) + "Return (PRED x) for the first LIST item where (PRED x) is non-nil, else nil. + +Alias: `-any'. + +This function's anaphoric counterpart is `--some'." + (declare (important-return-value t)) + (--some (funcall pred it) list)) + +(defalias '-any '-some) +(defalias '--any '--some) + +(defmacro --every (form list) + "Return non-nil if FORM evals to non-nil for all items in LIST. +If so, return the last such result of FORM. Otherwise, once an +item is reached for which FORM yields nil, return nil without +evaluating FORM for any further LIST elements. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. + +This macro is like `--every-p', but on success returns the last +non-nil result of FORM instead of just t. + +This is the anaphoric counterpart to `-every'." + (declare (debug (form form))) + (let ((a (make-symbol "all"))) + `(let ((,a t)) + (--each-while ,list (setq ,a ,form)) + ,a))) + +(defun -every (pred list) + "Return non-nil if PRED returns non-nil for all items in LIST. +If so, return the last such result of PRED. Otherwise, once an +item is reached for which PRED returns nil, return nil without +calling PRED on any further LIST elements. + +This function is like `-every-p', but on success returns the last +non-nil result of PRED instead of just t. + +This function's anaphoric counterpart is `--every'." + (declare (important-return-value t)) + (--every (funcall pred it) list)) + +(defmacro --last (form list) + "Anaphoric form of `-last'." + (declare (debug (form form))) + (let ((n (make-symbol "needle"))) + `(let (,n) + (--each ,list + (when ,form (setq ,n it))) + ,n))) + +(defun -last (pred list) + "Return the last x in LIST where (PRED x) is non-nil, else nil." + (declare (important-return-value t)) + (--last (funcall pred it) list)) + +(defalias '-first-item #'car + "Return the first item of LIST, or nil on an empty list. + +See also: `-second-item', `-last-item', etc. + +\(fn LIST)") + +;; Ensure that calls to `-first-item' are compiled to a single opcode, +;; just like `car'. +(put '-first-item 'byte-opcode 'byte-car) +(put '-first-item 'byte-compile 'byte-compile-one-arg) +(put '-first-item 'pure t) +(put '-first-item 'side-effect-free t) + +(defalias '-second-item #'cadr + "Return the second item of LIST, or nil if LIST is too short. + +See also: `-first-item', `-third-item', etc. + +\(fn LIST)") + +(put '-second-item 'pure t) +(put '-second-item 'side-effect-free t) + +(defalias '-third-item + (if (fboundp 'caddr) + #'caddr + (lambda (list) (car (cddr list)))) + "Return the third item of LIST, or nil if LIST is too short. + +See also: `-second-item', `-fourth-item', etc. + +\(fn LIST)") + +(put '-third-item 'pure t) +(put '-third-item 'side-effect-free t) + +(defalias '-fourth-item + (if (fboundp 'cadddr) + #'cadddr + (lambda (list) (cadr (cddr list)))) + "Return the fourth item of LIST, or nil if LIST is too short. + +See also: `-third-item', `-fifth-item', etc. + +\(fn LIST)") + +(put '-fourth-item 'pure t) +(put '-fourth-item 'side-effect-free t) + +(defun -fifth-item (list) + "Return the fifth item of LIST, or nil if LIST is too short. + +See also: `-fourth-item', `-last-item', etc." + (declare (pure t) (side-effect-free t)) + (car (cddr (cddr list)))) + +(defun -last-item (list) + "Return the last item of LIST, or nil on an empty list. + +See also: `-first-item', etc." + (declare (pure t) (side-effect-free t)) + (car (last list))) + +(static-if (fboundp 'gv-define-setter) + (gv-define-setter -last-item (val x) `(setcar (last ,x) ,val)) + (defsetf -last-item (x) (val) `(setcar (last ,x) ,val))) + +(defun -butlast (list) + "Return a list of all items in list except for the last." + ;; no alias as we don't want magic optional argument + (declare (pure t) (side-effect-free t)) + (butlast list)) + +(defmacro --count (pred list) + "Anaphoric form of `-count'." + (declare (debug (form form))) + (let ((r (make-symbol "result"))) + `(let ((,r 0)) + (--each ,list (when ,pred (setq ,r (1+ ,r)))) + ,r))) + +(defun -count (pred list) + "Counts the number of items in LIST where (PRED item) is non-nil." + (declare (important-return-value t)) + (--count (funcall pred it) list)) + +(defun ---truthy? (obj) + "Return OBJ as a boolean value (t or nil)." + (declare (pure t) (side-effect-free error-free)) + (and obj t)) + +(defmacro --any? (form list) + "Anaphoric form of `-any?'." + (declare (debug (form form))) + `(and (--some ,form ,list) t)) + +(defun -any? (pred list) + "Return t if (PRED X) is non-nil for any X in LIST, else nil. + +Alias: `-any-p', `-some?', `-some-p'" + (declare (important-return-value t)) + (--any? (funcall pred it) list)) + +(defalias '-some? '-any?) +(defalias '--some? '--any?) +(defalias '-any-p '-any?) +(defalias '--any-p '--any?) +(defalias '-some-p '-any?) +(defalias '--some-p '--any?) + +(defmacro --all? (form list) + "Return t if FORM evals to non-nil for all items in LIST. +Otherwise, once an item is reached for which FORM yields nil, +return nil without evaluating FORM for any further LIST elements. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. + +The similar macro `--every' is more widely useful, since it +returns the last non-nil result of FORM instead of just t on +success. + +Alias: `--all-p', `--every-p', `--every?'. + +This is the anaphoric counterpart to `-all?'." + (declare (debug (form form))) + `(and (--every ,form ,list) t)) + +(defun -all? (pred list) + "Return t if (PRED X) is non-nil for all X in LIST, else nil. +In the latter case, stop after the first X for which (PRED X) is +nil, without calling PRED on any subsequent elements of LIST. + +The similar function `-every' is more widely useful, since it +returns the last non-nil result of PRED instead of just t on +success. + +Alias: `-all-p', `-every-p', `-every?'. + +This function's anaphoric counterpart is `--all?'." + (declare (important-return-value t)) + (--all? (funcall pred it) list)) + +(defalias '-every? '-all?) +(defalias '--every? '--all?) +(defalias '-all-p '-all?) +(defalias '--all-p '--all?) +(defalias '-every-p '-all?) +(defalias '--every-p '--all?) + +(defmacro --none? (form list) + "Anaphoric form of `-none?'." + (declare (debug (form form))) + `(--all? (not ,form) ,list)) + +(defun -none? (pred list) + "Return t if (PRED X) is nil for all X in LIST, else nil. + +Alias: `-none-p'" + (declare (important-return-value t)) + (--none? (funcall pred it) list)) + +(defalias '-none-p '-none?) +(defalias '--none-p '--none?) + +(defmacro --only-some? (form list) + "Anaphoric form of `-only-some?'." + (declare (debug (form form))) + (let ((y (make-symbol "yes")) + (n (make-symbol "no"))) + `(let (,y ,n) + (--each-while ,list (not (and ,y ,n)) + (if ,form (setq ,y t) (setq ,n t))) + (---truthy? (and ,y ,n))))) + +(defun -only-some? (pred list) + "Return t if different LIST items both satisfy and do not satisfy PRED. +That is, if PRED returns both nil for at least one item, and +non-nil for at least one other item in LIST. Return nil if all +items satisfy the predicate or none of them do. + +Alias: `-only-some-p'" + (declare (important-return-value t)) + (--only-some? (funcall pred it) list)) + +(defalias '-only-some-p '-only-some?) +(defalias '--only-some-p '--only-some?) + +(defun -slice (list from &optional to step) + "Return copy of LIST, starting from index FROM to index TO. + +FROM or TO may be negative. These values are then interpreted +modulo the length of the list. + +If STEP is a number, only each STEPth item in the resulting +section is returned. Defaults to 1." + (declare (side-effect-free t)) + (let ((length (length list)) + (new-list nil)) + ;; to defaults to the end of the list + (setq to (or to length)) + (setq step (or step 1)) + ;; handle negative indices + (when (< from 0) + (setq from (mod from length))) + (when (< to 0) + (setq to (mod to length))) + + ;; iterate through the list, keeping the elements we want + (--each-while list (< it-index to) + (when (and (>= it-index from) + (= (mod (- from it-index) step) 0)) + (push it new-list))) + (nreverse new-list))) + +(defmacro --take-while (form list) + "Take successive items from LIST for which FORM evals to non-nil. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. Return a new +list of the successive elements from the start of LIST for which +FORM evaluates to non-nil. +This is the anaphoric counterpart to `-take-while'." + (declare (debug (form form))) + (let ((r (make-symbol "result"))) + `(let (,r) + (--each-while ,list ,form (push it ,r)) + (nreverse ,r)))) + +(defun -take-while (pred list) + "Take successive items from LIST for which PRED returns non-nil. +PRED is a function of one argument. Return a new list of the +successive elements from the start of LIST for which PRED returns +non-nil. + +This function's anaphoric counterpart is `--take-while'. + +For another variant, see also `-drop-while'." + (declare (important-return-value t)) + (--take-while (funcall pred it) list)) + +(defmacro --drop-while (form list) + "Drop successive items from LIST for which FORM evals to non-nil. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. Return the +tail (not a copy) of LIST starting from its first element for +which FORM evaluates to nil. +This is the anaphoric counterpart to `-drop-while'." + (declare (debug (form form))) + (let ((l (make-symbol "list"))) + `(let ((,l ,list)) + (--each-while ,l ,form (pop ,l)) + ,l))) + +(defun -drop-while (pred list) + "Drop successive items from LIST for which PRED returns non-nil. +PRED is a function of one argument. Return the tail (not a copy) +of LIST starting from its first element for which PRED returns +nil. + +This function's anaphoric counterpart is `--drop-while'. + +For another variant, see also `-take-while'." + (declare (important-return-value t)) + (--drop-while (funcall pred it) list)) + +;; Added in Emacs 29. +(static-if (fboundp 'take) + (defun dash--take (n list) + "Return the first N elements of LIST. +Like `take', but ensure result is fresh." + (let ((prefix (take n list))) + (if (eq prefix list) + ;; If same list is returned, make a copy. + (copy-sequence prefix) + prefix)))) + +(defun -take (n list) + "Return a copy of the first N items in LIST. +Return a copy of LIST if it contains N items or fewer. +Return nil if N is zero or less. + +See also: `-take-last'." + (declare (side-effect-free t)) + (static-if (fboundp 'dash--take) + (dash--take n list) + (--take-while (< it-index n) list))) + +(defun -take-last (n list) + "Return a copy of the last N items of LIST in order. +Return a copy of LIST if it contains N items or fewer. +Return nil if N is zero or less. + +See also: `-take'." + (declare (side-effect-free t)) + (copy-sequence (last list n))) + +(defalias '-drop #'nthcdr + "Return the tail (not a copy) of LIST without the first N items. +Return nil if LIST contains N items or fewer. +Return LIST if N is zero or less. + +For another variant, see also `-drop-last'. +\n(fn N LIST)") + +(defun -drop-last (n list) + "Return a copy of LIST without its last N items. +Return a copy of LIST if N is zero or less. +Return nil if LIST contains N items or fewer. + +See also: `-drop'." + (declare (side-effect-free t)) + (static-if (fboundp 'dash--take) + (dash--take (- (length list) n) list) + (nbutlast (copy-sequence list) n))) + +(defun -split-at (n list) + "Split LIST into two sublists after the Nth element. +The result is a list of two elements (TAKE DROP) where TAKE is a +new list of the first N elements of LIST, and DROP is the +remaining elements of LIST (not a copy). TAKE and DROP are like +the results of `-take' and `-drop', respectively, but the split +is done in a single list traversal." + (declare (side-effect-free t)) + (let (result) + (--each-while list (< it-index n) + (push (pop list) result)) + (list (nreverse result) list))) + +(defun -rotate (n list) + "Rotate LIST N places to the right (left if N is negative). +The time complexity is O(n)." + (declare (pure t) (side-effect-free t)) + (cond ((null list) ()) + ((zerop n) (copy-sequence list)) + ((let* ((len (length list)) + (n-mod-len (mod n len)) + (new-tail-len (- len n-mod-len))) + (append (nthcdr new-tail-len list) (-take new-tail-len list)))))) + +(defun -insert-at (n x list) + "Return a list with X inserted into LIST at position N. + +See also: `-splice', `-splice-list'" + (declare (pure t) (side-effect-free t)) + (let ((split-list (-split-at n list))) + (nconc (car split-list) (cons x (cadr split-list))))) + +(defun -replace-at (n x list) + "Return a list with element at Nth position in LIST replaced with X. + +See also: `-replace'" + (declare (pure t) (side-effect-free t)) + (let ((split-list (-split-at n list))) + (nconc (car split-list) (cons x (cdr (cadr split-list)))))) + +(defun -update-at (n func list) + "Use FUNC to update the Nth element of LIST. +Return a copy of LIST where the Nth element is replaced with the +result of calling FUNC on it. + +See also: `-map-when'" + (declare (important-return-value t)) + (let ((split-list (-split-at n list))) + (nconc (car split-list) + (cons (funcall func (car (cadr split-list))) + (cdr (cadr split-list)))))) + +(defmacro --update-at (n form list) + "Anaphoric version of `-update-at'." + (declare (debug (form def-form form))) + `(-update-at ,n (lambda (it) (ignore it) ,form) ,list)) + +(defun -remove-at (n list) + "Return LIST with its element at index N removed. +That is, remove any element selected as (nth N LIST) from LIST +and return the result. + +This is a non-destructive operation: parts of LIST (but not +necessarily all of it) are copied as needed to avoid +destructively modifying it. + +See also: `-remove-at-indices', `-remove'." + (declare (pure t) (side-effect-free t)) + (if (zerop n) + (cdr list) + (--remove-first (= it-index n) list))) + +(defun -remove-at-indices (indices list) + "Return LIST with its elements at INDICES removed. +That is, for each index I in INDICES, remove any element selected +as (nth I LIST) from LIST. + +This is a non-destructive operation: parts of LIST (but not +necessarily all of it) are copied as needed to avoid +destructively modifying it. + +See also: `-remove-at', `-remove'." + (declare (pure t) (side-effect-free t)) + (setq indices (--drop-while (< it 0) (-sort #'< indices))) + (let ((i (pop indices)) res) + (--each-while list i + (pop list) + (if (/= it-index i) + (push it res) + (while (and indices (= (car indices) i)) + (pop indices)) + (setq i (pop indices)))) + (nconc (nreverse res) list))) + +(defmacro --split-with (pred list) + "Anaphoric form of `-split-with'." + (declare (debug (form form))) + (let ((l (make-symbol "list")) + (r (make-symbol "result")) + (c (make-symbol "continue"))) + `(let ((,l ,list) + (,r nil) + (,c t)) + (while (and ,l ,c) + (let ((it (car ,l))) + (if (not ,pred) + (setq ,c nil) + (!cons it ,r) + (!cdr ,l)))) + (list (nreverse ,r) ,l)))) + +(defun -split-with (pred list) + "Split LIST into a prefix satisfying PRED, and the rest. +The first sublist is the prefix of LIST with successive elements +satisfying PRED, and the second sublist is the remaining elements +that do not. The result is like performing + + ((-take-while PRED LIST) (-drop-while PRED LIST)) + +but in no more than a single pass through LIST." + (declare (important-return-value t)) + (--split-with (funcall pred it) list)) + +(defmacro -split-on (item list) + "Split the LIST each time ITEM is found. + +Unlike `-partition-by', the ITEM is discarded from the results. +Empty lists are also removed from the result. + +Comparison is done by `equal'. + +See also `-split-when'" + (declare (debug (def-form form))) + `(-split-when (lambda (it) (equal it ,item)) ,list)) + +(defmacro --split-when (form list) + "Anaphoric version of `-split-when'." + (declare (debug (def-form form))) + `(-split-when (lambda (it) (ignore it) ,form) ,list)) + +(defun -split-when (fn list) + "Split the LIST on each element where FN returns non-nil. + +Unlike `-partition-by', the \"matched\" element is discarded from +the results. Empty lists are also removed from the result. + +This function can be thought of as a generalization of +`split-string'." + (declare (important-return-value t)) + (let (r s) + (while list + (if (not (funcall fn (car list))) + (push (car list) s) + (when s (push (nreverse s) r)) + (setq s nil)) + (!cdr list)) + (when s (push (nreverse s) r)) + (nreverse r))) + +(defmacro --separate (form list) + "Anaphoric form of `-separate'." + (declare (debug (form form))) + (let ((y (make-symbol "yes")) + (n (make-symbol "no"))) + `(let (,y ,n) + (--each ,list (if ,form (!cons it ,y) (!cons it ,n))) + (list (nreverse ,y) (nreverse ,n))))) + +(defun -separate (pred list) + "Split LIST into two sublists based on whether items satisfy PRED. +The result is like performing + + ((-filter PRED LIST) (-remove PRED LIST)) + +but in a single pass through LIST." + (declare (important-return-value t)) + (--separate (funcall pred it) list)) + +(defun dash--partition-all-in-steps-reversed (n step list) + "Like `-partition-all-in-steps', but the result is reversed." + (when (< step 1) + (signal 'wrong-type-argument + `("Step size < 1 results in juicy infinite loops" ,step))) + (let (result) + (while list + (push (-take n list) result) + (setq list (nthcdr step list))) + result)) + +(defun -partition-all-in-steps (n step list) + "Partition LIST into sublists of length N that are STEP items apart. +Adjacent groups may overlap if N exceeds the STEP stride. +Trailing groups may contain less than N items." + (declare (pure t) (side-effect-free t)) + (nreverse (dash--partition-all-in-steps-reversed n step list))) + +(defun -partition-in-steps (n step list) + "Partition LIST into sublists of length N that are STEP items apart. +Like `-partition-all-in-steps', but if there are not enough items +to make the last group N-sized, those items are discarded." + (declare (pure t) (side-effect-free t)) + (let ((result (dash--partition-all-in-steps-reversed n step list))) + (while (and result (< (length (car result)) n)) + (pop result)) + (nreverse result))) + +(defun -partition-all (n list) + "Return a new list with the items in LIST grouped into N-sized sublists. +The last group may contain less than N items." + (declare (pure t) (side-effect-free t)) + (-partition-all-in-steps n n list)) + +(defun -partition (n list) + "Return a new list with the items in LIST grouped into N-sized sublists. +If there are not enough items to make the last group N-sized, +those items are discarded." + (declare (pure t) (side-effect-free t)) + (-partition-in-steps n n list)) + +(defmacro --partition-by (form list) + "Anaphoric form of `-partition-by'." + (declare (debug (form form))) + (let ((r (make-symbol "result")) + (s (make-symbol "sublist")) + (v (make-symbol "value")) + (n (make-symbol "new-value")) + (l (make-symbol "list"))) + `(let ((,l ,list)) + (when ,l + (let* ((,r nil) + (it (car ,l)) + (,s (list it)) + (,v ,form) + (,l (cdr ,l))) + (while ,l + (let* ((it (car ,l)) + (,n ,form)) + (unless (equal ,v ,n) + (!cons (nreverse ,s) ,r) + (setq ,s nil) + (setq ,v ,n)) + (!cons it ,s) + (!cdr ,l))) + (!cons (nreverse ,s) ,r) + (nreverse ,r)))))) + +(defun -partition-by (fn list) + "Apply FN to each item in LIST, splitting it each time FN returns a new value." + (declare (important-return-value t)) + (--partition-by (funcall fn it) list)) + +(defmacro --partition-by-header (form list) + "Anaphoric form of `-partition-by-header'." + (declare (debug (form form))) + (let ((r (make-symbol "result")) + (s (make-symbol "sublist")) + (h (make-symbol "header-value")) + (b (make-symbol "seen-body?")) + (n (make-symbol "new-value")) + (l (make-symbol "list"))) + `(let ((,l ,list)) + (when ,l + (let* ((,r nil) + (it (car ,l)) + (,s (list it)) + (,h ,form) + (,b nil) + (,l (cdr ,l))) + (while ,l + (let* ((it (car ,l)) + (,n ,form)) + (if (equal ,h ,n) + (when ,b + (!cons (nreverse ,s) ,r) + (setq ,s nil) + (setq ,b nil)) + (setq ,b t)) + (!cons it ,s) + (!cdr ,l))) + (!cons (nreverse ,s) ,r) + (nreverse ,r)))))) + +(defun -partition-by-header (fn list) + "Apply FN to the first item in LIST. That is the header +value. Apply FN to each item in LIST, splitting it each time FN +returns the header value, but only after seeing at least one +other value (the body)." + (declare (important-return-value t)) + (--partition-by-header (funcall fn it) list)) + +(defmacro --partition-after-pred (form list) + "Partition LIST after each element for which FORM evaluates to non-nil. +Each element of LIST in turn is bound to `it' before evaluating +FORM. + +This is the anaphoric counterpart to `-partition-after-pred'." + (let ((l (make-symbol "list")) + (r (make-symbol "result")) + (s (make-symbol "sublist"))) + `(let ((,l ,list) ,r ,s) + (when ,l + (--each ,l + (push it ,s) + (when ,form + (push (nreverse ,s) ,r) + (setq ,s ()))) + (when ,s + (push (nreverse ,s) ,r)) + (nreverse ,r))))) + +(defun -partition-after-pred (pred list) + "Partition LIST after each element for which PRED returns non-nil. + +This function's anaphoric counterpart is `--partition-after-pred'." + (declare (important-return-value t)) + (--partition-after-pred (funcall pred it) list)) + +(defun -partition-before-pred (pred list) + "Partition directly before each time PRED is true on an element of LIST." + (declare (important-return-value t)) + (nreverse (-map #'reverse + (-partition-after-pred pred (reverse list))))) + +(defun -partition-after-item (item list) + "Partition directly after each time ITEM appears in LIST." + (declare (pure t) (side-effect-free t)) + (-partition-after-pred (lambda (ele) (equal ele item)) + list)) + +(defun -partition-before-item (item list) + "Partition directly before each time ITEM appears in LIST." + (declare (pure t) (side-effect-free t)) + (-partition-before-pred (lambda (ele) (equal ele item)) + list)) + +(defmacro --group-by (form list) + "Anaphoric form of `-group-by'." + (declare (debug t)) + (let ((n (make-symbol "n")) + (k (make-symbol "k")) + (grp (make-symbol "grp"))) + `(nreverse + (-map + (lambda (,n) + (cons (car ,n) + (nreverse (cdr ,n)))) + (--reduce-from + (let* ((,k (,@form)) + (,grp (assoc ,k acc))) + (if ,grp + (setcdr ,grp (cons it (cdr ,grp))) + (push + (list ,k it) + acc)) + acc) + nil ,list))))) + +(defun -group-by (fn list) + "Separate LIST into an alist whose keys are FN applied to the +elements of LIST. Keys are compared by `equal'." + (declare (important-return-value t)) + (--group-by (funcall fn it) list)) + +(defun -interpose (sep list) + "Return a new list of all elements in LIST separated by SEP." + (declare (side-effect-free t)) + (let (result) + (when list + (!cons (car list) result) + (!cdr list)) + (while list + (setq result (cons (car list) (cons sep result))) + (!cdr list)) + (nreverse result))) + +(defun -interleave (&rest lists) + "Return a new list of the first item in each list, then the second etc." + (declare (side-effect-free t)) + (when lists + (let (result) + (while (-none? 'null lists) + (--each lists (!cons (car it) result)) + (setq lists (-map 'cdr lists))) + (nreverse result)))) + +(defmacro --zip-with (form list1 list2) + "Zip LIST1 and LIST2 into a new list according to FORM. +That is, evaluate FORM for each item pair from the two lists, and +return the list of results. The result is as long as the shorter +list. + +Each element of LIST1 and each element of LIST2 in turn are bound +pairwise to `it' and `other', respectively, and their index +within the list to `it-index', before evaluating FORM. + +This is the anaphoric counterpart to `-zip-with'." + (declare (debug (form form form))) + (let ((r (make-symbol "result")) + (l2 (make-symbol "list2"))) + `(let ((,l2 ,list2) ,r) + (--each-while ,list1 ,l2 + (let ((other (pop ,l2))) + (ignore other) + (push ,form ,r))) + (nreverse ,r)))) + +(defun -zip-with (fn list1 list2) + "Zip LIST1 and LIST2 into a new list using the function FN. +That is, apply FN pairwise taking as first argument the next +element of LIST1 and as second argument the next element of LIST2 +at the corresponding position. The result is as long as the +shorter list. + +This function's anaphoric counterpart is `--zip-with'. + +For other zips, see also `-zip-lists' and `-zip-fill'." + (declare (important-return-value t)) + (--zip-with (funcall fn it other) list1 list2)) + +(defun -zip-lists (&rest lists) + "Zip LISTS together. + +Group the head of each list, followed by the second element of +each list, and so on. The number of returned groupings is equal +to the length of the shortest input list, and the length of each +grouping is equal to the number of input LISTS. + +The return value is always a list of proper lists, in contrast to +`-zip' which returns a list of dotted pairs when only two input +LISTS are provided. + +See also: `-zip-pair'." + (declare (pure t) (side-effect-free t)) + (when lists + (let (results) + (while (--every it lists) + (push (mapcar #'car lists) results) + (setq lists (mapcar #'cdr lists))) + (nreverse results)))) + +(defun -zip-lists-fill (fill-value &rest lists) + "Zip LISTS together, padding shorter lists with FILL-VALUE. +This is like `-zip-lists' (which see), except it retains all +elements at positions beyond the end of the shortest list. The +number of returned groupings is equal to the length of the +longest input list, and the length of each grouping is equal to +the number of input LISTS." + (declare (pure t) (side-effect-free t)) + (when lists + (let (results) + (while (--some it lists) + (push (--map (if it (car it) fill-value) lists) results) + (setq lists (mapcar #'cdr lists))) + (nreverse results)))) + +(defun -unzip-lists (lists) + "Unzip LISTS. + +This works just like `-zip-lists' (which see), but takes a list +of lists instead of a variable number of arguments, such that + + (-unzip-lists (-zip-lists ARGS...)) + +is identity (given that the lists comprising ARGS are of the same +length)." + (declare (pure t) (side-effect-free t)) + (apply #'-zip-lists lists)) + +(defalias 'dash--length= + (if (fboundp 'length=) + #'length= + (lambda (list length) + (cond ((< length 0) nil) + ((zerop length) (null list)) + ((let ((last (nthcdr (1- length) list))) + (and last (null (cdr last)))))))) + "Return non-nil if LIST is of LENGTH. +This is a compatibility shim for `length=' in Emacs 28. +\n(fn LIST LENGTH)") + +(defun dash--zip-lists-or-pair (_form &rest lists) + "Return a form equivalent to applying `-zip' to LISTS. +This `compiler-macro' warns about discouraged `-zip' usage and +delegates to `-zip-lists' or `-zip-pair' depending on the number +of LISTS." + (if (not (dash--length= lists 2)) + (cons #'-zip-lists lists) + (let ((pair (cons #'-zip-pair lists)) + (msg "Use -zip-pair instead of -zip to get a list of pairs")) + (if (fboundp 'macroexp-warn-and-return) + (macroexp-warn-and-return msg pair) + (message msg) + pair)))) + +(defun -zip (&rest lists) + "Zip LISTS together. + +Group the head of each list, followed by the second element of +each list, and so on. The number of returned groupings is equal +to the length of the shortest input list, and the number of items +in each grouping is equal to the number of input LISTS. + +If only two LISTS are provided as arguments, return the groupings +as a list of dotted pairs. Otherwise, return the groupings as a +list of proper lists. + +Since the return value changes form depending on the number of +arguments, it is generally recommended to use `-zip-lists' +instead, or `-zip-pair' if a list of dotted pairs is desired. + +See also: `-unzip'." + (declare (compiler-macro dash--zip-lists-or-pair) + (pure t) (side-effect-free t)) + ;; For backward compatibility, return a list of dotted pairs if two + ;; arguments were provided. + (apply (if (dash--length= lists 2) #'-zip-pair #'-zip-lists) lists)) + +(defun -zip-pair (&rest lists) + "Zip LIST1 and LIST2 together. + +Make a pair with the head of each list, followed by a pair with +the second element of each list, and so on. The number of pairs +returned is equal to the length of the shorter input list. + +See also: `-zip-lists'." + (declare (advertised-calling-convention (list1 list2) "2.20.0") + (pure t) (side-effect-free t)) + (if (dash--length= lists 2) + (--zip-with (cons it other) (car lists) (cadr lists)) + (apply #'-zip-lists lists))) + +(defun -zip-fill (fill-value &rest lists) + "Zip LISTS together, padding shorter lists with FILL-VALUE. +This is like `-zip' (which see), except it retains all elements +at positions beyond the end of the shortest list. The number of +returned groupings is equal to the length of the longest input +list, and the length of each grouping is equal to the number of +input LISTS. + +Since the return value changes form depending on the number of +arguments, it is generally recommended to use `-zip-lists-fill' +instead, unless a list of dotted pairs is explicitly desired." + (declare (pure t) (side-effect-free t)) + (cond ((null lists) ()) + ((dash--length= lists 2) + (let ((list1 (car lists)) + (list2 (cadr lists)) + results) + (while (or list1 list2) + (push (cons (if list1 (pop list1) fill-value) + (if list2 (pop list2) fill-value)) + results)) + (nreverse results))) + ((apply #'-zip-lists-fill fill-value lists)))) + +(defun -unzip (lists) + "Unzip LISTS. + +This works just like `-zip' (which see), but takes a list of +lists instead of a variable number of arguments, such that + + (-unzip (-zip L1 L2 L3 ...)) + +is identity (given that the lists are of the same length, and +that `-zip' is not called with two arguments, because of the +caveat described in its docstring). + +Note in particular that calling `-unzip' on a list of two lists +will return a list of dotted pairs. + +Since the return value changes form depending on the number of +LISTS, it is generally recommended to use `-unzip-lists' instead." + (declare (pure t) (side-effect-free t)) + (apply #'-zip lists)) + +(defun -cycle (list) + "Return an infinite circular copy of LIST. +The returned list cycles through the elements of LIST and repeats +from the beginning." + (declare (pure t) (side-effect-free t)) + ;; Also works with sequences that aren't lists. + (let ((newlist (append list ()))) + (nconc newlist newlist))) + +(defun -pad (fill-value &rest lists) + "Pad each of LISTS with FILL-VALUE until they all have equal lengths. + +Ensure all LISTS are as long as the longest one by repeatedly +appending FILL-VALUE to the shorter lists, and return the +resulting LISTS." + (declare (pure t) (side-effect-free t)) + (let* ((lens (mapcar #'length lists)) + (maxlen (apply #'max 0 lens))) + (--map (append it (make-list (- maxlen (pop lens)) fill-value)) lists))) + +(defmacro --annotate (form list) + "Pair each item in LIST with the result of evaluating FORM. + +Return an alist of (RESULT . ITEM), where each ITEM is the +corresponding element of LIST, and RESULT is the value obtained +by evaluating FORM with ITEM bound to `it'. + +This is the anaphoric counterpart to `-annotate'." + (declare (debug (form form))) + `(--map (cons ,form it) ,list)) + +(defun -annotate (fn list) + "Pair each item in LIST with the result of passing it to FN. + +Return an alist of (RESULT . ITEM), where each ITEM is the +corresponding element of LIST, and RESULT is the value obtained +by calling FN on ITEM. + +This function's anaphoric counterpart is `--annotate'." + (declare (important-return-value t)) + (--annotate (funcall fn it) list)) + +(defun dash--table-carry (lists restore-lists &optional re) + "Helper for `-table' and `-table-flat'. + +If a list overflows, carry to the right and reset the list." + (while (not (or (car lists) + (equal lists '(nil)))) + (setcar lists (car restore-lists)) + (pop (cadr lists)) + (!cdr lists) + (!cdr restore-lists) + (when re + (push (nreverse (car re)) (cadr re)) + (setcar re nil) + (!cdr re)))) + +(defun -table (fn &rest lists) + "Compute outer product of LISTS using function FN. + +The function FN should have the same arity as the number of +supplied lists. + +The outer product is computed by applying fn to all possible +combinations created by taking one element from each list in +order. The dimension of the result is (length lists). + +See also: `-table-flat'" + (declare (important-return-value t)) + (let ((restore-lists (copy-sequence lists)) + (last-list (last lists)) + (re (make-list (length lists) nil))) + (while (car last-list) + (let ((item (apply fn (-map 'car lists)))) + (push item (car re)) + (setcar lists (cdar lists)) ;; silence byte compiler + (dash--table-carry lists restore-lists re))) + (nreverse (car (last re))))) + +(defun -table-flat (fn &rest lists) + "Compute flat outer product of LISTS using function FN. + +The function FN should have the same arity as the number of +supplied lists. + +The outer product is computed by applying fn to all possible +combinations created by taking one element from each list in +order. The results are flattened, ignoring the tensor structure +of the result. This is equivalent to calling: + + (-flatten-n (1- (length lists)) (apply \\='-table fn lists)) + +but the implementation here is much more efficient. + +See also: `-flatten-n', `-table'" + (declare (important-return-value t)) + (let ((restore-lists (copy-sequence lists)) + (last-list (last lists)) + re) + (while (car last-list) + (let ((item (apply fn (-map 'car lists)))) + (push item re) + (setcar lists (cdar lists)) ;; silence byte compiler + (dash--table-carry lists restore-lists))) + (nreverse re))) + +(defmacro --find-index (form list) + "Return the first index in LIST for which FORM evals to non-nil. +Return nil if no such index is found. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. +This is the anaphoric counterpart to `-find-index'." + (declare (debug (form form))) + `(--some (and ,form it-index) ,list)) + +(defun -find-index (pred list) + "Return the index of the first item satisfying PRED in LIST. +Return nil if no such item is found. + +PRED is called with one argument, the current list element, until +it returns non-nil, at which point the search terminates. + +This function's anaphoric counterpart is `--find-index'. + +See also: `-first', `-find-last-index'." + (declare (important-return-value t)) + (--find-index (funcall pred it) list)) + +(defun -elem-index (elem list) + "Return the first index of ELEM in LIST. +That is, the index within LIST of the first element that is +`equal' to ELEM. Return nil if there is no such element. + +See also: `-find-index'." + (declare (pure t) (side-effect-free t)) + (--find-index (equal elem it) list)) + +(defmacro --find-indices (form list) + "Return the list of indices in LIST for which FORM evals to non-nil. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. +This is the anaphoric counterpart to `-find-indices'." + (declare (debug (form form))) + `(--keep (and ,form it-index) ,list)) + +(defun -find-indices (pred list) + "Return the list of indices in LIST satisfying PRED. + +Each element of LIST in turn is passed to PRED. If the result is +non-nil, the index of that element in LIST is included in the +result. The returned indices are in ascending order, i.e., in +the same order as they appear in LIST. + +This function's anaphoric counterpart is `--find-indices'. + +See also: `-find-index', `-elem-indices'." + (declare (important-return-value t)) + (--find-indices (funcall pred it) list)) + +(defun -elem-indices (elem list) + "Return the list of indices at which ELEM appears in LIST. +That is, the indices of all elements of LIST `equal' to ELEM, in +the same ascending order as they appear in LIST." + (declare (pure t) (side-effect-free t)) + (--find-indices (equal elem it) list)) + +(defmacro --find-last-index (form list) + "Return the last index in LIST for which FORM evals to non-nil. +Return nil if no such index is found. +Each element of LIST in turn is bound to `it' and its index +within LIST to `it-index' before evaluating FORM. +This is the anaphoric counterpart to `-find-last-index'." + (declare (debug (form form))) + (let ((i (make-symbol "index"))) + `(let (,i) + (--each ,list + (when ,form (setq ,i it-index))) + ,i))) + +(defun -find-last-index (pred list) + "Return the index of the last item satisfying PRED in LIST. +Return nil if no such item is found. + +Predicate PRED is called with one argument each time, namely the +current list element. + +This function's anaphoric counterpart is `--find-last-index'. + +See also: `-last', `-find-index'." + (declare (important-return-value t)) + (--find-last-index (funcall pred it) list)) + +(defun -select-by-indices (indices list) + "Return a list whose elements are elements from LIST selected +as `(nth i list)` for all i from INDICES." + (declare (pure t) (side-effect-free t)) + (let (r) + (--each indices + (!cons (nth it list) r)) + (nreverse r))) + +(defun -select-columns (columns table) + "Select COLUMNS from TABLE. + +TABLE is a list of lists where each element represents one row. +It is assumed each row has the same length. + +Each row is transformed such that only the specified COLUMNS are +selected. + +See also: `-select-column', `-select-by-indices'" + (declare (pure t) (side-effect-free t)) + (--map (-select-by-indices columns it) table)) + +(defun -select-column (column table) + "Select COLUMN from TABLE. + +TABLE is a list of lists where each element represents one row. +It is assumed each row has the same length. + +The single selected column is returned as a list. + +See also: `-select-columns', `-select-by-indices'" + (declare (pure t) (side-effect-free t)) + (--mapcat (-select-by-indices (list column) it) table)) + +(defmacro -> (x &optional form &rest more) + "Thread the expr through the forms. Insert X as the second item +in the first form, making a list of it if it is not a list +already. If there are more forms, insert the first form as the +second item in second form, etc." + (declare (debug (form &rest [&or symbolp (sexp &rest form)]))) + (cond + ((null form) x) + ((null more) (if (listp form) + `(,(car form) ,x ,@(cdr form)) + (list form x))) + (:else `(-> (-> ,x ,form) ,@more)))) + +(defmacro ->> (x &optional form &rest more) + "Thread the expr through the forms. Insert X as the last item +in the first form, making a list of it if it is not a list +already. If there are more forms, insert the first form as the +last item in second form, etc." + (declare (debug ->)) + (cond + ((null form) x) + ((null more) (if (listp form) + `(,@form ,x) + (list form x))) + (:else `(->> (->> ,x ,form) ,@more)))) + +(defmacro --> (x &rest forms) + "Starting with the value of X, thread each expression through FORMS. + +Insert X at the position signified by the symbol `it' in the first +form. If there are more forms, insert the first form at the position +signified by `it' in the second form, etc." + (declare (debug (form body))) + `(-as-> ,x it ,@forms)) + +(defmacro -as-> (value variable &rest forms) + "Starting with VALUE, thread VARIABLE through FORMS. + +In the first form, bind VARIABLE to VALUE. In the second form, bind +VARIABLE to the result of the first form, and so forth." + (declare (debug (form symbolp body))) + (if (null forms) + `,value + `(let ((,variable ,value)) + (-as-> ,(if (symbolp (car forms)) + (list (car forms) variable) + (car forms)) + ,variable + ,@(cdr forms))))) + +(defmacro -some-> (x &optional form &rest more) + "When expr is non-nil, thread it through the first form (via `->'), +and when that result is non-nil, through the next form, etc." + (declare (debug ->) + (indent 1)) + (if (null form) x + (let ((result (make-symbol "result"))) + `(-some-> (-when-let (,result ,x) + (-> ,result ,form)) + ,@more)))) + +(defmacro -some->> (x &optional form &rest more) + "When expr is non-nil, thread it through the first form (via `->>'), +and when that result is non-nil, through the next form, etc." + (declare (debug ->) + (indent 1)) + (if (null form) x + (let ((result (make-symbol "result"))) + `(-some->> (-when-let (,result ,x) + (->> ,result ,form)) + ,@more)))) + +(defmacro -some--> (expr &rest forms) + "Thread EXPR through FORMS via `-->', while the result is non-nil. +When EXPR evaluates to non-nil, thread the result through the +first of FORMS, and when that result is non-nil, thread it +through the next form, etc." + (declare (debug (form &rest &or symbolp consp)) (indent 1)) + (if (null forms) expr + (let ((result (make-symbol "result"))) + `(-some--> (-when-let (,result ,expr) + (--> ,result ,(car forms))) + ,@(cdr forms))))) + +(defmacro -doto (init &rest forms) + "Evaluate INIT and pass it as argument to FORMS with `->'. +The RESULT of evaluating INIT is threaded through each of FORMS +individually using `->', which see. The return value is RESULT, +which FORMS may have modified by side effect." + (declare (debug (form &rest &or symbolp consp)) (indent 1)) + (let ((retval (make-symbol "result"))) + `(let ((,retval ,init)) + ,@(mapcar (lambda (form) `(-> ,retval ,form)) forms) + ,retval))) + +(defmacro --doto (init &rest forms) + "Anaphoric form of `-doto'. +This just evaluates INIT, binds the result to `it', evaluates +FORMS, and returns the final value of `it'. +Note: `it' need not be used in each form." + (declare (debug (form body)) (indent 1)) + `(let ((it ,init)) + ,@forms + it)) + +(defun -grade-up (comparator list) + "Grade elements of LIST using COMPARATOR relation. +This yields a permutation vector such that applying this +permutation to LIST sorts it in ascending order." + (declare (important-return-value t)) + (->> (--map-indexed (cons it it-index) list) + (-sort (lambda (it other) (funcall comparator (car it) (car other)))) + (mapcar #'cdr))) + +(defun -grade-down (comparator list) + "Grade elements of LIST using COMPARATOR relation. +This yields a permutation vector such that applying this +permutation to LIST sorts it in descending order." + (declare (important-return-value t)) + (->> (--map-indexed (cons it it-index) list) + (-sort (lambda (it other) (funcall comparator (car other) (car it)))) + (mapcar #'cdr))) + +(defvar dash--source-counter 0 + "Monotonic counter for generated symbols.") + +(defun dash--match-make-source-symbol () + "Generate a new dash-source symbol. + +All returned symbols are guaranteed to be unique." + (prog1 (make-symbol (format "--dash-source-%d--" dash--source-counter)) + (setq dash--source-counter (1+ dash--source-counter)))) + +(defun dash--match-ignore-place-p (symbol) + "Return non-nil if SYMBOL is a symbol and starts with _." + (and (symbolp symbol) + (eq (aref (symbol-name symbol) 0) ?_))) + +(defun dash--match-cons-skip-cdr (skip-cdr source) + "Helper function generating idiomatic shifting code." + (cond + ((= skip-cdr 0) + `(pop ,source)) + (t + `(prog1 ,(dash--match-cons-get-car skip-cdr source) + (setq ,source ,(dash--match-cons-get-cdr (1+ skip-cdr) source)))))) + +(defun dash--match-cons-get-car (skip-cdr source) + "Helper function generating idiomatic code to get nth car." + (cond + ((= skip-cdr 0) + `(car ,source)) + ((= skip-cdr 1) + `(cadr ,source)) + (t + `(nth ,skip-cdr ,source)))) + +(defun dash--match-cons-get-cdr (skip-cdr source) + "Helper function generating idiomatic code to get nth cdr." + (cond + ((= skip-cdr 0) + source) + ((= skip-cdr 1) + `(cdr ,source)) + (t + `(nthcdr ,skip-cdr ,source)))) + +(defun dash--match-cons (match-form source) + "Setup a cons matching environment and call the real matcher." + (let ((s (dash--match-make-source-symbol)) + (n 0) + (m match-form)) + (while (and (consp m) + (dash--match-ignore-place-p (car m))) + (setq n (1+ n)) (!cdr m)) + (cond + ;; when we only have one pattern in the list, we don't have to + ;; create a temporary binding (--dash-source--) for the source + ;; and just use the input directly + ((and (consp m) + (not (cdr m))) + (dash--match (car m) (dash--match-cons-get-car n source))) + ;; handle other special types + ((> n 0) + (dash--match m (dash--match-cons-get-cdr n source))) + ;; this is the only entry-point for dash--match-cons-1, that's + ;; why we can't simply use the above branch, it would produce + ;; infinite recursion + (t + (cons (list s source) (dash--match-cons-1 match-form s)))))) + +(defun dash--get-expand-function (type) + "Get expand function name for TYPE." + (intern-soft (format "dash-expand:%s" type))) + +(defun dash--match-cons-1 (match-form source &optional props) + "Match MATCH-FORM against SOURCE. + +MATCH-FORM is a proper or improper list. Each element of +MATCH-FORM is either a symbol, which gets bound to the respective +value in source or another match form which gets destructured +recursively. + +If the cdr of last cons cell in the list is nil, matching stops +there. + +SOURCE is a proper or improper list." + (let ((skip-cdr (or (plist-get props :skip-cdr) 0))) + (cond + ((consp match-form) + (cond + ((cdr match-form) + (cond + ((and (symbolp (car match-form)) + (functionp (dash--get-expand-function (car match-form)))) + (dash--match-kv (dash--match-kv-normalize-match-form match-form) (dash--match-cons-get-cdr skip-cdr source))) + ((dash--match-ignore-place-p (car match-form)) + (dash--match-cons-1 (cdr match-form) source + (plist-put props :skip-cdr (1+ skip-cdr)))) + (t + (-concat (dash--match (car match-form) (dash--match-cons-skip-cdr skip-cdr source)) + (dash--match-cons-1 (cdr match-form) source))))) + (t ;; Last matching place, no need for shift + (dash--match (car match-form) (dash--match-cons-get-car skip-cdr source))))) + ((eq match-form nil) + nil) + (t ;; Handle improper lists. Last matching place, no need for shift + (dash--match match-form (dash--match-cons-get-cdr skip-cdr source)))))) + +(defun dash--match-vector (match-form source) + "Setup a vector matching environment and call the real matcher." + (let ((s (dash--match-make-source-symbol))) + (cond + ;; don't bind `s' if we only have one sub-pattern + ((= (length match-form) 1) + (dash--match (aref match-form 0) `(aref ,source 0))) + ;; if the source is a symbol, we don't need to re-bind it + ((symbolp source) + (dash--match-vector-1 match-form source)) + ;; don't bind `s' if we only have one sub-pattern which is not ignored + ((let* ((ignored-places (mapcar 'dash--match-ignore-place-p match-form)) + (ignored-places-n (length (-remove 'null ignored-places)))) + (when (= ignored-places-n (1- (length match-form))) + (let ((n (-find-index 'null ignored-places))) + (dash--match (aref match-form n) `(aref ,source ,n)))))) + (t + (cons (list s source) (dash--match-vector-1 match-form s)))))) + +(defun dash--match-vector-1 (match-form source) + "Match MATCH-FORM against SOURCE. + +MATCH-FORM is a vector. Each element of MATCH-FORM is either a +symbol, which gets bound to the respective value in source or +another match form which gets destructured recursively. + +If second-from-last place in MATCH-FORM is the symbol &rest, the +next element of the MATCH-FORM is matched against the tail of +SOURCE, starting at index of the &rest symbol. This is +conceptually the same as the (head . tail) match for improper +lists, where dot plays the role of &rest. + +SOURCE is a vector. + +If the MATCH-FORM vector is shorter than SOURCE vector, only +the (length MATCH-FORM) places are bound, the rest of the SOURCE +is discarded." + (let ((i 0) + (l (length match-form)) + (re)) + (while (< i l) + (let ((m (aref match-form i))) + (push (cond + ((and (symbolp m) + (eq m '&rest)) + (prog1 (dash--match + (aref match-form (1+ i)) + `(substring ,source ,i)) + (setq i l))) + ((and (symbolp m) + ;; do not match symbols starting with _ + (not (eq (aref (symbol-name m) 0) ?_))) + (list (list m `(aref ,source ,i)))) + ((not (symbolp m)) + (dash--match m `(aref ,source ,i)))) + re) + (setq i (1+ i)))) + (-flatten-n 1 (nreverse re)))) + +(defun dash--match-kv-normalize-match-form (pattern) + "Normalize kv PATTERN. + +This method normalizes PATTERN to the format expected by +`dash--match-kv'. See `-let' for the specification." + (let ((normalized (list (car pattern))) + (skip nil) + (fill-placeholder (make-symbol "--dash-fill-placeholder--"))) + (-each (-zip-fill fill-placeholder (cdr pattern) (cddr pattern)) + (lambda (pair) + (let ((current (car pair)) + (next (cdr pair))) + (if skip + (setq skip nil) + (if (or (eq fill-placeholder next) + (not (or (and (symbolp next) + (not (keywordp next)) + (not (eq next t)) + (not (eq next nil))) + (and (consp next) + (not (eq (car next) 'quote))) + (vectorp next)))) + (progn + (cond + ((keywordp current) + (push current normalized) + (push (intern (substring (symbol-name current) 1)) normalized)) + ((stringp current) + (push current normalized) + (push (intern current) normalized)) + ((and (consp current) + (eq (car current) 'quote)) + (push current normalized) + (push (cadr current) normalized)) + (t (error "-let: found key `%s' in kv destructuring but its pattern `%s' is invalid and can not be derived from the key" current next))) + (setq skip nil)) + (push current normalized) + (push next normalized) + (setq skip t)))))) + (nreverse normalized))) + +(defun dash--match-kv (match-form source) + "Setup a kv matching environment and call the real matcher. + +kv can be any key-value store, such as plist, alist or hash-table." + (let ((s (dash--match-make-source-symbol))) + (cond + ;; don't bind `s' if we only have one sub-pattern (&type key val) + ((= (length match-form) 3) + (dash--match-kv-1 (cdr match-form) source (car match-form))) + ;; if the source is a symbol, we don't need to re-bind it + ((symbolp source) + (dash--match-kv-1 (cdr match-form) source (car match-form))) + (t + (cons (list s source) (dash--match-kv-1 (cdr match-form) s (car match-form))))))) + +(defun dash-expand:&hash (key source) + "Generate extracting KEY from SOURCE for &hash destructuring." + `(gethash ,key ,source)) + +(defun dash-expand:&plist (key source) + "Generate extracting KEY from SOURCE for &plist destructuring." + `(plist-get ,source ,key)) + +(defun dash-expand:&alist (key source) + "Generate extracting KEY from SOURCE for &alist destructuring." + `(cdr (assoc ,key ,source))) + +(defun dash-expand:&hash? (key source) + "Generate extracting KEY from SOURCE for &hash? destructuring. +Similar to &hash but check whether the map is not nil." + (let ((src (make-symbol "src"))) + `(let ((,src ,source)) + (when ,src (gethash ,key ,src))))) + +(defalias 'dash-expand:&keys #'dash-expand:&plist) + +(defun dash--match-kv-1 (match-form source type) + "Match MATCH-FORM against SOURCE of type TYPE. + +MATCH-FORM is a proper list of the form (key1 place1 ... keyN +placeN). Each placeK is either a symbol, which gets bound to the +value of keyK retrieved from the key-value store, or another +match form which gets destructured recursively. + +SOURCE is a key-value store of type TYPE, which can be a plist, +an alist or a hash table. + +TYPE is a token specifying the type of the key-value store. +Valid values are &plist, &alist and &hash." + (-flatten-n 1 (-map + (lambda (kv) + (let* ((k (car kv)) + (v (cadr kv)) + (getter + (funcall (dash--get-expand-function type) k source))) + (cond + ((symbolp v) + (list (list v getter))) + (t (dash--match v getter))))) + (-partition 2 match-form)))) + +(defun dash--match-symbol (match-form source) + "Bind a symbol. + +This works just like `let', there is no destructuring." + (list (list match-form source))) + +(defun dash--match (match-form source) + "Match MATCH-FORM against SOURCE. + +This function tests the MATCH-FORM and dispatches to specific +matchers based on the type of the expression. + +Key-value stores are disambiguated by placing a token &plist, +&alist or &hash as a first item in the MATCH-FORM." + (cond + ((and (symbolp match-form) + ;; Don't bind things like &keys as if they were vars (#395). + (not (functionp (dash--get-expand-function match-form)))) + (dash--match-symbol match-form source)) + ((consp match-form) + (cond + ;; Handle the "x &as" bindings first. + ((and (consp (cdr match-form)) + (symbolp (car match-form)) + (eq '&as (cadr match-form))) + (let ((s (car match-form))) + (cons (list s source) + (dash--match (cddr match-form) s)))) + ((functionp (dash--get-expand-function (car match-form))) + (dash--match-kv (dash--match-kv-normalize-match-form match-form) source)) + (t (dash--match-cons match-form source)))) + ((vectorp match-form) + ;; We support the &as binding in vectors too + (cond + ((and (> (length match-form) 2) + (symbolp (aref match-form 0)) + (eq '&as (aref match-form 1))) + (let ((s (aref match-form 0))) + (cons (list s source) + (dash--match (substring match-form 2) s)))) + (t (dash--match-vector match-form source)))))) + +(defun dash--normalize-let-varlist (varlist) + "Normalize VARLIST so that every binding is a list. + +`let' allows specifying a binding which is not a list but simply +the place which is then automatically bound to nil, such that all +three of the following are identical and evaluate to nil. + + (let (a) a) + (let ((a)) a) + (let ((a nil)) a) + +This function normalizes all of these to the last form." + (--map (if (consp it) it (list it nil)) varlist)) + +(defmacro -let* (varlist &rest body) + "Bind variables according to VARLIST then eval BODY. + +VARLIST is a list of lists of the form (PATTERN SOURCE). Each +PATTERN is matched against the SOURCE structurally. SOURCE is +only evaluated once for each PATTERN. + +Each SOURCE can refer to the symbols already bound by this +VARLIST. This is useful if you want to destructure SOURCE +recursively but also want to name the intermediate structures. + +See `-let' for the list of all possible patterns." + (declare (debug ((&rest [&or (sexp form) sexp]) body)) + (indent 1)) + (let* ((varlist (dash--normalize-let-varlist varlist)) + (bindings (--mapcat (dash--match (car it) (cadr it)) varlist))) + `(let* ,bindings + ,@body))) + +(defmacro -let (varlist &rest body) + "Bind variables according to VARLIST then eval BODY. + +VARLIST is a list of lists of the form (PATTERN SOURCE). Each +PATTERN is matched against the SOURCE \"structurally\". SOURCE +is only evaluated once for each PATTERN. Each PATTERN is matched +recursively, and can therefore contain sub-patterns which are +matched against corresponding sub-expressions of SOURCE. + +All the SOURCEs are evalled before any symbols are +bound (i.e. \"in parallel\"). + +If VARLIST only contains one (PATTERN SOURCE) element, you can +optionally specify it using a vector and discarding the +outer-most parens. Thus + + (-let ((PATTERN SOURCE)) ...) + +becomes + + (-let [PATTERN SOURCE] ...). + +`-let' uses a convention of not binding places (symbols) starting +with _ whenever it's possible. You can use this to skip over +entries you don't care about. However, this is not *always* +possible (as a result of implementation) and these symbols might +get bound to undefined values. + +Following is the overview of supported patterns. Remember that +patterns can be matched recursively, so every a, b, aK in the +following can be a matching construct and not necessarily a +symbol/variable. + +Symbol: + + a - bind the SOURCE to A. This is just like regular `let'. + +Conses and lists: + + (a) - bind `car' of cons/list to A + + (a . b) - bind car of cons to A and `cdr' to B + + (a b) - bind car of list to A and `cadr' to B + + (a1 a2 a3 ...) - bind 0th car of list to A1, 1st to A2, 2nd to A3... + + (a1 a2 a3 ... aN . rest) - as above, but bind the Nth cdr to REST. + +Vectors: + + [a] - bind 0th element of a non-list sequence to A (works with + vectors, strings, bit arrays...) + + [a1 a2 a3 ...] - bind 0th element of non-list sequence to A0, 1st to + A1, 2nd to A2, ... + If the PATTERN is shorter than SOURCE, the values at + places not in PATTERN are ignored. + If the PATTERN is longer than SOURCE, an `error' is + thrown. + + [a1 a2 a3 ... &rest rest] - as above, but bind the rest of + the sequence to REST. This is + conceptually the same as improper list + matching (a1 a2 ... aN . rest) + +Key/value stores: + + (&plist key0 a0 ... keyN aN) - bind value mapped by keyK in the + SOURCE plist to aK. If the + value is not found, aK is nil. + Uses `plist-get' to fetch values. + + (&alist key0 a0 ... keyN aN) - bind value mapped by keyK in the + SOURCE alist to aK. If the + value is not found, aK is nil. + Uses `assoc' to fetch values. + + (&hash key0 a0 ... keyN aN) - bind value mapped by keyK in the + SOURCE hash table to aK. If the + value is not found, aK is nil. + Uses `gethash' to fetch values. + +Further, special keyword &keys supports \"inline\" matching of +plist-like key-value pairs, similarly to &keys keyword of +`cl-defun'. + + (a1 a2 ... aN &keys key1 b1 ... keyN bK) + +This binds N values from the list to a1 ... aN, then interprets +the cdr as a plist (see key/value matching above). + +A shorthand notation for kv-destructuring exists which allows the +patterns be optionally left out and derived from the key name in +the following fashion: + +- a key :foo is converted into `foo' pattern, +- a key \\='bar is converted into `bar' pattern, +- a key \"baz\" is converted into `baz' pattern. + +That is, the entire value under the key is bound to the derived +variable without any further destructuring. + +This is possible only when the form following the key is not a +valid pattern (i.e. not a symbol, a cons cell or a vector). +Otherwise the matching proceeds as usual and in case of an +invalid spec fails with an error. + +Thus the patterns are normalized as follows: + + ;; derive all the missing patterns + (&plist :foo \\='bar \"baz\") => (&plist :foo foo \\='bar bar \"baz\" baz) + + ;; we can specify some but not others + (&plist :foo \\='bar explicit-bar) => (&plist :foo foo \\='bar explicit-bar) + + ;; nothing happens, we store :foo in x + (&plist :foo x) => (&plist :foo x) + + ;; nothing happens, we match recursively + (&plist :foo (a b c)) => (&plist :foo (a b c)) + +You can name the source using the syntax SYMBOL &as PATTERN. +This syntax works with lists (proper or improper), vectors and +all types of maps. + + (list &as a b c) (list 1 2 3) + +binds A to 1, B to 2, C to 3 and LIST to (1 2 3). + +Similarly: + + (bounds &as beg . end) (cons 1 2) + +binds BEG to 1, END to 2 and BOUNDS to (1 . 2). + + (items &as first . rest) (list 1 2 3) + +binds FIRST to 1, REST to (2 3) and ITEMS to (1 2 3) + + [vect &as _ b c] [1 2 3] + +binds B to 2, C to 3 and VECT to [1 2 3] (_ avoids binding as usual). + + (plist &as &plist :b b) (list :a 1 :b 2 :c 3) + +binds B to 2 and PLIST to (:a 1 :b 2 :c 3). Same for &alist and &hash. + +This is especially useful when we want to capture the result of a +computation and destructure at the same time. Consider the +form (function-returning-complex-structure) returning a list of +two vectors with two items each. We want to capture this entire +result and pass it to another computation, but at the same time +we want to get the second item from each vector. We can achieve +it with pattern + + (result &as [_ a] [_ b]) (function-returning-complex-structure) + +Note: Clojure programmers may know this feature as the \":as +binding\". The difference is that we put the &as at the front +because we need to support improper list binding." + (declare (debug ([&or (&rest [&or (sexp form) sexp]) + (vector [&rest [sexp form]])] + body)) + (indent 1)) + (if (vectorp varlist) + `(let* ,(dash--match (aref varlist 0) (aref varlist 1)) + ,@body) + (let* ((varlist (dash--normalize-let-varlist varlist)) + (inputs (--map-indexed (list (make-symbol (format "input%d" it-index)) (cadr it)) varlist)) + (new-varlist (--zip-with (list (car it) (car other)) + varlist inputs))) + `(let ,inputs + (-let* ,new-varlist ,@body))))) + +(defmacro -lambda (match-form &rest body) + "Return a lambda which destructures its input as MATCH-FORM and executes BODY. + +Note that you have to enclose the MATCH-FORM in a pair of parens, +such that: + + (-lambda (x) body) + (-lambda (x y ...) body) + +has the usual semantics of `lambda'. Furthermore, these get +translated into normal `lambda', so there is no performance +penalty. + +See `-let' for a description of the destructuring mechanism." + (declare (doc-string 2) (indent defun) + (debug (&define sexp + [&optional stringp] + [&optional ("interactive" interactive)] + def-body))) + (cond + ((nlistp match-form) + (signal 'wrong-type-argument (list #'listp match-form))) + ;; No destructuring, so just return regular `lambda' for speed. + ((-all? #'symbolp match-form) + `(lambda ,match-form ,@body)) + ((let ((inputs (--map-indexed + (list it (make-symbol (format "input%d" it-index))) + match-form))) + ;; TODO: because inputs to the `lambda' are evaluated only once, + ;; `-let*' need not create the extra bindings to ensure that. + ;; We should find a way to optimize that. Not critical however. + `(lambda ,(mapcar #'cadr inputs) + (-let* ,inputs ,@body)))))) + +(defmacro -setq (&rest forms) + "Bind each MATCH-FORM to the value of its VAL. + +MATCH-FORM destructuring is done according to the rules of `-let'. + +This macro allows you to bind multiple variables by destructuring +the value, so for example: + + (-setq (a b) x + (&plist :c c) plist) + +expands roughly speaking to the following code + + (setq a (car x) + b (cadr x) + c (plist-get plist :c)) + +Care is taken to only evaluate each VAL once so that in case of +multiple assignments it does not cause unexpected side effects. + +\(fn [MATCH-FORM VAL]...)" + (declare (debug (&rest sexp form)) + (indent 1)) + (when (= (mod (length forms) 2) 1) + (signal 'wrong-number-of-arguments (list '-setq (1+ (length forms))))) + (let* ((forms-and-sources + ;; First get all the necessary mappings with all the + ;; intermediate bindings. + (-map (lambda (x) (dash--match (car x) (cadr x))) + (-partition 2 forms))) + ;; To preserve the logic of dynamic scoping we must ensure + ;; that we `setq' the variables outside of the `let*' form + ;; which holds the destructured intermediate values. For + ;; this we generate for each variable a placeholder which is + ;; bound to (lexically) the result of the destructuring. + ;; Then outside of the helper `let*' form we bind all the + ;; original variables to their respective placeholders. + ;; TODO: There is a lot of room for possible optimization, + ;; for start playing with `special-variable-p' to eliminate + ;; unnecessary re-binding. + (variables-to-placeholders + (-mapcat + (lambda (bindings) + (-map + (lambda (binding) + (let ((var (car binding))) + (list var (make-symbol (concat "--dash-binding-" (symbol-name var) "--"))))) + (--filter (not (string-prefix-p "--" (symbol-name (car it)))) bindings))) + forms-and-sources))) + `(let ,(-map 'cadr variables-to-placeholders) + (let* ,(-flatten-n 1 forms-and-sources) + (setq ,@(-flatten (-map 'reverse variables-to-placeholders)))) + (setq ,@(-flatten variables-to-placeholders))))) + +(defmacro -if-let* (vars-vals then &rest else) + "If all VALS evaluate to true, bind them to their corresponding +VARS and do THEN, otherwise do ELSE. VARS-VALS should be a list +of (VAR VAL) pairs. + +Note: binding is done according to `-let*'. VALS are evaluated +sequentially, and evaluation stops after the first nil VAL is +encountered." + (declare (debug ((&rest (sexp form)) form body)) + (indent 2)) + (->> vars-vals + (--mapcat (dash--match (car it) (cadr it))) + (--reduce-r-from + (let ((var (car it)) + (val (cadr it))) + `(let ((,var ,val)) + (if ,var ,acc ,@else))) + then))) + +(defmacro -if-let (var-val then &rest else) + "If VAL evaluates to non-nil, bind it to VAR and do THEN, +otherwise do ELSE. + +Note: binding is done according to `-let'. + +\(fn (VAR VAL) THEN &rest ELSE)" + (declare (debug ((sexp form) form body)) + (indent 2)) + `(-if-let* (,var-val) ,then ,@else)) + +(defmacro --if-let (val then &rest else) + "If VAL evaluates to non-nil, bind it to symbol `it' and do THEN, +otherwise do ELSE." + (declare (debug (form form body)) + (indent 2)) + `(-if-let (it ,val) ,then ,@else)) + +(defmacro -when-let* (vars-vals &rest body) + "If all VALS evaluate to true, bind them to their corresponding +VARS and execute body. VARS-VALS should be a list of (VAR VAL) +pairs. + +Note: binding is done according to `-let*'. VALS are evaluated +sequentially, and evaluation stops after the first nil VAL is +encountered." + (declare (debug ((&rest (sexp form)) body)) + (indent 1)) + `(-if-let* ,vars-vals (progn ,@body))) + +(defmacro -when-let (var-val &rest body) + "If VAL evaluates to non-nil, bind it to VAR and execute body. + +Note: binding is done according to `-let'. + +\(fn (VAR VAL) &rest BODY)" + (declare (debug ((sexp form) body)) + (indent 1)) + `(-if-let ,var-val (progn ,@body))) + +(defmacro --when-let (val &rest body) + "If VAL evaluates to non-nil, bind it to symbol `it' and +execute body." + (declare (debug (form body)) + (indent 1)) + `(--if-let ,val (progn ,@body))) + +;; TODO: Get rid of this dynamic variable, passing it as an argument +;; instead? +(defvar -compare-fn nil + "Tests for equality use this function, or `equal' if this is nil. + +As a dynamic variable, this should be temporarily bound around +the relevant operation, rather than permanently modified. For +example: + + (let ((-compare-fn #\\='=)) + (-union \\='(1 2 3) \\='(2 3 4)))") + +(defun dash--member-fn () + "Return the flavor of `member' that goes best with `-compare-fn'." + (declare (side-effect-free error-free)) + (let ((cmp -compare-fn)) + (cond ((memq cmp '(nil equal)) #'member) + ((eq cmp #'eq) #'memq) + ((eq cmp #'eql) #'memql) + ((lambda (elt list) + (while (and list (not (funcall cmp elt (car list)))) + (pop list)) + list))))) + +(defun dash--assoc-fn () + "Return the flavor of `assoc' that goes best with `-compare-fn'." + (declare (side-effect-free error-free)) + (let ((cmp -compare-fn)) + (cond ((memq cmp '(nil equal)) #'assoc) + ((eq cmp #'eq) #'assq) + ((lambda (key alist) + ;; Since Emacs 26, `assoc' accepts a custom `testfn'. + ;; Version testing would be simpler here, but feature + ;; testing gets more brownie points, I guess. + (static-if (condition-case nil + (assoc nil () #'eql) + (wrong-number-of-arguments t)) + (--first (and (consp it) (funcall cmp (car it) key)) alist) + (assoc key alist cmp))))))) + +(defun dash--hash-test-fn () + "Return the hash table test function corresponding to `-compare-fn'. +Return nil if `-compare-fn' is not a known test function." + (declare (side-effect-free error-free)) + ;; In theory this could also recognize values that are custom + ;; `hash-table-test's, but too often the :test name is different + ;; from the equality function, so it doesn't seem worthwhile. + (car (memq (or -compare-fn #'equal) '(equal eq eql)))) + +(defvar dash--short-list-length 32 + "Maximum list length considered short, for optimizations. +For example, the speedup afforded by hash table lookup may start +to outweigh its runtime and memory overhead for problem sizes +greater than this value. See also the discussion in PR #305.") + +(defun -distinct (list) + "Return a copy of LIST with all duplicate elements removed. + +The test for equality is done with `equal', or with `-compare-fn' +if that is non-nil. + +Alias: `-uniq'." + (declare (important-return-value t)) + (let (test len) + (cond ((null list) ()) + ;; Use a hash table if `-compare-fn' is a known hash table + ;; test function and the list is long enough. + ((and (setq test (dash--hash-test-fn)) + (> (setq len (length list)) dash--short-list-length)) + (let ((ht (make-hash-table :test test :size len))) + (--filter (unless (gethash it ht) (puthash it t ht)) list))) + ((let ((member (dash--member-fn)) uniq) + (--each list (unless (funcall member it uniq) (push it uniq))) + (nreverse uniq)))))) + +(defalias '-uniq #'-distinct) + +(defun dash--size+ (size1 size2) + "Return the sum of nonnegative fixnums SIZE1 and SIZE2. +Return `most-positive-fixnum' on overflow. This ensures the +result is a valid size, particularly for allocating hash tables, +even in the presence of bignum support." + (declare (side-effect-free t)) + (if (< size1 (- most-positive-fixnum size2)) + (+ size1 size2) + most-positive-fixnum)) + +(defun -union (list1 list2) + "Return a new list of distinct elements appearing in either LIST1 or LIST2. + +The test for equality is done with `equal', or with `-compare-fn' +if that is non-nil." + (declare (important-return-value t)) + (let ((lists (list list1 list2)) test len union) + (cond ((null (or list1 list2))) + ;; Use a hash table if `-compare-fn' is a known hash table + ;; test function and the lists are long enough. + ((and (setq test (dash--hash-test-fn)) + (> (setq len (dash--size+ (length list1) (length list2))) + dash--short-list-length)) + (let ((ht (make-hash-table :test test :size len))) + (dolist (l lists) + (--each l (unless (gethash it ht) + (puthash it t ht) + (push it union)))))) + ((let ((member (dash--member-fn))) + (dolist (l lists) + (--each l (unless (funcall member it union) (push it union))))))) + (nreverse union))) + +(defun -intersection (list1 list2) + "Return a new list of distinct elements appearing in both LIST1 and LIST2. + +The test for equality is done with `equal', or with `-compare-fn' +if that is non-nil." + (declare (important-return-value t)) + (let (test len) + (cond ((null (and list1 list2)) ()) + ;; Use a hash table if `-compare-fn' is a known hash table + ;; test function and either list is long enough. + ((and (setq test (dash--hash-test-fn)) + (> (setq len (length list2)) dash--short-list-length)) + (let ((ht (make-hash-table :test test :size len))) + (--each list2 (puthash it t ht)) + ;; Remove visited elements to avoid duplicates. + (--filter (when (gethash it ht) (remhash it ht) t) list1))) + ((let ((member (dash--member-fn)) intersection) + (--each list1 (and (funcall member it list2) + (not (funcall member it intersection)) + (push it intersection))) + (nreverse intersection)))))) + +(defun -difference (list1 list2) + "Return a new list with the distinct members of LIST1 that are not in LIST2. + +The test for equality is done with `equal', or with `-compare-fn' +if that is non-nil." + (declare (important-return-value t)) + (let (test len1 len2) + (cond ((null list1) ()) + ((null list2) (-distinct list1)) + ;; Use a hash table if `-compare-fn' is a known hash table + ;; test function and the subtrahend is long enough. + ((and (setq test (dash--hash-test-fn)) + (setq len1 (length list1)) + (setq len2 (length list2)) + (> (max len1 len2) dash--short-list-length)) + (let ((ht1 (make-hash-table :test test :size len1)) + (ht2 (make-hash-table :test test :size len2))) + (--each list2 (puthash it t ht2)) + ;; Avoid duplicates by tracking visited items in `ht1'. + (--filter (unless (or (gethash it ht2) (gethash it ht1)) + (puthash it t ht1)) + list1))) + ((let ((member (dash--member-fn)) difference) + (--each list1 + (unless (or (funcall member it list2) + (funcall member it difference)) + (push it difference))) + (nreverse difference)))))) + +(defun -powerset (list) + "Return the power set of LIST." + (declare (pure t) (side-effect-free t)) + (if (null list) (list ()) + (let ((last (-powerset (cdr list)))) + (nconc (mapcar (lambda (x) (cons (car list) x)) last) + last)))) + +(defun -frequencies (list) + "Count the occurrences of each distinct element of LIST. + +Return an alist of (ELEMENT . N), where each ELEMENT occurs N +times in LIST. + +The test for equality is done with `equal', or with `-compare-fn' +if that is non-nil. + +See also `-count' and `-group-by'." + (declare (important-return-value t)) + (let (test len freqs) + (cond ((null list)) + ((and (setq test (dash--hash-test-fn)) + (> (setq len (length list)) dash--short-list-length)) + (let ((ht (make-hash-table :test test :size len))) + ;; Share structure between hash table and returned list. + ;; This affords a single pass that preserves the input + ;; order, conses less garbage, and is faster than a + ;; second traversal (e.g., with `maphash'). + (--each list + (let ((freq (gethash it ht))) + (if freq + (setcdr freq (1+ (cdr freq))) + (push (puthash it (cons it 1) ht) freqs)))))) + ((let ((assoc (dash--assoc-fn))) + (--each list + (let ((freq (funcall assoc it freqs))) + (if freq + (setcdr freq (1+ (cdr freq))) + (push (cons it 1) freqs))))))) + (nreverse freqs))) + +(defun dash--numbers<= (nums) + "Return non-nil if NUMS is a list of non-decreasing numbers." + (declare (pure t) (side-effect-free t)) + (or (null nums) + (let ((prev (pop nums))) + (and (numberp prev) + (--every (and (numberp it) (<= prev (setq prev it))) nums))))) + +(defun dash--next-lex-perm (array n) + "Update ARRAY of N numbers with its next lexicographic permutation. +Return nil if there is no such successor. N should be nonzero. + +This implements the salient steps of Algorithm L (Lexicographic +permutation generation) as described in DE Knuth's The Art of +Computer Programming, Volume 4A / Combinatorial Algorithms, +Part I, Addison-Wesley, 2011, § 7.2.1.2, p. 319." + (setq n (1- n)) + (let* ((l n) + (j (1- n)) + (al (aref array n)) + (aj al)) + ;; L2. [Find j]. + ;; Decrement j until a[j] < a[j+1]. + (while (and (<= 0 j) + (<= aj (setq aj (aref array j)))) + (setq j (1- j))) + ;; Terminate algorithm if j not found. + (when (>= j 0) + ;; L3. [Increase a[j]]. + ;; Decrement l until a[j] < a[l]. + (while (>= aj al) + (setq l (1- l) al (aref array l))) + ;; Swap a[j] and a[l]. + (aset array j al) + (aset array l aj) + ;; L4. [Reverse a[j+1]...a[n]]. + (setq l n) + (while (< (setq j (1+ j)) l) + (setq aj (aref array j)) + (aset array j (aref array l)) + (aset array l aj) + (setq l (1- l))) + array))) + +(defun dash--lex-perms (vec &optional original) + "Return a list of permutations of VEC in lexicographic order. +Specifically, return only the successors of VEC in lexicographic +order. Each returned permutation is a list. VEC should comprise +one or more numbers, and may be destructively modified. + +If ORIGINAL is a vector, then VEC is interpreted as a set of +indices into ORIGINAL. In this case, the indices are permuted, +and the resulting index permutations are used to dereference +elements of ORIGINAL." + (let ((len (length vec)) perms) + (while vec + (push (if original + (--map (aref original it) vec) + (append vec ())) + perms) + (setq vec (dash--next-lex-perm vec len))) + (nreverse perms))) + +(defun dash--uniq-perms (list) + "Return a list of permutations of LIST. +LIST is treated as if all its elements are distinct." + (let* ((vec (vconcat list)) + (idxs (copy-sequence vec))) + ;; Just construct a vector of the list's indices and permute that. + (dotimes (i (length idxs)) + (aset idxs i i)) + (dash--lex-perms idxs vec))) + +(defun dash--multi-perms (list freqs) + "Return a list of permutations of the multiset LIST. +FREQS should be an alist describing the frequency of each element +in LIST, as returned by `-frequencies'." + (let (;; Distinct items in `list', aka the cars of `freqs'. + (uniq (make-vector (length freqs) nil)) + ;; Indices into `uniq'. + (idxs (make-vector (length list) nil)) + ;; Current index into `idxs'. + (i 0)) + (--each freqs + (aset uniq it-index (car it)) + ;; Populate `idxs' with as many copies of each `it-index' as + ;; there are corresponding duplicates. + (dotimes (_ (cdr it)) + (aset idxs i it-index) + (setq i (1+ i)))) + (dash--lex-perms idxs uniq))) + +(defun -permutations (list) + "Return the distinct permutations of LIST. + +Duplicate elements of LIST are determined by `equal', or by +`-compare-fn' if that is non-nil." + (declare (important-return-value t)) + (cond ((null list) (list ())) + ;; Optimization: a traversal of `list' is faster than the + ;; round trip via `dash--uniq-perms' or `dash--multi-perms'. + ((dash--numbers<= list) + (dash--lex-perms (vconcat list))) + ((let ((freqs (-frequencies list))) + ;; Is each element distinct? + (unless (--every (= (cdr it) 1) freqs) + (dash--multi-perms list freqs)))) + ((dash--uniq-perms list)))) + +(defun -inits (list) + "Return all prefixes of LIST." + (declare (pure t) (side-effect-free t)) + (let ((res (list list))) + (setq list (reverse list)) + (while list + (push (reverse (!cdr list)) res)) + res)) + +(defun -tails (list) + "Return all suffixes of LIST." + (declare (pure t) (side-effect-free t)) + (-reductions-r-from #'cons nil list)) + +(defun -common-prefix (&rest lists) + "Return the longest common prefix of LISTS." + (declare (pure t) (side-effect-free t)) + (--reduce (--take-while (and acc (equal (pop acc) it)) it) + lists)) + +(defun -common-suffix (&rest lists) + "Return the longest common suffix of LISTS." + (declare (pure t) (side-effect-free t)) + (nreverse (apply #'-common-prefix (mapcar #'reverse lists)))) + +(defun -contains? (list element) + "Return non-nil if LIST contains ELEMENT. + +The test for equality is done with `equal', or with `-compare-fn' +if that is non-nil. As with `member', the return value is +actually the tail of LIST whose car is ELEMENT. + +Alias: `-contains-p'." + (declare (important-return-value t)) + (funcall (dash--member-fn) element list)) + +(defalias '-contains-p #'-contains?) + +(defun -same-items? (list1 list2) + "Return non-nil if LIST1 and LIST2 have the same distinct elements. + +The order of the elements in the lists does not matter. The +lists may be of different lengths, i.e., contain duplicate +elements. The test for equality is done with `equal', or with +`-compare-fn' if that is non-nil. + +Alias: `-same-items-p'." + (declare (important-return-value t)) + (let (test len1 len2) + (cond ((null (or list1 list2))) + ((null (and list1 list2)) nil) + ;; Use a hash table if `-compare-fn' is a known hash table + ;; test function and either list is long enough. + ((and (setq test (dash--hash-test-fn)) + (setq len1 (length list1)) + (setq len2 (length list2)) + (> (max len1 len2) dash--short-list-length)) + (let ((ht1 (make-hash-table :test test :size len1)) + (ht2 (make-hash-table :test test :size len2))) + (--each list1 (puthash it t ht1)) + ;; Move visited elements from `ht1' to `ht2'. This way, + ;; if visiting all of `list2' leaves `ht1' empty, then + ;; all elements from both lists have been accounted for. + (and (--every (cond ((gethash it ht1) + (remhash it ht1) + (puthash it t ht2)) + ((gethash it ht2))) + list2) + (zerop (hash-table-count ht1))))) + ((let ((member (dash--member-fn))) + (and (--all? (funcall member it list2) list1) + (--all? (funcall member it list1) list2))))))) + +(defalias '-same-items-p #'-same-items?) + +(defun -is-prefix? (prefix list) + "Return non-nil if PREFIX is a prefix of LIST. + +Alias: `-is-prefix-p'." + (declare (pure t) (side-effect-free t)) + (--each-while list (and (equal (car prefix) it) + (!cdr prefix))) + (null prefix)) + +(defun -is-suffix? (suffix list) + "Return non-nil if SUFFIX is a suffix of LIST. + +Alias: `-is-suffix-p'." + (declare (pure t) (side-effect-free t)) + (equal suffix (last list (length suffix)))) + +(defun -is-infix? (infix list) + "Return non-nil if INFIX is infix of LIST. + +This operation runs in O(n^2) time + +Alias: `-is-infix-p'" + (declare (pure t) (side-effect-free t)) + (let (done) + (while (and (not done) list) + (setq done (-is-prefix? infix list)) + (!cdr list)) + done)) + +(defalias '-is-prefix-p '-is-prefix?) +(defalias '-is-suffix-p '-is-suffix?) +(defalias '-is-infix-p '-is-infix?) + +(defun -sort (comparator list) + "Sort LIST, stably, comparing elements using COMPARATOR. +Return the sorted list. LIST is NOT modified by side effects. +COMPARATOR is called with two elements of LIST, and should return non-nil +if the first element should sort before the second." + (declare (important-return-value t)) + (static-if (condition-case nil (sort []) (wrong-number-of-arguments)) + ;; Since Emacs 30. + (sort list :lessp comparator) + (sort (copy-sequence list) comparator))) + +(defmacro --sort (form list) + "Anaphoric form of `-sort'." + (declare (debug (def-form form))) + `(-sort (lambda (it other) (ignore it other) ,form) ,list)) + +(defun -list (&optional arg &rest args) + "Ensure ARG is a list. +If ARG is already a list, return it as is (not a copy). +Otherwise, return a new list with ARG as its only element. + +Another supported calling convention is (-list &rest ARGS). +In this case, if ARG is not a list, a new list with all of +ARGS as elements is returned. This use is supported for +backward compatibility and is otherwise deprecated." + (declare (advertised-calling-convention (arg) "2.18.0") + (pure t) (side-effect-free error-free)) + (if (listp arg) arg (cons arg args))) + +(defun -repeat (n x) + "Return a new list of length N with each element being X. +Return nil if N is less than 1." + (declare (side-effect-free t)) + (and (>= n 0) (make-list n x))) + +(defun -sum (list) + "Return the sum of LIST." + (declare (pure t) (side-effect-free t)) + (apply #'+ list)) + +(defun -running-sum (list) + "Return a list with running sums of items in LIST. +LIST must be non-empty." + (declare (pure t) (side-effect-free t)) + (or list (signal 'wrong-type-argument (list #'consp list))) + (-reductions #'+ list)) + +(defun -product (list) + "Return the product of LIST." + (declare (pure t) (side-effect-free t)) + (apply #'* list)) + +(defun -running-product (list) + "Return a list with running products of items in LIST. +LIST must be non-empty." + (declare (pure t) (side-effect-free t)) + (or list (signal 'wrong-type-argument (list #'consp list))) + (-reductions #'* list)) + +(defun -max (list) + "Return the largest value from LIST of numbers or markers." + (declare (pure t) (side-effect-free t)) + (apply #'max list)) + +(defun -min (list) + "Return the smallest value from LIST of numbers or markers." + (declare (pure t) (side-effect-free t)) + (apply #'min list)) + +(defun -max-by (comparator list) + "Take a comparison function COMPARATOR and a LIST and return +the greatest element of the list by the comparison function. + +See also combinator `-on' which can transform the values before +comparing them." + (declare (important-return-value t)) + (--reduce (if (funcall comparator it acc) it acc) list)) + +(defun -min-by (comparator list) + "Take a comparison function COMPARATOR and a LIST and return +the least element of the list by the comparison function. + +See also combinator `-on' which can transform the values before +comparing them." + (declare (important-return-value t)) + (--reduce (if (funcall comparator it acc) acc it) list)) + +(defmacro --max-by (form list) + "Anaphoric version of `-max-by'. + +The items for the comparator form are exposed as \"it\" and \"other\"." + (declare (debug (def-form form))) + `(-max-by (lambda (it other) (ignore it other) ,form) ,list)) + +(defmacro --min-by (form list) + "Anaphoric version of `-min-by'. + +The items for the comparator form are exposed as \"it\" and \"other\"." + (declare (debug (def-form form))) + `(-min-by (lambda (it other) (ignore it other) ,form) ,list)) + +(defun -iota (count &optional start step) + "Return a list containing COUNT numbers. +Starts from START and adds STEP each time. The default START is +zero, the default STEP is 1. +This function takes its name from the corresponding primitive in +the APL language." + (declare (side-effect-free t)) + (unless (natnump count) + (signal 'wrong-type-argument (list #'natnump count))) + (or start (setq start 0)) + (or step (setq step 1)) + (if (zerop step) + (make-list count start) + (--iterate (+ it step) start count))) + +(defun -fix (fn list) + "Compute the (least) fixpoint of FN with initial input LIST. + +FN is called at least once, results are compared with `equal'." + (declare (important-return-value t)) + (let ((re (funcall fn list))) + (while (not (equal list re)) + (setq list re) + (setq re (funcall fn re))) + re)) + +(defmacro --fix (form list) + "Anaphoric form of `-fix'." + (declare (debug (def-form form))) + `(-fix (lambda (it) (ignore it) ,form) ,list)) + +(defun -unfold (fun seed) + "Build a list from SEED using FUN. + +This is \"dual\" operation to `-reduce-r': while -reduce-r +consumes a list to produce a single value, `-unfold' takes a +seed value and builds a (potentially infinite!) list. + +FUN should return nil to stop the generating process, or a +cons (A . B), where A will be prepended to the result and B is +the new seed." + (declare (important-return-value t)) + (let ((last (funcall fun seed)) r) + (while last + (push (car last) r) + (setq last (funcall fun (cdr last)))) + (nreverse r))) + +(defmacro --unfold (form seed) + "Anaphoric version of `-unfold'." + (declare (debug (def-form form))) + `(-unfold (lambda (it) (ignore it) ,form) ,seed)) + +(defun -cons-pair? (obj) + "Return non-nil if OBJ is a true cons pair. +That is, a cons (A . B) where B is not a list. + +Alias: `-cons-pair-p'." + (declare (pure t) (side-effect-free error-free)) + (nlistp (cdr-safe obj))) + +(defalias '-cons-pair-p '-cons-pair?) + +(defun -cons-to-list (con) + "Convert a cons pair to a list with `car' and `cdr' of the pair respectively." + (declare (pure t) (side-effect-free t)) + (list (car con) (cdr con))) + +(defun -value-to-list (val) + "Convert a value to a list. + +If the value is a cons pair, make a list with two elements, `car' +and `cdr' of the pair respectively. + +If the value is anything else, wrap it in a list." + (declare (pure t) (side-effect-free t)) + (if (-cons-pair? val) (-cons-to-list val) (list val))) + +(defun -tree-mapreduce-from (fn folder init-value tree) + "Apply FN to each element of TREE, and make a list of the results. +If elements of TREE are lists themselves, apply FN recursively to +elements of these nested lists. + +Then reduce the resulting lists using FOLDER and initial value +INIT-VALUE. See `-reduce-r-from'. + +This is the same as calling `-tree-reduce-from' after `-tree-map' +but is twice as fast as it only traverse the structure once." + (declare (important-return-value t)) + (cond + ((null tree) ()) + ((-cons-pair? tree) (funcall fn tree)) + ((consp tree) + (-reduce-r-from + folder init-value + (mapcar (lambda (x) (-tree-mapreduce-from fn folder init-value x)) tree))) + ((funcall fn tree)))) + +(defmacro --tree-mapreduce-from (form folder init-value tree) + "Anaphoric form of `-tree-mapreduce-from'." + (declare (debug (def-form def-form form form))) + `(-tree-mapreduce-from (lambda (it) (ignore it) ,form) + (lambda (it acc) (ignore it acc) ,folder) + ,init-value + ,tree)) + +(defun -tree-mapreduce (fn folder tree) + "Apply FN to each element of TREE, and make a list of the results. +If elements of TREE are lists themselves, apply FN recursively to +elements of these nested lists. + +Then reduce the resulting lists using FOLDER and initial value +INIT-VALUE. See `-reduce-r-from'. + +This is the same as calling `-tree-reduce' after `-tree-map' +but is twice as fast as it only traverse the structure once." + (declare (important-return-value t)) + (cond + ((null tree) ()) + ((-cons-pair? tree) (funcall fn tree)) + ((consp tree) + (-reduce-r folder (mapcar (lambda (x) (-tree-mapreduce fn folder x)) tree))) + ((funcall fn tree)))) + +(defmacro --tree-mapreduce (form folder tree) + "Anaphoric form of `-tree-mapreduce'." + (declare (debug (def-form def-form form))) + `(-tree-mapreduce (lambda (it) (ignore it) ,form) + (lambda (it acc) (ignore it acc) ,folder) + ,tree)) + +(defun -tree-map (fn tree) + "Apply FN to each element of TREE while preserving the tree structure." + (declare (important-return-value t)) + (cond + ((null tree) ()) + ((-cons-pair? tree) (funcall fn tree)) + ((consp tree) + (mapcar (lambda (x) (-tree-map fn x)) tree)) + ((funcall fn tree)))) + +(defmacro --tree-map (form tree) + "Anaphoric form of `-tree-map'." + (declare (debug (def-form form))) + `(-tree-map (lambda (it) (ignore it) ,form) ,tree)) + +(defun -tree-reduce-from (fn init-value tree) + "Use FN to reduce elements of list TREE. +If elements of TREE are lists themselves, apply the reduction recursively. + +FN is first applied to INIT-VALUE and first element of the list, +then on this result and second element from the list etc. + +The initial value is ignored on cons pairs as they always contain +two elements." + (declare (important-return-value t)) + (cond + ((null tree) ()) + ((-cons-pair? tree) tree) + ((consp tree) + (-reduce-r-from + fn init-value + (mapcar (lambda (x) (-tree-reduce-from fn init-value x)) tree))) + (tree))) + +(defmacro --tree-reduce-from (form init-value tree) + "Anaphoric form of `-tree-reduce-from'." + (declare (debug (def-form form form))) + `(-tree-reduce-from (lambda (it acc) (ignore it acc) ,form) + ,init-value ,tree)) + +(defun -tree-reduce (fn tree) + "Use FN to reduce elements of list TREE. +If elements of TREE are lists themselves, apply the reduction recursively. + +FN is first applied to first element of the list and second +element, then on this result and third element from the list etc. + +See `-reduce-r' for how exactly are lists of zero or one element handled." + (declare (important-return-value t)) + (cond + ((null tree) ()) + ((-cons-pair? tree) tree) + ((consp tree) + (-reduce-r fn (mapcar (lambda (x) (-tree-reduce fn x)) tree))) + (tree))) + +(defmacro --tree-reduce (form tree) + "Anaphoric form of `-tree-reduce'." + (declare (debug (def-form form))) + `(-tree-reduce (lambda (it acc) (ignore it acc) ,form) ,tree)) + +(defun -tree-map-nodes (pred fun tree) + "Call FUN on each node of TREE that satisfies PRED. + +If PRED returns nil, continue descending down this node. If PRED +returns non-nil, apply FUN to this node and do not descend +further." + (cond ((funcall pred tree) (funcall fun tree)) + ((and (listp tree) (listp (cdr tree))) + (-map (lambda (x) (-tree-map-nodes pred fun x)) tree)) + (tree))) + +(defmacro --tree-map-nodes (pred form tree) + "Anaphoric form of `-tree-map-nodes'." + (declare (debug (def-form def-form form))) + `(-tree-map-nodes (lambda (it) (ignore it) ,pred) + (lambda (it) (ignore it) ,form) + ,tree)) + +(defun -tree-seq (branch children tree) + "Return a sequence of the nodes in TREE, in depth-first search order. + +BRANCH is a predicate of one argument that returns non-nil if the +passed argument is a branch, that is, a node that can have children. + +CHILDREN is a function of one argument that returns the children +of the passed branch node. + +Non-branch nodes are simply copied." + (declare (important-return-value t)) + (cons tree + (and (funcall branch tree) + (-mapcat (lambda (x) (-tree-seq branch children x)) + (funcall children tree))))) + +(defmacro --tree-seq (branch children tree) + "Anaphoric form of `-tree-seq'." + (declare (debug (def-form def-form form))) + `(-tree-seq (lambda (it) (ignore it) ,branch) + (lambda (it) (ignore it) ,children) + ,tree)) + +(defun -clone (list) + "Create a deep copy of LIST. +The new list has the same elements and structure but all cons are +replaced with new ones. This is useful when you need to clone a +structure such as plist or alist." + (declare (side-effect-free t)) + (-tree-map #'identity list)) + +;;; Combinators + +(defalias '-partial #'apply-partially + "Return a function that is a partial application of FUN to ARGS. +ARGS is a list of the first N arguments to pass to FUN. +The result is a new function which does the same as FUN, except that +the first N arguments are fixed at the values with which this function +was called. +\n(fn FUN &rest ARGS)") + +(defun -rpartial (fn &rest args) + "Return a function that is a partial application of FN to ARGS. +ARGS is a list of the last N arguments to pass to FN. The result +is a new function which does the same as FN, except that the last +N arguments are fixed at the values with which this function was +called. This is like `-partial', except the arguments are fixed +starting from the right rather than the left." + (declare (pure t) (side-effect-free error-free)) + (lambda (&rest args-before) (apply fn (append args-before args)))) + +(defun -juxt (&rest fns) + "Return a function that is the juxtaposition of FNS. +The returned function takes a variable number of ARGS, applies +each of FNS in turn to ARGS, and returns the list of results." + (declare (pure t) (side-effect-free error-free)) + (lambda (&rest args) (mapcar (lambda (x) (apply x args)) fns))) + +(defun -compose (&rest fns) + "Compose FNS into a single composite function. +Return a function that takes a variable number of ARGS, applies +the last function in FNS to ARGS, and returns the result of +calling each remaining function on the result of the previous +function, right-to-left. If no FNS are given, return a variadic +`identity' function." + (declare (pure t) (side-effect-free error-free)) + (let* ((fns (nreverse fns)) + (head (car fns)) + (tail (cdr fns))) + (cond (tail + (lambda (&rest args) + (--reduce-from (funcall it acc) (apply head args) tail))) + (fns head) + ((lambda (&optional arg &rest _) arg))))) + +(defun -applify (fn) + "Return a function that applies FN to a single list of args. +This changes the arity of FN from taking N distinct arguments to +taking 1 argument which is a list of N arguments." + (declare (pure t) (side-effect-free error-free)) + (lambda (args) (apply fn args))) + +(defun -on (op trans) + "Return a function that calls TRANS on each arg and OP on the results. +The returned function takes a variable number of arguments, calls +the function TRANS on each one in turn, and then passes those +results as the list of arguments to OP, in the same order. + +For example, the following pairs of expressions are morally +equivalent: + + (funcall (-on #\\='+ #\\='1+) 1 2 3) = (+ (1+ 1) (1+ 2) (1+ 3)) + (funcall (-on #\\='+ #\\='1+)) = (+)" + (declare (pure t) (side-effect-free error-free)) + (lambda (&rest args) + ;; This unrolling seems to be a relatively cheap way to keep the + ;; overhead of `mapcar' + `apply' in check. + (cond ((cddr args) + (apply op (mapcar trans args))) + ((cdr args) + (funcall op (funcall trans (car args)) (funcall trans (cadr args)))) + (args + (funcall op (funcall trans (car args)))) + ((funcall op))))) + +(defun -flip (fn) + "Return a function that calls FN with its arguments reversed. +The returned function takes the same number of arguments as FN. + +For example, the following two expressions are morally +equivalent: + + (funcall (-flip #\\='-) 1 2) = (- 2 1) + +See also: `-rotate-args'." + (declare (pure t) (side-effect-free error-free)) + (lambda (&rest args) ;; Open-code for speed. + (cond ((cddr args) (apply fn (nreverse args))) + ((cdr args) (funcall fn (cadr args) (car args))) + (args (funcall fn (car args))) + ((funcall fn))))) + +(defun -rotate-args (n fn) + "Return a function that calls FN with args rotated N places to the right. +The returned function takes the same number of arguments as FN, +rotates the list of arguments N places to the right (left if N is +negative) just like `-rotate', and applies FN to the result. + +See also: `-flip'." + (declare (pure t) (side-effect-free t)) + (if (zerop n) + fn + (let ((even (= (% n 2) 0))) + (lambda (&rest args) + (cond ((cddr args) ;; Open-code for speed. + (apply fn (-rotate n args))) + ((cdr args) + (let ((fst (car args)) + (snd (cadr args))) + (funcall fn (if even fst snd) (if even snd fst)))) + (args + (funcall fn (car args))) + ((funcall fn))))))) + +(defun -const (c) + "Return a function that returns C ignoring any additional arguments. + +In types: a -> b -> a" + (declare (pure t) (side-effect-free error-free)) + (lambda (&rest _) c)) + +(defmacro -cut (&rest params) + "Take n-ary function and n arguments and specialize some of them. +Arguments denoted by <> will be left unspecialized. + +See SRFI-26 for detailed description." + (declare (debug (&optional sexp &rest &or "<>" form))) + (let* ((i 0) + (args (--keep (when (eq it '<>) + (setq i (1+ i)) + (make-symbol (format "D%d" i))) + params))) + `(lambda ,args + ,(let ((body (--map (if (eq it '<>) (pop args) it) params))) + (if (eq (car params) '<>) + (cons #'funcall body) + body))))) + +(defun -not (pred) + "Return a predicate that negates the result of PRED. +The returned predicate passes its arguments to PRED. If PRED +returns nil, the result is non-nil; otherwise the result is nil. + +See also: `-andfn' and `-orfn'." + (declare (pure t) (side-effect-free error-free)) + (lambda (&rest args) (not (apply pred args)))) + +(defun -orfn (&rest preds) + "Return a predicate that returns the first non-nil result of PREDS. +The returned predicate takes a variable number of arguments, +passes them to each predicate in PREDS in turn until one of them +returns non-nil, and returns that non-nil result without calling +the remaining PREDS. If all PREDS return nil, or if no PREDS are +given, the returned predicate returns nil. + +See also: `-andfn' and `-not'." + (declare (pure t) (side-effect-free error-free)) + ;; Open-code for speed. + (cond ((cdr preds) (lambda (&rest args) (--some (apply it args) preds))) + (preds (car preds)) + (#'ignore))) + +(defun -andfn (&rest preds) + "Return a predicate that returns non-nil if all PREDS do so. +The returned predicate P takes a variable number of arguments and +passes them to each predicate in PREDS in turn. If any one of +PREDS returns nil, P also returns nil without calling the +remaining PREDS. If all PREDS return non-nil, P returns the last +such value. If no PREDS are given, P always returns non-nil. + +See also: `-orfn' and `-not'." + (declare (pure t) (side-effect-free error-free)) + ;; Open-code for speed. + (cond ((cdr preds) (lambda (&rest args) (--every (apply it args) preds))) + (preds (car preds)) + ((static-if (fboundp 'always) + #'always + (lambda (&rest _) t))))) + +(defun -iteratefn (fn n) + "Return a function FN composed N times with itself. + +FN is a unary function. If you need to use a function of higher +arity, use `-applify' first to turn it into a unary function. + +With n = 0, this acts as identity function. + +In types: (a -> a) -> Int -> a -> a. + +This function satisfies the following law: + + (funcall (-iteratefn fn n) init) = (-last-item (-iterate fn init (1+ n)))." + (declare (pure t) (side-effect-free error-free)) + (lambda (x) (--dotimes n (setq x (funcall fn x))) x)) + +(defun -counter (&optional beg end inc) + "Return a closure that counts from BEG to END, with increment INC. + +The closure will return the next value in the counting sequence +each time it is called, and nil after END is reached. BEG +defaults to 0, INC defaults to 1, and if END is nil, the counter +will increment indefinitely. + +The closure accepts any number of arguments, which are discarded." + (declare (pure t) (side-effect-free error-free)) + (let ((inc (or inc 1)) + (n (or beg 0))) + (lambda (&rest _) + (when (or (not end) (< n end)) + (prog1 n + (setq n (+ n inc))))))) + +(defvar -fixfn-max-iterations 1000 + "The default maximum number of iterations performed by `-fixfn' + unless otherwise specified.") + +(defun -fixfn (fn &optional equal-test halt-test) + "Return a function that computes the (least) fixpoint of FN. + +FN must be a unary function. The returned lambda takes a single +argument, X, the initial value for the fixpoint iteration. The +iteration halts when either of the following conditions is satisfied: + + 1. Iteration converges to the fixpoint, with equality being + tested using EQUAL-TEST. If EQUAL-TEST is not specified, + `equal' is used. For functions over the floating point + numbers, it may be necessary to provide an appropriate + approximate comparison test. + + 2. HALT-TEST returns a non-nil value. HALT-TEST defaults to a + simple counter that returns t after `-fixfn-max-iterations', + to guard against infinite iteration. Otherwise, HALT-TEST + must be a function that accepts a single argument, the + current value of X, and returns non-nil as long as iteration + should continue. In this way, a more sophisticated + convergence test may be supplied by the caller. + +The return value of the lambda is either the fixpoint or, if +iteration halted before converging, a cons with car `halted' and +cdr the final output from HALT-TEST. + +In types: (a -> a) -> a -> a." + (declare (important-return-value t)) + (let ((eqfn (or equal-test 'equal)) + (haltfn (or halt-test + (-not + (-counter 0 -fixfn-max-iterations))))) + (lambda (x) + (let ((re (funcall fn x)) + (halt? (funcall haltfn x))) + (while (and (not halt?) (not (funcall eqfn x re))) + (setq x re + re (funcall fn re) + halt? (funcall haltfn re))) + (if halt? (cons 'halted halt?) + re))))) + +(defun -prodfn (&rest fns) + "Return a function that applies each of FNS to each of a list of arguments. + +Takes a list of N functions and returns a function that takes a +list of length N, applying Ith function to Ith element of the +input list. Returns a list of length N. + +In types (for N=2): ((a -> b), (c -> d)) -> (a, c) -> (b, d) + +This function satisfies the following laws: + + (-compose (-prodfn f g ...) + (-prodfn f\\=' g\\=' ...)) + = (-prodfn (-compose f f\\=') + (-compose g g\\=') + ...) + + (-prodfn f g ...) + = (-juxt (-compose f (-partial #\\='nth 0)) + (-compose g (-partial #\\='nth 1)) + ...) + + (-compose (-prodfn f g ...) + (-juxt f\\=' g\\=' ...)) + = (-juxt (-compose f f\\=') + (-compose g g\\=') + ...) + + (-compose (-partial #\\='nth n) + (-prod f1 f2 ...)) + = (-compose fn (-partial #\\='nth n))" + (declare (pure t) (side-effect-free t)) + (lambda (x) (--zip-with (funcall it other) fns x))) + +;;; Font lock + +(defvar dash--keywords + `(;; TODO: Do not fontify the following automatic variables + ;; globally; detect and limit to their local anaphoric scope. + (,(rx symbol-start (| "acc" "it" "it-index" "other") symbol-end) + . 'font-lock-variable-name-face) + ;; Macros in dev/examples.el. Based on `lisp-mode-symbol-regexp'. + (,(rx ?\( (group (| "defexamples" "def-example-group")) symbol-end + (+ (in "\t ")) + (group (* (| (syntax word) (syntax symbol) (: ?\\ nonl))))) + (1 'font-lock-keyword-face) + (2 'font-lock-function-name-face)) + ;; Symbols in dev/examples.el. + ,(rx symbol-start (| "=>" "~>" "!!>") symbol-end) + ;; Elisp macro fontification was static prior to Emacs 25. + ,@(when (< emacs-major-version 25) + (let ((macs '("!cdr" + "!cons" + "-->" + "--all-p" + "--all?" + "--annotate" + "--any" + "--any-p" + "--any?" + "--count" + "--dotimes" + "--doto" + "--drop-while" + "--each" + "--each-indexed" + "--each-r" + "--each-r-while" + "--each-while" + "--every" + "--every-p" + "--every?" + "--filter" + "--find" + "--find-index" + "--find-indices" + "--find-last-index" + "--first" + "--fix" + "--group-by" + "--if-let" + "--iterate" + "--keep" + "--last" + "--map" + "--map-first" + "--map-indexed" + "--map-last" + "--map-when" + "--mapcat" + "--max-by" + "--min-by" + "--none-p" + "--none?" + "--only-some-p" + "--only-some?" + "--partition-after-pred" + "--partition-by" + "--partition-by-header" + "--reduce" + "--reduce-from" + "--reduce-r" + "--reduce-r-from" + "--reductions" + "--reductions-from" + "--reductions-r" + "--reductions-r-from" + "--reject" + "--reject-first" + "--reject-last" + "--remove" + "--remove-first" + "--remove-last" + "--replace-where" + "--select" + "--separate" + "--some" + "--some-p" + "--some?" + "--sort" + "--splice" + "--splice-list" + "--split-when" + "--split-with" + "--take-while" + "--tree-map" + "--tree-map-nodes" + "--tree-mapreduce" + "--tree-mapreduce-from" + "--tree-reduce" + "--tree-reduce-from" + "--tree-seq" + "--unfold" + "--update-at" + "--when-let" + "--zip-with" + "->" + "->>" + "-as->" + "-cut" + "-doto" + "-if-let" + "-if-let*" + "-lambda" + "-let" + "-let*" + "-setq" + "-some-->" + "-some->" + "-some->>" + "-split-on" + "-when-let" + "-when-let*"))) + `((,(concat "(" (regexp-opt macs 'symbols)) . 1))))) + "Font lock keywords for `dash-fontify-mode'.") + +(defcustom dash-fontify-mode-lighter nil + "Mode line lighter for `dash-fontify-mode'. +Either a string to display in the mode line when +`dash-fontify-mode' is on, or nil to display +nothing (the default)." + :package-version '(dash . "2.18.0") + :type '(choice (string :tag "Lighter" :value " Dash") + (const :tag "Nothing" nil))) + +;;;###autoload +(define-minor-mode dash-fontify-mode + "Toggle fontification of Dash special variables. + +Dash-Fontify mode is a buffer-local minor mode intended for Emacs +Lisp buffers. Enabling it causes the special variables bound in +anaphoric Dash macros to be fontified. These anaphoras include +`it', `it-index', `acc', and `other'. In older Emacs versions +which do not dynamically detect macros, Dash-Fontify mode +additionally fontifies Dash macro calls. + +See also `dash-fontify-mode-lighter' and +`global-dash-fontify-mode'." + :lighter dash-fontify-mode-lighter + (if dash-fontify-mode + (font-lock-add-keywords nil dash--keywords t) + (font-lock-remove-keywords nil dash--keywords)) + (static-if (fboundp 'font-lock-flush) + ;; Added in Emacs 25. + (font-lock-flush) + (when font-lock-mode + ;; Unconditionally enables `font-lock-mode' and is marked + ;; `interactive-only' in later Emacs versions which have + ;; `font-lock-flush'. + (font-lock-fontify-buffer)))) + +(defun dash--turn-on-fontify-mode () + "Enable `dash-fontify-mode' if in an Emacs Lisp buffer." + (when (derived-mode-p #'emacs-lisp-mode) + (dash-fontify-mode))) + +;;;###autoload +(define-globalized-minor-mode global-dash-fontify-mode + dash-fontify-mode dash--turn-on-fontify-mode) + +(defcustom dash-enable-fontlock nil + "If non-nil, fontify Dash macro calls and special variables." + :set (lambda (sym val) + (set-default sym val) + (global-dash-fontify-mode (if val 1 0))) + :type 'boolean) + +(make-obsolete-variable + 'dash-enable-fontlock #'global-dash-fontify-mode "2.18.0") + +(define-obsolete-function-alias + 'dash-enable-font-lock #'global-dash-fontify-mode "2.18.0") + +;;; Info + +(defvar dash--info-doc-spec '("(dash) Index" nil "^ -+ .*: " "\\( \\|$\\)") + "The Dash :doc-spec entry for `info-lookup-alist'. +It is based on that for `emacs-lisp-mode'.") + +(defun dash--info-elisp-docs () + "Return the `emacs-lisp-mode' symbol docs from `info-lookup-alist'. +Specifically, return the cons containing their +`info-lookup->doc-spec' so that we can modify it." + (defvar info-lookup-alist) + (nthcdr 3 (assq #'emacs-lisp-mode (cdr (assq 'symbol info-lookup-alist))))) + +;;;###autoload +(defun dash-register-info-lookup () + "Register the Dash Info manual with `info-lookup-symbol'. +This allows Dash symbols to be looked up with \\[info-lookup-symbol]." + (interactive) + (require 'info-look) + (let ((docs (dash--info-elisp-docs))) + (setcar docs (append (car docs) (list dash--info-doc-spec))) + (info-lookup-reset))) + +(defun dash-unload-function () + "Remove Dash from `info-lookup-alist'. +Used by `unload-feature', which see." + (let ((docs (and (featurep 'info-look) + (dash--info-elisp-docs)))) + (when (member dash--info-doc-spec (car docs)) + (setcar docs (remove dash--info-doc-spec (car docs))) + (info-lookup-reset))) + nil) + +(provide 'dash) +;;; dash.el ends here diff --git a/elpa/dash-2.20.0/dash.info b/elpa/dash-2.20.0/dash.info new file mode 100644 index 0000000..6c0ef89 --- /dev/null +++ b/elpa/dash-2.20.0/dash.info @@ -0,0 +1,4954 @@ +This is dash.info, produced by makeinfo version 6.8 from dash.texi. + +This manual is for Dash version 2.20.0. + + Copyright © 2012–2025 Free Software Foundation, Inc. + + Permission is granted to copy, distribute and/or modify this + document under the terms of the GNU Free Documentation License, + Version 1.3 or any later version published by the Free Software + Foundation; with the Invariant Sections being “GNU General Public + License,” and no Front-Cover Texts or Back-Cover Texts. A copy of + the license is included in the section entitled “GNU Free + Documentation License”. +INFO-DIR-SECTION Emacs +START-INFO-DIR-ENTRY +* Dash: (dash.info). A modern list library for GNU Emacs. +END-INFO-DIR-ENTRY + + +File: dash.info, Node: Top, Next: Installation, Up: (dir) + +Dash +**** + +This manual is for Dash version 2.20.0. + + Copyright © 2012–2025 Free Software Foundation, Inc. + + Permission is granted to copy, distribute and/or modify this + document under the terms of the GNU Free Documentation License, + Version 1.3 or any later version published by the Free Software + Foundation; with the Invariant Sections being “GNU General Public + License,” and no Front-Cover Texts or Back-Cover Texts. A copy of + the license is included in the section entitled “GNU Free + Documentation License”. + +* Menu: + +* Installation:: Installing and configuring Dash. +* Functions:: Dash API reference. +* Development:: Contributing to Dash development. + +Appendices + +* FDL:: The license for this documentation. +* GPL:: Conditions for copying and changing Dash. +* Index:: Index including functions and macros. + + — The Detailed Node Listing — + +Installation + +* Using in a package:: Listing Dash as a package dependency. +* Fontification of special variables:: Font Lock of anaphoric macro variables. +* Info symbol lookup:: Looking up Dash symbols in this manual. + +Functions + +* Maps:: +* Sublist selection:: +* List to list:: +* Reductions:: +* Unfolding:: +* Predicates:: +* Partitioning:: +* Indexing:: +* Set operations:: +* Other list operations:: +* Tree operations:: +* Threading macros:: +* Binding:: +* Side effects:: +* Destructive operations:: +* Function combinators:: + +Development + +* Contribute:: How to contribute. +* Contributors:: List of contributors. + + +File: dash.info, Node: Installation, Next: Functions, Prev: Top, Up: Top + +1 Installation +************** + +Dash is available on GNU ELPA (https://elpa.gnu.org/), GNU-devel ELPA +(https://elpa.gnu.org/devel/), and MELPA (https://melpa.org/), and can +be installed with the standard command ‘package-install’ (*note +(emacs)Package Installation::). + +‘M-x package-install dash ’ + Install the Dash library. + + Alternatively, you can just dump ‘dash.el’ in your ‘load-path’ +somewhere (*note (emacs)Lisp Libraries::). + +* Menu: + +* Using in a package:: Listing Dash as a package dependency. +* Fontification of special variables:: Font Lock of anaphoric macro variables. +* Info symbol lookup:: Looking up Dash symbols in this manual. + + +File: dash.info, Node: Using in a package, Next: Fontification of special variables, Up: Installation + +1.1 Using in a package +====================== + +If you use Dash in your own package, be sure to list it as a dependency +in the library’s headers as follows (*note (elisp)Library Headers::). + + ;; Package-Requires: ((dash "2.20.0")) + + +File: dash.info, Node: Fontification of special variables, Next: Info symbol lookup, Prev: Using in a package, Up: Installation + +1.2 Fontification of special variables +====================================== + +The autoloaded minor mode ‘dash-fontify-mode’ is provided for optional +fontification of anaphoric Dash variables (‘it’, ‘acc’, etc.) in Emacs +Lisp buffers using search-based Font Lock (*note (emacs)Font Lock::). +In older Emacs versions which do not dynamically detect macros, the +minor mode also fontifies calls to Dash macros. + + To automatically enable the minor mode in all Emacs Lisp buffers, +just call its autoloaded global counterpart ‘global-dash-fontify-mode’, +either interactively or from your ‘user-init-file’: + + (global-dash-fontify-mode) + + +File: dash.info, Node: Info symbol lookup, Prev: Fontification of special variables, Up: Installation + +1.3 Info symbol lookup +====================== + +While editing Elisp files, you can use ‘C-h S’ (‘info-lookup-symbol’) to +look up Elisp symbols in the relevant Info manuals (*note (emacs)Info +Lookup::). To enable the same for Dash symbols, use the command +‘dash-register-info-lookup’. It can be called directly when needed, or +automatically from your ‘user-init-file’. For example: + + (with-eval-after-load 'info-look + (dash-register-info-lookup)) + + +File: dash.info, Node: Functions, Next: Development, Prev: Installation, Up: Top + +2 Functions +*********** + +This chapter contains reference documentation for the Dash API +(Application Programming Interface). The names of all public functions +defined in the library are prefixed with a dash character (‘-’). + + The library also provides anaphoric macro versions of functions where +that makes sense. The names of these macros are prefixed with two +dashes (‘--’) instead of one. + + For instance, while the function ‘-map’ applies a function to each +element of a list, its anaphoric counterpart ‘--map’ evaluates a form +with the local variable ‘it’ temporarily bound to the current list +element instead. + + ;; Normal version. + (-map (lambda (n) (* n n)) '(1 2 3 4)) + ⇒ (1 4 9 16) + + ;; Anaphoric version. + (--map (* it it) '(1 2 3 4)) + ⇒ (1 4 9 16) + + The normal version can, of course, also be written as in the +following example, which demonstrates the utility of both versions. + + (defun my-square (n) + "Return N multiplied by itself." + (* n n)) + + (-map #'my-square '(1 2 3 4)) + ⇒ (1 4 9 16) + +* Menu: + +* Maps:: +* Sublist selection:: +* List to list:: +* Reductions:: +* Unfolding:: +* Predicates:: +* Partitioning:: +* Indexing:: +* Set operations:: +* Other list operations:: +* Tree operations:: +* Threading macros:: +* Binding:: +* Side effects:: +* Destructive operations:: +* Function combinators:: + + +File: dash.info, Node: Maps, Next: Sublist selection, Up: Functions + +2.1 Maps +======== + +Functions in this category take a transforming function, which is then +applied sequentially to each or selected elements of the input list. +The results are collected in order and returned as a new list. + + -- Function: -map (fn list) + Apply FN to each item in LIST and return the list of results. + + This function’s anaphoric counterpart is ‘--map’. + + (-map (lambda (num) (* num num)) '(1 2 3 4)) + ⇒ (1 4 9 16) + (-map #'1+ '(1 2 3 4)) + ⇒ (2 3 4 5) + (--map (* it it) '(1 2 3 4)) + ⇒ (1 4 9 16) + + -- Function: -map-when (pred rep list) + Use PRED to conditionally apply REP to each item in LIST. Return a + copy of LIST where the items for which PRED returns ‘nil’ are + unchanged, and the rest are mapped through the REP function. + + Alias: ‘-replace-where’ + + See also: ‘-update-at’ (*note -update-at::) + + (-map-when 'even? 'square '(1 2 3 4)) + ⇒ (1 4 3 16) + (--map-when (> it 2) (* it it) '(1 2 3 4)) + ⇒ (1 2 9 16) + (--map-when (= it 2) 17 '(1 2 3 4)) + ⇒ (1 17 3 4) + + -- Function: -map-first (pred rep list) + Use PRED to determine the first item in LIST to call REP on. + Return a copy of LIST where the first item for which PRED returns + non-‘nil’ is replaced with the result of calling REP on that item. + + See also: ‘-map-when’ (*note -map-when::), ‘-replace-first’ (*note + -replace-first::) + + (-map-first 'even? 'square '(1 2 3 4)) + ⇒ (1 4 3 4) + (--map-first (> it 2) (* it it) '(1 2 3 4)) + ⇒ (1 2 9 4) + (--map-first (= it 2) 17 '(1 2 3 2)) + ⇒ (1 17 3 2) + + -- Function: -map-last (pred rep list) + Use PRED to determine the last item in LIST to call REP on. Return + a copy of LIST where the last item for which PRED returns non-‘nil’ + is replaced with the result of calling REP on that item. + + See also: ‘-map-when’ (*note -map-when::), ‘-replace-last’ (*note + -replace-last::) + + (-map-last 'even? 'square '(1 2 3 4)) + ⇒ (1 2 3 16) + (--map-last (> it 2) (* it it) '(1 2 3 4)) + ⇒ (1 2 3 16) + (--map-last (= it 2) 17 '(1 2 3 2)) + ⇒ (1 2 3 17) + + -- Function: -map-indexed (fn list) + Apply FN to each index and item in LIST and return the list of + results. This is like ‘-map’ (*note -map::), but FN takes two + arguments: the index of the current element within LIST, and the + element itself. + + This function’s anaphoric counterpart is ‘--map-indexed’. + + For a side-effecting variant, see also ‘-each-indexed’ (*note + -each-indexed::). + + (-map-indexed (lambda (index item) (- item index)) '(1 2 3 4)) + ⇒ (1 1 1 1) + (--map-indexed (- it it-index) '(1 2 3 4)) + ⇒ (1 1 1 1) + (-map-indexed #'* '(1 2 3 4)) + ⇒ (0 2 6 12) + + -- Function: -annotate (fn list) + Pair each item in LIST with the result of passing it to FN. + + Return an alist of (RESULT . ITEM), where each ITEM is the + corresponding element of LIST, and RESULT is the value obtained by + calling FN on ITEM. + + This function’s anaphoric counterpart is ‘--annotate’. + + (-annotate #'1+ '(1 2 3)) + ⇒ ((2 . 1) (3 . 2) (4 . 3)) + (-annotate #'length '((f o o) (bar baz))) + ⇒ ((3 f o o) (2 bar baz)) + (--annotate (> it 1) '(0 1 2 3)) + ⇒ ((nil . 0) (nil . 1) (t . 2) (t . 3)) + + -- Function: -splice (pred fun list) + Splice lists generated by FUN in place of items satisfying PRED in + LIST. + + Call PRED on each element of LIST. Whenever the result of PRED is + ‘nil’, leave that ‘it’ as-is. Otherwise, call FUN on the same ‘it’ + that satisfied PRED. The result should be a (possibly empty) list + of items to splice in place of ‘it’ in LIST. + + This can be useful as an alternative to the ‘,@’ construct in a ‘`’ + structure, in case you need to splice several lists at marked + positions (for example with keywords). + + This function’s anaphoric counterpart is ‘--splice’. + + See also: ‘-splice-list’ (*note -splice-list::), ‘-insert-at’ + (*note -insert-at::). + + (-splice #'numberp (lambda (n) (list n n)) '(a 1 b 2)) + ⇒ (a 1 1 b 2 2) + (--splice t (list it it) '(1 2 3 4)) + ⇒ (1 1 2 2 3 3 4 4) + (--splice (eq it :magic) '((magical) (code)) '((foo) :magic (bar))) + ⇒ ((foo) (magical) (code) (bar)) + + -- Function: -splice-list (pred new-list list) + Splice NEW-LIST in place of elements matching PRED in LIST. + + See also: ‘-splice’ (*note -splice::), ‘-insert-at’ (*note + -insert-at::) + + (-splice-list 'keywordp '(a b c) '(1 :foo 2)) + ⇒ (1 a b c 2) + (-splice-list 'keywordp nil '(1 :foo 2)) + ⇒ (1 2) + (--splice-list (keywordp it) '(a b c) '(1 :foo 2)) + ⇒ (1 a b c 2) + + -- Function: -mapcat (fn list) + Return the concatenation of the result of mapping FN over LIST. + Thus function FN should return a list. + + (-mapcat 'list '(1 2 3)) + ⇒ (1 2 3) + (-mapcat (lambda (item) (list 0 item)) '(1 2 3)) + ⇒ (0 1 0 2 0 3) + (--mapcat (list 0 it) '(1 2 3)) + ⇒ (0 1 0 2 0 3) + + -- Function: -copy (list) + Create a shallow copy of LIST. The elements of LIST are not + copied; they are shared with the original. + + (-copy '(1 2 3)) + ⇒ (1 2 3) + (let ((a '(1 2 3))) (eq a (-copy a))) + ⇒ nil + + +File: dash.info, Node: Sublist selection, Next: List to list, Prev: Maps, Up: Functions + +2.2 Sublist selection +===================== + +Functions returning a sublist of the original list. + + -- Function: -filter (pred list) + Return a new list of the items in LIST for which PRED returns + non-‘nil’. + + Alias: ‘-select’. + + This function’s anaphoric counterpart is ‘--filter’. + + For similar operations, see also ‘-keep’ (*note -keep::) and + ‘-remove’ (*note -remove::). + + (-filter (lambda (num) (= 0 (% num 2))) '(1 2 3 4)) + ⇒ (2 4) + (-filter #'natnump '(-2 -1 0 1 2)) + ⇒ (0 1 2) + (--filter (= 0 (% it 2)) '(1 2 3 4)) + ⇒ (2 4) + + -- Function: -remove (pred list) + Return a new list of the items in LIST for which PRED returns + ‘nil’. + + Alias: ‘-reject’. + + This function’s anaphoric counterpart is ‘--remove’. + + For similar operations, see also ‘-keep’ (*note -keep::) and + ‘-filter’ (*note -filter::). + + (-remove (lambda (num) (= 0 (% num 2))) '(1 2 3 4)) + ⇒ (1 3) + (-remove #'natnump '(-2 -1 0 1 2)) + ⇒ (-2 -1) + (--remove (= 0 (% it 2)) '(1 2 3 4)) + ⇒ (1 3) + + -- Function: -remove-first (pred list) + Remove the first item from LIST for which PRED returns non-‘nil’. + This is a non-destructive operation, but only the front of LIST + leading up to the removed item is a copy; the rest is LIST’s + original tail. If no item is removed, then the result is a + complete copy. + + Alias: ‘-reject-first’. + + This function’s anaphoric counterpart is ‘--remove-first’. + + See also ‘-map-first’ (*note -map-first::), ‘-remove-item’ (*note + -remove-item::), and ‘-remove-last’ (*note -remove-last::). + + (-remove-first #'natnump '(-2 -1 0 1 2)) + ⇒ (-2 -1 1 2) + (-remove-first #'stringp '(1 2 "first" "second")) + ⇒ (1 2 "second") + (--remove-first (> it 3) '(1 2 3 4 5 6)) + ⇒ (1 2 3 5 6) + + -- Function: -remove-last (pred list) + Remove the last item from LIST for which PRED returns non-‘nil’. + The result is a copy of LIST regardless of whether an element is + removed. + + Alias: ‘-reject-last’. + + This function’s anaphoric counterpart is ‘--remove-last’. + + See also ‘-map-last’ (*note -map-last::), ‘-remove-item’ (*note + -remove-item::), and ‘-remove-first’ (*note -remove-first::). + + (-remove-last #'natnump '(1 3 5 4 7 8 10 -11)) + ⇒ (1 3 5 4 7 8 -11) + (-remove-last #'stringp '(1 2 "last" "second")) + ⇒ (1 2 "last") + (--remove-last (> it 3) '(1 2 3 4 5 6 7 8 9 10)) + ⇒ (1 2 3 4 5 6 7 8 9) + + -- Function: -remove-item (item list) + Return a copy of LIST with all occurrences of ITEM removed. The + comparison is done with ‘equal’. + + (-remove-item 3 '(1 2 3 2 3 4 5 3)) + ⇒ (1 2 2 4 5) + (-remove-item 'foo '(foo bar baz foo)) + ⇒ (bar baz) + (-remove-item "bob" '("alice" "bob" "eve" "bob")) + ⇒ ("alice" "eve") + + -- Function: -non-nil (list) + Return a copy of LIST with all ‘nil’ items removed. + + (-non-nil '(nil 1 nil 2 nil nil 3 4 nil 5 nil)) + ⇒ (1 2 3 4 5) + (-non-nil '((nil))) + ⇒ ((nil)) + (-non-nil ()) + ⇒ () + + -- Function: -slice (list from &optional to step) + Return copy of LIST, starting from index FROM to index TO. + + FROM or TO may be negative. These values are then interpreted + modulo the length of the list. + + If STEP is a number, only each STEPth item in the resulting section + is returned. Defaults to 1. + + (-slice '(1 2 3 4 5) 1) + ⇒ (2 3 4 5) + (-slice '(1 2 3 4 5) 0 3) + ⇒ (1 2 3) + (-slice '(1 2 3 4 5 6 7 8 9) 1 -1 2) + ⇒ (2 4 6 8) + + -- Function: -take (n list) + Return a copy of the first N items in LIST. Return a copy of LIST + if it contains N items or fewer. Return ‘nil’ if N is zero or + less. + + See also: ‘-take-last’ (*note -take-last::). + + (-take 3 '(1 2 3 4 5)) + ⇒ (1 2 3) + (-take 17 '(1 2 3 4 5)) + ⇒ (1 2 3 4 5) + (-take 0 '(1 2 3 4 5)) + ⇒ () + + -- Function: -take-last (n list) + Return a copy of the last N items of LIST in order. Return a copy + of LIST if it contains N items or fewer. Return ‘nil’ if N is zero + or less. + + See also: ‘-take’ (*note -take::). + + (-take-last 3 '(1 2 3 4 5)) + ⇒ (3 4 5) + (-take-last 17 '(1 2 3 4 5)) + ⇒ (1 2 3 4 5) + (-take-last 1 '(1 2 3 4 5)) + ⇒ (5) + + -- Function: -drop (n list) + Return the tail (not a copy) of LIST without the first N items. + Return ‘nil’ if LIST contains N items or fewer. Return LIST if N + is zero or less. + + For another variant, see also ‘-drop-last’ (*note -drop-last::). + + (-drop 3 '(1 2 3 4 5)) + ⇒ (4 5) + (-drop 17 '(1 2 3 4 5)) + ⇒ () + (-drop 0 '(1 2 3 4 5)) + ⇒ (1 2 3 4 5) + + -- Function: -drop-last (n list) + Return a copy of LIST without its last N items. Return a copy of + LIST if N is zero or less. Return ‘nil’ if LIST contains N items + or fewer. + + See also: ‘-drop’ (*note -drop::). + + (-drop-last 3 '(1 2 3 4 5)) + ⇒ (1 2) + (-drop-last 17 '(1 2 3 4 5)) + ⇒ () + (-drop-last 0 '(1 2 3 4 5)) + ⇒ (1 2 3 4 5) + + -- Function: -take-while (pred list) + Take successive items from LIST for which PRED returns non-‘nil’. + PRED is a function of one argument. Return a new list of the + successive elements from the start of LIST for which PRED returns + non-‘nil’. + + This function’s anaphoric counterpart is ‘--take-while’. + + For another variant, see also ‘-drop-while’ (*note -drop-while::). + + (-take-while #'even? '(1 2 3 4)) + ⇒ () + (-take-while #'even? '(2 4 5 6)) + ⇒ (2 4) + (--take-while (< it 4) '(1 2 3 4 3 2 1)) + ⇒ (1 2 3) + + -- Function: -drop-while (pred list) + Drop successive items from LIST for which PRED returns non-‘nil’. + PRED is a function of one argument. Return the tail (not a copy) + of LIST starting from its first element for which PRED returns + ‘nil’. + + This function’s anaphoric counterpart is ‘--drop-while’. + + For another variant, see also ‘-take-while’ (*note -take-while::). + + (-drop-while #'even? '(1 2 3 4)) + ⇒ (1 2 3 4) + (-drop-while #'even? '(2 4 5 6)) + ⇒ (5 6) + (--drop-while (< it 4) '(1 2 3 4 3 2 1)) + ⇒ (4 3 2 1) + + -- Function: -select-by-indices (indices list) + Return a list whose elements are elements from LIST selected as + ‘(nth i list)‘ for all i from INDICES. + + (-select-by-indices '(4 10 2 3 6) '("v" "e" "l" "o" "c" "i" "r" "a" "p" "t" "o" "r")) + ⇒ ("c" "o" "l" "o" "r") + (-select-by-indices '(2 1 0) '("a" "b" "c")) + ⇒ ("c" "b" "a") + (-select-by-indices '(0 1 2 0 1 3 3 1) '("f" "a" "r" "l")) + ⇒ ("f" "a" "r" "f" "a" "l" "l" "a") + + -- Function: -select-columns (columns table) + Select COLUMNS from TABLE. + + TABLE is a list of lists where each element represents one row. It + is assumed each row has the same length. + + Each row is transformed such that only the specified COLUMNS are + selected. + + See also: ‘-select-column’ (*note -select-column::), + ‘-select-by-indices’ (*note -select-by-indices::) + + (-select-columns '(0 2) '((1 2 3) (a b c) (:a :b :c))) + ⇒ ((1 3) (a c) (:a :c)) + (-select-columns '(1) '((1 2 3) (a b c) (:a :b :c))) + ⇒ ((2) (b) (:b)) + (-select-columns nil '((1 2 3) (a b c) (:a :b :c))) + ⇒ (nil nil nil) + + -- Function: -select-column (column table) + Select COLUMN from TABLE. + + TABLE is a list of lists where each element represents one row. It + is assumed each row has the same length. + + The single selected column is returned as a list. + + See also: ‘-select-columns’ (*note -select-columns::), + ‘-select-by-indices’ (*note -select-by-indices::) + + (-select-column 1 '((1 2 3) (a b c) (:a :b :c))) + ⇒ (2 b :b) + + +File: dash.info, Node: List to list, Next: Reductions, Prev: Sublist selection, Up: Functions + +2.3 List to list +================ + +Functions returning a modified copy of the input list. + + -- Function: -keep (fn list) + Return a new list of the non-‘nil’ results of applying FN to each + item in LIST. Like ‘-filter’ (*note -filter::), but returns the + non-‘nil’ results of FN instead of the corresponding elements of + LIST. + + Its anaphoric counterpart is ‘--keep’. + + (-keep #'cdr '((1 2 3) (4 5) (6))) + ⇒ ((2 3) (5)) + (-keep (lambda (n) (and (> n 3) (* 10 n))) '(1 2 3 4 5 6)) + ⇒ (40 50 60) + (--keep (and (> it 3) (* 10 it)) '(1 2 3 4 5 6)) + ⇒ (40 50 60) + + -- Function: -concat (&rest sequences) + Concatenate all SEQUENCES and make the result a list. The result + is a list whose elements are the elements of all the arguments. + Each argument may be a list, vector or string. + + All arguments except the last argument are copied. The last + argument is just used as the tail of the new list. If the last + argument is not a list, this results in a dotted list. + + As an exception, if all the arguments except the last are ‘nil’, + and the last argument is not a list, the return value is that last + argument unaltered, not a list. + + (-concat '(1)) + ⇒ (1) + (-concat '(1) '(2)) + ⇒ (1 2) + (-concat '(1) '(2 3) '(4)) + ⇒ (1 2 3 4) + + -- Function: -flatten (l) + Take a nested list L and return its contents as a single, flat + list. + + Note that because ‘nil’ represents a list of zero elements (an + empty list), any mention of ‘nil’ in L will disappear after + flattening. If you need to preserve nils, consider ‘-flatten-n’ + (*note -flatten-n::) or map them to some unique symbol and then map + them back. + + Conses of two atoms are considered "terminals", that is, they + aren’t flattened further. + + See also: ‘-flatten-n’ (*note -flatten-n::) + + (-flatten '((1))) + ⇒ (1) + (-flatten '((1 (2 3) (((4 (5))))))) + ⇒ (1 2 3 4 5) + (-flatten '(1 2 (3 . 4))) + ⇒ (1 2 (3 . 4)) + + -- Function: -flatten-n (num list) + Flatten NUM levels of a nested LIST. + + See also: ‘-flatten’ (*note -flatten::) + + (-flatten-n 1 '((1 2) ((3 4) ((5 6))))) + ⇒ (1 2 (3 4) ((5 6))) + (-flatten-n 2 '((1 2) ((3 4) ((5 6))))) + ⇒ (1 2 3 4 (5 6)) + (-flatten-n 3 '((1 2) ((3 4) ((5 6))))) + ⇒ (1 2 3 4 5 6) + + -- Function: -replace (old new list) + Replace all OLD items in LIST with NEW. + + Elements are compared using ‘equal’. + + See also: ‘-replace-at’ (*note -replace-at::) + + (-replace 1 "1" '(1 2 3 4 3 2 1)) + ⇒ ("1" 2 3 4 3 2 "1") + (-replace "foo" "bar" '("a" "nice" "foo" "sentence" "about" "foo")) + ⇒ ("a" "nice" "bar" "sentence" "about" "bar") + (-replace 1 2 nil) + ⇒ nil + + -- Function: -replace-first (old new list) + Replace the first occurrence of OLD with NEW in LIST. + + Elements are compared using ‘equal’. + + See also: ‘-map-first’ (*note -map-first::) + + (-replace-first 1 "1" '(1 2 3 4 3 2 1)) + ⇒ ("1" 2 3 4 3 2 1) + (-replace-first "foo" "bar" '("a" "nice" "foo" "sentence" "about" "foo")) + ⇒ ("a" "nice" "bar" "sentence" "about" "foo") + (-replace-first 1 2 nil) + ⇒ nil + + -- Function: -replace-last (old new list) + Replace the last occurrence of OLD with NEW in LIST. + + Elements are compared using ‘equal’. + + See also: ‘-map-last’ (*note -map-last::) + + (-replace-last 1 "1" '(1 2 3 4 3 2 1)) + ⇒ (1 2 3 4 3 2 "1") + (-replace-last "foo" "bar" '("a" "nice" "foo" "sentence" "about" "foo")) + ⇒ ("a" "nice" "foo" "sentence" "about" "bar") + (-replace-last 1 2 nil) + ⇒ nil + + -- Function: -insert-at (n x list) + Return a list with X inserted into LIST at position N. + + See also: ‘-splice’ (*note -splice::), ‘-splice-list’ (*note + -splice-list::) + + (-insert-at 1 'x '(a b c)) + ⇒ (a x b c) + (-insert-at 12 'x '(a b c)) + ⇒ (a b c x) + + -- Function: -replace-at (n x list) + Return a list with element at Nth position in LIST replaced with X. + + See also: ‘-replace’ (*note -replace::) + + (-replace-at 0 9 '(0 1 2 3 4 5)) + ⇒ (9 1 2 3 4 5) + (-replace-at 1 9 '(0 1 2 3 4 5)) + ⇒ (0 9 2 3 4 5) + (-replace-at 4 9 '(0 1 2 3 4 5)) + ⇒ (0 1 2 3 9 5) + + -- Function: -update-at (n func list) + Use FUNC to update the Nth element of LIST. Return a copy of LIST + where the Nth element is replaced with the result of calling FUNC + on it. + + See also: ‘-map-when’ (*note -map-when::) + + (-update-at 0 (lambda (x) (+ x 9)) '(0 1 2 3 4 5)) + ⇒ (9 1 2 3 4 5) + (-update-at 1 (lambda (x) (+ x 8)) '(0 1 2 3 4 5)) + ⇒ (0 9 2 3 4 5) + (--update-at 2 (length it) '("foo" "bar" "baz" "quux")) + ⇒ ("foo" "bar" 3 "quux") + + -- Function: -remove-at (n list) + Return LIST with its element at index N removed. That is, remove + any element selected as (nth N LIST) from LIST and return the + result. + + This is a non-destructive operation: parts of LIST (but not + necessarily all of it) are copied as needed to avoid destructively + modifying it. + + See also: ‘-remove-at-indices’ (*note -remove-at-indices::), + ‘-remove’ (*note -remove::). + + (-remove-at 0 '(a b c)) + ⇒ (b c) + (-remove-at 1 '(a b c)) + ⇒ (a c) + (-remove-at 2 '(a b c)) + ⇒ (a b) + + -- Function: -remove-at-indices (indices list) + Return LIST with its elements at INDICES removed. That is, for + each index I in INDICES, remove any element selected as (nth I + LIST) from LIST. + + This is a non-destructive operation: parts of LIST (but not + necessarily all of it) are copied as needed to avoid destructively + modifying it. + + See also: ‘-remove-at’ (*note -remove-at::), ‘-remove’ (*note + -remove::). + + (-remove-at-indices '(0) '(a b c d e)) + ⇒ (b c d e) + (-remove-at-indices '(1 3) '(a b c d e)) + ⇒ (a c e) + (-remove-at-indices '(4 0 2) '(a b c d e)) + ⇒ (b d) + + +File: dash.info, Node: Reductions, Next: Unfolding, Prev: List to list, Up: Functions + +2.4 Reductions +============== + +Functions reducing lists to a single value (which may also be a list). + + -- Function: -reduce-from (fn init list) + Reduce the function FN across LIST, starting with INIT. Return the + result of applying FN to INIT and the first element of LIST, then + applying FN to that result and the second element, etc. If LIST is + empty, return INIT without calling FN. + + This function’s anaphoric counterpart is ‘--reduce-from’. + + For other folds, see also ‘-reduce’ (*note -reduce::) and + ‘-reduce-r’ (*note -reduce-r::). + + (-reduce-from #'- 10 '(1 2 3)) + ⇒ 4 + (-reduce-from #'list 10 '(1 2 3)) + ⇒ (((10 1) 2) 3) + (--reduce-from (concat acc " " it) "START" '("a" "b" "c")) + ⇒ "START a b c" + + -- Function: -reduce-r-from (fn init list) + Reduce the function FN across LIST in reverse, starting with INIT. + Return the result of applying FN to the last element of LIST and + INIT, then applying FN to the second-to-last element and the + previous result of FN, etc. That is, the first argument of FN is + the current element, and its second argument the accumulated value. + If LIST is empty, return INIT without calling FN. + + This function is like ‘-reduce-from’ (*note -reduce-from::) but the + operation associates from the right rather than left. In other + words, it starts from the end of LIST and flips the arguments to + FN. Conceptually, it is like replacing the conses in LIST with + applications of FN, and its last link with INIT, and evaluating the + resulting expression. + + This function’s anaphoric counterpart is ‘--reduce-r-from’. + + For other folds, see also ‘-reduce-r’ (*note -reduce-r::) and + ‘-reduce’ (*note -reduce::). + + (-reduce-r-from #'- 10 '(1 2 3)) + ⇒ -8 + (-reduce-r-from #'list 10 '(1 2 3)) + ⇒ (1 (2 (3 10))) + (--reduce-r-from (concat it " " acc) "END" '("a" "b" "c")) + ⇒ "a b c END" + + -- Function: -reduce (fn list) + Reduce the function FN across LIST. Return the result of applying + FN to the first two elements of LIST, then applying FN to that + result and the third element, etc. If LIST contains a single + element, return it without calling FN. If LIST is empty, return + the result of calling FN with no arguments. + + This function’s anaphoric counterpart is ‘--reduce’. + + For other folds, see also ‘-reduce-from’ (*note -reduce-from::) and + ‘-reduce-r’ (*note -reduce-r::). + + (-reduce #'- '(1 2 3 4)) + ⇒ -8 + (-reduce #'list '(1 2 3 4)) + ⇒ (((1 2) 3) 4) + (--reduce (format "%s-%d" acc it) '(1 2 3)) + ⇒ "1-2-3" + + -- Function: -reduce-r (fn list) + Reduce the function FN across LIST in reverse. Return the result + of applying FN to the last two elements of LIST, then applying FN + to the third-to-last element and the previous result of FN, etc. + That is, the first argument of FN is the current element, and its + second argument the accumulated value. If LIST contains a single + element, return it without calling FN. If LIST is empty, return + the result of calling FN with no arguments. + + This function is like ‘-reduce’ (*note -reduce::) but the operation + associates from the right rather than left. In other words, it + starts from the end of LIST and flips the arguments to FN. + Conceptually, it is like replacing the conses in LIST with + applications of FN, ignoring its last link, and evaluating the + resulting expression. + + This function’s anaphoric counterpart is ‘--reduce-r’. + + For other folds, see also ‘-reduce-r-from’ (*note -reduce-r-from::) + and ‘-reduce’ (*note -reduce::). + + (-reduce-r #'- '(1 2 3 4)) + ⇒ -2 + (-reduce-r #'list '(1 2 3 4)) + ⇒ (1 (2 (3 4))) + (--reduce-r (format "%s-%d" acc it) '(1 2 3)) + ⇒ "3-2-1" + + -- Function: -reductions-from (fn init list) + Return a list of FN’s intermediate reductions across LIST. That + is, a list of the intermediate values of the accumulator when + ‘-reduce-from’ (*note -reduce-from::) (which see) is called with + the same arguments. + + This function’s anaphoric counterpart is ‘--reductions-from’. + + For other folds, see also ‘-reductions’ (*note -reductions::) and + ‘-reductions-r’ (*note -reductions-r::). + + (-reductions-from #'max 0 '(2 1 4 3)) + ⇒ (0 2 2 4 4) + (-reductions-from #'* 1 '(1 2 3 4)) + ⇒ (1 1 2 6 24) + (--reductions-from (format "(FN %s %d)" acc it) "INIT" '(1 2 3)) + ⇒ ("INIT" "(FN INIT 1)" "(FN (FN INIT 1) 2)" "(FN (FN (FN INIT 1) 2) 3)") + + -- Function: -reductions-r-from (fn init list) + Return a list of FN’s intermediate reductions across reversed LIST. + That is, a list of the intermediate values of the accumulator when + ‘-reduce-r-from’ (*note -reduce-r-from::) (which see) is called + with the same arguments. + + This function’s anaphoric counterpart is ‘--reductions-r-from’. + + For other folds, see also ‘-reductions’ (*note -reductions::) and + ‘-reductions-r’ (*note -reductions-r::). + + (-reductions-r-from #'max 0 '(2 1 4 3)) + ⇒ (4 4 4 3 0) + (-reductions-r-from #'* 1 '(1 2 3 4)) + ⇒ (24 24 12 4 1) + (--reductions-r-from (format "(FN %d %s)" it acc) "INIT" '(1 2 3)) + ⇒ ("(FN 1 (FN 2 (FN 3 INIT)))" "(FN 2 (FN 3 INIT))" "(FN 3 INIT)" "INIT") + + -- Function: -reductions (fn list) + Return a list of FN’s intermediate reductions across LIST. That + is, a list of the intermediate values of the accumulator when + ‘-reduce’ (*note -reduce::) (which see) is called with the same + arguments. + + This function’s anaphoric counterpart is ‘--reductions’. + + For other folds, see also ‘-reductions’ (*note -reductions::) and + ‘-reductions-r’ (*note -reductions-r::). + + (-reductions #'+ '(1 2 3 4)) + ⇒ (1 3 6 10) + (-reductions #'* '(1 2 3 4)) + ⇒ (1 2 6 24) + (--reductions (format "(FN %s %d)" acc it) '(1 2 3)) + ⇒ (1 "(FN 1 2)" "(FN (FN 1 2) 3)") + + -- Function: -reductions-r (fn list) + Return a list of FN’s intermediate reductions across reversed LIST. + That is, a list of the intermediate values of the accumulator when + ‘-reduce-r’ (*note -reduce-r::) (which see) is called with the same + arguments. + + This function’s anaphoric counterpart is ‘--reductions-r’. + + For other folds, see also ‘-reductions-r-from’ (*note + -reductions-r-from::) and ‘-reductions’ (*note -reductions::). + + (-reductions-r #'+ '(1 2 3 4)) + ⇒ (10 9 7 4) + (-reductions-r #'* '(1 2 3 4)) + ⇒ (24 24 12 4) + (--reductions-r (format "(FN %d %s)" it acc) '(1 2 3)) + ⇒ ("(FN 1 (FN 2 3))" "(FN 2 3)" 3) + + -- Function: -count (pred list) + Counts the number of items in LIST where (PRED item) is non-‘nil’. + + (-count 'even? '(1 2 3 4 5)) + ⇒ 2 + (--count (< it 4) '(1 2 3 4)) + ⇒ 3 + + -- Function: -sum (list) + Return the sum of LIST. + + (-sum ()) + ⇒ 0 + (-sum '(1)) + ⇒ 1 + (-sum '(1 2 3 4)) + ⇒ 10 + + -- Function: -running-sum (list) + Return a list with running sums of items in LIST. LIST must be + non-empty. + + (-running-sum '(1 2 3 4)) + ⇒ (1 3 6 10) + (-running-sum '(1)) + ⇒ (1) + (-running-sum ()) + error→ Wrong type argument: consp, nil + + -- Function: -product (list) + Return the product of LIST. + + (-product ()) + ⇒ 1 + (-product '(1)) + ⇒ 1 + (-product '(1 2 3 4)) + ⇒ 24 + + -- Function: -running-product (list) + Return a list with running products of items in LIST. LIST must be + non-empty. + + (-running-product '(1 2 3 4)) + ⇒ (1 2 6 24) + (-running-product '(1)) + ⇒ (1) + (-running-product ()) + error→ Wrong type argument: consp, nil + + -- Function: -inits (list) + Return all prefixes of LIST. + + (-inits '(1 2 3 4)) + ⇒ (nil (1) (1 2) (1 2 3) (1 2 3 4)) + (-inits nil) + ⇒ (nil) + (-inits '(1)) + ⇒ (nil (1)) + + -- Function: -tails (list) + Return all suffixes of LIST. + + (-tails '(1 2 3 4)) + ⇒ ((1 2 3 4) (2 3 4) (3 4) (4) nil) + (-tails nil) + ⇒ (nil) + (-tails '(1)) + ⇒ ((1) nil) + + -- Function: -common-prefix (&rest lists) + Return the longest common prefix of LISTS. + + (-common-prefix '(1)) + ⇒ (1) + (-common-prefix '(1 2) '(3 4) '(1 2)) + ⇒ () + (-common-prefix '(1 2) '(1 2 3) '(1 2 3 4)) + ⇒ (1 2) + + -- Function: -common-suffix (&rest lists) + Return the longest common suffix of LISTS. + + (-common-suffix '(1)) + ⇒ (1) + (-common-suffix '(1 2) '(3 4) '(1 2)) + ⇒ () + (-common-suffix '(1 2 3 4) '(2 3 4) '(3 4)) + ⇒ (3 4) + + -- Function: -min (list) + Return the smallest value from LIST of numbers or markers. + + (-min '(0)) + ⇒ 0 + (-min '(3 2 1)) + ⇒ 1 + (-min '(1 2 3)) + ⇒ 1 + + -- Function: -min-by (comparator list) + Take a comparison function COMPARATOR and a LIST and return the + least element of the list by the comparison function. + + See also combinator ‘-on’ (*note -on::) which can transform the + values before comparing them. + + (-min-by '> '(4 3 6 1)) + ⇒ 1 + (--min-by (> (car it) (car other)) '((1 2 3) (2) (3 2))) + ⇒ (1 2 3) + (--min-by (> (length it) (length other)) '((1 2 3) (2) (3 2))) + ⇒ (2) + + -- Function: -max (list) + Return the largest value from LIST of numbers or markers. + + (-max '(0)) + ⇒ 0 + (-max '(3 2 1)) + ⇒ 3 + (-max '(1 2 3)) + ⇒ 3 + + -- Function: -max-by (comparator list) + Take a comparison function COMPARATOR and a LIST and return the + greatest element of the list by the comparison function. + + See also combinator ‘-on’ (*note -on::) which can transform the + values before comparing them. + + (-max-by '> '(4 3 6 1)) + ⇒ 6 + (--max-by (> (car it) (car other)) '((1 2 3) (2) (3 2))) + ⇒ (3 2) + (--max-by (> (length it) (length other)) '((1 2 3) (2) (3 2))) + ⇒ (1 2 3) + + -- Function: -frequencies (list) + Count the occurrences of each distinct element of LIST. + + Return an alist of (ELEMENT . N), where each ELEMENT occurs N + times in LIST. + + The test for equality is done with ‘equal’, or with ‘-compare-fn’ + if that is non-‘nil’. + + See also ‘-count’ (*note -count::) and ‘-group-by’ (*note + -group-by::). + + (-frequencies ()) + ⇒ () + (-frequencies '(1 2 3 1 2 1)) + ⇒ ((1 . 3) (2 . 2) (3 . 1)) + (let ((-compare-fn #'string=)) (-frequencies '(a "a"))) + ⇒ ((a . 2)) + + +File: dash.info, Node: Unfolding, Next: Predicates, Prev: Reductions, Up: Functions + +2.5 Unfolding +============= + +Operations dual to reductions, building lists from a seed value rather +than consuming a list to produce a single value. + + -- Function: -iterate (fun init n) + Return a list of iterated applications of FUN to INIT. + + This means a list of the form: + + (INIT (FUN INIT) (FUN (FUN INIT)) ...) + + N is the length of the returned list. + + (-iterate #'1+ 1 10) + ⇒ (1 2 3 4 5 6 7 8 9 10) + (-iterate (lambda (x) (+ x x)) 2 5) + ⇒ (2 4 8 16 32) + (--iterate (* it it) 2 5) + ⇒ (2 4 16 256 65536) + + -- Function: -unfold (fun seed) + Build a list from SEED using FUN. + + This is "dual" operation to ‘-reduce-r’ (*note -reduce-r::): while + -reduce-r consumes a list to produce a single value, ‘-unfold’ + (*note -unfold::) takes a seed value and builds a (potentially + infinite!) list. + + FUN should return ‘nil’ to stop the generating process, or a cons + (A . B), where A will be prepended to the result and B is the new + seed. + + (-unfold (lambda (x) (unless (= x 0) (cons x (1- x)))) 10) + ⇒ (10 9 8 7 6 5 4 3 2 1) + (--unfold (when it (cons it (cdr it))) '(1 2 3 4)) + ⇒ ((1 2 3 4) (2 3 4) (3 4) (4)) + (--unfold (when it (cons it (butlast it))) '(1 2 3 4)) + ⇒ ((1 2 3 4) (1 2 3) (1 2) (1)) + + -- Function: -repeat (n x) + Return a new list of length N with each element being X. Return + ‘nil’ if N is less than 1. + + (-repeat 3 :a) + ⇒ (:a :a :a) + (-repeat 1 :a) + ⇒ (:a) + (-repeat 0 :a) + ⇒ () + + -- Function: -cycle (list) + Return an infinite circular copy of LIST. The returned list cycles + through the elements of LIST and repeats from the beginning. + + (-take 5 (-cycle '(1 2 3))) + ⇒ (1 2 3 1 2) + (-take 7 (-cycle '(1 "and" 3))) + ⇒ (1 "and" 3 1 "and" 3 1) + (-zip-lists (-cycle '(3)) '(1 2)) + ⇒ ((3 1) (3 2)) + + +File: dash.info, Node: Predicates, Next: Partitioning, Prev: Unfolding, Up: Functions + +2.6 Predicates +============== + +Reductions of one or more lists to a boolean value. + + -- Function: -some (pred list) + Return (PRED x) for the first LIST item where (PRED x) is + non-‘nil’, else ‘nil’. + + Alias: ‘-any’. + + This function’s anaphoric counterpart is ‘--some’. + + (-some #'stringp '(1 "2" 3)) + ⇒ t + (--some (string-match-p "x" it) '("foo" "axe" "xor")) + ⇒ 1 + (--some (= it-index 3) '(0 1 2)) + ⇒ nil + + -- Function: -every (pred list) + Return non-‘nil’ if PRED returns non-‘nil’ for all items in LIST. + If so, return the last such result of PRED. Otherwise, once an + item is reached for which PRED returns ‘nil’, return ‘nil’ without + calling PRED on any further LIST elements. + + This function is like ‘-every-p’, but on success returns the last + non-‘nil’ result of PRED instead of just ‘t’. + + This function’s anaphoric counterpart is ‘--every’. + + (-every #'numberp '(1 2 3)) + ⇒ t + (--every (string-match-p "x" it) '("axe" "xor")) + ⇒ 0 + (--every (= it it-index) '(0 1 3)) + ⇒ nil + + -- Function: -any? (pred list) + Return ‘t’ if (PRED X) is non-‘nil’ for any X in LIST, else ‘nil’. + + Alias: ‘-any-p’, ‘-some?’, ‘-some-p’ + + (-any? #'numberp '(nil 0 t)) + ⇒ t + (-any? #'numberp '(nil t t)) + ⇒ nil + (-any? #'null '(1 3 5)) + ⇒ nil + + -- Function: -all? (pred list) + Return ‘t’ if (PRED X) is non-‘nil’ for all X in LIST, else ‘nil’. + In the latter case, stop after the first X for which (PRED X) is + ‘nil’, without calling PRED on any subsequent elements of LIST. + + The similar function ‘-every’ (*note -every::) is more widely + useful, since it returns the last non-‘nil’ result of PRED instead + of just ‘t’ on success. + + Alias: ‘-all-p’, ‘-every-p’, ‘-every?’. + + This function’s anaphoric counterpart is ‘--all?’. + + (-all? #'numberp '(1 2 3)) + ⇒ t + (-all? #'numberp '(2 t 6)) + ⇒ nil + (--all? (= 0 (% it 2)) '(2 4 6)) + ⇒ t + + -- Function: -none? (pred list) + Return ‘t’ if (PRED X) is ‘nil’ for all X in LIST, else ‘nil’. + + Alias: ‘-none-p’ + + (-none? 'even? '(1 2 3)) + ⇒ nil + (-none? 'even? '(1 3 5)) + ⇒ t + (--none? (= 0 (% it 2)) '(1 2 3)) + ⇒ nil + + -- Function: -only-some? (pred list) + Return ‘t’ if different LIST items both satisfy and do not satisfy + PRED. That is, if PRED returns both ‘nil’ for at least one item, + and non-‘nil’ for at least one other item in LIST. Return ‘nil’ if + all items satisfy the predicate or none of them do. + + Alias: ‘-only-some-p’ + + (-only-some? 'even? '(1 2 3)) + ⇒ t + (-only-some? 'even? '(1 3 5)) + ⇒ nil + (-only-some? 'even? '(2 4 6)) + ⇒ nil + + -- Function: -contains? (list element) + Return non-‘nil’ if LIST contains ELEMENT. + + The test for equality is done with ‘equal’, or with ‘-compare-fn’ + if that is non-‘nil’. As with ‘member’, the return value is + actually the tail of LIST whose car is ELEMENT. + + Alias: ‘-contains-p’. + + (-contains? '(1 2 3) 1) + ⇒ (1 2 3) + (-contains? '(1 2 3) 2) + ⇒ (2 3) + (-contains? '(1 2 3) 4) + ⇒ () + + -- Function: -is-prefix? (prefix list) + Return non-‘nil’ if PREFIX is a prefix of LIST. + + Alias: ‘-is-prefix-p’. + + (-is-prefix? '(1 2 3) '(1 2 3 4 5)) + ⇒ t + (-is-prefix? '(1 2 3 4 5) '(1 2 3)) + ⇒ nil + (-is-prefix? '(1 3) '(1 2 3 4 5)) + ⇒ nil + + -- Function: -is-suffix? (suffix list) + Return non-‘nil’ if SUFFIX is a suffix of LIST. + + Alias: ‘-is-suffix-p’. + + (-is-suffix? '(3 4 5) '(1 2 3 4 5)) + ⇒ t + (-is-suffix? '(1 2 3 4 5) '(3 4 5)) + ⇒ nil + (-is-suffix? '(3 5) '(1 2 3 4 5)) + ⇒ nil + + -- Function: -is-infix? (infix list) + Return non-‘nil’ if INFIX is infix of LIST. + + This operation runs in O(n^2) time + + Alias: ‘-is-infix-p’ + + (-is-infix? '(1 2 3) '(1 2 3 4 5)) + ⇒ t + (-is-infix? '(2 3 4) '(1 2 3 4 5)) + ⇒ t + (-is-infix? '(3 4 5) '(1 2 3 4 5)) + ⇒ t + + -- Function: -cons-pair? (obj) + Return non-‘nil’ if OBJ is a true cons pair. That is, a cons (A . + B) where B is not a list. + + Alias: ‘-cons-pair-p’. + + (-cons-pair? '(1 . 2)) + ⇒ t + (-cons-pair? '(1 2)) + ⇒ nil + (-cons-pair? '(1)) + ⇒ nil + + +File: dash.info, Node: Partitioning, Next: Indexing, Prev: Predicates, Up: Functions + +2.7 Partitioning +================ + +Functions partitioning the input list into a list of lists. + + -- Function: -split-at (n list) + Split LIST into two sublists after the Nth element. The result is + a list of two elements (TAKE DROP) where TAKE is a new list of the + first N elements of LIST, and DROP is the remaining elements of + LIST (not a copy). TAKE and DROP are like the results of ‘-take’ + (*note -take::) and ‘-drop’ (*note -drop::), respectively, but the + split is done in a single list traversal. + + (-split-at 3 '(1 2 3 4 5)) + ⇒ ((1 2 3) (4 5)) + (-split-at 17 '(1 2 3 4 5)) + ⇒ ((1 2 3 4 5) nil) + (-split-at 0 '(1 2 3 4 5)) + ⇒ (nil (1 2 3 4 5)) + + -- Function: -split-with (pred list) + Split LIST into a prefix satisfying PRED, and the rest. The first + sublist is the prefix of LIST with successive elements satisfying + PRED, and the second sublist is the remaining elements that do not. + The result is like performing + + ((-take-while PRED LIST) (-drop-while PRED LIST)) + + but in no more than a single pass through LIST. + + (-split-with 'even? '(1 2 3 4)) + ⇒ (nil (1 2 3 4)) + (-split-with 'even? '(2 4 5 6)) + ⇒ ((2 4) (5 6)) + (--split-with (< it 4) '(1 2 3 4 3 2 1)) + ⇒ ((1 2 3) (4 3 2 1)) + + -- Macro: -split-on (item list) + Split the LIST each time ITEM is found. + + Unlike ‘-partition-by’ (*note -partition-by::), the ITEM is + discarded from the results. Empty lists are also removed from the + result. + + Comparison is done by ‘equal’. + + See also ‘-split-when’ (*note -split-when::) + + (-split-on '| '(Nil | Leaf a | Node [Tree a])) + ⇒ ((Nil) (Leaf a) (Node [Tree a])) + (-split-on :endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) + ⇒ (("a" "b") ("c") ("d" "e")) + (-split-on :endgroup '("a" "b" :endgroup :endgroup "d" "e")) + ⇒ (("a" "b") ("d" "e")) + + -- Function: -split-when (fn list) + Split the LIST on each element where FN returns non-‘nil’. + + Unlike ‘-partition-by’ (*note -partition-by::), the "matched" + element is discarded from the results. Empty lists are also + removed from the result. + + This function can be thought of as a generalization of + ‘split-string’. + + (-split-when 'even? '(1 2 3 4 5 6)) + ⇒ ((1) (3) (5)) + (-split-when 'even? '(1 2 3 4 6 8 9)) + ⇒ ((1) (3) (9)) + (--split-when (memq it '(&optional &rest)) '(a b &optional c d &rest args)) + ⇒ ((a b) (c d) (args)) + + -- Function: -separate (pred list) + Split LIST into two sublists based on whether items satisfy PRED. + The result is like performing + + ((-filter PRED LIST) (-remove PRED LIST)) + + but in a single pass through LIST. + + (-separate (lambda (num) (= 0 (% num 2))) '(1 2 3 4 5 6 7)) + ⇒ ((2 4 6) (1 3 5 7)) + (--separate (< it 5) '(3 7 5 9 3 2 1 4 6)) + ⇒ ((3 3 2 1 4) (7 5 9 6)) + (-separate 'cdr '((1 2) (1) (1 2 3) (4))) + ⇒ (((1 2) (1 2 3)) ((1) (4))) + + -- Function: -partition (n list) + Return a new list with the items in LIST grouped into N-sized + sublists. If there are not enough items to make the last group + N-sized, those items are discarded. + + (-partition 2 '(1 2 3 4 5 6)) + ⇒ ((1 2) (3 4) (5 6)) + (-partition 2 '(1 2 3 4 5 6 7)) + ⇒ ((1 2) (3 4) (5 6)) + (-partition 3 '(1 2 3 4 5 6 7)) + ⇒ ((1 2 3) (4 5 6)) + + -- Function: -partition-all (n list) + Return a new list with the items in LIST grouped into N-sized + sublists. The last group may contain less than N items. + + (-partition-all 2 '(1 2 3 4 5 6)) + ⇒ ((1 2) (3 4) (5 6)) + (-partition-all 2 '(1 2 3 4 5 6 7)) + ⇒ ((1 2) (3 4) (5 6) (7)) + (-partition-all 3 '(1 2 3 4 5 6 7)) + ⇒ ((1 2 3) (4 5 6) (7)) + + -- Function: -partition-in-steps (n step list) + Partition LIST into sublists of length N that are STEP items apart. + Like ‘-partition-all-in-steps’ (*note -partition-all-in-steps::), + but if there are not enough items to make the last group N-sized, + those items are discarded. + + (-partition-in-steps 2 1 '(1 2 3 4)) + ⇒ ((1 2) (2 3) (3 4)) + (-partition-in-steps 3 2 '(1 2 3 4)) + ⇒ ((1 2 3)) + (-partition-in-steps 3 2 '(1 2 3 4 5)) + ⇒ ((1 2 3) (3 4 5)) + + -- Function: -partition-all-in-steps (n step list) + Partition LIST into sublists of length N that are STEP items apart. + Adjacent groups may overlap if N exceeds the STEP stride. Trailing + groups may contain less than N items. + + (-partition-all-in-steps 2 1 '(1 2 3 4)) + ⇒ ((1 2) (2 3) (3 4) (4)) + (-partition-all-in-steps 3 2 '(1 2 3 4)) + ⇒ ((1 2 3) (3 4)) + (-partition-all-in-steps 3 2 '(1 2 3 4 5)) + ⇒ ((1 2 3) (3 4 5) (5)) + + -- Function: -partition-by (fn list) + Apply FN to each item in LIST, splitting it each time FN returns a + new value. + + (-partition-by 'even? ()) + ⇒ () + (-partition-by 'even? '(1 1 2 2 2 3 4 6 8)) + ⇒ ((1 1) (2 2 2) (3) (4 6 8)) + (--partition-by (< it 3) '(1 2 3 4 3 2 1)) + ⇒ ((1 2) (3 4 3) (2 1)) + + -- Function: -partition-by-header (fn list) + Apply FN to the first item in LIST. That is the header value. + Apply FN to each item in LIST, splitting it each time FN returns + the header value, but only after seeing at least one other value + (the body). + + (--partition-by-header (= it 1) '(1 2 3 1 2 1 2 3 4)) + ⇒ ((1 2 3) (1 2) (1 2 3 4)) + (--partition-by-header (> it 0) '(1 2 0 1 0 1 2 3 0)) + ⇒ ((1 2 0) (1 0) (1 2 3 0)) + (-partition-by-header 'even? '(2 1 1 1 4 1 3 5 6 6 1)) + ⇒ ((2 1 1 1) (4 1 3 5) (6 6 1)) + + -- Function: -partition-after-pred (pred list) + Partition LIST after each element for which PRED returns non-‘nil’. + + This function’s anaphoric counterpart is ‘--partition-after-pred’. + + (-partition-after-pred #'booleanp ()) + ⇒ () + (-partition-after-pred #'booleanp '(t t)) + ⇒ ((t) (t)) + (-partition-after-pred #'booleanp '(0 0 t t 0 t)) + ⇒ ((0 0 t) (t) (0 t)) + + -- Function: -partition-before-pred (pred list) + Partition directly before each time PRED is true on an element of + LIST. + + (-partition-before-pred #'booleanp ()) + ⇒ () + (-partition-before-pred #'booleanp '(0 t)) + ⇒ ((0) (t)) + (-partition-before-pred #'booleanp '(0 0 t 0 t t)) + ⇒ ((0 0) (t 0) (t) (t)) + + -- Function: -partition-before-item (item list) + Partition directly before each time ITEM appears in LIST. + + (-partition-before-item 3 ()) + ⇒ () + (-partition-before-item 3 '(1)) + ⇒ ((1)) + (-partition-before-item 3 '(3)) + ⇒ ((3)) + + -- Function: -partition-after-item (item list) + Partition directly after each time ITEM appears in LIST. + + (-partition-after-item 3 ()) + ⇒ () + (-partition-after-item 3 '(1)) + ⇒ ((1)) + (-partition-after-item 3 '(3)) + ⇒ ((3)) + + -- Function: -group-by (fn list) + Separate LIST into an alist whose keys are FN applied to the + elements of LIST. Keys are compared by ‘equal’. + + (-group-by 'even? ()) + ⇒ () + (-group-by 'even? '(1 1 2 2 2 3 4 6 8)) + ⇒ ((nil 1 1 3) (t 2 2 2 4 6 8)) + (--group-by (car (split-string it "/")) '("a/b" "c/d" "a/e")) + ⇒ (("a" "a/b" "a/e") ("c" "c/d")) + + +File: dash.info, Node: Indexing, Next: Set operations, Prev: Partitioning, Up: Functions + +2.8 Indexing +============ + +Functions retrieving or sorting based on list indices and related +predicates. + + -- Function: -elem-index (elem list) + Return the first index of ELEM in LIST. That is, the index within + LIST of the first element that is ‘equal’ to ELEM. Return ‘nil’ if + there is no such element. + + See also: ‘-find-index’ (*note -find-index::). + + (-elem-index 2 '(6 7 8 3 4)) + ⇒ nil + (-elem-index "bar" '("foo" "bar" "baz")) + ⇒ 1 + (-elem-index '(1 2) '((3) (5 6) (1 2) nil)) + ⇒ 2 + + -- Function: -elem-indices (elem list) + Return the list of indices at which ELEM appears in LIST. That is, + the indices of all elements of LIST ‘equal’ to ELEM, in the same + ascending order as they appear in LIST. + + (-elem-indices 2 '(6 7 8 3 4 1)) + ⇒ () + (-elem-indices "bar" '("foo" "bar" "baz")) + ⇒ (1) + (-elem-indices '(1 2) '((3) (1 2) (5 6) (1 2) nil)) + ⇒ (1 3) + + -- Function: -find-index (pred list) + Return the index of the first item satisfying PRED in LIST. Return + ‘nil’ if no such item is found. + + PRED is called with one argument, the current list element, until + it returns non-‘nil’, at which point the search terminates. + + This function’s anaphoric counterpart is ‘--find-index’. + + See also: ‘-first’ (*note -first::), ‘-find-last-index’ (*note + -find-last-index::). + + (-find-index #'numberp '(a b c)) + ⇒ nil + (-find-index #'natnump '(1 0 -1)) + ⇒ 0 + (--find-index (> it 5) '(2 4 1 6 3 3 5 8)) + ⇒ 3 + + -- Function: -find-last-index (pred list) + Return the index of the last item satisfying PRED in LIST. Return + ‘nil’ if no such item is found. + + Predicate PRED is called with one argument each time, namely the + current list element. + + This function’s anaphoric counterpart is ‘--find-last-index’. + + See also: ‘-last’ (*note -last::), ‘-find-index’ (*note + -find-index::). + + (-find-last-index #'numberp '(a b c)) + ⇒ nil + (--find-last-index (> it 5) '(2 7 1 6 3 8 5 2)) + ⇒ 5 + (-find-last-index (-partial #'string< 'a) '(c b a)) + ⇒ 1 + + -- Function: -find-indices (pred list) + Return the list of indices in LIST satisfying PRED. + + Each element of LIST in turn is passed to PRED. If the result is + non-‘nil’, the index of that element in LIST is included in the + result. The returned indices are in ascending order, i.e., in the + same order as they appear in LIST. + + This function’s anaphoric counterpart is ‘--find-indices’. + + See also: ‘-find-index’ (*note -find-index::), ‘-elem-indices’ + (*note -elem-indices::). + + (-find-indices #'numberp '(a b c)) + ⇒ () + (-find-indices #'numberp '(8 1 d 2 b c a 3)) + ⇒ (0 1 3 7) + (--find-indices (> it 5) '(2 4 1 6 3 3 5 8)) + ⇒ (3 7) + + -- Function: -grade-up (comparator list) + Grade elements of LIST using COMPARATOR relation. This yields a + permutation vector such that applying this permutation to LIST + sorts it in ascending order. + + (-grade-up #'< '(3 1 4 2 1 3 3)) + ⇒ (1 4 3 0 5 6 2) + (let ((l '(3 1 4 2 1 3 3))) (-select-by-indices (-grade-up #'< l) l)) + ⇒ (1 1 2 3 3 3 4) + + -- Function: -grade-down (comparator list) + Grade elements of LIST using COMPARATOR relation. This yields a + permutation vector such that applying this permutation to LIST + sorts it in descending order. + + (-grade-down #'< '(3 1 4 2 1 3 3)) + ⇒ (2 0 5 6 3 1 4) + (let ((l '(3 1 4 2 1 3 3))) (-select-by-indices (-grade-down #'< l) l)) + ⇒ (4 3 3 3 2 1 1) + + +File: dash.info, Node: Set operations, Next: Other list operations, Prev: Indexing, Up: Functions + +2.9 Set operations +================== + +Operations pretending lists are sets. + + -- Function: -union (list1 list2) + Return a new list of distinct elements appearing in either LIST1 or + LIST2. + + The test for equality is done with ‘equal’, or with ‘-compare-fn’ + if that is non-‘nil’. + + (-union '(1 2 3) '(3 4 5)) + ⇒ (1 2 3 4 5) + (-union '(1 2 2 4) ()) + ⇒ (1 2 4) + (-union '(1 1 2 2) '(4 4 3 2 1)) + ⇒ (1 2 4 3) + + -- Function: -difference (list1 list2) + Return a new list with the distinct members of LIST1 that are not + in LIST2. + + The test for equality is done with ‘equal’, or with ‘-compare-fn’ + if that is non-‘nil’. + + (-difference () ()) + ⇒ () + (-difference '(1 2 3) '(4 5 6)) + ⇒ (1 2 3) + (-difference '(1 2 3 4) '(3 4 5 6)) + ⇒ (1 2) + + -- Function: -intersection (list1 list2) + Return a new list of distinct elements appearing in both LIST1 and + LIST2. + + The test for equality is done with ‘equal’, or with ‘-compare-fn’ + if that is non-‘nil’. + + (-intersection () ()) + ⇒ () + (-intersection '(1 2 3) '(4 5 6)) + ⇒ () + (-intersection '(1 2 2 3) '(4 3 3 2)) + ⇒ (2 3) + + -- Function: -powerset (list) + Return the power set of LIST. + + (-powerset ()) + ⇒ (nil) + (-powerset '(x y)) + ⇒ ((x y) (x) (y) nil) + (-powerset '(x y z)) + ⇒ ((x y z) (x y) (x z) (x) (y z) (y) (z) nil) + + -- Function: -permutations (list) + Return the distinct permutations of LIST. + + Duplicate elements of LIST are determined by ‘equal’, or by + ‘-compare-fn’ if that is non-‘nil’. + + (-permutations ()) + ⇒ (nil) + (-permutations '(a a b)) + ⇒ ((a a b) (a b a) (b a a)) + (-permutations '(a b c)) + ⇒ ((a b c) (a c b) (b a c) (b c a) (c a b) (c b a)) + + -- Function: -distinct (list) + Return a copy of LIST with all duplicate elements removed. + + The test for equality is done with ‘equal’, or with ‘-compare-fn’ + if that is non-‘nil’. + + Alias: ‘-uniq’. + + (-distinct ()) + ⇒ () + (-distinct '(1 1 2 3 3)) + ⇒ (1 2 3) + (-distinct '(t t t)) + ⇒ (t) + + -- Function: -same-items? (list1 list2) + Return non-‘nil’ if LIST1 and LIST2 have the same distinct + elements. + + The order of the elements in the lists does not matter. The lists + may be of different lengths, i.e., contain duplicate elements. The + test for equality is done with ‘equal’, or with ‘-compare-fn’ if + that is non-‘nil’. + + Alias: ‘-same-items-p’. + + (-same-items? '(1 2 3) '(1 2 3)) + ⇒ t + (-same-items? '(1 1 2 3) '(3 3 2 1)) + ⇒ t + (-same-items? '(1 2 3) '(1 2 3 4)) + ⇒ nil + + +File: dash.info, Node: Other list operations, Next: Tree operations, Prev: Set operations, Up: Functions + +2.10 Other list operations +========================== + +Other list functions not fit to be classified elsewhere. + + -- Function: -rotate (n list) + Rotate LIST N places to the right (left if N is negative). The + time complexity is O(n). + + (-rotate 3 '(1 2 3 4 5 6 7)) + ⇒ (5 6 7 1 2 3 4) + (-rotate -3 '(1 2 3 4 5 6 7)) + ⇒ (4 5 6 7 1 2 3) + (-rotate 16 '(1 2 3 4 5 6 7)) + ⇒ (6 7 1 2 3 4 5) + + -- Function: -cons* (&rest args) + Make a new list from the elements of ARGS. The last 2 elements of + ARGS are used as the final cons of the result, so if the final + element of ARGS is not a list, the result is a dotted list. With + no ARGS, return ‘nil’. + + (-cons* 1 2) + ⇒ (1 . 2) + (-cons* 1 2 3) + ⇒ (1 2 . 3) + (-cons* 1) + ⇒ 1 + + -- Function: -snoc (list elem &rest elements) + Append ELEM to the end of the list. + + This is like ‘cons’, but operates on the end of list. + + If any ELEMENTS are given, append them to the list as well. + + (-snoc '(1 2 3) 4) + ⇒ (1 2 3 4) + (-snoc '(1 2 3) 4 5 6) + ⇒ (1 2 3 4 5 6) + (-snoc '(1 2 3) '(4 5 6)) + ⇒ (1 2 3 (4 5 6)) + + -- Function: -interpose (sep list) + Return a new list of all elements in LIST separated by SEP. + + (-interpose "-" ()) + ⇒ () + (-interpose "-" '("a")) + ⇒ ("a") + (-interpose "-" '("a" "b" "c")) + ⇒ ("a" "-" "b" "-" "c") + + -- Function: -interleave (&rest lists) + Return a new list of the first item in each list, then the second + etc. + + (-interleave '(1 2) '("a" "b")) + ⇒ (1 "a" 2 "b") + (-interleave '(1 2) '("a" "b") '("A" "B")) + ⇒ (1 "a" "A" 2 "b" "B") + (-interleave '(1 2 3) '("a" "b")) + ⇒ (1 "a" 2 "b") + + -- Function: -iota (count &optional start step) + Return a list containing COUNT numbers. Starts from START and adds + STEP each time. The default START is zero, the default STEP is 1. + This function takes its name from the corresponding primitive in + the APL language. + + (-iota 6) + ⇒ (0 1 2 3 4 5) + (-iota 4 2.5 -2) + ⇒ (2.5 0.5 -1.5 -3.5) + (-iota -1) + error→ Wrong type argument: natnump, -1 + + -- Function: -zip-with (fn list1 list2) + Zip LIST1 and LIST2 into a new list using the function FN. That + is, apply FN pairwise taking as first argument the next element of + LIST1 and as second argument the next element of LIST2 at the + corresponding position. The result is as long as the shorter list. + + This function’s anaphoric counterpart is ‘--zip-with’. + + For other zips, see also ‘-zip-lists’ (*note -zip-lists::) and + ‘-zip-fill’ (*note -zip-fill::). + + (-zip-with #'+ '(1 2 3 4) '(5 6 7)) + ⇒ (6 8 10) + (-zip-with #'cons '(1 2 3) '(4 5 6 7)) + ⇒ ((1 . 4) (2 . 5) (3 . 6)) + (--zip-with (format "%s & %s" it other) '(Batman Jekyll) '(Robin Hyde)) + ⇒ ("Batman & Robin" "Jekyll & Hyde") + + -- Function: -zip-pair (list1 list2) + Zip LIST1 and LIST2 together. + + Make a pair with the head of each list, followed by a pair with the + second element of each list, and so on. The number of pairs + returned is equal to the length of the shorter input list. + + See also: ‘-zip-lists’ (*note -zip-lists::). + + (-zip-pair '(1 2 3 4) '(5 6 7)) + ⇒ ((1 . 5) (2 . 6) (3 . 7)) + (-zip-pair '(1 2 3) '(4 5 6)) + ⇒ ((1 . 4) (2 . 5) (3 . 6)) + (-zip-pair '(1 2) '(3)) + ⇒ ((1 . 3)) + + -- Function: -zip-lists (&rest lists) + Zip LISTS together. + + Group the head of each list, followed by the second element of each + list, and so on. The number of returned groupings is equal to the + length of the shortest input list, and the length of each grouping + is equal to the number of input LISTS. + + The return value is always a list of proper lists, in contrast to + ‘-zip’ (*note -zip::) which returns a list of dotted pairs when + only two input LISTS are provided. + + See also: ‘-zip-pair’ (*note -zip-pair::). + + (-zip-lists '(1 2 3) '(4 5 6)) + ⇒ ((1 4) (2 5) (3 6)) + (-zip-lists '(1 2 3) '(4 5 6 7)) + ⇒ ((1 4) (2 5) (3 6)) + (-zip-lists '(1 2) '(3 4 5) '(6)) + ⇒ ((1 3 6)) + + -- Function: -zip-lists-fill (fill-value &rest lists) + Zip LISTS together, padding shorter lists with FILL-VALUE. This is + like ‘-zip-lists’ (*note -zip-lists::) (which see), except it + retains all elements at positions beyond the end of the shortest + list. The number of returned groupings is equal to the length of + the longest input list, and the length of each grouping is equal to + the number of input LISTS. + + (-zip-lists-fill 0 '(1 2) '(3 4 5) '(6)) + ⇒ ((1 3 6) (2 4 0) (0 5 0)) + (-zip-lists-fill 0 '(1 2) '(3 4) '(5 6)) + ⇒ ((1 3 5) (2 4 6)) + (-zip-lists-fill 0 '(1 2 3) nil) + ⇒ ((1 0) (2 0) (3 0)) + + -- Function: -zip (&rest lists) + Zip LISTS together. + + Group the head of each list, followed by the second element of each + list, and so on. The number of returned groupings is equal to the + length of the shortest input list, and the number of items in each + grouping is equal to the number of input LISTS. + + If only two LISTS are provided as arguments, return the groupings + as a list of dotted pairs. Otherwise, return the groupings as a + list of proper lists. + + Since the return value changes form depending on the number of + arguments, it is generally recommended to use ‘-zip-lists’ (*note + -zip-lists::) instead, or ‘-zip-pair’ (*note -zip-pair::) if a list + of dotted pairs is desired. + + See also: ‘-unzip’ (*note -unzip::). + + (-zip '(1 2 3 4) '(5 6 7) '(8 9)) + ⇒ ((1 5 8) (2 6 9)) + (-zip '(1 2 3) '(4 5 6) '(7 8 9)) + ⇒ ((1 4 7) (2 5 8) (3 6 9)) + (-zip '(1 2 3)) + ⇒ ((1) (2) (3)) + + -- Function: -zip-fill (fill-value &rest lists) + Zip LISTS together, padding shorter lists with FILL-VALUE. This is + like ‘-zip’ (*note -zip::) (which see), except it retains all + elements at positions beyond the end of the shortest list. The + number of returned groupings is equal to the length of the longest + input list, and the length of each grouping is equal to the number + of input LISTS. + + Since the return value changes form depending on the number of + arguments, it is generally recommended to use ‘-zip-lists-fill’ + (*note -zip-lists-fill::) instead, unless a list of dotted pairs is + explicitly desired. + + (-zip-fill 0 '(1 2 3) '(4 5)) + ⇒ ((1 . 4) (2 . 5) (3 . 0)) + (-zip-fill 0 () '(1 2 3)) + ⇒ ((0 . 1) (0 . 2) (0 . 3)) + (-zip-fill 0 '(1 2) '(3 4) '(5 6)) + ⇒ ((1 3 5) (2 4 6)) + + -- Function: -unzip-lists (lists) + Unzip LISTS. + + This works just like ‘-zip-lists’ (*note -zip-lists::) (which see), + but takes a list of lists instead of a variable number of + arguments, such that + + (-unzip-lists (-zip-lists ARGS...)) + + is identity (given that the lists comprising ARGS are of the same + length). + + (-unzip-lists (-zip-lists '(1 2) '(3 4) '(5 6))) + ⇒ ((1 2) (3 4) (5 6)) + (-unzip-lists '((1 2 3) (4 5) (6 7) (8 9))) + ⇒ ((1 4 6 8) (2 5 7 9)) + (-unzip-lists '((1 2 3) (4 5 6))) + ⇒ ((1 4) (2 5) (3 6)) + + -- Function: -unzip (lists) + Unzip LISTS. + + This works just like ‘-zip’ (*note -zip::) (which see), but takes a + list of lists instead of a variable number of arguments, such that + + (-unzip (-zip L1 L2 L3 ...)) + + is identity (given that the lists are of the same length, and that + ‘-zip’ (*note -zip::) is not called with two arguments, because of + the caveat described in its docstring). + + Note in particular that calling ‘-unzip’ (*note -unzip::) on a list + of two lists will return a list of dotted pairs. + + Since the return value changes form depending on the number of + LISTS, it is generally recommended to use ‘-unzip-lists’ (*note + -unzip-lists::) instead. + + (-unzip (-zip '(1 2) '(3 4) '(5 6))) + ⇒ ((1 . 2) (3 . 4) (5 . 6)) + (-unzip '((1 2 3) (4 5 6))) + ⇒ ((1 . 4) (2 . 5) (3 . 6)) + (-unzip '((1 2 3) (4 5) (6 7) (8 9))) + ⇒ ((1 4 6 8) (2 5 7 9)) + + -- Function: -pad (fill-value &rest lists) + Pad each of LISTS with FILL-VALUE until they all have equal + lengths. + + Ensure all LISTS are as long as the longest one by repeatedly + appending FILL-VALUE to the shorter lists, and return the resulting + LISTS. + + (-pad 0 ()) + ⇒ (nil) + (-pad 0 '(1 2) '(3 4)) + ⇒ ((1 2) (3 4)) + (-pad 0 '(1 2) '(3 4 5 6) '(7 8 9)) + ⇒ ((1 2 0 0) (3 4 5 6) (7 8 9 0)) + + -- Function: -table (fn &rest lists) + Compute outer product of LISTS using function FN. + + The function FN should have the same arity as the number of + supplied lists. + + The outer product is computed by applying fn to all possible + combinations created by taking one element from each list in order. + The dimension of the result is (length lists). + + See also: ‘-table-flat’ (*note -table-flat::) + + (-table '* '(1 2 3) '(1 2 3)) + ⇒ ((1 2 3) (2 4 6) (3 6 9)) + (-table (lambda (a b) (-sum (-zip-with '* a b))) '((1 2) (3 4)) '((1 3) (2 4))) + ⇒ ((7 15) (10 22)) + (apply '-table 'list (-repeat 3 '(1 2))) + ⇒ ((((1 1 1) (2 1 1)) ((1 2 1) (2 2 1))) (((1 1 2) (2 1 2)) ((1 2 2) (2 2 2)))) + + -- Function: -table-flat (fn &rest lists) + Compute flat outer product of LISTS using function FN. + + The function FN should have the same arity as the number of + supplied lists. + + The outer product is computed by applying fn to all possible + combinations created by taking one element from each list in order. + The results are flattened, ignoring the tensor structure of the + result. This is equivalent to calling: + + (-flatten-n (1- (length lists)) (apply ’-table fn lists)) + + but the implementation here is much more efficient. + + See also: ‘-flatten-n’ (*note -flatten-n::), ‘-table’ (*note + -table::) + + (-table-flat 'list '(1 2 3) '(a b c)) + ⇒ ((1 a) (2 a) (3 a) (1 b) (2 b) (3 b) (1 c) (2 c) (3 c)) + (-table-flat '* '(1 2 3) '(1 2 3)) + ⇒ (1 2 3 2 4 6 3 6 9) + (apply '-table-flat 'list (-repeat 3 '(1 2))) + ⇒ ((1 1 1) (2 1 1) (1 2 1) (2 2 1) (1 1 2) (2 1 2) (1 2 2) (2 2 2)) + + -- Function: -first (pred list) + Return the first item in LIST for which PRED returns non-‘nil’. + Return ‘nil’ if no such element is found. + + To get the first item in the list no questions asked, use + ‘-first-item’ (*note -first-item::). + + Alias: ‘-find’. + + This function’s anaphoric counterpart is ‘--first’. + + (-first #'natnump '(-1 0 1)) + ⇒ 0 + (-first #'null '(1 2 3)) + ⇒ nil + (--first (> it 2) '(1 2 3)) + ⇒ 3 + + -- Function: -last (pred list) + Return the last x in LIST where (PRED x) is non-‘nil’, else ‘nil’. + + (-last 'even? '(1 2 3 4 5 6 3 3 3)) + ⇒ 6 + (-last 'even? '(1 3 7 5 9)) + ⇒ nil + (--last (> (length it) 3) '("a" "looong" "word" "and" "short" "one")) + ⇒ "short" + + -- Function: -first-item (list) + Return the first item of LIST, or ‘nil’ on an empty list. + + See also: ‘-second-item’ (*note -second-item::), ‘-last-item’ + (*note -last-item::), etc. + + (-first-item ()) + ⇒ () + (-first-item '(1 2 3 4 5)) + ⇒ 1 + (let ((list (list 1 2 3))) (setf (-first-item list) 5) list) + ⇒ (5 2 3) + + -- Function: -second-item (list) + Return the second item of LIST, or ‘nil’ if LIST is too short. + + See also: ‘-first-item’ (*note -first-item::), ‘-third-item’ (*note + -third-item::), etc. + + (-second-item ()) + ⇒ () + (-second-item '(1 2 3 4 5)) + ⇒ 2 + (let ((list (list 1 2))) (setf (-second-item list) 5) list) + ⇒ (1 5) + + -- Function: -third-item (list) + Return the third item of LIST, or ‘nil’ if LIST is too short. + + See also: ‘-second-item’ (*note -second-item::), ‘-fourth-item’ + (*note -fourth-item::), etc. + + (-third-item ()) + ⇒ () + (-third-item '(1 2)) + ⇒ () + (-third-item '(1 2 3 4 5)) + ⇒ 3 + + -- Function: -fourth-item (list) + Return the fourth item of LIST, or ‘nil’ if LIST is too short. + + See also: ‘-third-item’ (*note -third-item::), ‘-fifth-item’ (*note + -fifth-item::), etc. + + (-fourth-item ()) + ⇒ () + (-fourth-item '(1 2 3)) + ⇒ () + (-fourth-item '(1 2 3 4 5)) + ⇒ 4 + + -- Function: -fifth-item (list) + Return the fifth item of LIST, or ‘nil’ if LIST is too short. + + See also: ‘-fourth-item’ (*note -fourth-item::), ‘-last-item’ + (*note -last-item::), etc. + + (-fifth-item ()) + ⇒ () + (-fifth-item '(1 2 3 4)) + ⇒ () + (-fifth-item '(1 2 3 4 5)) + ⇒ 5 + + -- Function: -last-item (list) + Return the last item of LIST, or ‘nil’ on an empty list. + + See also: ‘-first-item’ (*note -first-item::), etc. + + (-last-item ()) + ⇒ () + (-last-item '(1 2 3 4 5)) + ⇒ 5 + (let ((list (list 1 2 3))) (setf (-last-item list) 5) list) + ⇒ (1 2 5) + + -- Function: -butlast (list) + Return a list of all items in list except for the last. + + (-butlast '(1 2 3)) + ⇒ (1 2) + (-butlast '(1 2)) + ⇒ (1) + (-butlast '(1)) + ⇒ nil + + -- Function: -sort (comparator list) + Sort LIST, stably, comparing elements using COMPARATOR. Return the + sorted list. LIST is NOT modified by side effects. COMPARATOR is + called with two elements of LIST, and should return non-‘nil’ if + the first element should sort before the second. + + (-sort #'< '(3 1 2)) + ⇒ (1 2 3) + (-sort #'> '(3 1 2)) + ⇒ (3 2 1) + (--sort (< it other) '(3 1 2)) + ⇒ (1 2 3) + + -- Function: -list (arg) + Ensure ARG is a list. If ARG is already a list, return it as is + (not a copy). Otherwise, return a new list with ARG as its only + element. + + Another supported calling convention is (-list &rest ARGS). In + this case, if ARG is not a list, a new list with all of ARGS as + elements is returned. This use is supported for backward + compatibility and is otherwise deprecated. + + (-list 1) + ⇒ (1) + (-list ()) + ⇒ () + (-list '(1 2 3)) + ⇒ (1 2 3) + + -- Function: -fix (fn list) + Compute the (least) fixpoint of FN with initial input LIST. + + FN is called at least once, results are compared with ‘equal’. + + (-fix (lambda (l) (-non-nil (--mapcat (-split-at (/ (length it) 2) it) l))) '((1 2 3))) + ⇒ ((1) (2) (3)) + (let ((l '((starwars scifi) (jedi starwars warrior)))) (--fix (-uniq (--mapcat (cons it (cdr (assq it l))) it)) '(jedi book))) + ⇒ (jedi starwars warrior scifi book) + + +File: dash.info, Node: Tree operations, Next: Threading macros, Prev: Other list operations, Up: Functions + +2.11 Tree operations +==================== + +Functions pretending lists are trees. + + -- Function: -tree-seq (branch children tree) + Return a sequence of the nodes in TREE, in depth-first search + order. + + BRANCH is a predicate of one argument that returns non-‘nil’ if the + passed argument is a branch, that is, a node that can have + children. + + CHILDREN is a function of one argument that returns the children of + the passed branch node. + + Non-branch nodes are simply copied. + + (-tree-seq 'listp 'identity '(1 (2 3) 4 (5 (6 7)))) + ⇒ ((1 (2 3) 4 (5 (6 7))) 1 (2 3) 2 3 4 (5 (6 7)) 5 (6 7) 6 7) + (-tree-seq 'listp 'reverse '(1 (2 3) 4 (5 (6 7)))) + ⇒ ((1 (2 3) 4 (5 (6 7))) (5 (6 7)) (6 7) 7 6 5 4 (2 3) 3 2 1) + (--tree-seq (vectorp it) (append it nil) [1 [2 3] 4 [5 [6 7]]]) + ⇒ ([1 [2 3] 4 [5 [6 7]]] 1 [2 3] 2 3 4 [5 [6 7]] 5 [6 7] 6 7) + + -- Function: -tree-map (fn tree) + Apply FN to each element of TREE while preserving the tree + structure. + + (-tree-map '1+ '(1 (2 3) (4 (5 6) 7))) + ⇒ (2 (3 4) (5 (6 7) 8)) + (-tree-map '(lambda (x) (cons x (expt 2 x))) '(1 (2 3) 4)) + ⇒ ((1 . 2) ((2 . 4) (3 . 8)) (4 . 16)) + (--tree-map (length it) '("" ("

" "text" "

") "")) + ⇒ (6 (3 4 4) 7) + + -- Function: -tree-map-nodes (pred fun tree) + Call FUN on each node of TREE that satisfies PRED. + + If PRED returns ‘nil’, continue descending down this node. If PRED + returns non-‘nil’, apply FUN to this node and do not descend + further. + + (-tree-map-nodes 'vectorp (lambda (x) (-sum (append x nil))) '(1 [2 3] 4 (5 [6 7] 8))) + ⇒ (1 5 4 (5 13 8)) + (-tree-map-nodes 'keywordp (lambda (x) (symbol-name x)) '(1 :foo 4 ((5 6 :bar) :baz 8))) + ⇒ (1 ":foo" 4 ((5 6 ":bar") ":baz" 8)) + (--tree-map-nodes (eq (car-safe it) 'add-mode) (-concat it (list :mode 'emacs-lisp-mode)) '(with-mode emacs-lisp-mode (foo bar) (add-mode a b) (baz (add-mode c d)))) + ⇒ (with-mode emacs-lisp-mode (foo bar) (add-mode a b :mode emacs-lisp-mode) (baz (add-mode c d :mode emacs-lisp-mode))) + + -- Function: -tree-reduce (fn tree) + Use FN to reduce elements of list TREE. If elements of TREE are + lists themselves, apply the reduction recursively. + + FN is first applied to first element of the list and second + element, then on this result and third element from the list etc. + + See ‘-reduce-r’ (*note -reduce-r::) for how exactly are lists of + zero or one element handled. + + (-tree-reduce '+ '(1 (2 3) (4 5))) + ⇒ 15 + (-tree-reduce 'concat '("strings" (" on" " various") ((" levels")))) + ⇒ "strings on various levels" + (--tree-reduce (cond ((stringp it) (concat it " " acc)) (t (let ((sn (symbol-name it))) (concat "<" sn ">" acc "")))) '(body (p "some words") (div "more" (b "bold") "words"))) + ⇒ "

some words

more bold words
" + + -- Function: -tree-reduce-from (fn init-value tree) + Use FN to reduce elements of list TREE. If elements of TREE are + lists themselves, apply the reduction recursively. + + FN is first applied to INIT-VALUE and first element of the list, + then on this result and second element from the list etc. + + The initial value is ignored on cons pairs as they always contain + two elements. + + (-tree-reduce-from '+ 1 '(1 (1 1) ((1)))) + ⇒ 8 + (--tree-reduce-from (-concat acc (list it)) nil '(1 (2 3 (4 5)) (6 7))) + ⇒ ((7 6) ((5 4) 3 2) 1) + + -- Function: -tree-mapreduce (fn folder tree) + Apply FN to each element of TREE, and make a list of the results. + If elements of TREE are lists themselves, apply FN recursively to + elements of these nested lists. + + Then reduce the resulting lists using FOLDER and initial value + INIT-VALUE. See ‘-reduce-r-from’ (*note -reduce-r-from::). + + This is the same as calling ‘-tree-reduce’ (*note -tree-reduce::) + after ‘-tree-map’ (*note -tree-map::) but is twice as fast as it + only traverse the structure once. + + (-tree-mapreduce 'list 'append '(1 (2 (3 4) (5 6)) (7 (8 9)))) + ⇒ (1 2 3 4 5 6 7 8 9) + (--tree-mapreduce 1 (+ it acc) '(1 (2 (4 9) (2 1)) (7 (4 3)))) + ⇒ 9 + (--tree-mapreduce 0 (max acc (1+ it)) '(1 (2 (4 9) (2 1)) (7 (4 3)))) + ⇒ 3 + + -- Function: -tree-mapreduce-from (fn folder init-value tree) + Apply FN to each element of TREE, and make a list of the results. + If elements of TREE are lists themselves, apply FN recursively to + elements of these nested lists. + + Then reduce the resulting lists using FOLDER and initial value + INIT-VALUE. See ‘-reduce-r-from’ (*note -reduce-r-from::). + + This is the same as calling ‘-tree-reduce-from’ (*note + -tree-reduce-from::) after ‘-tree-map’ (*note -tree-map::) but is + twice as fast as it only traverse the structure once. + + (-tree-mapreduce-from 'identity '* 1 '(1 (2 (3 4) (5 6)) (7 (8 9)))) + ⇒ 362880 + (--tree-mapreduce-from (+ it it) (cons it acc) nil '(1 (2 (4 9) (2 1)) (7 (4 3)))) + ⇒ (2 (4 (8 18) (4 2)) (14 (8 6))) + (concat "{" (--tree-mapreduce-from (cond ((-cons-pair? it) (concat (symbol-name (car it)) " -> " (symbol-name (cdr it)))) (t (concat (symbol-name it) " : {"))) (concat it (unless (or (equal acc "}") (equal (substring it (1- (length it))) "{")) ", ") acc) "}" '((elisp-mode (foo (bar . booze)) (baz . qux)) (c-mode (foo . bla) (bum . bam))))) + ⇒ "{elisp-mode : {foo : {bar -> booze}, baz -> qux}, c-mode : {foo -> bla, bum -> bam}}" + + -- Function: -clone (list) + Create a deep copy of LIST. The new list has the same elements and + structure but all cons are replaced with new ones. This is useful + when you need to clone a structure such as plist or alist. + + (let* ((a (list (list 1))) (b (-clone a))) (setcar (car a) 2) b) + ⇒ ((1)) + + +File: dash.info, Node: Threading macros, Next: Binding, Prev: Tree operations, Up: Functions + +2.12 Threading macros +===================== + +Macros that conditionally combine sequential forms for brevity or +readability. + + -- Macro: -> (x &optional form &rest more) + Thread the expr through the forms. Insert X as the second item in + the first form, making a list of it if it is not a list already. + If there are more forms, insert the first form as the second item + in second form, etc. + + (-> '(2 3 5)) + ⇒ (2 3 5) + (-> '(2 3 5) (append '(8 13))) + ⇒ (2 3 5 8 13) + (-> '(2 3 5) (append '(8 13)) (-slice 1 -1)) + ⇒ (3 5 8) + + -- Macro: ->> (x &optional form &rest more) + Thread the expr through the forms. Insert X as the last item in + the first form, making a list of it if it is not a list already. + If there are more forms, insert the first form as the last item in + second form, etc. + + (->> '(1 2 3) (-map 'square)) + ⇒ (1 4 9) + (->> '(1 2 3) (-map 'square) (-remove 'even?)) + ⇒ (1 9) + (->> '(1 2 3) (-map 'square) (-reduce '+)) + ⇒ 14 + + -- Macro: --> (x &rest forms) + Starting with the value of X, thread each expression through FORMS. + + Insert X at the position signified by the symbol ‘it’ in the first + form. If there are more forms, insert the first form at the + position signified by ‘it’ in the second form, etc. + + (--> "def" (concat "abc" it "ghi")) + ⇒ "abcdefghi" + (--> "def" (concat "abc" it "ghi") (upcase it)) + ⇒ "ABCDEFGHI" + (--> "def" (concat "abc" it "ghi") upcase) + ⇒ "ABCDEFGHI" + + -- Macro: -as-> (value variable &rest forms) + Starting with VALUE, thread VARIABLE through FORMS. + + In the first form, bind VARIABLE to VALUE. In the second form, + bind VARIABLE to the result of the first form, and so forth. + + (-as-> 3 my-var (1+ my-var) (list my-var) (mapcar (lambda (ele) (* 2 ele)) my-var)) + ⇒ (8) + (-as-> 3 my-var 1+) + ⇒ 4 + (-as-> 3 my-var) + ⇒ 3 + + -- Macro: -some-> (x &optional form &rest more) + When expr is non-‘nil’, thread it through the first form (via ‘->’ + (*note ->::)), and when that result is non-‘nil’, through the next + form, etc. + + (-some-> '(2 3 5)) + ⇒ (2 3 5) + (-some-> 5 square) + ⇒ 25 + (-some-> 5 even? square) + ⇒ nil + + -- Macro: -some->> (x &optional form &rest more) + When expr is non-‘nil’, thread it through the first form (via ‘->>’ + (*note ->>::)), and when that result is non-‘nil’, through the next + form, etc. + + (-some->> '(1 2 3) (-map 'square)) + ⇒ (1 4 9) + (-some->> '(1 3 5) (-last 'even?) (+ 100)) + ⇒ nil + (-some->> '(2 4 6) (-last 'even?) (+ 100)) + ⇒ 106 + + -- Macro: -some--> (expr &rest forms) + Thread EXPR through FORMS via ‘-->’ (*note -->::), while the result + is non-‘nil’. When EXPR evaluates to non-‘nil’, thread the result + through the first of FORMS, and when that result is non-‘nil’, + thread it through the next form, etc. + + (-some--> "def" (concat "abc" it "ghi")) + ⇒ "abcdefghi" + (-some--> nil (concat "abc" it "ghi")) + ⇒ nil + (-some--> '(0 1) (-remove #'natnump it) (append it it) (-map #'1+ it)) + ⇒ () + + -- Macro: -doto (init &rest forms) + Evaluate INIT and pass it as argument to FORMS with ‘->’ (*note + ->::). The RESULT of evaluating INIT is threaded through each of + FORMS individually using ‘->’ (*note ->::), which see. The return + value is RESULT, which FORMS may have modified by side effect. + + (-doto (list 1 2 3) pop pop) + ⇒ (3) + (-doto (cons 1 2) (setcar 3) (setcdr 4)) + ⇒ (3 . 4) + (gethash 'k (--doto (make-hash-table) (puthash 'k 'v it))) + ⇒ v + + +File: dash.info, Node: Binding, Next: Side effects, Prev: Threading macros, Up: Functions + +2.13 Binding +============ + +Macros that combine ‘let’ and ‘let*’ with destructuring and flow +control. + + -- Macro: -when-let ((var val) &rest body) + If VAL evaluates to non-‘nil’, bind it to VAR and execute body. + + Note: binding is done according to ‘-let’ (*note -let::). + + (-when-let (match-index (string-match "d" "abcd")) (+ match-index 2)) + ⇒ 5 + (-when-let ((&plist :foo foo) (list :foo "foo")) foo) + ⇒ "foo" + (-when-let ((&plist :foo foo) (list :bar "bar")) foo) + ⇒ nil + + -- Macro: -when-let* (vars-vals &rest body) + If all VALS evaluate to true, bind them to their corresponding VARS + and execute body. VARS-VALS should be a list of (VAR VAL) pairs. + + Note: binding is done according to ‘-let*’ (*note -let*::). VALS + are evaluated sequentially, and evaluation stops after the first + ‘nil’ VAL is encountered. + + (-when-let* ((x 5) (y 3) (z (+ y 4))) (+ x y z)) + ⇒ 15 + (-when-let* ((x 5) (y nil) (z 7)) (+ x y z)) + ⇒ nil + + -- Macro: -if-let ((var val) then &rest else) + If VAL evaluates to non-‘nil’, bind it to VAR and do THEN, + otherwise do ELSE. + + Note: binding is done according to ‘-let’ (*note -let::). + + (-if-let (match-index (string-match "d" "abc")) (+ match-index 3) 7) + ⇒ 7 + (--if-let (even? 4) it nil) + ⇒ t + + -- Macro: -if-let* (vars-vals then &rest else) + If all VALS evaluate to true, bind them to their corresponding VARS + and do THEN, otherwise do ELSE. VARS-VALS should be a list of (VAR + VAL) pairs. + + Note: binding is done according to ‘-let*’ (*note -let*::). VALS + are evaluated sequentially, and evaluation stops after the first + ‘nil’ VAL is encountered. + + (-if-let* ((x 5) (y 3) (z 7)) (+ x y z) "foo") + ⇒ 15 + (-if-let* ((x 5) (y nil) (z 7)) (+ x y z) "foo") + ⇒ "foo" + (-if-let* (((_ _ x) '(nil nil 7))) x) + ⇒ 7 + + -- Macro: -let (varlist &rest body) + Bind variables according to VARLIST then eval BODY. + + VARLIST is a list of lists of the form (PATTERN SOURCE). Each + PATTERN is matched against the SOURCE "structurally". SOURCE is + only evaluated once for each PATTERN. Each PATTERN is matched + recursively, and can therefore contain sub-patterns which are + matched against corresponding sub-expressions of SOURCE. + + All the SOURCEs are evalled before any symbols are bound (i.e. "in + parallel"). + + If VARLIST only contains one (PATTERN SOURCE) element, you can + optionally specify it using a vector and discarding the outer-most + parens. Thus + + (-let ((PATTERN SOURCE)) ...) + + becomes + + (-let [PATTERN SOURCE] ...). + + ‘-let’ (*note -let::) uses a convention of not binding places + (symbols) starting with _ whenever it’s possible. You can use this + to skip over entries you don’t care about. However, this is not + *always* possible (as a result of implementation) and these symbols + might get bound to undefined values. + + Following is the overview of supported patterns. Remember that + patterns can be matched recursively, so every a, b, aK in the + following can be a matching construct and not necessarily a + symbol/variable. + + Symbol: + + a - bind the SOURCE to A. This is just like regular ‘let’. + + Conses and lists: + + (a) - bind ‘car’ of cons/list to A + + (a . b) - bind car of cons to A and ‘cdr’ to B + + (a b) - bind car of list to A and ‘cadr’ to B + + (a1 a2 a3 ...) - bind 0th car of list to A1, 1st to A2, 2nd to + A3... + + (a1 a2 a3 ... aN . rest) - as above, but bind the Nth cdr to REST. + + Vectors: + + [a] - bind 0th element of a non-list sequence to A (works with + vectors, strings, bit arrays...) + + [a1 a2 a3 ...] - bind 0th element of non-list sequence to A0, 1st + to A1, 2nd to A2, ... If the PATTERN is shorter than SOURCE, the + values at places not in PATTERN are ignored. If the PATTERN is + longer than SOURCE, an ‘error’ is thrown. + + [a1 a2 a3 ... &rest rest] - as above, but bind the rest of the + sequence to REST. This is conceptually the same as improper list + matching (a1 a2 ... aN . rest) + + Key/value stores: + + (&plist key0 a0 ... keyN aN) - bind value mapped by keyK in the + SOURCE plist to aK. If the value is not found, aK is ‘nil’. Uses + ‘plist-get’ to fetch values. + + (&alist key0 a0 ... keyN aN) - bind value mapped by keyK in the + SOURCE alist to aK. If the value is not found, aK is ‘nil’. Uses + ‘assoc’ to fetch values. + + (&hash key0 a0 ... keyN aN) - bind value mapped by keyK in the + SOURCE hash table to aK. If the value is not found, aK is ‘nil’. + Uses ‘gethash’ to fetch values. + + Further, special keyword &keys supports "inline" matching of + plist-like key-value pairs, similarly to &keys keyword of + ‘cl-defun’. + + (a1 a2 ... aN &keys key1 b1 ... keyN bK) + + This binds N values from the list to a1 ... aN, then interprets the + cdr as a plist (see key/value matching above). + + A shorthand notation for kv-destructuring exists which allows the + patterns be optionally left out and derived from the key name in + the following fashion: + + - a key :foo is converted into ‘foo’ pattern, - a key ’bar is + converted into ‘bar’ pattern, - a key "baz" is converted into ‘baz’ + pattern. + + That is, the entire value under the key is bound to the derived + variable without any further destructuring. + + This is possible only when the form following the key is not a + valid pattern (i.e. not a symbol, a cons cell or a vector). + Otherwise the matching proceeds as usual and in case of an invalid + spec fails with an error. + + Thus the patterns are normalized as follows: + + ;; derive all the missing patterns (&plist :foo ’bar "baz") => + (&plist :foo foo ’bar bar "baz" baz) + + ;; we can specify some but not others (&plist :foo ’bar + explicit-bar) => (&plist :foo foo ’bar explicit-bar) + + ;; nothing happens, we store :foo in x (&plist :foo x) => (&plist + :foo x) + + ;; nothing happens, we match recursively (&plist :foo (a b c)) => + (&plist :foo (a b c)) + + You can name the source using the syntax SYMBOL &as PATTERN. This + syntax works with lists (proper or improper), vectors and all types + of maps. + + (list &as a b c) (list 1 2 3) + + binds A to 1, B to 2, C to 3 and LIST to (1 2 3). + + Similarly: + + (bounds &as beg . end) (cons 1 2) + + binds BEG to 1, END to 2 and BOUNDS to (1 . 2). + + (items &as first . rest) (list 1 2 3) + + binds FIRST to 1, REST to (2 3) and ITEMS to (1 2 3) + + [vect &as _ b c] [1 2 3] + + binds B to 2, C to 3 and VECT to [1 2 3] (_ avoids binding as + usual). + + (plist &as &plist :b b) (list :a 1 :b 2 :c 3) + + binds B to 2 and PLIST to (:a 1 :b 2 :c 3). Same for &alist and + &hash. + + This is especially useful when we want to capture the result of a + computation and destructure at the same time. Consider the form + (function-returning-complex-structure) returning a list of two + vectors with two items each. We want to capture this entire result + and pass it to another computation, but at the same time we want to + get the second item from each vector. We can achieve it with + pattern + + (result &as [_ a] [_ b]) (function-returning-complex-structure) + + Note: Clojure programmers may know this feature as the ":as + binding". The difference is that we put the &as at the front + because we need to support improper list binding. + + (-let (([a (b c) d] [1 (2 3) 4])) (list a b c d)) + ⇒ (1 2 3 4) + (-let [(a b c . d) (list 1 2 3 4 5 6)] (list a b c d)) + ⇒ (1 2 3 (4 5 6)) + (-let [(&plist :foo foo :bar bar) (list :baz 3 :foo 1 :qux 4 :bar 2)] (list foo bar)) + ⇒ (1 2) + + -- Macro: -let* (varlist &rest body) + Bind variables according to VARLIST then eval BODY. + + VARLIST is a list of lists of the form (PATTERN SOURCE). Each + PATTERN is matched against the SOURCE structurally. SOURCE is only + evaluated once for each PATTERN. + + Each SOURCE can refer to the symbols already bound by this VARLIST. + This is useful if you want to destructure SOURCE recursively but + also want to name the intermediate structures. + + See ‘-let’ (*note -let::) for the list of all possible patterns. + + (-let* (((a . b) (cons 1 2)) ((c . d) (cons 3 4))) (list a b c d)) + ⇒ (1 2 3 4) + (-let* (((a . b) (cons 1 (cons 2 3))) ((c . d) b)) (list a b c d)) + ⇒ (1 (2 . 3) 2 3) + (-let* (((&alist "foo" foo "bar" bar) (list (cons "foo" 1) (cons "bar" (list 'a 'b 'c)))) ((a b c) bar)) (list foo a b c bar)) + ⇒ (1 a b c (a b c)) + + -- Macro: -lambda (match-form &rest body) + Return a lambda which destructures its input as MATCH-FORM and + executes BODY. + + Note that you have to enclose the MATCH-FORM in a pair of parens, + such that: + + (-lambda (x) body) (-lambda (x y ...) body) + + has the usual semantics of ‘lambda’. Furthermore, these get + translated into normal ‘lambda’, so there is no performance + penalty. + + See ‘-let’ (*note -let::) for a description of the destructuring + mechanism. + + (-map (-lambda ((x y)) (+ x y)) '((1 2) (3 4) (5 6))) + ⇒ (3 7 11) + (-map (-lambda ([x y]) (+ x y)) '([1 2] [3 4] [5 6])) + ⇒ (3 7 11) + (funcall (-lambda ((_ . a) (_ . b)) (-concat a b)) '(1 2 3) '(4 5 6)) + ⇒ (2 3 5 6) + + -- Macro: -setq ([match-form val] ...) + Bind each MATCH-FORM to the value of its VAL. + + MATCH-FORM destructuring is done according to the rules of ‘-let’ + (*note -let::). + + This macro allows you to bind multiple variables by destructuring + the value, so for example: + + (-setq (a b) x (&plist :c c) plist) + + expands roughly speaking to the following code + + (setq a (car x) b (cadr x) c (plist-get plist :c)) + + Care is taken to only evaluate each VAL once so that in case of + multiple assignments it does not cause unexpected side effects. + + (let (a) (-setq a 1) a) + ⇒ 1 + (let (a b) (-setq (a b) (list 1 2)) (list a b)) + ⇒ (1 2) + (let (c) (-setq (&plist :c c) (list :c "c")) c) + ⇒ "c" + + +File: dash.info, Node: Side effects, Next: Destructive operations, Prev: Binding, Up: Functions + +2.14 Side effects +================= + +Functions iterating over lists for side effect only. + + -- Function: -each (list fn) + Call FN on each element of LIST. Return ‘nil’; this function is + intended for side effects. + + Its anaphoric counterpart is ‘--each’. + + For access to the current element’s index in LIST, see + ‘-each-indexed’ (*note -each-indexed::). + + (let (l) (-each '(1 2 3) (lambda (x) (push x l))) l) + ⇒ (3 2 1) + (let (l) (--each '(1 2 3) (push it l)) l) + ⇒ (3 2 1) + (-each '(1 2 3) #'identity) + ⇒ nil + + -- Function: -each-while (list pred fn) + Call FN on each ITEM in LIST, while (PRED ITEM) is non-‘nil’. Once + an ITEM is reached for which PRED returns ‘nil’, FN is no longer + called. Return ‘nil’; this function is intended for side effects. + + Its anaphoric counterpart is ‘--each-while’. + + (let (l) (-each-while '(2 4 5 6) #'even? (lambda (x) (push x l))) l) + ⇒ (4 2) + (let (l) (--each-while '(1 2 3 4) (< it 3) (push it l)) l) + ⇒ (2 1) + (let ((s 0)) (--each-while '(1 3 4 5) (< it 5) (setq s (+ s it))) s) + ⇒ 8 + + -- Function: -each-indexed (list fn) + Call FN on each index and element of LIST. For each ITEM at INDEX + in LIST, call (funcall FN INDEX ITEM). Return ‘nil’; this function + is intended for side effects. + + See also: ‘-map-indexed’ (*note -map-indexed::). + + (let (l) (-each-indexed '(a b c) (lambda (i x) (push (list x i) l))) l) + ⇒ ((c 2) (b 1) (a 0)) + (let (l) (--each-indexed '(a b c) (push (list it it-index) l)) l) + ⇒ ((c 2) (b 1) (a 0)) + (let (l) (--each-indexed () (push it l)) l) + ⇒ () + + -- Function: -each-r (list fn) + Call FN on each element of LIST in reversed order. Return ‘nil’; + this function is intended for side effects. + + Its anaphoric counterpart is ‘--each-r’. + + (let (l) (-each-r '(1 2 3) (lambda (x) (push x l))) l) + ⇒ (1 2 3) + (let (l) (--each-r '(1 2 3) (push it l)) l) + ⇒ (1 2 3) + (-each-r '(1 2 3) #'identity) + ⇒ nil + + -- Function: -each-r-while (list pred fn) + Call FN on each ITEM in reversed LIST, while (PRED ITEM) is + non-‘nil’. Once an ITEM is reached for which PRED returns ‘nil’, + FN is no longer called. Return ‘nil’; this function is intended + for side effects. + + Its anaphoric counterpart is ‘--each-r-while’. + + (let (l) (-each-r-while '(2 4 5 6) #'even? (lambda (x) (push x l))) l) + ⇒ (6) + (let (l) (--each-r-while '(1 2 3 4) (>= it 3) (push it l)) l) + ⇒ (3 4) + (let ((s 0)) (--each-r-while '(1 2 3 5) (> it 1) (setq s (+ s it))) s) + ⇒ 10 + + -- Function: -dotimes (num fn) + Call FN NUM times, presumably for side effects. FN is called with + a single argument on successive integers running from 0, inclusive, + to NUM, exclusive. FN is not called if NUM is less than 1. + + This function’s anaphoric counterpart is ‘--dotimes’. + + (let (s) (-dotimes 3 (lambda (n) (push n s))) s) + ⇒ (2 1 0) + (let (s) (-dotimes 0 (lambda (n) (push n s))) s) + ⇒ () + (let (s) (--dotimes 5 (push it s)) s) + ⇒ (4 3 2 1 0) + + +File: dash.info, Node: Destructive operations, Next: Function combinators, Prev: Side effects, Up: Functions + +2.15 Destructive operations +=========================== + +Macros that modify variables holding lists. + + -- Macro: !cons (car cdr) + Destructive: Set CDR to the cons of CAR and CDR. + + (let (l) (!cons 5 l) l) + ⇒ (5) + (let ((l '(3))) (!cons 5 l) l) + ⇒ (5 3) + + -- Macro: !cdr (list) + Destructive: Set LIST to the cdr of LIST. + + (let ((l '(3))) (!cdr l) l) + ⇒ () + (let ((l '(3 5))) (!cdr l) l) + ⇒ (5) + + +File: dash.info, Node: Function combinators, Prev: Destructive operations, Up: Functions + +2.16 Function combinators +========================= + +Functions that manipulate and compose other functions. + + -- Function: -partial (fun &rest args) + Return a function that is a partial application of FUN to ARGS. + ARGS is a list of the first N arguments to pass to FUN. The result + is a new function which does the same as FUN, except that the first + N arguments are fixed at the values with which this function was + called. + + (funcall (-partial #'+ 5)) + ⇒ 5 + (funcall (-partial #'- 5) 3) + ⇒ 2 + (funcall (-partial #'+ 5 2) 3) + ⇒ 10 + + -- Function: -rpartial (fn &rest args) + Return a function that is a partial application of FN to ARGS. + ARGS is a list of the last N arguments to pass to FN. The result + is a new function which does the same as FN, except that the last N + arguments are fixed at the values with which this function was + called. This is like ‘-partial’ (*note -partial::), except the + arguments are fixed starting from the right rather than the left. + + (funcall (-rpartial #'- 5)) + ⇒ -5 + (funcall (-rpartial #'- 5) 8) + ⇒ 3 + (funcall (-rpartial #'- 5 2) 10) + ⇒ 3 + + -- Function: -juxt (&rest fns) + Return a function that is the juxtaposition of FNS. The returned + function takes a variable number of ARGS, applies each of FNS in + turn to ARGS, and returns the list of results. + + (funcall (-juxt) 1 2) + ⇒ () + (funcall (-juxt #'+ #'- #'* #'/) 7 5) + ⇒ (12 2 35 1) + (mapcar (-juxt #'number-to-string #'1+) '(1 2)) + ⇒ (("1" 2) ("2" 3)) + + -- Function: -compose (&rest fns) + Compose FNS into a single composite function. Return a function + that takes a variable number of ARGS, applies the last function in + FNS to ARGS, and returns the result of calling each remaining + function on the result of the previous function, right-to-left. If + no FNS are given, return a variadic ‘identity’ function. + + (funcall (-compose #'- #'1+ #'+) 1 2 3) + ⇒ -7 + (funcall (-compose #'identity #'1+) 3) + ⇒ 4 + (mapcar (-compose #'not #'stringp) '(nil "")) + ⇒ (t nil) + + -- Function: -applify (fn) + Return a function that applies FN to a single list of args. This + changes the arity of FN from taking N distinct arguments to taking + 1 argument which is a list of N arguments. + + (funcall (-applify #'+) nil) + ⇒ 0 + (mapcar (-applify #'+) '((1 1 1) (1 2 3) (5 5 5))) + ⇒ (3 6 15) + (funcall (-applify #'<) '(3 6)) + ⇒ t + + -- Function: -on (op trans) + Return a function that calls TRANS on each arg and OP on the + results. The returned function takes a variable number of + arguments, calls the function TRANS on each one in turn, and then + passes those results as the list of arguments to OP, in the same + order. + + For example, the following pairs of expressions are morally + equivalent: + + (funcall (-on #’+ #’1+) 1 2 3) = (+ (1+ 1) (1+ 2) (1+ 3)) (funcall + (-on #’+ #’1+)) = (+) + + (-sort (-on #'< #'length) '((1 2 3) (1) (1 2))) + ⇒ ((1) (1 2) (1 2 3)) + (funcall (-on #'min #'string-to-number) "22" "2" "1" "12") + ⇒ 1 + (-min-by (-on #'> #'length) '((1 2 3) (4) (1 2))) + ⇒ (4) + + -- Function: -flip (fn) + Return a function that calls FN with its arguments reversed. The + returned function takes the same number of arguments as FN. + + For example, the following two expressions are morally equivalent: + + (funcall (-flip #’-) 1 2) = (- 2 1) + + See also: ‘-rotate-args’ (*note -rotate-args::). + + (-sort (-flip #'<) '(4 3 6 1)) + ⇒ (6 4 3 1) + (funcall (-flip #'-) 3 2 1 10) + ⇒ 4 + (funcall (-flip #'1+) 1) + ⇒ 2 + + -- Function: -rotate-args (n fn) + Return a function that calls FN with args rotated N places to the + right. The returned function takes the same number of arguments as + FN, rotates the list of arguments N places to the right (left if N + is negative) just like ‘-rotate’ (*note -rotate::), and applies FN + to the result. + + See also: ‘-flip’ (*note -flip::). + + (funcall (-rotate-args -1 #'list) 1 2 3 4) + ⇒ (2 3 4 1) + (funcall (-rotate-args 1 #'-) 1 10 100) + ⇒ 89 + (funcall (-rotate-args 2 #'list) 3 4 5 1 2) + ⇒ (1 2 3 4 5) + + -- Function: -const (c) + Return a function that returns C ignoring any additional arguments. + + In types: a -> b -> a + + (funcall (-const 2) 1 3 "foo") + ⇒ 2 + (mapcar (-const 1) '("a" "b" "c" "d")) + ⇒ (1 1 1 1) + (-sum (mapcar (-const 1) '("a" "b" "c" "d"))) + ⇒ 4 + + -- Macro: -cut (&rest params) + Take n-ary function and n arguments and specialize some of them. + Arguments denoted by <> will be left unspecialized. + + See SRFI-26 for detailed description. + + (funcall (-cut list 1 <> 3 <> 5) 2 4) + ⇒ (1 2 3 4 5) + (-map (-cut funcall <> 5) `(1+ 1- ,(lambda (x) (/ 1.0 x)))) + ⇒ (6 4 0.2) + (-map (-cut <> 1 2 3) '(list vector string)) + ⇒ ((1 2 3) [1 2 3] "\1\2\3") + + -- Function: -not (pred) + Return a predicate that negates the result of PRED. The returned + predicate passes its arguments to PRED. If PRED returns ‘nil’, the + result is non-‘nil’; otherwise the result is ‘nil’. + + See also: ‘-andfn’ (*note -andfn::) and ‘-orfn’ (*note -orfn::). + + (funcall (-not #'numberp) "5") + ⇒ t + (-sort (-not #'<) '(5 2 1 0 6)) + ⇒ (6 5 2 1 0) + (-filter (-not (-partial #'< 4)) '(1 2 3 4 5 6 7 8)) + ⇒ (1 2 3 4) + + -- Function: -orfn (&rest preds) + Return a predicate that returns the first non-‘nil’ result of + PREDS. The returned predicate takes a variable number of + arguments, passes them to each predicate in PREDS in turn until one + of them returns non-‘nil’, and returns that non-‘nil’ result + without calling the remaining PREDS. If all PREDS return ‘nil’, or + if no PREDS are given, the returned predicate returns ‘nil’. + + See also: ‘-andfn’ (*note -andfn::) and ‘-not’ (*note -not::). + + (-filter (-orfn #'natnump #'booleanp) '(1 nil "a" -4 b c t)) + ⇒ (1 nil t) + (funcall (-orfn #'symbolp (-cut string-match-p "x" <>)) "axe") + ⇒ 1 + (funcall (-orfn #'= #'+) 1 1) + ⇒ t + + -- Function: -andfn (&rest preds) + Return a predicate that returns non-‘nil’ if all PREDS do so. The + returned predicate P takes a variable number of arguments and + passes them to each predicate in PREDS in turn. If any one of + PREDS returns ‘nil’, P also returns ‘nil’ without calling the + remaining PREDS. If all PREDS return non-‘nil’, P returns the last + such value. If no PREDS are given, P always returns non-‘nil’. + + See also: ‘-orfn’ (*note -orfn::) and ‘-not’ (*note -not::). + + (-filter (-andfn #'numberp (-cut < <> 5)) '(a 1 b 6 c 2)) + ⇒ (1 2) + (mapcar (-andfn #'numberp #'1+) '(a 1 b 6)) + ⇒ (nil 2 nil 7) + (funcall (-andfn #'= #'+) 1 1) + ⇒ 2 + + -- Function: -iteratefn (fn n) + Return a function FN composed N times with itself. + + FN is a unary function. If you need to use a function of higher + arity, use ‘-applify’ (*note -applify::) first to turn it into a + unary function. + + With n = 0, this acts as identity function. + + In types: (a -> a) -> Int -> a -> a. + + This function satisfies the following law: + + (funcall (-iteratefn fn n) init) = (-last-item (-iterate fn init + (1+ n))). + + (funcall (-iteratefn (lambda (x) (* x x)) 3) 2) + ⇒ 256 + (funcall (-iteratefn '1+ 3) 1) + ⇒ 4 + (funcall (-iteratefn 'cdr 3) '(1 2 3 4 5)) + ⇒ (4 5) + + -- Function: -fixfn (fn &optional equal-test halt-test) + Return a function that computes the (least) fixpoint of FN. + + FN must be a unary function. The returned lambda takes a single + argument, X, the initial value for the fixpoint iteration. The + iteration halts when either of the following conditions is + satisfied: + + 1. Iteration converges to the fixpoint, with equality being tested + using EQUAL-TEST. If EQUAL-TEST is not specified, ‘equal’ is used. + For functions over the floating point numbers, it may be necessary + to provide an appropriate approximate comparison test. + + 2. HALT-TEST returns a non-‘nil’ value. HALT-TEST defaults to a + simple counter that returns ‘t’ after ‘-fixfn-max-iterations’, to + guard against infinite iteration. Otherwise, HALT-TEST must be a + function that accepts a single argument, the current value of X, + and returns non-‘nil’ as long as iteration should continue. In + this way, a more sophisticated convergence test may be supplied by + the caller. + + The return value of the lambda is either the fixpoint or, if + iteration halted before converging, a cons with car ‘halted’ and + cdr the final output from HALT-TEST. + + In types: (a -> a) -> a -> a. + + (funcall (-fixfn #'cos #'approx=) 0.7) + ⇒ 0.7390851332151607 + (funcall (-fixfn (lambda (x) (expt (+ x 10) 0.25))) 2.0) + ⇒ 1.8555845286409378 + (funcall (-fixfn #'sin #'approx=) 0.1) + ⇒ (halted . t) + + -- Function: -prodfn (&rest fns) + Return a function that applies each of FNS to each of a list of + arguments. + + Takes a list of N functions and returns a function that takes a + list of length N, applying Ith function to Ith element of the input + list. Returns a list of length N. + + In types (for N=2): ((a -> b), (c -> d)) -> (a, c) -> (b, d) + + This function satisfies the following laws: + + (-compose (-prodfn f g ...) (-prodfn f’ g’ ...)) = (-prodfn + (-compose f f’) (-compose g g’) ...) + + (-prodfn f g ...) = (-juxt (-compose f (-partial #’nth 0)) + (-compose g (-partial #’nth 1)) ...) + + (-compose (-prodfn f g ...) (-juxt f’ g’ ...)) = (-juxt (-compose f + f’) (-compose g g’) ...) + + (-compose (-partial #’nth n) (-prod f1 f2 ...)) = (-compose fn + (-partial #’nth n)) + + (funcall (-prodfn #'1+ #'1- #'number-to-string) '(1 2 3)) + ⇒ (2 1 "3") + (-map (-prodfn #'1- #'1+) '((1 2) (3 4) (5 6))) + ⇒ ((0 3) (2 5) (4 7)) + (apply #'+ (funcall (-prodfn #'length #'string-to-number) '((t) "5"))) + ⇒ 6 + + +File: dash.info, Node: Development, Next: FDL, Prev: Functions, Up: Top + +3 Development +************* + +The Dash repository is hosted on GitHub at +. + +* Menu: + +* Contribute:: How to contribute. +* Contributors:: List of contributors. + + +File: dash.info, Node: Contribute, Next: Contributors, Up: Development + +3.1 Contribute +============== + +Yes, please do. Pure functions in the list manipulation realm only, +please. There’s a suite of examples/tests in ‘dev/examples.el’, so +remember to add tests for your additions, or they may get broken later. + + Run the tests with ‘make check’. Regenerate the docs with ‘make +docs’. Contributors are encouraged to install these commands as a Git +pre-commit hook, so that the tests are always running and the docs are +always in sync: + + $ cp dev/pre-commit.sh .git/hooks/pre-commit + + Oh, and don’t edit ‘README.md’ or ‘dash.texi’ directly, as they are +auto-generated. Instead, change their respective templates +‘readme-template.md’ or ‘dash-template.texi’. + + To ensure that Dash can be distributed with GNU ELPA or Emacs, we +require that all contributors assign copyright to the Free Software +Foundation. For more on this, *note (emacs)Copyright Assignment::. + + +File: dash.info, Node: Contributors, Prev: Contribute, Up: Development + +3.2 Contributors +================ + + • Matus Goljer (https://github.com/Fuco1) contributed lots of + features and functions. + • Takafumi Arakaki (https://github.com/tkf) contributed ‘-group-by’. + • tali713 (https://github.com/tali713) is the author of ‘-applify’. + • Víctor M. Valenzuela (https://github.com/vemv) contributed + ‘-repeat’. + • Nic Ferrier (https://github.com/nicferrier) contributed ‘-cons*’. + • Wilfred Hughes (https://github.com/Wilfred) contributed ‘-slice’, + ‘-first-item’, and ‘-last-item’. + • Emanuel Evans (https://github.com/shosti) contributed ‘-if-let’, + ‘-when-let’, and ‘-insert-at’. + • Johan Andersson (https://github.com/rejeep) contributed ‘-sum’, + ‘-product’, and ‘-same-items?’. + • Christina Whyte (https://github.com/kurisuwhyte) contributed + ‘-compose’. + • Steve Lamb (https://github.com/steventlamb) contributed ‘-cycle’, + ‘-pad’, ‘-annotate’, ‘-zip-fill’, and a variadic version of ‘-zip’. + • Fredrik Bergroth (https://github.com/fbergroth) made the ‘-if-let’ + family use ‘-let’ destructuring and improved the script for + generating documentation. + • Mark Oteiza (https://github.com/holomorph) contributed ‘-iota’ and + the script to create an Info manual. + • Vasilij Schneidermann (https://github.com/wasamasa) contributed + ‘-some’. + • William West (https://github.com/occidens) made ‘-fixfn’ more + robust at handling floats. + • Cam Saul (https://github.com/camsaul) contributed ‘-some->’, + ‘-some->>’, and ‘-some-->’. + • Basil L. Contovounesios (https://github.com/basil-conto) + contributed ‘-common-prefix’, ‘-common-suffix’, and various other + improvements. + • Paul Pogonyshev (https://github.com/doublep) contributed ‘-each-r’ + and ‘-each-r-while’. + + Thanks! + + New contributors are very welcome. *Note Contribute::. + + +File: dash.info, Node: FDL, Next: GPL, Prev: Development, Up: Top + +Appendix A GNU Free Documentation License +***************************************** + + Version 1.3, 3 November 2008 + + Copyright © 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc. + + + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + 0. PREAMBLE + + The purpose of this License is to make a manual, textbook, or other + functional and useful document “free” in the sense of freedom: to + assure everyone the effective freedom to copy and redistribute it, + with or without modifying it, either commercially or + noncommercially. Secondarily, this License preserves for the + author and publisher a way to get credit for their work, while not + being considered responsible for modifications made by others. + + This License is a kind of “copyleft”, which means that derivative + works of the document must themselves be free in the same sense. + It complements the GNU General Public License, which is a copyleft + license designed for free software. + + We have designed this License in order to use it for manuals for + free software, because free software needs free documentation: a + free program should come with manuals providing the same freedoms + that the software does. But this License is not limited to + software manuals; it can be used for any textual work, regardless + of subject matter or whether it is published as a printed book. We + recommend this License principally for works whose purpose is + instruction or reference. + + 1. APPLICABILITY AND DEFINITIONS + + This License applies to any manual or other work, in any medium, + that contains a notice placed by the copyright holder saying it can + be distributed under the terms of this License. Such a notice + grants a world-wide, royalty-free license, unlimited in duration, + to use that work under the conditions stated herein. The + “Document”, below, refers to any such manual or work. Any member + of the public is a licensee, and is addressed as “you”. You accept + the license if you copy, modify or distribute the work in a way + requiring permission under copyright law. + + A “Modified Version” of the Document means any work containing the + Document or a portion of it, either copied verbatim, or with + modifications and/or translated into another language. + + A “Secondary Section” is a named appendix or a front-matter section + of the Document that deals exclusively with the relationship of the + publishers or authors of the Document to the Document’s overall + subject (or to related matters) and contains nothing that could + fall directly within that overall subject. (Thus, if the Document + is in part a textbook of mathematics, a Secondary Section may not + explain any mathematics.) The relationship could be a matter of + historical connection with the subject or with related matters, or + of legal, commercial, philosophical, ethical or political position + regarding them. + + The “Invariant Sections” are certain Secondary Sections whose + titles are designated, as being those of Invariant Sections, in the + notice that says that the Document is released under this License. + If a section does not fit the above definition of Secondary then it + is not allowed to be designated as Invariant. The Document may + contain zero Invariant Sections. If the Document does not identify + any Invariant Sections then there are none. + + The “Cover Texts” are certain short passages of text that are + listed, as Front-Cover Texts or Back-Cover Texts, in the notice + that says that the Document is released under this License. A + Front-Cover Text may be at most 5 words, and a Back-Cover Text may + be at most 25 words. + + A “Transparent” copy of the Document means a machine-readable copy, + represented in a format whose specification is available to the + general public, that is suitable for revising the document + straightforwardly with generic text editors or (for images composed + of pixels) generic paint programs or (for drawings) some widely + available drawing editor, and that is suitable for input to text + formatters or for automatic translation to a variety of formats + suitable for input to text formatters. A copy made in an otherwise + Transparent file format whose markup, or absence of markup, has + been arranged to thwart or discourage subsequent modification by + readers is not Transparent. An image format is not Transparent if + used for any substantial amount of text. A copy that is not + “Transparent” is called “Opaque”. + + Examples of suitable formats for Transparent copies include plain + ASCII without markup, Texinfo input format, LaTeX input format, + SGML or XML using a publicly available DTD, and standard-conforming + simple HTML, PostScript or PDF designed for human modification. + Examples of transparent image formats include PNG, XCF and JPG. + Opaque formats include proprietary formats that can be read and + edited only by proprietary word processors, SGML or XML for which + the DTD and/or processing tools are not generally available, and + the machine-generated HTML, PostScript or PDF produced by some word + processors for output purposes only. + + The “Title Page” means, for a printed book, the title page itself, + plus such following pages as are needed to hold, legibly, the + material this License requires to appear in the title page. For + works in formats which do not have any title page as such, “Title + Page” means the text near the most prominent appearance of the + work’s title, preceding the beginning of the body of the text. + + The “publisher” means any person or entity that distributes copies + of the Document to the public. + + A section “Entitled XYZ” means a named subunit of the Document + whose title either is precisely XYZ or contains XYZ in parentheses + following text that translates XYZ in another language. (Here XYZ + stands for a specific section name mentioned below, such as + “Acknowledgements”, “Dedications”, “Endorsements”, or “History”.) + To “Preserve the Title” of such a section when you modify the + Document means that it remains a section “Entitled XYZ” according + to this definition. + + The Document may include Warranty Disclaimers next to the notice + which states that this License applies to the Document. These + Warranty Disclaimers are considered to be included by reference in + this License, but only as regards disclaiming warranties: any other + implication that these Warranty Disclaimers may have is void and + has no effect on the meaning of this License. + + 2. VERBATIM COPYING + + You may copy and distribute the Document in any medium, either + commercially or noncommercially, provided that this License, the + copyright notices, and the license notice saying this License + applies to the Document are reproduced in all copies, and that you + add no other conditions whatsoever to those of this License. You + may not use technical measures to obstruct or control the reading + or further copying of the copies you make or distribute. However, + you may accept compensation in exchange for copies. If you + distribute a large enough number of copies you must also follow the + conditions in section 3. + + You may also lend copies, under the same conditions stated above, + and you may publicly display copies. + + 3. COPYING IN QUANTITY + + If you publish printed copies (or copies in media that commonly + have printed covers) of the Document, numbering more than 100, and + the Document’s license notice requires Cover Texts, you must + enclose the copies in covers that carry, clearly and legibly, all + these Cover Texts: Front-Cover Texts on the front cover, and + Back-Cover Texts on the back cover. Both covers must also clearly + and legibly identify you as the publisher of these copies. The + front cover must present the full title with all words of the title + equally prominent and visible. You may add other material on the + covers in addition. Copying with changes limited to the covers, as + long as they preserve the title of the Document and satisfy these + conditions, can be treated as verbatim copying in other respects. + + If the required texts for either cover are too voluminous to fit + legibly, you should put the first ones listed (as many as fit + reasonably) on the actual cover, and continue the rest onto + adjacent pages. + + If you publish or distribute Opaque copies of the Document + numbering more than 100, you must either include a machine-readable + Transparent copy along with each Opaque copy, or state in or with + each Opaque copy a computer-network location from which the general + network-using public has access to download using public-standard + network protocols a complete Transparent copy of the Document, free + of added material. If you use the latter option, you must take + reasonably prudent steps, when you begin distribution of Opaque + copies in quantity, to ensure that this Transparent copy will + remain thus accessible at the stated location until at least one + year after the last time you distribute an Opaque copy (directly or + through your agents or retailers) of that edition to the public. + + It is requested, but not required, that you contact the authors of + the Document well before redistributing any large number of copies, + to give them a chance to provide you with an updated version of the + Document. + + 4. MODIFICATIONS + + You may copy and distribute a Modified Version of the Document + under the conditions of sections 2 and 3 above, provided that you + release the Modified Version under precisely this License, with the + Modified Version filling the role of the Document, thus licensing + distribution and modification of the Modified Version to whoever + possesses a copy of it. In addition, you must do these things in + the Modified Version: + + A. Use in the Title Page (and on the covers, if any) a title + distinct from that of the Document, and from those of previous + versions (which should, if there were any, be listed in the + History section of the Document). You may use the same title + as a previous version if the original publisher of that + version gives permission. + + B. List on the Title Page, as authors, one or more persons or + entities responsible for authorship of the modifications in + the Modified Version, together with at least five of the + principal authors of the Document (all of its principal + authors, if it has fewer than five), unless they release you + from this requirement. + + C. State on the Title page the name of the publisher of the + Modified Version, as the publisher. + + D. Preserve all the copyright notices of the Document. + + E. Add an appropriate copyright notice for your modifications + adjacent to the other copyright notices. + + F. Include, immediately after the copyright notices, a license + notice giving the public permission to use the Modified + Version under the terms of this License, in the form shown in + the Addendum below. + + G. Preserve in that license notice the full lists of Invariant + Sections and required Cover Texts given in the Document’s + license notice. + + H. Include an unaltered copy of this License. + + I. Preserve the section Entitled “History”, Preserve its Title, + and add to it an item stating at least the title, year, new + authors, and publisher of the Modified Version as given on the + Title Page. If there is no section Entitled “History” in the + Document, create one stating the title, year, authors, and + publisher of the Document as given on its Title Page, then add + an item describing the Modified Version as stated in the + previous sentence. + + J. Preserve the network location, if any, given in the Document + for public access to a Transparent copy of the Document, and + likewise the network locations given in the Document for + previous versions it was based on. These may be placed in the + “History” section. You may omit a network location for a work + that was published at least four years before the Document + itself, or if the original publisher of the version it refers + to gives permission. + + K. For any section Entitled “Acknowledgements” or “Dedications”, + Preserve the Title of the section, and preserve in the section + all the substance and tone of each of the contributor + acknowledgements and/or dedications given therein. + + L. Preserve all the Invariant Sections of the Document, unaltered + in their text and in their titles. Section numbers or the + equivalent are not considered part of the section titles. + + M. Delete any section Entitled “Endorsements”. Such a section + may not be included in the Modified Version. + + N. Do not retitle any existing section to be Entitled + “Endorsements” or to conflict in title with any Invariant + Section. + + O. Preserve any Warranty Disclaimers. + + If the Modified Version includes new front-matter sections or + appendices that qualify as Secondary Sections and contain no + material copied from the Document, you may at your option designate + some or all of these sections as invariant. To do this, add their + titles to the list of Invariant Sections in the Modified Version’s + license notice. These titles must be distinct from any other + section titles. + + You may add a section Entitled “Endorsements”, provided it contains + nothing but endorsements of your Modified Version by various + parties—for example, statements of peer review or that the text has + been approved by an organization as the authoritative definition of + a standard. + + You may add a passage of up to five words as a Front-Cover Text, + and a passage of up to 25 words as a Back-Cover Text, to the end of + the list of Cover Texts in the Modified Version. Only one passage + of Front-Cover Text and one of Back-Cover Text may be added by (or + through arrangements made by) any one entity. If the Document + already includes a cover text for the same cover, previously added + by you or by arrangement made by the same entity you are acting on + behalf of, you may not add another; but you may replace the old + one, on explicit permission from the previous publisher that added + the old one. + + The author(s) and publisher(s) of the Document do not by this + License give permission to use their names for publicity for or to + assert or imply endorsement of any Modified Version. + + 5. COMBINING DOCUMENTS + + You may combine the Document with other documents released under + this License, under the terms defined in section 4 above for + modified versions, provided that you include in the combination all + of the Invariant Sections of all of the original documents, + unmodified, and list them all as Invariant Sections of your + combined work in its license notice, and that you preserve all + their Warranty Disclaimers. + + The combined work need only contain one copy of this License, and + multiple identical Invariant Sections may be replaced with a single + copy. If there are multiple Invariant Sections with the same name + but different contents, make the title of each such section unique + by adding at the end of it, in parentheses, the name of the + original author or publisher of that section if known, or else a + unique number. Make the same adjustment to the section titles in + the list of Invariant Sections in the license notice of the + combined work. + + In the combination, you must combine any sections Entitled + “History” in the various original documents, forming one section + Entitled “History”; likewise combine any sections Entitled + “Acknowledgements”, and any sections Entitled “Dedications”. You + must delete all sections Entitled “Endorsements.” + + 6. COLLECTIONS OF DOCUMENTS + + You may make a collection consisting of the Document and other + documents released under this License, and replace the individual + copies of this License in the various documents with a single copy + that is included in the collection, provided that you follow the + rules of this License for verbatim copying of each of the documents + in all other respects. + + You may extract a single document from such a collection, and + distribute it individually under this License, provided you insert + a copy of this License into the extracted document, and follow this + License in all other respects regarding verbatim copying of that + document. + + 7. AGGREGATION WITH INDEPENDENT WORKS + + A compilation of the Document or its derivatives with other + separate and independent documents or works, in or on a volume of a + storage or distribution medium, is called an “aggregate” if the + copyright resulting from the compilation is not used to limit the + legal rights of the compilation’s users beyond what the individual + works permit. When the Document is included in an aggregate, this + License does not apply to the other works in the aggregate which + are not themselves derivative works of the Document. + + If the Cover Text requirement of section 3 is applicable to these + copies of the Document, then if the Document is less than one half + of the entire aggregate, the Document’s Cover Texts may be placed + on covers that bracket the Document within the aggregate, or the + electronic equivalent of covers if the Document is in electronic + form. Otherwise they must appear on printed covers that bracket + the whole aggregate. + + 8. TRANSLATION + + Translation is considered a kind of modification, so you may + distribute translations of the Document under the terms of section + 4. Replacing Invariant Sections with translations requires special + permission from their copyright holders, but you may include + translations of some or all Invariant Sections in addition to the + original versions of these Invariant Sections. You may include a + translation of this License, and all the license notices in the + Document, and any Warranty Disclaimers, provided that you also + include the original English version of this License and the + original versions of those notices and disclaimers. In case of a + disagreement between the translation and the original version of + this License or a notice or disclaimer, the original version will + prevail. + + If a section in the Document is Entitled “Acknowledgements”, + “Dedications”, or “History”, the requirement (section 4) to + Preserve its Title (section 1) will typically require changing the + actual title. + + 9. TERMINATION + + You may not copy, modify, sublicense, or distribute the Document + except as expressly provided under this License. Any attempt + otherwise to copy, modify, sublicense, or distribute it is void, + and will automatically terminate your rights under this License. + + However, if you cease all violation of this License, then your + license from a particular copyright holder is reinstated (a) + provisionally, unless and until the copyright holder explicitly and + finally terminates your license, and (b) permanently, if the + copyright holder fails to notify you of the violation by some + reasonable means prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is + reinstated permanently if the copyright holder notifies you of the + violation by some reasonable means, this is the first time you have + received notice of violation of this License (for any work) from + that copyright holder, and you cure the violation prior to 30 days + after your receipt of the notice. + + Termination of your rights under this section does not terminate + the licenses of parties who have received copies or rights from you + under this License. If your rights have been terminated and not + permanently reinstated, receipt of a copy of some or all of the + same material does not give you any rights to use it. + + 10. FUTURE REVISIONS OF THIS LICENSE + + The Free Software Foundation may publish new, revised versions of + the GNU Free Documentation License from time to time. Such new + versions will be similar in spirit to the present version, but may + differ in detail to address new problems or concerns. See + . + + Each version of the License is given a distinguishing version + number. If the Document specifies that a particular numbered + version of this License “or any later version” applies to it, you + have the option of following the terms and conditions either of + that specified version or of any later version that has been + published (not as a draft) by the Free Software Foundation. If the + Document does not specify a version number of this License, you may + choose any version ever published (not as a draft) by the Free + Software Foundation. If the Document specifies that a proxy can + decide which future versions of this License can be used, that + proxy’s public statement of acceptance of a version permanently + authorizes you to choose that version for the Document. + + 11. RELICENSING + + “Massive Multiauthor Collaboration Site” (or “MMC Site”) means any + World Wide Web server that publishes copyrightable works and also + provides prominent facilities for anybody to edit those works. A + public wiki that anybody can edit is an example of such a server. + A “Massive Multiauthor Collaboration” (or “MMC”) contained in the + site means any set of copyrightable works thus published on the MMC + site. + + “CC-BY-SA” means the Creative Commons Attribution-Share Alike 3.0 + license published by Creative Commons Corporation, a not-for-profit + corporation with a principal place of business in San Francisco, + California, as well as future copyleft versions of that license + published by that same organization. + + “Incorporate” means to publish or republish a Document, in whole or + in part, as part of another Document. + + An MMC is “eligible for relicensing” if it is licensed under this + License, and if all works that were first published under this + License somewhere other than this MMC, and subsequently + incorporated in whole or in part into the MMC, (1) had no cover + texts or invariant sections, and (2) were thus incorporated prior + to November 1, 2008. + + The operator of an MMC Site may republish an MMC contained in the + site under CC-BY-SA on the same site at any time before August 1, + 2009, provided the MMC is eligible for relicensing. + +ADDENDUM: How to use this License for your documents +==================================================== + +To use this License in a document you have written, include a copy of +the License in the document and put the following copyright and license +notices just after the title page: + + Copyright (C) YEAR YOUR NAME. + Permission is granted to copy, distribute and/or modify this document + under the terms of the GNU Free Documentation License, Version 1.3 + or any later version published by the Free Software Foundation; + with no Invariant Sections, no Front-Cover Texts, and no Back-Cover + Texts. A copy of the license is included in the section entitled ``GNU + Free Documentation License''. + + If you have Invariant Sections, Front-Cover Texts and Back-Cover +Texts, replace the “with...Texts.” line with this: + + with the Invariant Sections being LIST THEIR TITLES, with + the Front-Cover Texts being LIST, and with the Back-Cover Texts + being LIST. + + If you have Invariant Sections without Cover Texts, or some other +combination of the three, merge those two alternatives to suit the +situation. + + If your document contains nontrivial examples of program code, we +recommend releasing these examples in parallel under your choice of free +software license, such as the GNU General Public License, to permit +their use in free software. + + +File: dash.info, Node: GPL, Next: Index, Prev: FDL, Up: Top + +Appendix B GNU General Public License +************************************* + + Version 3, 29 June 2007 + + Copyright © 2007 Free Software Foundation, Inc. + + Everyone is permitted to copy and distribute verbatim copies of this + license document, but changing it is not allowed. + +Preamble +======== + +The GNU General Public License is a free, copyleft license for software +and other kinds of works. + + The licenses for most software and other practical works are designed +to take away your freedom to share and change the works. By contrast, +the GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program—to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +them if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new +free programs, and that you know you can do these things. + + To protect your rights, we need to prevent others from denying you +these rights or asking you to surrender the rights. Therefore, you have +certain responsibilities if you distribute copies of the software, or if +you modify it: responsibilities to respect the freedom of others. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must pass on to the recipients the same +freedoms that you received. You must make sure that they, too, receive +or can get the source code. And you must show them these terms so they +know their rights. + + Developers that use the GNU GPL protect your rights with two steps: +(1) assert copyright on the software, and (2) offer you this License +giving you legal permission to copy, distribute and/or modify it. + + For the developers’ and authors’ protection, the GPL clearly explains +that there is no warranty for this free software. For both users’ and +authors’ sake, the GPL requires that modified versions be marked as +changed, so that their problems will not be attributed erroneously to +authors of previous versions. + + Some devices are designed to deny users access to install or run +modified versions of the software inside them, although the manufacturer +can do so. This is fundamentally incompatible with the aim of +protecting users’ freedom to change the software. The systematic +pattern of such abuse occurs in the area of products for individuals to +use, which is precisely where it is most unacceptable. Therefore, we +have designed this version of the GPL to prohibit the practice for those +products. If such problems arise substantially in other domains, we +stand ready to extend this provision to those domains in future versions +of the GPL, as needed to protect the freedom of users. + + Finally, every program is threatened constantly by software patents. +States should not allow patents to restrict development and use of +software on general-purpose computers, but in those that do, we wish to +avoid the special danger that patents applied to a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. + + The precise terms and conditions for copying, distribution and +modification follow. + +TERMS AND CONDITIONS +==================== + + 0. Definitions. + + “This License” refers to version 3 of the GNU General Public + License. + + “Copyright” also means copyright-like laws that apply to other + kinds of works, such as semiconductor masks. + + “The Program” refers to any copyrightable work licensed under this + License. Each licensee is addressed as “you”. “Licensees” and + “recipients” may be individuals or organizations. + + To “modify” a work means to copy from or adapt all or part of the + work in a fashion requiring copyright permission, other than the + making of an exact copy. The resulting work is called a “modified + version” of the earlier work or a work “based on” the earlier work. + + A “covered work” means either the unmodified Program or a work + based on the Program. + + To “propagate” a work means to do anything with it that, without + permission, would make you directly or secondarily liable for + infringement under applicable copyright law, except executing it on + a computer or modifying a private copy. Propagation includes + copying, distribution (with or without modification), making + available to the public, and in some countries other activities as + well. + + To “convey” a work means any kind of propagation that enables other + parties to make or receive copies. Mere interaction with a user + through a computer network, with no transfer of a copy, is not + conveying. + + An interactive user interface displays “Appropriate Legal Notices” + to the extent that it includes a convenient and prominently visible + feature that (1) displays an appropriate copyright notice, and (2) + tells the user that there is no warranty for the work (except to + the extent that warranties are provided), that licensees may convey + the work under this License, and how to view a copy of this + License. If the interface presents a list of user commands or + options, such as a menu, a prominent item in the list meets this + criterion. + + 1. Source Code. + + The “source code” for a work means the preferred form of the work + for making modifications to it. “Object code” means any non-source + form of a work. + + A “Standard Interface” means an interface that either is an + official standard defined by a recognized standards body, or, in + the case of interfaces specified for a particular programming + language, one that is widely used among developers working in that + language. + + The “System Libraries” of an executable work include anything, + other than the work as a whole, that (a) is included in the normal + form of packaging a Major Component, but which is not part of that + Major Component, and (b) serves only to enable use of the work with + that Major Component, or to implement a Standard Interface for + which an implementation is available to the public in source code + form. A “Major Component”, in this context, means a major + essential component (kernel, window system, and so on) of the + specific operating system (if any) on which the executable work + runs, or a compiler used to produce the work, or an object code + interpreter used to run it. + + The “Corresponding Source” for a work in object code form means all + the source code needed to generate, install, and (for an executable + work) run the object code and to modify the work, including scripts + to control those activities. However, it does not include the + work’s System Libraries, or general-purpose tools or generally + available free programs which are used unmodified in performing + those activities but which are not part of the work. For example, + Corresponding Source includes interface definition files associated + with source files for the work, and the source code for shared + libraries and dynamically linked subprograms that the work is + specifically designed to require, such as by intimate data + communication or control flow between those subprograms and other + parts of the work. + + The Corresponding Source need not include anything that users can + regenerate automatically from other parts of the Corresponding + Source. + + The Corresponding Source for a work in source code form is that + same work. + + 2. Basic Permissions. + + All rights granted under this License are granted for the term of + copyright on the Program, and are irrevocable provided the stated + conditions are met. This License explicitly affirms your unlimited + permission to run the unmodified Program. The output from running + a covered work is covered by this License only if the output, given + its content, constitutes a covered work. This License acknowledges + your rights of fair use or other equivalent, as provided by + copyright law. + + You may make, run and propagate covered works that you do not + convey, without conditions so long as your license otherwise + remains in force. You may convey covered works to others for the + sole purpose of having them make modifications exclusively for you, + or provide you with facilities for running those works, provided + that you comply with the terms of this License in conveying all + material for which you do not control copyright. Those thus making + or running the covered works for you must do so exclusively on your + behalf, under your direction and control, on terms that prohibit + them from making any copies of your copyrighted material outside + their relationship with you. + + Conveying under any other circumstances is permitted solely under + the conditions stated below. Sublicensing is not allowed; section + 10 makes it unnecessary. + + 3. Protecting Users’ Legal Rights From Anti-Circumvention Law. + + No covered work shall be deemed part of an effective technological + measure under any applicable law fulfilling obligations under + article 11 of the WIPO copyright treaty adopted on 20 December + 1996, or similar laws prohibiting or restricting circumvention of + such measures. + + When you convey a covered work, you waive any legal power to forbid + circumvention of technological measures to the extent such + circumvention is effected by exercising rights under this License + with respect to the covered work, and you disclaim any intention to + limit operation or modification of the work as a means of + enforcing, against the work’s users, your or third parties’ legal + rights to forbid circumvention of technological measures. + + 4. Conveying Verbatim Copies. + + You may convey verbatim copies of the Program’s source code as you + receive it, in any medium, provided that you conspicuously and + appropriately publish on each copy an appropriate copyright notice; + keep intact all notices stating that this License and any + non-permissive terms added in accord with section 7 apply to the + code; keep intact all notices of the absence of any warranty; and + give all recipients a copy of this License along with the Program. + + You may charge any price or no price for each copy that you convey, + and you may offer support or warranty protection for a fee. + + 5. Conveying Modified Source Versions. + + You may convey a work based on the Program, or the modifications to + produce it from the Program, in the form of source code under the + terms of section 4, provided that you also meet all of these + conditions: + + a. The work must carry prominent notices stating that you + modified it, and giving a relevant date. + + b. The work must carry prominent notices stating that it is + released under this License and any conditions added under + section 7. This requirement modifies the requirement in + section 4 to “keep intact all notices”. + + c. You must license the entire work, as a whole, under this + License to anyone who comes into possession of a copy. This + License will therefore apply, along with any applicable + section 7 additional terms, to the whole of the work, and all + its parts, regardless of how they are packaged. This License + gives no permission to license the work in any other way, but + it does not invalidate such permission if you have separately + received it. + + d. If the work has interactive user interfaces, each must display + Appropriate Legal Notices; however, if the Program has + interactive interfaces that do not display Appropriate Legal + Notices, your work need not make them do so. + + A compilation of a covered work with other separate and independent + works, which are not by their nature extensions of the covered + work, and which are not combined with it such as to form a larger + program, in or on a volume of a storage or distribution medium, is + called an “aggregate” if the compilation and its resulting + copyright are not used to limit the access or legal rights of the + compilation’s users beyond what the individual works permit. + Inclusion of a covered work in an aggregate does not cause this + License to apply to the other parts of the aggregate. + + 6. Conveying Non-Source Forms. + + You may convey a covered work in object code form under the terms + of sections 4 and 5, provided that you also convey the + machine-readable Corresponding Source under the terms of this + License, in one of these ways: + + a. Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by the + Corresponding Source fixed on a durable physical medium + customarily used for software interchange. + + b. Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by a + written offer, valid for at least three years and valid for as + long as you offer spare parts or customer support for that + product model, to give anyone who possesses the object code + either (1) a copy of the Corresponding Source for all the + software in the product that is covered by this License, on a + durable physical medium customarily used for software + interchange, for a price no more than your reasonable cost of + physically performing this conveying of source, or (2) access + to copy the Corresponding Source from a network server at no + charge. + + c. Convey individual copies of the object code with a copy of the + written offer to provide the Corresponding Source. This + alternative is allowed only occasionally and noncommercially, + and only if you received the object code with such an offer, + in accord with subsection 6b. + + d. Convey the object code by offering access from a designated + place (gratis or for a charge), and offer equivalent access to + the Corresponding Source in the same way through the same + place at no further charge. You need not require recipients + to copy the Corresponding Source along with the object code. + If the place to copy the object code is a network server, the + Corresponding Source may be on a different server (operated by + you or a third party) that supports equivalent copying + facilities, provided you maintain clear directions next to the + object code saying where to find the Corresponding Source. + Regardless of what server hosts the Corresponding Source, you + remain obligated to ensure that it is available for as long as + needed to satisfy these requirements. + + e. Convey the object code using peer-to-peer transmission, + provided you inform other peers where the object code and + Corresponding Source of the work are being offered to the + general public at no charge under subsection 6d. + + A separable portion of the object code, whose source code is + excluded from the Corresponding Source as a System Library, need + not be included in conveying the object code work. + + A “User Product” is either (1) a “consumer product”, which means + any tangible personal property which is normally used for personal, + family, or household purposes, or (2) anything designed or sold for + incorporation into a dwelling. In determining whether a product is + a consumer product, doubtful cases shall be resolved in favor of + coverage. For a particular product received by a particular user, + “normally used” refers to a typical or common use of that class of + product, regardless of the status of the particular user or of the + way in which the particular user actually uses, or expects or is + expected to use, the product. A product is a consumer product + regardless of whether the product has substantial commercial, + industrial or non-consumer uses, unless such uses represent the + only significant mode of use of the product. + + “Installation Information” for a User Product means any methods, + procedures, authorization keys, or other information required to + install and execute modified versions of a covered work in that + User Product from a modified version of its Corresponding Source. + The information must suffice to ensure that the continued + functioning of the modified object code is in no case prevented or + interfered with solely because modification has been made. + + If you convey an object code work under this section in, or with, + or specifically for use in, a User Product, and the conveying + occurs as part of a transaction in which the right of possession + and use of the User Product is transferred to the recipient in + perpetuity or for a fixed term (regardless of how the transaction + is characterized), the Corresponding Source conveyed under this + section must be accompanied by the Installation Information. But + this requirement does not apply if neither you nor any third party + retains the ability to install modified object code on the User + Product (for example, the work has been installed in ROM). + + The requirement to provide Installation Information does not + include a requirement to continue to provide support service, + warranty, or updates for a work that has been modified or installed + by the recipient, or for the User Product in which it has been + modified or installed. Access to a network may be denied when the + modification itself materially and adversely affects the operation + of the network or violates the rules and protocols for + communication across the network. + + Corresponding Source conveyed, and Installation Information + provided, in accord with this section must be in a format that is + publicly documented (and with an implementation available to the + public in source code form), and must require no special password + or key for unpacking, reading or copying. + + 7. Additional Terms. + + “Additional permissions” are terms that supplement the terms of + this License by making exceptions from one or more of its + conditions. Additional permissions that are applicable to the + entire Program shall be treated as though they were included in + this License, to the extent that they are valid under applicable + law. If additional permissions apply only to part of the Program, + that part may be used separately under those permissions, but the + entire Program remains governed by this License without regard to + the additional permissions. + + When you convey a copy of a covered work, you may at your option + remove any additional permissions from that copy, or from any part + of it. (Additional permissions may be written to require their own + removal in certain cases when you modify the work.) You may place + additional permissions on material, added by you to a covered work, + for which you have or can give appropriate copyright permission. + + Notwithstanding any other provision of this License, for material + you add to a covered work, you may (if authorized by the copyright + holders of that material) supplement the terms of this License with + terms: + + a. Disclaiming warranty or limiting liability differently from + the terms of sections 15 and 16 of this License; or + + b. Requiring preservation of specified reasonable legal notices + or author attributions in that material or in the Appropriate + Legal Notices displayed by works containing it; or + + c. Prohibiting misrepresentation of the origin of that material, + or requiring that modified versions of such material be marked + in reasonable ways as different from the original version; or + + d. Limiting the use for publicity purposes of names of licensors + or authors of the material; or + + e. Declining to grant rights under trademark law for use of some + trade names, trademarks, or service marks; or + + f. Requiring indemnification of licensors and authors of that + material by anyone who conveys the material (or modified + versions of it) with contractual assumptions of liability to + the recipient, for any liability that these contractual + assumptions directly impose on those licensors and authors. + + All other non-permissive additional terms are considered “further + restrictions” within the meaning of section 10. If the Program as + you received it, or any part of it, contains a notice stating that + it is governed by this License along with a term that is a further + restriction, you may remove that term. If a license document + contains a further restriction but permits relicensing or conveying + under this License, you may add to a covered work material governed + by the terms of that license document, provided that the further + restriction does not survive such relicensing or conveying. + + If you add terms to a covered work in accord with this section, you + must place, in the relevant source files, a statement of the + additional terms that apply to those files, or a notice indicating + where to find the applicable terms. + + Additional terms, permissive or non-permissive, may be stated in + the form of a separately written license, or stated as exceptions; + the above requirements apply either way. + + 8. Termination. + + You may not propagate or modify a covered work except as expressly + provided under this License. Any attempt otherwise to propagate or + modify it is void, and will automatically terminate your rights + under this License (including any patent licenses granted under the + third paragraph of section 11). + + However, if you cease all violation of this License, then your + license from a particular copyright holder is reinstated (a) + provisionally, unless and until the copyright holder explicitly and + finally terminates your license, and (b) permanently, if the + copyright holder fails to notify you of the violation by some + reasonable means prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is + reinstated permanently if the copyright holder notifies you of the + violation by some reasonable means, this is the first time you have + received notice of violation of this License (for any work) from + that copyright holder, and you cure the violation prior to 30 days + after your receipt of the notice. + + Termination of your rights under this section does not terminate + the licenses of parties who have received copies or rights from you + under this License. If your rights have been terminated and not + permanently reinstated, you do not qualify to receive new licenses + for the same material under section 10. + + 9. Acceptance Not Required for Having Copies. + + You are not required to accept this License in order to receive or + run a copy of the Program. Ancillary propagation of a covered work + occurring solely as a consequence of using peer-to-peer + transmission to receive a copy likewise does not require + acceptance. However, nothing other than this License grants you + permission to propagate or modify any covered work. These actions + infringe copyright if you do not accept this License. Therefore, + by modifying or propagating a covered work, you indicate your + acceptance of this License to do so. + + 10. Automatic Licensing of Downstream Recipients. + + Each time you convey a covered work, the recipient automatically + receives a license from the original licensors, to run, modify and + propagate that work, subject to this License. You are not + responsible for enforcing compliance by third parties with this + License. + + An “entity transaction” is a transaction transferring control of an + organization, or substantially all assets of one, or subdividing an + organization, or merging organizations. If propagation of a + covered work results from an entity transaction, each party to that + transaction who receives a copy of the work also receives whatever + licenses to the work the party’s predecessor in interest had or + could give under the previous paragraph, plus a right to possession + of the Corresponding Source of the work from the predecessor in + interest, if the predecessor has it or can get it with reasonable + efforts. + + You may not impose any further restrictions on the exercise of the + rights granted or affirmed under this License. For example, you + may not impose a license fee, royalty, or other charge for exercise + of rights granted under this License, and you may not initiate + litigation (including a cross-claim or counterclaim in a lawsuit) + alleging that any patent claim is infringed by making, using, + selling, offering for sale, or importing the Program or any portion + of it. + + 11. Patents. + + A “contributor” is a copyright holder who authorizes use under this + License of the Program or a work on which the Program is based. + The work thus licensed is called the contributor’s “contributor + version”. + + A contributor’s “essential patent claims” are all patent claims + owned or controlled by the contributor, whether already acquired or + hereafter acquired, that would be infringed by some manner, + permitted by this License, of making, using, or selling its + contributor version, but do not include claims that would be + infringed only as a consequence of further modification of the + contributor version. For purposes of this definition, “control” + includes the right to grant patent sublicenses in a manner + consistent with the requirements of this License. + + Each contributor grants you a non-exclusive, worldwide, + royalty-free patent license under the contributor’s essential + patent claims, to make, use, sell, offer for sale, import and + otherwise run, modify and propagate the contents of its contributor + version. + + In the following three paragraphs, a “patent license” is any + express agreement or commitment, however denominated, not to + enforce a patent (such as an express permission to practice a + patent or covenant not to sue for patent infringement). To “grant” + such a patent license to a party means to make such an agreement or + commitment not to enforce a patent against the party. + + If you convey a covered work, knowingly relying on a patent + license, and the Corresponding Source of the work is not available + for anyone to copy, free of charge and under the terms of this + License, through a publicly available network server or other + readily accessible means, then you must either (1) cause the + Corresponding Source to be so available, or (2) arrange to deprive + yourself of the benefit of the patent license for this particular + work, or (3) arrange, in a manner consistent with the requirements + of this License, to extend the patent license to downstream + recipients. “Knowingly relying” means you have actual knowledge + that, but for the patent license, your conveying the covered work + in a country, or your recipient’s use of the covered work in a + country, would infringe one or more identifiable patents in that + country that you have reason to believe are valid. + + If, pursuant to or in connection with a single transaction or + arrangement, you convey, or propagate by procuring conveyance of, a + covered work, and grant a patent license to some of the parties + receiving the covered work authorizing them to use, propagate, + modify or convey a specific copy of the covered work, then the + patent license you grant is automatically extended to all + recipients of the covered work and works based on it. + + A patent license is “discriminatory” if it does not include within + the scope of its coverage, prohibits the exercise of, or is + conditioned on the non-exercise of one or more of the rights that + are specifically granted under this License. You may not convey a + covered work if you are a party to an arrangement with a third + party that is in the business of distributing software, under which + you make payment to the third party based on the extent of your + activity of conveying the work, and under which the third party + grants, to any of the parties who would receive the covered work + from you, a discriminatory patent license (a) in connection with + copies of the covered work conveyed by you (or copies made from + those copies), or (b) primarily for and in connection with specific + products or compilations that contain the covered work, unless you + entered into that arrangement, or that patent license was granted, + prior to 28 March 2007. + + Nothing in this License shall be construed as excluding or limiting + any implied license or other defenses to infringement that may + otherwise be available to you under applicable patent law. + + 12. No Surrender of Others’ Freedom. + + If conditions are imposed on you (whether by court order, agreement + or otherwise) that contradict the conditions of this License, they + do not excuse you from the conditions of this License. If you + cannot convey a covered work so as to satisfy simultaneously your + obligations under this License and any other pertinent obligations, + then as a consequence you may not convey it at all. For example, + if you agree to terms that obligate you to collect a royalty for + further conveying from those to whom you convey the Program, the + only way you could satisfy both those terms and this License would + be to refrain entirely from conveying the Program. + + 13. Use with the GNU Affero General Public License. + + Notwithstanding any other provision of this License, you have + permission to link or combine any covered work with a work licensed + under version 3 of the GNU Affero General Public License into a + single combined work, and to convey the resulting work. The terms + of this License will continue to apply to the part which is the + covered work, but the special requirements of the GNU Affero + General Public License, section 13, concerning interaction through + a network will apply to the combination as such. + + 14. Revised Versions of this License. + + The Free Software Foundation may publish revised and/or new + versions of the GNU General Public License from time to time. Such + new versions will be similar in spirit to the present version, but + may differ in detail to address new problems or concerns. + + Each version is given a distinguishing version number. If the + Program specifies that a certain numbered version of the GNU + General Public License “or any later version” applies to it, you + have the option of following the terms and conditions either of + that numbered version or of any later version published by the Free + Software Foundation. If the Program does not specify a version + number of the GNU General Public License, you may choose any + version ever published by the Free Software Foundation. + + If the Program specifies that a proxy can decide which future + versions of the GNU General Public License can be used, that + proxy’s public statement of acceptance of a version permanently + authorizes you to choose that version for the Program. + + Later license versions may give you additional or different + permissions. However, no additional obligations are imposed on any + author or copyright holder as a result of your choosing to follow a + later version. + + 15. Disclaimer of Warranty. + + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY + APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE + COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM “AS IS” + WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, + INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF + MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE + RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. + SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL + NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. Limitation of Liability. + + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN + WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES + AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR + DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR + CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE + THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA + BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD + PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER + PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF + THE POSSIBILITY OF SUCH DAMAGES. + + 17. Interpretation of Sections 15 and 16. + + If the disclaimer of warranty and limitation of liability provided + above cannot be given local legal effect according to their terms, + reviewing courts shall apply local law that most closely + approximates an absolute waiver of all civil liability in + connection with the Program, unless a warranty or assumption of + liability accompanies a copy of the Program in return for a fee. + +END OF TERMS AND CONDITIONS +=========================== + +How to Apply These Terms to Your New Programs +============================================= + +If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these +terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +state the exclusion of warranty; and each file should have at least the +“copyright” line and a pointer to where the full notice is found. + + ONE LINE TO GIVE THE PROGRAM'S NAME AND A BRIEF IDEA OF WHAT IT DOES. + Copyright (C) YEAR NAME OF AUTHOR + + 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 . + + Also add information on how to contact you by electronic and paper +mail. + + If the program does terminal interaction, make it output a short +notice like this when it starts in an interactive mode: + + PROGRAM Copyright (C) YEAR NAME OF AUTHOR + This program comes with ABSOLUTELY NO WARRANTY; for details type ‘show w’. + This is free software, and you are welcome to redistribute it + under certain conditions; type ‘show c’ for details. + + The hypothetical commands ‘show w’ and ‘show c’ should show the +appropriate parts of the General Public License. Of course, your +program’s commands might be different; for a GUI interface, you would +use an “about box”. + + You should also get your employer (if you work as a programmer) or +school, if any, to sign a “copyright disclaimer” for the program, if +necessary. For more information on this, and how to apply and follow +the GNU GPL, see . + + The GNU General Public License does not permit incorporating your +program into proprietary programs. If your program is a subroutine +library, you may consider it more useful to permit linking proprietary +applications with the library. If this is what you want to do, use the +GNU Lesser General Public License instead of this License. But first, +please read . + + +File: dash.info, Node: Index, Prev: GPL, Up: Top + +Index +***** + +[index] +* Menu: + +* !cdr: Destructive operations. + (line 16) +* !cons: Destructive operations. + (line 8) +* -->: Threading macros. (line 35) +* ->: Threading macros. (line 9) +* ->>: Threading macros. (line 22) +* -all?: Predicates. (line 53) +* -andfn: Function combinators. + (line 184) +* -annotate: Maps. (line 86) +* -any?: Predicates. (line 41) +* -applify: Function combinators. + (line 63) +* -as->: Threading macros. (line 49) +* -butlast: Other list operations. + (line 405) +* -clone: Tree operations. (line 123) +* -common-prefix: Reductions. (line 242) +* -common-suffix: Reductions. (line 252) +* -compose: Function combinators. + (line 49) +* -concat: List to list. (line 23) +* -cons*: Other list operations. + (line 19) +* -cons-pair?: Predicates. (line 154) +* -const: Function combinators. + (line 128) +* -contains?: Predicates. (line 100) +* -copy: Maps. (line 151) +* -count: Reductions. (line 172) +* -cut: Function combinators. + (line 140) +* -cycle: Unfolding. (line 55) +* -difference: Set operations. (line 22) +* -distinct: Set operations. (line 73) +* -dotimes: Side effects. (line 80) +* -doto: Threading macros. (line 99) +* -drop: Sublist selection. (line 149) +* -drop-last: Sublist selection. (line 163) +* -drop-while: Sublist selection. (line 194) +* -each: Side effects. (line 8) +* -each-indexed: Side effects. (line 38) +* -each-r: Side effects. (line 52) +* -each-r-while: Side effects. (line 65) +* -each-while: Side effects. (line 24) +* -elem-index: Indexing. (line 9) +* -elem-indices: Indexing. (line 23) +* -every: Predicates. (line 23) +* -fifth-item: Other list operations. + (line 380) +* -filter: Sublist selection. (line 8) +* -find-index: Indexing. (line 35) +* -find-indices: Indexing. (line 73) +* -find-last-index: Indexing. (line 54) +* -first: Other list operations. + (line 300) +* -first-item: Other list operations. + (line 328) +* -fix: Other list operations. + (line 445) +* -fixfn: Function combinators. + (line 224) +* -flatten: List to list. (line 43) +* -flatten-n: List to list. (line 65) +* -flip: Function combinators. + (line 95) +* -fourth-item: Other list operations. + (line 367) +* -frequencies: Reductions. (line 310) +* -grade-down: Indexing. (line 103) +* -grade-up: Indexing. (line 93) +* -group-by: Partitioning. (line 205) +* -if-let: Binding. (line 34) +* -if-let*: Binding. (line 45) +* -inits: Reductions. (line 222) +* -insert-at: List to list. (line 119) +* -interleave: Other list operations. + (line 56) +* -interpose: Other list operations. + (line 46) +* -intersection: Set operations. (line 36) +* -iota: Other list operations. + (line 67) +* -is-infix?: Predicates. (line 140) +* -is-prefix?: Predicates. (line 116) +* -is-suffix?: Predicates. (line 128) +* -iterate: Unfolding. (line 9) +* -iteratefn: Function combinators. + (line 201) +* -juxt: Function combinators. + (line 37) +* -keep: List to list. (line 8) +* -lambda: Binding. (line 247) +* -last: Other list operations. + (line 318) +* -last-item: Other list operations. + (line 393) +* -let: Binding. (line 61) +* -let*: Binding. (line 227) +* -list: Other list operations. + (line 428) +* -map: Maps. (line 10) +* -map-first: Maps. (line 38) +* -map-indexed: Maps. (line 68) +* -map-last: Maps. (line 53) +* -map-when: Maps. (line 22) +* -mapcat: Maps. (line 140) +* -max: Reductions. (line 286) +* -max-by: Reductions. (line 296) +* -min: Reductions. (line 262) +* -min-by: Reductions. (line 272) +* -non-nil: Sublist selection. (line 95) +* -none?: Predicates. (line 73) +* -not: Function combinators. + (line 153) +* -on: Function combinators. + (line 75) +* -only-some?: Predicates. (line 85) +* -orfn: Function combinators. + (line 167) +* -pad: Other list operations. + (line 241) +* -partial: Function combinators. + (line 8) +* -partition: Partitioning. (line 90) +* -partition-after-item: Partitioning. (line 195) +* -partition-after-pred: Partitioning. (line 162) +* -partition-all: Partitioning. (line 102) +* -partition-all-in-steps: Partitioning. (line 126) +* -partition-before-item: Partitioning. (line 185) +* -partition-before-pred: Partitioning. (line 174) +* -partition-by: Partitioning. (line 138) +* -partition-by-header: Partitioning. (line 149) +* -partition-in-steps: Partitioning. (line 113) +* -permutations: Set operations. (line 60) +* -powerset: Set operations. (line 50) +* -prodfn: Function combinators. + (line 258) +* -product: Reductions. (line 201) +* -reduce: Reductions. (line 53) +* -reduce-from: Reductions. (line 8) +* -reduce-r: Reductions. (line 72) +* -reduce-r-from: Reductions. (line 26) +* -reductions: Reductions. (line 136) +* -reductions-from: Reductions. (line 100) +* -reductions-r: Reductions. (line 154) +* -reductions-r-from: Reductions. (line 118) +* -remove: Sublist selection. (line 26) +* -remove-at: List to list. (line 156) +* -remove-at-indices: List to list. (line 175) +* -remove-first: Sublist selection. (line 44) +* -remove-item: Sublist selection. (line 84) +* -remove-last: Sublist selection. (line 65) +* -repeat: Unfolding. (line 44) +* -replace: List to list. (line 77) +* -replace-at: List to list. (line 130) +* -replace-first: List to list. (line 91) +* -replace-last: List to list. (line 105) +* -rotate: Other list operations. + (line 8) +* -rotate-args: Function combinators. + (line 112) +* -rpartial: Function combinators. + (line 22) +* -running-product: Reductions. (line 211) +* -running-sum: Reductions. (line 190) +* -same-items?: Set operations. (line 88) +* -second-item: Other list operations. + (line 341) +* -select-by-indices: Sublist selection. (line 211) +* -select-column: Sublist selection. (line 241) +* -select-columns: Sublist selection. (line 222) +* -separate: Partitioning. (line 75) +* -setq: Binding. (line 270) +* -slice: Sublist selection. (line 105) +* -snoc: Other list operations. + (line 32) +* -some: Predicates. (line 8) +* -some-->: Threading macros. (line 86) +* -some->: Threading macros. (line 62) +* -some->>: Threading macros. (line 74) +* -sort: Other list operations. + (line 415) +* -splice: Maps. (line 102) +* -splice-list: Maps. (line 127) +* -split-at: Partitioning. (line 8) +* -split-on: Partitioning. (line 40) +* -split-when: Partitioning. (line 58) +* -split-with: Partitioning. (line 23) +* -sum: Reductions. (line 180) +* -table: Other list operations. + (line 256) +* -table-flat: Other list operations. + (line 275) +* -tails: Reductions. (line 232) +* -take: Sublist selection. (line 121) +* -take-last: Sublist selection. (line 135) +* -take-while: Sublist selection. (line 177) +* -third-item: Other list operations. + (line 354) +* -tree-map: Tree operations. (line 28) +* -tree-map-nodes: Tree operations. (line 39) +* -tree-mapreduce: Tree operations. (line 85) +* -tree-mapreduce-from: Tree operations. (line 104) +* -tree-reduce: Tree operations. (line 53) +* -tree-reduce-from: Tree operations. (line 70) +* -tree-seq: Tree operations. (line 8) +* -unfold: Unfolding. (line 25) +* -union: Set operations. (line 8) +* -unzip: Other list operations. + (line 215) +* -unzip-lists: Other list operations. + (line 196) +* -update-at: List to list. (line 142) +* -when-let: Binding. (line 9) +* -when-let*: Binding. (line 21) +* -zip: Other list operations. + (line 150) +* -zip-fill: Other list operations. + (line 176) +* -zip-lists: Other list operations. + (line 114) +* -zip-lists-fill: Other list operations. + (line 135) +* -zip-pair: Other list operations. + (line 98) +* -zip-with: Other list operations. + (line 80) +* dash-fontify-mode: Fontification of special variables. + (line 6) +* dash-register-info-lookup: Info symbol lookup. (line 6) +* global-dash-fontify-mode: Fontification of special variables. + (line 12) + + + +Tag Table: +Node: Top742 +Node: Installation2397 +Node: Using in a package3159 +Node: Fontification of special variables3504 +Node: Info symbol lookup4294 +Node: Functions4877 +Node: Maps6361 +Ref: -map6658 +Ref: -map-when7031 +Ref: -map-first7605 +Ref: -map-last8200 +Ref: -map-indexed8790 +Ref: -annotate9476 +Ref: -splice10080 +Ref: -splice-list11155 +Ref: -mapcat11614 +Ref: -copy11987 +Node: Sublist selection12253 +Ref: -filter12446 +Ref: -remove12999 +Ref: -remove-first13548 +Ref: -remove-last14396 +Ref: -remove-item15126 +Ref: -non-nil15526 +Ref: -slice15808 +Ref: -take16337 +Ref: -take-last16755 +Ref: -drop17192 +Ref: -drop-last17639 +Ref: -take-while18071 +Ref: -drop-while18698 +Ref: -select-by-indices19331 +Ref: -select-columns19842 +Ref: -select-column20545 +Node: List to list21008 +Ref: -keep21200 +Ref: -concat21776 +Ref: -flatten22556 +Ref: -flatten-n23318 +Ref: -replace23702 +Ref: -replace-first24163 +Ref: -replace-last24658 +Ref: -insert-at25146 +Ref: -replace-at25471 +Ref: -update-at25858 +Ref: -remove-at26399 +Ref: -remove-at-indices27026 +Node: Reductions27716 +Ref: -reduce-from27912 +Ref: -reduce-r-from28636 +Ref: -reduce29899 +Ref: -reduce-r30650 +Ref: -reductions-from31928 +Ref: -reductions-r-from32734 +Ref: -reductions33564 +Ref: -reductions-r34275 +Ref: -count35020 +Ref: -sum35250 +Ref: -running-sum35438 +Ref: -product35759 +Ref: -running-product35967 +Ref: -inits36308 +Ref: -tails36553 +Ref: -common-prefix36798 +Ref: -common-suffix37092 +Ref: -min37386 +Ref: -min-by37612 +Ref: -max38133 +Ref: -max-by38358 +Ref: -frequencies38884 +Node: Unfolding39499 +Ref: -iterate39740 +Ref: -unfold40187 +Ref: -repeat40992 +Ref: -cycle41276 +Node: Predicates41673 +Ref: -some41850 +Ref: -every42279 +Ref: -any?42993 +Ref: -all?43342 +Ref: -none?44084 +Ref: -only-some?44404 +Ref: -contains?44949 +Ref: -is-prefix?45455 +Ref: -is-suffix?45787 +Ref: -is-infix?46119 +Ref: -cons-pair?46479 +Node: Partitioning46810 +Ref: -split-at46998 +Ref: -split-with47662 +Ref: -split-on48302 +Ref: -split-when48973 +Ref: -separate49616 +Ref: -partition50150 +Ref: -partition-all50599 +Ref: -partition-in-steps51024 +Ref: -partition-all-in-steps51570 +Ref: -partition-by52084 +Ref: -partition-by-header52462 +Ref: -partition-after-pred53063 +Ref: -partition-before-pred53516 +Ref: -partition-before-item53901 +Ref: -partition-after-item54208 +Ref: -group-by54510 +Node: Indexing54943 +Ref: -elem-index55145 +Ref: -elem-indices55632 +Ref: -find-index56091 +Ref: -find-last-index56760 +Ref: -find-indices57411 +Ref: -grade-up58173 +Ref: -grade-down58580 +Node: Set operations58994 +Ref: -union59177 +Ref: -difference59607 +Ref: -intersection60035 +Ref: -powerset60464 +Ref: -permutations60741 +Ref: -distinct61179 +Ref: -same-items?61573 +Node: Other list operations62182 +Ref: -rotate62407 +Ref: -cons*62760 +Ref: -snoc63182 +Ref: -interpose63594 +Ref: -interleave63888 +Ref: -iota64254 +Ref: -zip-with64737 +Ref: -zip-pair65545 +Ref: -zip-lists66111 +Ref: -zip-lists-fill66909 +Ref: -zip67619 +Ref: -zip-fill68646 +Ref: -unzip-lists69560 +Ref: -unzip70183 +Ref: -pad71176 +Ref: -table71661 +Ref: -table-flat72447 +Ref: -first73452 +Ref: -last73985 +Ref: -first-item74331 +Ref: -second-item74743 +Ref: -third-item75160 +Ref: -fourth-item75535 +Ref: -fifth-item75913 +Ref: -last-item76288 +Ref: -butlast76649 +Ref: -sort76894 +Ref: -list77388 +Ref: -fix77957 +Node: Tree operations78446 +Ref: -tree-seq78642 +Ref: -tree-map79503 +Ref: -tree-map-nodes79943 +Ref: -tree-reduce80807 +Ref: -tree-reduce-from81689 +Ref: -tree-mapreduce82289 +Ref: -tree-mapreduce-from83148 +Ref: -clone84433 +Node: Threading macros84771 +Ref: ->84996 +Ref: ->>85484 +Ref: -->85987 +Ref: -as->86544 +Ref: -some->86998 +Ref: -some->>87383 +Ref: -some-->87830 +Ref: -doto88397 +Node: Binding88950 +Ref: -when-let89157 +Ref: -when-let*89618 +Ref: -if-let90147 +Ref: -if-let*90513 +Ref: -let91136 +Ref: -let*97226 +Ref: -lambda98163 +Ref: -setq98969 +Node: Side effects99770 +Ref: -each99964 +Ref: -each-while100491 +Ref: -each-indexed101111 +Ref: -each-r101703 +Ref: -each-r-while102145 +Ref: -dotimes102789 +Node: Destructive operations103342 +Ref: !cons103560 +Ref: !cdr103764 +Node: Function combinators103957 +Ref: -partial104161 +Ref: -rpartial104679 +Ref: -juxt105327 +Ref: -compose105779 +Ref: -applify106386 +Ref: -on106816 +Ref: -flip107588 +Ref: -rotate-args108112 +Ref: -const108741 +Ref: -cut109083 +Ref: -not109563 +Ref: -orfn110107 +Ref: -andfn110900 +Ref: -iteratefn111687 +Ref: -fixfn112389 +Ref: -prodfn113963 +Node: Development115114 +Node: Contribute115403 +Node: Contributors116415 +Node: FDL118508 +Node: GPL143828 +Node: Index181577 + +End Tag Table + + +Local Variables: +coding: utf-8 +End: diff --git a/elpa/dash-2.20.0/dir b/elpa/dash-2.20.0/dir new file mode 100644 index 0000000..7d473f4 --- /dev/null +++ b/elpa/dash-2.20.0/dir @@ -0,0 +1,18 @@ +This is the file .../info/dir, which contains the +topmost node of the Info hierarchy, called (dir)Top. +The first time you invoke Info you start off looking at this node. + +File: dir, Node: Top This is the top of the INFO tree + + This (the Directory node) gives a menu of major topics. + Typing "q" exits, "H" lists all Info commands, "d" returns here, + "h" gives a primer for first-timers, + "mEmacs" visits the Emacs manual, etc. + + In Emacs, you can click mouse button 2 on a menu item or cross reference + to select it. + +* Menu: + +Emacs +* Dash: (dash.info). A modern list library for GNU Emacs. diff --git a/elpa/edit-indirect-0.1.13/edit-indirect-autoloads.el b/elpa/edit-indirect-0.1.13/edit-indirect-autoloads.el new file mode 100644 index 0000000..91d4308 --- /dev/null +++ b/elpa/edit-indirect-0.1.13/edit-indirect-autoloads.el @@ -0,0 +1,60 @@ +;;; edit-indirect-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + +;;; Code: + +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + + + +;;; Generated autoloads from edit-indirect.el + +(autoload 'edit-indirect-region "edit-indirect" "\ +Edit the region BEG..END in a separate buffer. +The region is copied, without text properties, to a separate +buffer, called edit-indirect buffer, and +`edit-indirect-guess-mode-function' is called to set the major +mode. +When done, exit with `edit-indirect-commit', which will remove the +original region and replace it with the edited version; or with +`edit-indirect-abort', which will drop the modifications. + +This differs from `clone-indirect-buffer' with narrowing in that +the text properties are not shared, so the parent buffer major mode +and the edit-indirect buffer major mode will not be able to tread +on each other's toes by setting up potentially conflicting text +properties, which happens surprisingly often when the font-lock +mode is used. + +Edit-indirect buffers use the `edit-indirect-mode-map' keymap. +Regions with active edit-indirect buffers use the +`edit-indirect-overlay-map' keymap. + +If there's already an edit-indirect buffer for BEG..END, use that. +If there's already an edit-indirect buffer active overlapping any +portion of BEG..END, an `edit-indirect-overlapping' error is +signaled. + +When DISPLAY-BUFFER is non-nil or when called interactively, +display the edit-indirect buffer in some window and select it. + +In any case, return the edit-indirect buffer. + +(fn BEG END &optional DISPLAY-BUFFER)" t) +(register-definition-prefixes "edit-indirect" '("edit-indirect-")) + +;;; End of scraped data + +(provide 'edit-indirect-autoloads) + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; no-native-compile: t +;; coding: utf-8-emacs-unix +;; End: + +;;; edit-indirect-autoloads.el ends here diff --git a/elpa/edit-indirect-0.1.13/edit-indirect-pkg.el b/elpa/edit-indirect-0.1.13/edit-indirect-pkg.el new file mode 100644 index 0000000..22bcacb --- /dev/null +++ b/elpa/edit-indirect-0.1.13/edit-indirect-pkg.el @@ -0,0 +1,9 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "edit-indirect" "0.1.13" + "Edit regions in separate buffers." + '((emacs "24.3")) + :url "https://github.com/Fanael/edit-indirect" + :commit "82a28d8a85277cfe453af464603ea330eae41c05" + :revdesc "82a28d8a8527" + :authors '(("Fanael Linithien" . "fanael4@gmail.com")) + :maintainers '(("Fanael Linithien" . "fanael4@gmail.com"))) diff --git a/elpa/edit-indirect-0.1.13/edit-indirect.el b/elpa/edit-indirect-0.1.13/edit-indirect.el new file mode 100644 index 0000000..4644427 --- /dev/null +++ b/elpa/edit-indirect-0.1.13/edit-indirect.el @@ -0,0 +1,435 @@ +;;; edit-indirect.el --- Edit regions in separate buffers -*- lexical-binding: t -*- + +;; Author: Fanael Linithien +;; URL: https://github.com/Fanael/edit-indirect +;; Package-Version: 0.1.13 +;; Package-Revision: 82a28d8a8527 +;; Package-Requires: ((emacs "24.3")) + +;; This file is NOT part of GNU Emacs. + +;; SPDX-License-Identifier: BSD-2-clause +;; +;; Copyright (c) 2014-2024, Fanael Linithien +;; All rights reserved. +;; +;; Redistribution and use in source and binary forms, with or without +;; modification, are permitted provided that the following conditions are +;; met: +;; +;; * Redistributions of source code must retain the above copyright +;; notice, this list of conditions and the following disclaimer. +;; * Redistributions in binary form must reproduce the above copyright +;; notice, this list of conditions and the following disclaimer in the +;; documentation and/or other materials provided with the distribution. +;; +;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS +;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A +;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER +;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, +;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +;;; Commentary: + +;; Edit regions in separate buffers, like `org-edit-src-code' but for arbitrary +;; regions. +;; +;; See the docstring of `edit-indirect-region' for details. + +;;; Code: +(defgroup edit-indirect nil + "Editing regions in separate buffers." + :group 'editing) + +(defcustom edit-indirect-guess-mode-function #'edit-indirect-default-guess-mode + "The function used to guess the major mode of an edit-indirect buffer. +It's called with the edit-indirect buffer as the current buffer. +It's called with three arguments, the parent buffer, the beginning +and the end of the parent buffer region being editing. + +Note that the buffer-local value from the parent buffer is used." + :type 'function + :group 'edit-indirect) + +(defcustom edit-indirect-after-creation-hook nil + "Functions called after the edit-indirect buffer is created. +The functions are called with the edit-indirect buffer as the +current buffer. + +Note that the buffer-local value from the parent buffer is used." + :type 'hook + :group 'edit-indirect) + +(defcustom edit-indirect-before-commit-hook nil + "Functions called before the edit-indirect buffer is committed. +The functions are called with the edit-indirect buffer as the +current buffer. + +Note that the buffer-local value from the edit-indirect buffer is +used." + :type 'hook + :group 'edit-indirect) + +(defcustom edit-indirect-before-commit-functions nil + "Functions called before an edit-indirect buffer is committed. +The functions are called with the parent buffer as the current +buffer. +Each function is called with two arguments, the beginning and the +end of the region to be changed." + :type 'hook + :group 'edit-indirect) + +(defcustom edit-indirect-after-commit-functions nil + "Functions called after an edit-indirect buffer has been committed. +The functions are called with the parent buffer as the current +buffer. +Each function is called with two arguments, the beginning and the +end of the changed region." + :type 'hook + :group 'edit-indirect) + +(defgroup edit-indirect-faces nil + "Faces used in `edit-indirect'." + :group 'edit-indirect + :group 'faces + :prefix "edit-indirect") + +(defface edit-indirect-edited-region + '((t :inherit secondary-selection)) + "Face used to highlight an indirectly edited region." + :group 'edit-indirect-faces) + +;; Emacs <= 24.3 has no `define-error'. +(let* ((user-error-conditions (get 'user-error 'error-conditions)) + (define-user-error (lambda (name message) + (put name 'error-conditions + (cons name user-error-conditions)) + (put name 'error-message message)))) + (funcall define-user-error 'edit-indirect-overlapping + "Indirectly edited regions cannot overlap") + (funcall define-user-error 'edit-indirect-read-only + "Text is read-only, modify the edit-indirect buffer instead") + (funcall define-user-error 'edit-indirect-not-indirect + "This is not an edit-indirect buffer")) + +(defvar edit-indirect--overlay) +(defvar edit-indirect--should-quit-window nil) +(put 'edit-indirect--should-quit-window 'permanent-local t) + +;;;###autoload +(defun edit-indirect-region (beg end &optional display-buffer) + "Edit the region BEG..END in a separate buffer. +The region is copied, without text properties, to a separate +buffer, called edit-indirect buffer, and +`edit-indirect-guess-mode-function' is called to set the major +mode. +When done, exit with `edit-indirect-commit', which will remove the +original region and replace it with the edited version; or with +`edit-indirect-abort', which will drop the modifications. + +This differs from `clone-indirect-buffer' with narrowing in that +the text properties are not shared, so the parent buffer major mode +and the edit-indirect buffer major mode will not be able to tread +on each other's toes by setting up potentially conflicting text +properties, which happens surprisingly often when the font-lock +mode is used. + +Edit-indirect buffers use the `edit-indirect-mode-map' keymap. +Regions with active edit-indirect buffers use the +`edit-indirect-overlay-map' keymap. + +If there's already an edit-indirect buffer for BEG..END, use that. +If there's already an edit-indirect buffer active overlapping any +portion of BEG..END, an `edit-indirect-overlapping' error is +signaled. + +When DISPLAY-BUFFER is non-nil or when called interactively, +display the edit-indirect buffer in some window and select it. + +In any case, return the edit-indirect buffer." + (interactive + (if (or (use-region-p) (not transient-mark-mode)) + (prog1 (list (region-beginning) (region-end) t) + (deactivate-mark)) + (user-error "No region"))) + (let ((buffer (edit-indirect--get-edit-indirect-buffer beg end))) + (when display-buffer + (edit-indirect--display-buffer buffer)) + buffer)) + +(defvar edit-indirect-mode-map + (let ((map (make-sparse-keymap))) + (define-key map [remap save-buffer] #'edit-indirect-save) + (define-key map (kbd "C-c '") #'edit-indirect-commit) + (define-key map (kbd "C-c C-c") #'edit-indirect-commit) + (define-key map (kbd "C-c C-k") #'edit-indirect-abort) + map) + "Keymap for edit-indirect buffers. + +\\{edit-indirect-mode-map}") + +(defvar edit-indirect-overlay-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "RET") #'edit-indirect-display-active-buffer) + map) + "Keymap for regions with active edit-indirect buffers. + +\\{edit-indirect-overlay-map}") + +(defun edit-indirect-commit () + "Commit the modifications done in an edit-indirect buffer. +That is, replace the original region in the parent buffer with the +contents of the edit-indirect buffer. +The edit-indirect buffer is then killed. + +Can be called only when the current buffer is an edit-indirect +buffer." + (interactive) + (edit-indirect--barf-if-not-indirect) + (edit-indirect--commit) + (edit-indirect--abort t)) + +(defun edit-indirect-save () + "Save the modifications done in an edit-indirect buffer. +That is, replace the original region in the parent buffer with the +contents of the edit-indirect buffer. + +Can be called only when the current buffer is an edit-indirect +buffer." + (interactive) + (edit-indirect--barf-if-not-indirect) + (edit-indirect--commit)) + +(defun edit-indirect-abort () + "Abort indirect editing in the current buffer and kill the buffer. + +Can be called only when the current buffer is an edit-indirect +buffer." + (interactive) + (edit-indirect--barf-if-not-indirect) + (edit-indirect--abort t)) + +(defun edit-indirect-buffer-indirect-p (&optional buffer) + "Non-nil iff the BUFFER is an edit-indirect buffer. +BUFFER defaults to the current buffer." + (save-current-buffer + (when buffer + (set-buffer buffer)) + ;; (not (null)) so we don't leak the overlay to the outside world. + (not (null edit-indirect--overlay)))) + +(defun edit-indirect-default-guess-mode (_parent-buffer _beg _end) + "Guess the major mode for an edit-indirect buffer. +It's done by calling `normal-mode'." + (normal-mode)) + +(defun edit-indirect-display-active-buffer () + "Display the active edit-indirect buffer of the region the point is in." + (interactive) + (let ((overlay + (let ((p (point))) + (edit-indirect--search-for-edit-indirect p (1+ p))))) + (unless overlay + (signal 'edit-indirect-not-indirect '())) + (edit-indirect--display-buffer (overlay-get overlay 'edit-indirect-buffer)))) + +(defvar edit-indirect--overlay nil + "The overlay spanning the region of the parent buffer being edited. + +It's also used as the variable determining if we're in an +edit-indirect buffer at all.") +(make-variable-buffer-local 'edit-indirect--overlay) +(put 'edit-indirect--overlay 'permanent-local t) + +;; Normally this would use `define-minor-mode', but that makes the mode function +;; interactive, which we don't want, because it's just an implementation detail. +(defun edit-indirect--mode (overlay) + "Turn the `edit-indirect--mode' \"minor mode\" on. +OVERLAY is the value to set `edit-indirect--overlay' to." + (setq edit-indirect--overlay overlay) + (add-hook 'kill-buffer-hook #'edit-indirect--abort-on-kill-buffer nil t)) +(with-no-warnings + (add-minor-mode + 'edit-indirect--overlay " indirect" edit-indirect-mode-map nil #'ignore)) + +(defun edit-indirect--display-buffer (buffer) + "Display the given BUFFER in some window and select it." + (with-current-buffer buffer + (setq-local edit-indirect--should-quit-window t)) + (select-window (display-buffer buffer)) + nil) + +(defun edit-indirect--get-edit-indirect-buffer (beg end) + "Return an edit-indirect buffer for the region BEG..END. +If there's already an edit-indirect buffer active overlapping any +portion of BEG..END, an `edit-indirect-overlapping' error is +signaled." + (let ((old-overlay (edit-indirect--search-for-edit-indirect beg end))) + (cond + ((null old-overlay) + (let ((overlay (edit-indirect--create-overlay beg end))) + (edit-indirect--create-indirect-buffer beg end overlay))) + ((and (= beg (overlay-start old-overlay)) + (= end (overlay-end old-overlay))) + (overlay-get old-overlay 'edit-indirect-buffer)) + (t + (signal 'edit-indirect-overlapping '()))))) + +(defun edit-indirect--search-for-edit-indirect (beg end) + "Return an existing edit-indirect overlay for some region inside BEG..END. +If there's no indirectly edited region inside BEG..END, return +nil." + (catch 'done + (dolist (overlay (overlays-in beg end)) + (when (overlay-get overlay 'edit-indirect-buffer) + (throw 'done overlay))) + nil)) + +(defmacro edit-indirect--buffer-local-value (buffer variable) + "Get the BUFFER local value of VARIABLE. +VARIABLE shall be a symbol." + (unless (symbolp variable) + (signal 'wrong-type-argument (list #'symbolp variable))) + ;; `with-current-buffer' is used instead of `buffer-local-value' because + ;; the latter doesn't give warnings about free variables when + ;; byte-compiled. + `(with-current-buffer ,buffer ,variable)) + +(defun edit-indirect--create-indirect-buffer (beg end overlay) + "Create an edit-indirect buffer and return it. + +BEG..END is the parent buffer region to insert. +OVERLAY is the overlay, see `edit-indirect--overlay'." + (add-hook 'after-change-major-mode-hook #'edit-indirect--rebind-save-hooks) + (let ((buffer (generate-new-buffer (format "*edit-indirect %s*" (buffer-name)))) + (parent-buffer (current-buffer))) + (overlay-put overlay 'edit-indirect-buffer buffer) + (with-current-buffer buffer + (insert-buffer-substring-no-properties parent-buffer beg end) + (set-buffer-modified-p nil) + (edit-indirect--mode overlay) + ;; Use the buffer-local values from the parent buffer. Don't retrieve the + ;; values before actual uses in case these variables are changed by some + ;; of the many possible hooks. + (funcall (edit-indirect--buffer-local-value + parent-buffer edit-indirect-guess-mode-function) + parent-buffer beg end) + (if (local-variable-p 'edit-indirect-after-creation-hook parent-buffer) + ;; Copy the parent buffer hook to the indirect buffer instead of + ;; let-binding it to avoid running it twice. + (setq-local edit-indirect-after-creation-hook + (edit-indirect--buffer-local-value + parent-buffer edit-indirect-after-creation-hook)) + ;; No need to do copy anything if the parent buffer has no local value, + ;; the global value will be used instead. Just kill the local value in + ;; the indirect buffer in case a prior hook set it, because we're not + ;; supposed to use it. + (kill-local-variable 'edit-indirect-after-creation-hook)) + (run-hooks 'edit-indirect-after-creation-hook)) + buffer)) + +(defun edit-indirect--create-overlay (beg end) + "Create the edit-indirect overlay and return it. + +BEG and END specify the region the overlay should encompass." + (let ((overlay (make-overlay beg end))) + (overlay-put overlay 'face 'edit-indirect-edited-region) + (overlay-put overlay 'modification-hooks '(edit-indirect--barf-read-only)) + (overlay-put overlay 'insert-in-front-hooks '(edit-indirect--barf-read-only)) + (overlay-put overlay 'keymap edit-indirect-overlay-map) + overlay)) + +(defvar edit-indirect--inhibit-read-only nil + "Non-nil means disregard read-only status of indirectly-edited region.") + +(defun edit-indirect--barf-read-only (_ov _after _beg _end &optional _len) + "Signal an error because the text is read-only. +No error is signaled if `inhibit-read-only' or +`edit-indirect--inhibit-read-only' is non-nil." + (unless (or inhibit-read-only edit-indirect--inhibit-read-only) + (signal 'edit-indirect-read-only '()))) + +(defun edit-indirect--commit () + "Commit the modifications done in an edit-indirect buffer." + (run-hooks 'edit-indirect-before-commit-hook) + (let ((beg (overlay-start edit-indirect--overlay)) + (end (overlay-end edit-indirect--overlay)) + (buffer (current-buffer)) + (edit-indirect--inhibit-read-only t)) + (with-current-buffer (overlay-buffer edit-indirect--overlay) + (save-excursion + (let ((beg-marker (copy-marker beg)) + (end-marker (copy-marker end))) + (edit-indirect--run-hook-with-positions + 'edit-indirect-before-commit-functions beg-marker end-marker) + (save-match-data + (set-match-data (list beg-marker end-marker)) + (let ((new-data + (with-current-buffer buffer + (buffer-substring-no-properties 1 (1+ (buffer-size)))))) + (unless (string= new-data (match-string 0)) + (replace-match new-data t t)))) + (edit-indirect--run-hook-with-positions + 'edit-indirect-after-commit-functions beg-marker end-marker) + (set-marker beg-marker nil) + (set-marker end-marker nil)))) + (set-buffer-modified-p nil))) + +(defun edit-indirect--run-hook-with-positions (hook beg end) + "Run HOOK with the specified markers BEG and END. +HOOK should be a symbol, a hook variable. +The functions are passed integer positions instead of markers. +If a function changes the buffer contents, the next function will be +called with updated positions." + (run-hook-wrapped hook + (lambda (f beg end) + (funcall f (marker-position beg) (marker-position end)) + nil) + beg end)) + +(defun edit-indirect--abort (kill) + "Abort an indirect edit and clean up the edit-indirect buffer." + (delete-overlay edit-indirect--overlay) + ;; Kill the overlay reference so that `edit-indirect--abort-on-kill-buffer' + ;; won't try to call us again. + (setq edit-indirect--overlay nil) + ;; If we created a window, get rid of it. Kill the buffer we created. + (if (and edit-indirect--should-quit-window + (eq (window-buffer (selected-window)) + (current-buffer))) + (quit-window kill) + (and kill (kill-buffer)))) + +(defun edit-indirect--rebind-save-hooks () + "Bind our `save-buffer' hooks in the current buffer. +Does nothing if the current buffer is not an edit-indirect buffer." + (when (edit-indirect-buffer-indirect-p) + (setq buffer-offer-save t) + (add-hook 'write-contents-functions #'edit-indirect--commit-on-save nil t))) + +(defun edit-indirect--commit-on-save () + "Commit the indirect edit. +Should only be called from `write-contents-functions'." + (edit-indirect--commit) + t) + +(defun edit-indirect--abort-on-kill-buffer () + "Abort indirect edit. +Should be called only from `kill-buffer-hook'." + (when edit-indirect--overlay + (edit-indirect--abort nil))) + +(defun edit-indirect--barf-if-not-indirect () + "Signal an error if the current buffer is not an edit-indirect buffer. +The error signaled is `edit-indirect-not-indirect'." + (unless edit-indirect--overlay + (signal 'edit-indirect-not-indirect '()))) + +(provide 'edit-indirect) +;;; edit-indirect.el ends here diff --git a/elpa/epl-0.9/epl-autoloads.el b/elpa/epl-0.9/epl-autoloads.el new file mode 100644 index 0000000..c6221c5 --- /dev/null +++ b/elpa/epl-0.9/epl-autoloads.el @@ -0,0 +1,22 @@ +;;; epl-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "epl" "epl.el" (0 0 0 0)) +;;; Generated autoloads from epl.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "epl" '("epl-"))) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; epl-autoloads.el ends here diff --git a/elpa/epl-0.9/epl-pkg.el b/elpa/epl-0.9/epl-pkg.el new file mode 100644 index 0000000..487cc37 --- /dev/null +++ b/elpa/epl-0.9/epl-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "epl" "0.9" "Emacs Package Library" '((cl-lib "0.3")) :commit "fd906d3f92d58ecf24169055744409886ceb06ce" :keywords '("convenience") :authors '(("Sebastian Wiesner" . "swiesner@lunaryorn.com")) :maintainer '("Johan Andersson" . "johan.rejeep@gmail.com") :url "http://github.com/cask/epl") diff --git a/elpa/epl-0.9/epl.el b/elpa/epl-0.9/epl.el new file mode 100644 index 0000000..b2d2e31 --- /dev/null +++ b/elpa/epl-0.9/epl.el @@ -0,0 +1,711 @@ +;;; epl.el --- Emacs Package Library -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2015 Sebastian Wiesner +;; Copyright (C) 1985-1986, 1992, 1994-1995, 1999-2015 Free Software + +;; Author: Sebastian Wiesner +;; Maintainer: Johan Andersson +;; Sebastian Wiesner +;; Version: 0.9 +;; Package-Version: 0.9 +;; Package-Requires: ((cl-lib "0.3")) +;; Keywords: convenience +;; URL: http://github.com/cask/epl + +;; This file is NOT part of GNU Emacs. + +;; 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 . + +;;; Commentary: + +;; A package management library for Emacs, based on package.el. + +;; The purpose of this library is to wrap all the quirks and hassle of +;; package.el into a sane API. + +;; The following functions comprise the public interface of this library: + +;;; Package directory selection + +;; `epl-package-dir' gets the directory of packages. + +;; `epl-default-package-dir' gets the default package directory. + +;; `epl-change-package-dir' changes the directory of packages. + +;;; Package system management + +;; `epl-initialize' initializes the package system and activates all +;; packages. + +;; `epl-reset' resets the package system. + +;; `epl-refresh' refreshes all package archives. + +;; `epl-add-archive' adds a new package archive. + +;;; Package objects + +;; Struct `epl-requirement' describes a requirement of a package with `name' and +;; `version' slots. + +;; `epl-requirement-version-string' gets a requirement version as string. + +;; Struct `epl-package' describes an installed or installable package with a +;; `name' and some internal `description'. + +;; `epl-package-version' gets the version of a package. + +;; `epl-package-version-string' gets the version of a package as string. + +;; `epl-package-summary' gets the summary of a package. + +;; `epl-package-requirements' gets the requirements of a package. + +;; `epl-package-directory' gets the installation directory of a package. + +;; `epl-package-from-buffer' creates a package object for the package contained +;; in the current buffer. + +;; `epl-package-from-file' creates a package object for a package file, either +;; plain lisp or tarball. + +;; `epl-package-from-descriptor-file' creates a package object for a package +;; description (i.e. *-pkg.el) file. + +;;; Package database access + +;; `epl-package-installed-p' determines whether a package is installed, either +;; built-in or explicitly installed. + +;; `epl-package-outdated-p' determines whether a package is outdated, that is, +;; whether a package with a higher version number is available. + +;; `epl-built-in-packages', `epl-installed-packages', `epl-outdated-packages' +;; and `epl-available-packages' get all packages built-in, installed, outdated, +;; or available for installation respectively. + +;; `epl-find-built-in-package', `epl-find-installed-packages' and +;; `epl-find-available-packages' find built-in, installed and available packages +;; by name. + +;; `epl-find-upgrades' finds all upgradable packages. + +;; `epl-built-in-p' return true if package is built-in to Emacs. + +;;; Package operations + +;; `epl-install-file' installs a package file. + +;; `epl-package-install' installs a package. + +;; `epl-package-delete' deletes a package. + +;; `epl-upgrade' upgrades packages. + +;;; Code: + +(require 'cl-lib) +(require 'package) + + +(unless (fboundp #'define-error) + ;; `define-error' for 24.3 and earlier, copied from subr.el + (defun define-error (name message &optional parent) + "Define NAME as a new error signal. +MESSAGE is a string that will be output to the echo area if such an error +is signaled without being caught by a `condition-case'. +PARENT is either a signal or a list of signals from which it inherits. +Defaults to `error'." + (unless parent (setq parent 'error)) + (let ((conditions + (if (consp parent) + (apply #'append + (mapcar (lambda (parent) + (cons parent + (or (get parent 'error-conditions) + (error "Unknown signal `%s'" parent)))) + parent)) + (cons parent (get parent 'error-conditions))))) + (put name 'error-conditions + (delete-dups (copy-sequence (cons name conditions)))) + (when message (put name 'error-message message))))) + +(defsubst epl--package-desc-p (package) + "Whether PACKAGE is a `package-desc' object. + +Like `package-desc-p', but return nil, if `package-desc-p' is not +defined as function." + (and (fboundp 'package-desc-p) (package-desc-p package))) + + +;;; EPL errors +(define-error 'epl-error "EPL error") + +(define-error 'epl-invalid-package "Invalid EPL package" 'epl-error) + +(define-error 'epl-invalid-package-file "Invalid EPL package file" + 'epl-invalid-package) + + +;;; Package directory +(defun epl-package-dir () + "Get the directory of packages." + package-user-dir) + +(defun epl-default-package-dir () + "Get the default directory of packages." + (eval (car (get 'package-user-dir 'standard-value)))) + +(defun epl-change-package-dir (directory) + "Change the directory of packages to DIRECTORY." + (setq package-user-dir directory) + (epl-initialize)) + + +;;; Package system management +(defvar epl--load-path-before-initialize nil + "Remember the load path for `epl-reset'.") + +(defun epl-initialize (&optional no-activate) + "Load Emacs Lisp packages and activate them. + +With NO-ACTIVATE non-nil, do not activate packages." + (setq epl--load-path-before-initialize load-path) + (package-initialize no-activate)) + +(defalias 'epl-refresh 'package-refresh-contents) + +(defun epl-add-archive (name url) + "Add a package archive with NAME and URL." + (add-to-list 'package-archives (cons name url))) + +(defun epl-reset () + "Reset the package system. + +Clear the list of installed and available packages, the list of +package archives and reset the package directory." + (setq package-alist nil + package-archives nil + package-archive-contents nil + load-path epl--load-path-before-initialize) + (when (boundp 'package-obsolete-alist) ; Legacy package.el + (setq package-obsolete-alist nil)) + (epl-change-package-dir (epl-default-package-dir))) + + +;;; Package structures +(cl-defstruct (epl-requirement + (:constructor epl-requirement-create)) + "Structure describing a requirement. + +Slots: + +`name' The name of the required package, as symbol. + +`version' The version of the required package, as version list." + name + version) + +(defun epl-requirement-version-string (requirement) + "The version of a REQUIREMENT, as string." + (package-version-join (epl-requirement-version requirement))) + +(cl-defstruct (epl-package (:constructor epl-package-create)) + "Structure representing a package. + +Slots: + +`name' The package name, as symbol. + +`description' The package description. + +The format package description varies between package.el +variants. For `package-desc' variants, it is simply the +corresponding `package-desc' object. For legacy variants, it is +a vector `[VERSION REQS DOCSTRING]'. + +Do not access `description' directly, but instead use the +`epl-package' accessors." + name + description) + +(defmacro epl-package-as-description (var &rest body) + "Cast VAR to a package description in BODY. + +VAR is a symbol, bound to an `epl-package' object. This macro +casts this object to the `description' object, and binds the +description to VAR in BODY." + (declare (indent 1)) + (unless (symbolp var) + (signal 'wrong-type-argument (list #'symbolp var))) + `(if (epl-package-p ,var) + (let ((,var (epl-package-description ,var))) + ,@body) + (signal 'wrong-type-argument (list #'epl-package-p ,var)))) + +(defsubst epl-package--package-desc-p (package) + "Whether the description of PACKAGE is a `package-desc'." + (epl--package-desc-p (epl-package-description package))) + +(defun epl-package-version (package) + "Get the version of PACKAGE, as version list." + (epl-package-as-description package + (cond + ((fboundp 'package-desc-version) (package-desc-version package)) + ;; Legacy + ((fboundp 'package-desc-vers) + (let ((version (package-desc-vers package))) + (if (listp version) version (version-to-list version)))) + (:else (error "Cannot get version from %S" package))))) + +(defun epl-package-version-string (package) + "Get the version from a PACKAGE, as string." + (package-version-join (epl-package-version package))) + +(defun epl-package-summary (package) + "Get the summary of PACKAGE, as string." + (epl-package-as-description package + (cond + ((fboundp 'package-desc-summary) (package-desc-summary package)) + ((fboundp 'package-desc-doc) (package-desc-doc package)) ; Legacy + (:else (error "Cannot get summary from %S" package))))) + +(defsubst epl-requirement--from-req (req) + "Create a `epl-requirement' from a `package-desc' REQ." + (let ((version (cadr req))) + (epl-requirement-create :name (car req) + :version (if (listp version) version + (version-to-list version))))) + +(defun epl-package-requirements (package) + "Get the requirements of PACKAGE. + +The requirements are a list of `epl-requirement' objects." + (epl-package-as-description package + (mapcar #'epl-requirement--from-req (package-desc-reqs package)))) + +(defun epl-package-directory (package) + "Get the directory PACKAGE is installed to. + +Return the absolute path of the installation directory of +PACKAGE, or nil, if PACKAGE is not installed." + (cond + ((fboundp 'package-desc-dir) + (package-desc-dir (epl-package-description package))) + ((fboundp 'package--dir) + (package--dir (symbol-name (epl-package-name package)) + (epl-package-version-string package))) + (:else (error "Cannot get package directory from %S" package)))) + +(defun epl-package-->= (pkg1 pkg2) + "Determine whether PKG1 is before PKG2 by version." + (not (version-list-< (epl-package-version pkg1) + (epl-package-version pkg2)))) + +(defun epl-package--from-package-desc (package-desc) + "Create an `epl-package' from a PACKAGE-DESC. + +PACKAGE-DESC is a `package-desc' object, from recent package.el +variants." + (if (and (fboundp 'package-desc-name) + (epl--package-desc-p package-desc)) + (epl-package-create :name (package-desc-name package-desc) + :description package-desc) + (signal 'wrong-type-argument (list 'epl--package-desc-p package-desc)))) + +(defun epl-package--parse-info (info) + "Parse a package.el INFO." + (if (epl--package-desc-p info) + (epl-package--from-package-desc info) + ;; For legacy package.el, info is a vector [NAME REQUIRES DESCRIPTION + ;; VERSION COMMENTARY]. We need to re-shape this vector into the + ;; `package-alist' format [VERSION REQUIRES DESCRIPTION] to attach it to the + ;; new `epl-package'. + (let ((name (intern (aref info 0))) + (info (vector (aref info 3) (aref info 1) (aref info 2)))) + (epl-package-create :name name :description info)))) + +(defun epl-package-from-buffer (&optional buffer) + "Create an `epl-package' object from BUFFER. + +BUFFER defaults to the current buffer. + +Signal `epl-invalid-package' if the buffer does not contain a +valid package file." + (let ((info (with-current-buffer (or buffer (current-buffer)) + (condition-case err + (package-buffer-info) + (error (signal 'epl-invalid-package (cdr err))))))) + (epl-package--parse-info info))) + +(defun epl-package-from-lisp-file (file-name) + "Parse the package headers the file at FILE-NAME. + +Return an `epl-package' object with the header metadata." + (with-temp-buffer + (insert-file-contents file-name) + (condition-case err + (epl-package-from-buffer (current-buffer)) + ;; Attach file names to invalid package errors + (epl-invalid-package + (signal 'epl-invalid-package-file (cons file-name (cdr err)))) + ;; Forward other errors + (error (signal (car err) (cdr err)))))) + +(defun epl-package-from-tar-file (file-name) + "Parse the package tarball at FILE-NAME. + +Return a `epl-package' object with the meta data of the tarball +package in FILE-NAME." + (condition-case nil + ;; In legacy package.el, `package-tar-file-info' takes the name of the tar + ;; file to parse as argument. In modern package.el, it has no arguments + ;; and works on the current buffer. Hence, we just try to call the legacy + ;; version, and if that fails because of a mismatch between formal and + ;; actual arguments, we use the modern approach. To avoid spurious + ;; signature warnings by the byte compiler, we suppress warnings when + ;; calling the function. + (epl-package--parse-info (with-no-warnings + (package-tar-file-info file-name))) + (wrong-number-of-arguments + (with-temp-buffer + (insert-file-contents-literally file-name) + ;; Switch to `tar-mode' to enable extraction of the file. Modern + ;; `package-tar-file-info' relies on `tar-mode', and signals an error if + ;; called in a buffer with a different mode. + (tar-mode) + (epl-package--parse-info (with-no-warnings + (package-tar-file-info))))))) + +(defun epl-package-from-file (file-name) + "Parse the package at FILE-NAME. + +Return an `epl-package' object with the meta data of the package +at FILE-NAME." + (if (string-match-p (rx ".tar" string-end) file-name) + (epl-package-from-tar-file file-name) + (epl-package-from-lisp-file file-name))) + +(defun epl-package--parse-descriptor-requirement (requirement) + "Parse a REQUIREMENT in a package descriptor." + ;; This function is only called on legacy package.el. On package-desc + ;; package.el, we just let package.el do the work. + (cl-destructuring-bind (name version-string) requirement + (list name (version-to-list version-string)))) + +(defun epl-package-from-descriptor-file (descriptor-file) + "Load a `epl-package' from a package DESCRIPTOR-FILE. + +A package descriptor is a file defining a new package. Its name +typically ends with -pkg.el." + (with-temp-buffer + (insert-file-contents descriptor-file) + (goto-char (point-min)) + (let ((sexp (read (current-buffer)))) + (unless (eq (car sexp) 'define-package) + (error "%S is no valid package descriptor" descriptor-file)) + (if (and (fboundp 'package-desc-from-define) + (fboundp 'package-desc-name)) + ;; In Emacs snapshot, we can conveniently call a function to parse the + ;; descriptor + (let ((desc (apply #'package-desc-from-define (cdr sexp)))) + (epl-package-create :name (package-desc-name desc) + :description desc)) + ;; In legacy package.el, we must manually deconstruct the descriptor, + ;; because the load function has eval's the descriptor and has a lot of + ;; global side-effects. + (cl-destructuring-bind + (name version-string summary requirements) (cdr sexp) + (epl-package-create + :name (intern name) + :description + (vector (version-to-list version-string) + (mapcar #'epl-package--parse-descriptor-requirement + ;; Strip the leading `quote' from the package list + (cadr requirements)) + summary))))))) + + +;;; Package database access +(defun epl-package-installed-p (package &optional min-version) + "Determine whether a PACKAGE, of MIN-VERSION or newer, is installed. + +PACKAGE is either a package name as symbol, or a package object. +When a explicit MIN-VERSION is provided it overwrites the version of the PACKAGE object." + (let ((name (if (epl-package-p package) + (epl-package-name package) + package)) + (min-version (or min-version (and (epl-package-p package) + (epl-package-version package))))) + (package-installed-p name min-version))) + +(defun epl--parse-built-in-entry (entry) + "Parse an ENTRY from the list of built-in packages. + +Return the corresponding `epl-package' object." + (if (fboundp 'package--from-builtin) + ;; In package-desc package.el, convert the built-in package to a + ;; `package-desc' and convert that to an `epl-package' + (epl-package--from-package-desc (package--from-builtin entry)) + (epl-package-create :name (car entry) :description (cdr entry)))) + +(defun epl-built-in-packages () + "Get all built-in packages. + +Return a list of `epl-package' objects." + ;; This looks mighty strange, but it's the only way to force package.el to + ;; build the list of built-in packages. Without this, `package--builtins' + ;; might be empty. + (package-built-in-p 'foo) + (mapcar #'epl--parse-built-in-entry package--builtins)) + +(defun epl-find-built-in-package (name) + "Find a built-in package with NAME. + +NAME is a package name, as symbol. + +Return the built-in package as `epl-package' object, or nil if +there is no built-in package with NAME." + (when (package-built-in-p name) + ;; We must call `package-built-in-p' *before* inspecting + ;; `package--builtins', because otherwise `package--builtins' might be + ;; empty. + (epl--parse-built-in-entry (assq name package--builtins)))) + +(defun epl-package-outdated-p (package) + "Determine whether a PACKAGE is outdated. + +A package is outdated, if there is an available package with a +higher version. + +PACKAGE is either a package name as symbol, or a package object. +In the former case, test the installed or built-in package with +the highest version number, in the later case, test the package +object itself. + +Return t, if the package is outdated, or nil otherwise." + (let* ((package (if (epl-package-p package) + package + (or (car (epl-find-installed-packages package)) + (epl-find-built-in-package package)))) + (available (car (epl-find-available-packages + (epl-package-name package))))) + (and package available (version-list-< (epl-package-version package) + (epl-package-version available))))) + +(defun epl--parse-package-list-entry (entry) + "Parse a list of packages from ENTRY. + +ENTRY is a single entry in a package list, e.g. `package-alist', +`package-archive-contents', etc. Typically it is a cons cell, +but the exact format varies between package.el versions. This +function tries to parse all known variants. + +Return a list of `epl-package' objects parsed from ENTRY." + (let ((descriptions (cdr entry))) + (cond + ((listp descriptions) + (sort (mapcar #'epl-package--from-package-desc descriptions) + #'epl-package-->=)) + ;; Legacy package.el has just a single package in an entry, which is a + ;; standard description vector + ((vectorp descriptions) + (list (epl-package-create :name (car entry) + :description descriptions))) + (:else (error "Cannot parse entry %S" entry))))) + +(defun epl-installed-packages () + "Get all installed packages. + +Return a list of package objects." + (apply #'append (mapcar #'epl--parse-package-list-entry package-alist))) + +(defsubst epl--filter-outdated-packages (packages) + "Filter outdated packages from PACKAGES." + (let (res) + (dolist (package packages) + (when (epl-package-outdated-p package) + (push package res))) + (nreverse res))) + +(defun epl-outdated-packages () + "Get all outdated packages, as in `epl-package-outdated-p'. + +Return a list of package objects." + (epl--filter-outdated-packages (epl-installed-packages))) + +(defsubst epl--find-package-in-list (name list) + "Find a package by NAME in a package LIST. + +Return a list of corresponding `epl-package' objects." + (let ((entry (assq name list))) + (when entry + (epl--parse-package-list-entry entry)))) + +(defun epl-find-installed-package (name) + "Find the latest installed package by NAME. + +NAME is a package name, as symbol. + +Return the installed package with the highest version number as +`epl-package' object, or nil, if no package with NAME is +installed." + (car (epl-find-installed-packages name))) +(make-obsolete 'epl-find-installed-package 'epl-find-installed-packages "0.7") + +(defun epl-find-installed-packages (name) + "Find all installed packages by NAME. + +NAME is a package name, as symbol. + +Return a list of all installed packages with NAME, sorted by +version number in descending order. Return nil, if there are no +packages with NAME." + (epl--find-package-in-list name package-alist)) + +(defun epl-available-packages () + "Get all packages available for installation. + +Return a list of package objects." + (apply #'append (mapcar #'epl--parse-package-list-entry + package-archive-contents))) + +(defun epl-find-available-packages (name) + "Find available packages for NAME. + +NAME is a package name, as symbol. + +Return a list of available packages for NAME, sorted by version +number in descending order. Return nil, if there are no packages +for NAME." + (epl--find-package-in-list name package-archive-contents)) + +(cl-defstruct (epl-upgrade + (:constructor epl-upgrade-create)) + "Structure describing an upgradable package. +Slots: + +`installed' The installed package + +`available' The package available for installation." + installed + available) + +(defun epl-find-upgrades (&optional packages) + "Find all upgradable PACKAGES. + +PACKAGES is a list of package objects to upgrade, defaulting to +all installed packages. + +Return a list of `epl-upgrade' objects describing all upgradable +packages." + (let ((packages (or packages (epl-installed-packages))) + upgrades) + (dolist (pkg packages) + (let* ((version (epl-package-version pkg)) + (name (epl-package-name pkg)) + ;; Find the latest available package for NAME + (available-pkg (car (epl-find-available-packages name))) + (available-version (when available-pkg + (epl-package-version available-pkg)))) + (when (and available-version (version-list-< version available-version)) + (push (epl-upgrade-create :installed pkg + :available available-pkg) + upgrades)))) + (nreverse upgrades))) + +(defalias 'epl-built-in-p 'package-built-in-p) + + +;;; Package operations + +(defun epl-install-file (file) + "Install a package from FILE, like `package-install-file'." + (interactive (advice-eval-interactive-spec + (cadr (interactive-form #'package-install-file)))) + (apply #'package-install-file (list file)) + (let ((package (epl-package-from-file file))) + (unless (epl-package--package-desc-p package) + (epl--kill-autoload-buffer package)))) + +(defun epl--kill-autoload-buffer (package) + "Kill the buffer associated with autoloads for PACKAGE." + (let* ((auto-name (format "%s-autoloads.el" (epl-package-name package))) + (generated-autoload-file (expand-file-name auto-name (epl-package-directory package))) + (buf (find-buffer-visiting generated-autoload-file))) + (when buf (kill-buffer buf)))) + +(defun epl-package-install (package &optional force) + "Install a PACKAGE. + +PACKAGE is a `epl-package' object. If FORCE is given and +non-nil, install PACKAGE, even if it is already installed." + (when (or force (not (epl-package-installed-p package))) + (if (epl-package--package-desc-p package) + (package-install (epl-package-description package)) + ;; The legacy API installs by name. We have no control over versioning, + ;; etc. + (package-install (epl-package-name package)) + (epl--kill-autoload-buffer package)))) + +(defun epl-package-delete (package) + "Delete a PACKAGE. + +PACKAGE is a `epl-package' object to delete." + ;; package-delete allows for packages being trashed instead of fully deleted. + ;; Let's prevent his silly behavior + (let ((delete-by-moving-to-trash nil)) + ;; The byte compiler will warn us that we are calling `package-delete' with + ;; the wrong number of arguments, since it can't infer that we guarantee to + ;; always call the correct version. Thus we suppress all warnings when + ;; calling `package-delete'. I wish there was a more granular way to + ;; disable just that specific warning, but it is what it is. + (if (epl-package--package-desc-p package) + (with-no-warnings + (package-delete (epl-package-description package))) + ;; The legacy API deletes by name (as string!) and version instead by + ;; descriptor. Hence `package-delete' takes two arguments. For some + ;; insane reason, the arguments are strings here! + (let ((name (symbol-name (epl-package-name package))) + (version (epl-package-version-string package))) + (with-no-warnings + (package-delete name version)) + ;; Legacy package.el does not remove the deleted package + ;; from the `package-alist', so we do it manually here. + (let ((pkg (assq (epl-package-name package) package-alist))) + (when pkg + (setq package-alist (delq pkg package-alist)))))))) + +(defun epl-upgrade (&optional packages preserve-obsolete) + "Upgrade PACKAGES. + +PACKAGES is a list of package objects to upgrade, defaulting to +all installed packages. + +The old versions of the updated packages are deleted, unless +PRESERVE-OBSOLETE is non-nil. + +Return a list of all performed upgrades, as a list of +`epl-upgrade' objects." + (let ((upgrades (epl-find-upgrades packages))) + (dolist (upgrade upgrades) + (epl-package-install (epl-upgrade-available upgrade) 'force) + (unless preserve-obsolete + (epl-package-delete (epl-upgrade-installed upgrade)))) + upgrades)) + +(provide 'epl) + +;;; epl.el ends here diff --git a/elpa/flycheck-35.0/flycheck-autoloads.el b/elpa/flycheck-35.0/flycheck-autoloads.el new file mode 100644 index 0000000..c29ab30 --- /dev/null +++ b/elpa/flycheck-35.0/flycheck-autoloads.el @@ -0,0 +1,306 @@ +;;; flycheck-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + +;;; Code: + +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + + + +;;; Generated autoloads from flycheck.el + +(autoload 'flycheck-manual "flycheck" "\ +Open the Flycheck manual." t) +(autoload 'flycheck-quick-help "flycheck" "\ +Display brief Flycheck help." t) +(autoload 'flycheck-mode "flycheck" "\ +Flycheck is a minor mode for on-the-fly syntax checking. + +In `flycheck-mode' the buffer is automatically syntax-checked +using the first suitable syntax checker from `flycheck-checkers'. +Use `flycheck-select-checker' to select a checker for the current +buffer manually. + +If you run into issues, use `\\[flycheck-verify-setup]' to get help. + +Flycheck supports many languages out of the box, and many +additional ones are available on MELPA. Adding new ones is very +easy. Complete documentation is available online at URL +`https://www.flycheck.org/en/latest/'. Please report issues and +request features at URL `https://github.com/flycheck/flycheck'. + +Flycheck displays its status in the mode line. In the default +configuration, it looks like this: + +`FlyC' This buffer has not been checked yet. +`FlyC*' Flycheck is running. Expect results soon! +`FlyC:0' Last check resulted in no errors and no warnings. +`FlyC:3|5' This buffer contains three errors and five warnings. + Use `\\[flycheck-list-errors]' to see the list. +`FlyC-' Flycheck doesn't have a checker for this buffer. + +You may also see the following icons: +`FlyC!' The checker crashed. +`FlyC.' The last syntax check was manually interrupted. +`FlyC?' The checker did something unexpected, like exiting with 1 + but returning no errors. + +The following keybindings are available in `flycheck-mode': + +\\{flycheck-mode-map} +(you can change the prefix by customizing +`flycheck-keymap-prefix') + +If called interactively, enable Flycheck mode if ARG is positive, +and disable it if ARG is zero or negative. If called from Lisp, +also enable the mode if ARG is omitted or nil, and toggle it if +ARG is ‘toggle’; disable the mode otherwise. + +(fn &optional ARG)" t) +(put 'global-flycheck-mode 'globalized-minor-mode t) +(defvar global-flycheck-mode nil "\ +Non-nil if Global Flycheck mode is enabled. +See the `global-flycheck-mode' command +for a description of this minor mode. +Setting this variable directly does not take effect; +either customize it (see the info node `Easy Customization') +or call the function `global-flycheck-mode'.") +(custom-autoload 'global-flycheck-mode "flycheck" nil) +(autoload 'global-flycheck-mode "flycheck" "\ +Toggle Flycheck mode in all buffers. +With prefix ARG, enable Global Flycheck mode if ARG is positive; +otherwise, disable it. + +If called from Lisp, toggle the mode if ARG is `toggle'. +Enable the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. + +Flycheck mode is enabled in all buffers where `flycheck-mode-on-safe' +would do it. + +See `flycheck-mode' for more information on Flycheck mode. + +(fn &optional ARG)" t) +(autoload 'flycheck-define-error-level "flycheck" "\ +Define a new error LEVEL with PROPERTIES. + +The following PROPERTIES constitute an error level: + +`:severity SEVERITY' + A number denoting the severity of this level. The higher + the number, the more severe is this level compared to other + levels. Defaults to 0; info is -10, warning is 10, and + error is 100. + + The severity is used by `flycheck-error-level-<' to + determine the ordering of errors according to their levels. + +`:compilation-level LEVEL' + + A number indicating the broad class of messages that errors + at this level belong to: one of 0 (info), 1 (warning), or + 2 or nil (error). Defaults to nil. + + This is used by `flycheck-checker-pattern-to-error-regexp' + to map error levels into `compilation-mode''s hierarchy and + to get proper highlighting of errors in `compilation-mode'. + +`:overlay-category CATEGORY' + A symbol denoting the overlay category to use for error + highlight overlays for this level. See Info + node `(elisp)Overlay Properties' for more information about + overlay categories. + + A category for an error level overlay should at least define + the `face' property, for error highlighting. Another useful + property for error level categories is `priority', to + influence the stacking of multiple error level overlays. + +`:fringe-bitmap BITMAPS' + A fringe bitmap symbol denoting the bitmap to use for fringe + indicators for this level, or a cons of two bitmaps (one for + narrow fringes and one for wide fringes). See Info node + `(elisp)Fringe Bitmaps' for more information about fringe + bitmaps, including a list of built-in fringe bitmaps. + +`:fringe-face FACE' + A face symbol denoting the face to use for fringe indicators + for this level. + +`:margin-spec SPEC' + A display specification indicating what to display in the + margin when `flycheck-indication-mode' is `left-margin' or + `right-margin'. See Info node `(elisp)Displaying in the + Margins'. If omitted, Flycheck generates an image spec from + the fringe bitmap. + +`:error-list-face FACE' + A face symbol denoting the face to use for messages of this + level in the error list. See `flycheck-list-errors'. + +(fn LEVEL &rest PROPERTIES)") +(function-put 'flycheck-define-error-level 'lisp-indent-function 1) +(autoload 'flycheck-define-command-checker "flycheck" "\ +Define SYMBOL as syntax checker to run a command. + +Define SYMBOL as generic syntax checker via +`flycheck-define-generic-checker', which uses an external command +to check the buffer. SYMBOL and DOCSTRING are the same as for +`flycheck-define-generic-checker'. + +In addition to the properties understood by +`flycheck-define-generic-checker', the following PROPERTIES +constitute a command syntax checker. Unless otherwise noted, all +properties are mandatory. Note that the default `:error-filter' +of command checkers is `flycheck-sanitize-errors'. + +`:command COMMAND' + The command to run for syntax checking. + + COMMAND is a list of the form `(EXECUTABLE [ARG ...])'. + + EXECUTABLE is a string with the executable of this syntax + checker. It can be overridden with the variable + `flycheck-SYMBOL-executable'. Note that this variable is + NOT implicitly defined by this function. Use + `flycheck-def-executable-var' to define this variable. + + Each ARG is an argument to the executable, either as string, + or as special symbol or form for + `flycheck-substitute-argument', which see. + +`:error-patterns PATTERNS' + A list of patterns to parse the output of the `:command'. + + Each ITEM in PATTERNS is a list `(LEVEL SEXP ...)', where + LEVEL is a Flycheck error level (see + `flycheck-define-error-level'), followed by one or more RX + `SEXP's which parse an error of that level and extract line, + column, file name and the message. + + See `rx' for general information about RX, and + `flycheck-rx-to-string' for some special RX forms provided + by Flycheck. + + All patterns are applied in the order of declaration to the + whole output of the syntax checker. Output already matched + by a pattern will not be matched by subsequent patterns. In + other words, the first pattern wins. + + This property is optional. If omitted, however, an + `:error-parser' is mandatory. + +`:error-parser FUNCTION' + A function to parse errors with. + + The function shall accept three arguments OUTPUT CHECKER + BUFFER. OUTPUT is the syntax checker output as string, + CHECKER the syntax checker that was used, and BUFFER a + buffer object representing the checked buffer. The function + must return a list of `flycheck-error' objects parsed from + OUTPUT. + + This property is optional. If omitted, it defaults to + `flycheck-parse-with-patterns'. In this case, + `:error-patterns' is mandatory. + +`:standard-input t' + Whether to send the buffer contents on standard input. + + If this property is given and has a non-nil value, send the + contents of the buffer on standard input. + + Some checkers that support reading from standard input have + a separate flag to indicate the name of the file whose + contents are being passed on standard input (typically + `stdin-filename'). In that case, use the `(option)' form in + `:command' to pass the value of variable `buffer-file-name' + when the current buffer has a file name (that is, + use `option \"--stdin-file-name\" buffer-file-name'). + + For buffers not backed by files, checkers that support input + on stdin typically report a file name like `-' or `'. + Make sure your error parser or patterns expect these file + names (for example, use `(or \"\" (file-name))') or + call `flycheck-remove-error-file-names' in a custom + `:error-filter'. + + Defaults to nil. + +Note that you may not give `:start', `:interrupt', and +`:print-doc' for a command checker. You can give a custom +`:verify' function, though, whose results will be appended to the +default `:verify' function of command checkers. + +(fn SYMBOL DOCSTRING &rest PROPERTIES)") +(function-put 'flycheck-define-command-checker 'lisp-indent-function 1) +(function-put 'flycheck-define-command-checker 'doc-string-elt 2) +(autoload 'flycheck-def-config-file-var "flycheck" "\ +Define SYMBOL as config file variable for CHECKER, with default FILE-NAME. + +SYMBOL is declared as customizable variable using `defcustom', to +provide configuration files for the given syntax CHECKER. +CUSTOM-ARGS are forwarded to `defcustom'. + +FILE-NAME is the initial value of the new variable. If omitted, +the default value is nil. It can be either a string or a list of +strings. + +Use this together with the `config-file' form in the `:command' +argument to `flycheck-define-checker'. + +(fn SYMBOL CHECKER &optional FILE-NAME &rest CUSTOM-ARGS)" nil t) +(function-put 'flycheck-def-config-file-var 'lisp-indent-function 3) +(autoload 'flycheck-def-option-var "flycheck" "\ +Define SYMBOL as option variable with INIT-VALUE for CHECKER. + +SYMBOL is declared as customizable variable using `defcustom', to +provide an option for the given syntax CHECKERS (a checker or a +list of checkers). INIT-VALUE is the initial value of the +variable, and DOCSTRING is its docstring. CUSTOM-ARGS are +forwarded to `defcustom'. + +Use this together with the `option', `option-list' and +`option-flag' forms in the `:command' argument to +`flycheck-define-checker'. + +(fn SYMBOL INIT-VALUE CHECKERS DOCSTRING &rest CUSTOM-ARGS)" nil t) +(function-put 'flycheck-def-option-var 'lisp-indent-function 3) +(function-put 'flycheck-def-option-var 'doc-string-elt 4) +(autoload 'flycheck-define-checker "flycheck" "\ +Define SYMBOL as command syntax checker with DOCSTRING and PROPERTIES. + +Like `flycheck-define-command-checker', but PROPERTIES must not +be quoted. Also, implicitly define the executable variable for +SYMBOL with `flycheck-def-executable-var'. + +(fn SYMBOL DOCSTRING &rest PROPERTIES)" nil t) +(function-put 'flycheck-define-checker 'lisp-indent-function 1) +(function-put 'flycheck-define-checker 'doc-string-elt 2) +(register-definition-prefixes "flycheck" '("flycheck-" "help-flycheck-checker-d" "list-flycheck-errors")) + + +;;; Generated autoloads from flycheck-buttercup.el + +(register-definition-prefixes "flycheck-buttercup" '("flycheck-buttercup-format-error-list")) + + +;;; Generated autoloads from flycheck-ert.el + +(register-definition-prefixes "flycheck-ert" '("flycheck-er")) + +;;; End of scraped data + +(provide 'flycheck-autoloads) + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; no-native-compile: t +;; coding: utf-8-emacs-unix +;; End: + +;;; flycheck-autoloads.el ends here diff --git a/elpa/flycheck-35.0/flycheck-buttercup.el b/elpa/flycheck-35.0/flycheck-buttercup.el new file mode 100644 index 0000000..5782980 --- /dev/null +++ b/elpa/flycheck-35.0/flycheck-buttercup.el @@ -0,0 +1,157 @@ +;;; flycheck-buttercup.el --- Flycheck: Extensions to Buttercup -*- lexical-binding: t; -*- + +;; Copyright (C) 2017-2025 Flycheck contributors +;; Copyright (C) 2016 Sebastian Wiesner and Flycheck contributors + +;; Author: Sebastian Wiesner +;; Maintainer: Clément Pit-Claudel +;; fmdkdd +;; Keywords: lisp, tools + +;; This file is not part of GNU Emacs. + +;; 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 . + +;;; Commentary: + +;; Extensions to Buttercup to write BDD tests for Flycheck. +;; +;; Buttercup is a BDD testing framework for Emacs, see URL +;; `https://github.com/jorgenschaefer/emacs-buttercup/'. Flycheck uses +;; Buttercup extensively for new tests. +;; +;; This library provides extensions to Buttercup to write Specs for Flycheck. +;; +;; * Custom matchers +;; +;; (expect 'foo :to-be-local) - Is `foo' a local variable in the current buffer? + +;;; Code: + +(require 'buttercup) +(require 'flycheck) +(require 'seq) + + +;;; Buttercup helpers + +(defun flycheck-buttercup-format-error-list (errors) + "Format ERRORS into a human-readable string." + (mapconcat (lambda (e) (flycheck-error-format e 'with-file-name)) + errors "\n")) + + +;;; Data matchers + +(buttercup-define-matcher :to-be-empty-string (s) + (let ((s (funcall s))) + (if (equal s "") + (cons t (format "Expected %S not be an empty string" s)) + (cons nil (format "Expected %S to be an empty string" s))))) + +(buttercup-define-matcher :to-match-with-group (re s index match) + (let* ((re (funcall re)) + (s (funcall s)) + (index (funcall index)) + (match (funcall match)) + (matches? (string-match re s)) + (result (and matches? (match-string index s)))) + (if (and matches? (equal result match)) + (cons t (format "Expected %S not to match %S with %S in group %s" + re s match index)) + + (cons nil (format "Expected %S to match %S with %S in group %s, %s" + re s match index + (if matches? + (format "but got %S" result) + "but did not match")))))) + + +;;; Emacs feature matchers + +(buttercup-define-matcher :to-be-live (buffer) + (let ((buffer (get-buffer (funcall buffer)))) + (if (buffer-live-p buffer) + (cons t (format "Expected %S not to be a live buffer, but it is" + buffer)) + (cons nil (format "Expected %S to be a live buffer, but it is not" + buffer))))) + +(buttercup-define-matcher :to-be-visible (buffer) + (let ((buffer (get-buffer (funcall buffer)))) + (cond + ((and buffer (get-buffer-window buffer)) + (cons t (format "Expected %S not to be a visible buffer, but it is" + buffer))) + ((not (bufferp buffer)) + (cons nil + (format "Expected %S to be a visible buffer, but it is not a buffer" + buffer))) + (t (cons + nil + (format "Expected %S to be a visible buffer, but it is not visible" + buffer)))))) + +(buttercup-define-matcher :to-be-local (symbol) + (let ((symbol (funcall symbol))) + (if (local-variable-p symbol) + (cons t (format "Expected %S not to be a local variable, but it is" + symbol)) + (cons nil (format "Expected %S to be a local variable, but it is not" + symbol))))) + +(buttercup-define-matcher :to-contain-match (buffer re) + (let ((buffer (funcall buffer)) + (re (funcall re))) + (if (not (get-buffer buffer)) + (cons nil (format "Expected %S to contain a match of %s, \ +but is not a buffer" buffer re)) + (with-current-buffer buffer + (save-excursion + (goto-char (point-min)) + (if (re-search-forward re nil 'noerror) + (cons t (format "Expected %S to contain a match \ +for %s, but it did not" buffer re)) + (cons nil (format "Expected %S not to contain a match for \ +%s but it did not." buffer re)))))))) + + +;;; Flycheck matchers + +(buttercup-define-matcher :to-be-equal-flycheck-errors (a b) + (let* ((a (funcall a)) + (b (funcall b)) + (a-formatted (flycheck-buttercup-format-error-list a)) + (b-formatted (flycheck-buttercup-format-error-list b))) + (if (equal a b) + (cons t (format "Expected +%s +not to be equal to +%s" a-formatted b-formatted)) + (cons nil (format "Expected +%s +to be equal to +%s" a-formatted b-formatted))))) + +(provide 'flycheck-buttercup) + +;; Disable byte compilation for this library, to prevent package.el choking on a +;; missing `buttercup' library. See +;; https://github.com/flycheck/flycheck/issues/860 + +;; Local Variables: +;; no-byte-compile: t +;; End: + +;;; flycheck-buttercup.el ends here diff --git a/elpa/flycheck-35.0/flycheck-ert.el b/elpa/flycheck-35.0/flycheck-ert.el new file mode 100644 index 0000000..f8219e9 --- /dev/null +++ b/elpa/flycheck-35.0/flycheck-ert.el @@ -0,0 +1,451 @@ +;;; flycheck-ert.el --- Flycheck: ERT extensions -*- lexical-binding: t; -*- + +;; Copyright (C) 2017-2018 Flycheck contributors +;; Copyright (C) 2013-2016 Sebastian Wiesner and Flycheck contributors + +;; Author: Sebastian Wiesner +;; Maintainer: Clément Pit-Claudel +;; fmdkdd +;; URL: https://github.com/flycheck/flycheck + +;; This file is not part of GNU Emacs. + +;; 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 . + +;;; Commentary: + +;; Unit testing library for Flycheck, the modern on-the-fly syntax checking +;; extension for GNU Emacs. + +;; Provide various utility functions and unit test helpers to test Flycheck and +;; Flycheck extensions. + +;;; Code: + +(require 'flycheck) +(require 'ert) +(require 'macroexp) ; For macro utilities + + +;;; Internal variables + +(defvar flycheck-ert--resource-directory nil + "The directory to get resources from in this test suite.") + + +;;; Resource management macros + +(defmacro flycheck-ert-with-temp-buffer (&rest body) + "Eval BODY within a temporary buffer. + +Like `with-temp-buffer', but resets the modification state of the +temporary buffer to make sure that it is properly killed even if +it has a backing file and is modified." + (declare (indent 0) (debug t)) + `(with-temp-buffer + (unwind-protect + ,(macroexp-progn body) + ;; Reset modification state of the buffer, and unlink it from its backing + ;; file, if any, because Emacs refuses to kill modified buffers with + ;; backing files, even if they are temporary. + (set-buffer-modified-p nil) + (set-visited-file-name nil 'no-query)))) + +(defmacro flycheck-ert-with-file-buffer (file-name &rest body) + "Create a buffer from FILE-NAME and eval BODY. + +BODY is evaluated with `current-buffer' being a buffer with the +contents FILE-NAME." + (declare (indent 1) (debug t)) + `(let ((file-name ,file-name)) + (unless (file-exists-p file-name) + (error "%s does not exist" file-name)) + (flycheck-ert-with-temp-buffer + (insert-file-contents file-name 'visit) + (set-visited-file-name file-name 'no-query) + (cd (file-name-directory file-name)) + ;; Mark the buffer as not modified, because we just loaded the file up to + ;; now. + (set-buffer-modified-p nil) + ,@body))) + +(defmacro flycheck-ert-with-help-buffer (&rest body) + "Execute BODY and kill the help buffer afterwards. + +Use this macro to test functions that create a Help buffer." + (declare (indent 0)) + `(unwind-protect + ,(macroexp-progn body) + (when (buffer-live-p (get-buffer (help-buffer))) + (kill-buffer (help-buffer))))) + +(defmacro flycheck-ert-with-global-mode (&rest body) + "Execute BODY with Global Flycheck Mode enabled. + +After BODY, restore the old state of Global Flycheck Mode." + (declare (indent 0)) + `(let ((old-state global-flycheck-mode)) + (unwind-protect + (progn + (global-flycheck-mode 1) + ,@body) + (global-flycheck-mode (if old-state 1 -1))))) + +(defmacro flycheck-ert-with-env (env &rest body) + "Add ENV to `process-environment' in BODY. + +Execute BODY with a `process-environment' which contains all +variables from ENV added. + +ENV is an alist, where each cons cell `(VAR . VALUE)' is a +environment variable VAR to be added to `process-environment' +with VALUE." + (declare (indent 1)) + `(let ((process-environment (copy-sequence process-environment))) + (pcase-dolist (`(,var . ,value) ,env) + (setenv var value)) + ,@body)) + + +;;; Test resources +(defun flycheck-ert-resource-filename (resource-file) + "Determine the absolute file name of a RESOURCE-FILE. + +Relative file names are expanded against +`flycheck-ert--resource-directory'." + (expand-file-name resource-file flycheck-ert--resource-directory)) + +(defmacro flycheck-ert-with-resource-buffer (resource-file &rest body) + "Create a temp buffer from a RESOURCE-FILE and execute BODY. + +The absolute file name of RESOURCE-FILE is determined with +`flycheck-ert-resource-filename'." + (declare (indent 1)) + `(flycheck-ert-with-file-buffer + (flycheck-ert-resource-filename ,resource-file) + ,@body)) + + +;;; Test suite initialization + +(defun flycheck-ert-initialize (resource-dir) + "Initialize a test suite with RESOURCE-DIR. + +RESOURCE-DIR is the directory, `flycheck-ert-resource-filename' +should use to lookup resource files." + (when flycheck-ert--resource-directory + (error "Test suite already initialized")) + (let ((tests (ert-select-tests t t))) + ;; Select all tests + (unless tests + (error "No tests defined. \ +Call `flycheck-ert-initialize' after defining all tests!")) + + (setq flycheck-ert--resource-directory resource-dir))) + + +;;; Test case definitions +(defmacro flycheck-ert-def-checker-test (checker language name + &rest keys-and-body) + "Define a test case for a syntax CHECKER for LANGUAGE. + +CHECKER is a symbol or a list of symbols denoting syntax checkers +being tested by the test. The test case is skipped, if any of +these checkers cannot be used. LANGUAGE is a symbol or a list of +symbols denoting the programming languages supported by the +syntax checkers. This is currently only used for tagging the +test appropriately. + +NAME is a symbol denoting the local name of the test. The test +itself is ultimately named +`flycheck-define-checker/CHECKER/NAME'. If CHECKER is a list, +the first checker in the list is used for naming the test. + +Optionally, the keyword arguments `:tags' and `:expected-result' +may be given. They have the same meaning as in `ert-deftest.', +and are added to the tags and result expectations set up by this +macro. + +The remaining forms KEYS-AND-BODY denote the body of the test +case, including assertions and setup code." + (declare (indent 3)) + (unless checker + (error "No syntax checkers specified")) + (unless language + (error "No languages specified")) + (let* ((checkers (if (symbolp checker) (list checker) checker)) + (checker (car checkers)) + (languages (if (symbolp language) (list language) language)) + (language-tags (mapcar (lambda (l) (intern (format "language-%s" l))) + languages)) + (checker-tags (mapcar (lambda (c) (intern (format "checker-%s" c))) + checkers)) + (local-name (or name 'default)) + (full-name (intern (format "flycheck-define-checker/%s/%s" + checker local-name))) + (keys-and-body (ert--parse-keys-and-body keys-and-body)) + (body (cadr keys-and-body)) + (keys (car keys-and-body)) + (default-tags '(syntax-checker external-tool))) + `(ert-deftest ,full-name () + :expected-result ,(or (plist-get keys :expected-result) :passed) + :tags (append ',(append default-tags language-tags checker-tags) + ,(plist-get keys :tags)) + ,@(mapcar (lambda (c) + `(skip-unless + ;; Ignore non-command checkers + (or (not (flycheck-checker-get ',c 'command)) + (executable-find (flycheck-checker-executable ',c))))) + checkers) + ,@body))) + + +;;; Test case results + +(defun flycheck-ert-syntax-check-timed-out-p (result) + "Whether RESULT denotes a timed-out test. + +RESULT is an ERT test result object." + (and (ert-test-failed-p result) + (eq (car (ert-test-failed-condition result)) + 'flycheck-ert-syntax-check-timed-out))) + + +;;; Syntax checking in tests + +(defvar-local flycheck-ert-syntax-checker-finished nil + "Non-nil if the current checker has finished.") + +(add-hook 'flycheck-after-syntax-check-hook + (lambda () (setq flycheck-ert-syntax-checker-finished t))) + +(defconst flycheck-ert-checker-wait-time 10 + "Time to wait until a checker is finished in seconds. + +After this time has elapsed, the checker is considered to have +failed, and the test aborted with failure.") + +(define-error 'flycheck-ert-syntax-check-timed-out "Syntax check timed out.") + +(defun flycheck-ert-wait-for-syntax-checker () + "Wait until the syntax check in the current buffer is finished." + (let ((starttime (float-time))) + (while (and (not flycheck-ert-syntax-checker-finished) + (< (- (float-time) starttime) flycheck-ert-checker-wait-time)) + (accept-process-output nil 0.02)) + (unless (< (- (float-time) starttime) flycheck-ert-checker-wait-time) + (flycheck-stop) + (signal 'flycheck-ert-syntax-check-timed-out nil))) + (setq flycheck-ert-syntax-checker-finished nil)) + +(defun flycheck-ert-buffer-sync () + "Like `flycheck-buffer', but synchronously." + (setq flycheck-ert-syntax-checker-finished nil) + (should (not (flycheck-running-p))) + (flycheck-mode) ;; This will only start a deferred check, + (should (flycheck-get-checker-for-buffer)) + (flycheck-buffer) ;; …so we need an explicit manual check + ;; After starting the check, the checker should either be running now, or + ;; already be finished (if it was fast). + (should (or flycheck-current-syntax-check + flycheck-ert-syntax-checker-finished)) + ;; Also there should be no deferred check pending anymore + (should-not (flycheck-deferred-check-p)) + (flycheck-ert-wait-for-syntax-checker)) + +(defun flycheck-ert-ensure-clear () + "Clear the current buffer. + +Raise an assertion error if the buffer is not clear afterwards." + (flycheck-clear) + (should (not flycheck-current-errors)) + (should (not (seq-find (lambda (ov) (overlay-get ov 'flycheck-overlay)) + (overlays-in (point-min) (point-max)))))) + + +;;; Test assertions + +(defun flycheck-error-without-group (err) + "Return a copy ERR with the `group' property set to nil." + (let ((copy (copy-flycheck-error err))) + (setf (flycheck-error-group copy) nil) + copy)) + +(defun flycheck-ert-should-overlay (error) + "Test that ERROR has a proper overlay in the current buffer. + +ERROR is a Flycheck error object." + (let* ((overlay (seq-find (lambda (ov) + (equal (flycheck-error-without-group + (overlay-get ov 'flycheck-error)) + (flycheck-error-without-group error))) + (flycheck-overlays-in 0 (+ 1 (buffer-size))))) + (region + ;; Overlays of errors from other files are on the first line + (if (flycheck-relevant-error-other-file-p error) + (cons (point-min) + (save-excursion (goto-char (point-min)) + (line-end-position))) + (flycheck-error-region-for-mode error 'symbols))) + (level (flycheck-error-level error)) + (category (flycheck-error-level-overlay-category level)) + (face (get category 'face)) + (fringe-bitmap (flycheck-error-level-fringe-bitmap level)) + (fringe-face (flycheck-error-level-fringe-face level)) + (fringe-icon (list 'left-fringe fringe-bitmap fringe-face))) + (should overlay) + (should (overlay-get overlay 'flycheck-overlay)) + (should (= (overlay-start overlay) (car region))) + (should (= (overlay-end overlay) (cdr region))) + (should (eq (overlay-get overlay 'face) face)) + (should (equal (get-char-property 0 'display + (overlay-get overlay 'before-string)) + fringe-icon)) + (should (eq (overlay-get overlay 'category) category)) + (should (equal (flycheck-error-without-group (overlay-get overlay + 'flycheck-error)) + (flycheck-error-without-group error))))) + +(defun flycheck-ert-sort-errors (errors) + "Sort ERRORS by `flycheck-error-<'." + (seq-sort #'flycheck-error-< errors)) + +(defun flycheck-ert-should-errors (&rest errors) + "Test that the current buffers has ERRORS. + +ERRORS is a list of errors expected to be present in the current +buffer. Each error is given as a list of arguments to +`flycheck-error-new-at'. + +If ERRORS are omitted, test that there are no errors at all in +the current buffer. + +With ERRORS, test that each error in ERRORS is present in the +current buffer, and that the number of errors in the current +buffer is equal to the number of given ERRORS. In other words, +check that the buffer has all ERRORS, and no other errors." + (let ((expected (flycheck-ert-sort-errors + (mapcar (apply-partially #'apply #'flycheck-error-new-at) + errors))) + (current (flycheck-ert-sort-errors flycheck-current-errors))) + (should (equal (mapcar #'flycheck-error-without-group expected) + (mapcar #'flycheck-error-without-group current))) + ;; Check that related errors are the same + (cl-mapcar + (lambda (err1 err2) + (should (equal (flycheck-ert-sort-errors + (mapcar #'flycheck-error-without-group + (flycheck-related-errors err1 expected))) + (flycheck-ert-sort-errors + (mapcar #'flycheck-error-without-group + (flycheck-related-errors err2)))))) + expected current) + (mapc #'flycheck-ert-should-overlay expected)) + (should (= (length errors) + (length (flycheck-overlays-in (point-min) (point-max)))))) + +(define-error 'flycheck-ert-suspicious-checker "Suspicious state from checker") + +(defun flycheck-ert-should-syntax-check-in-buffer (&rest errors) + "Test a syntax check in BUFFER, expecting ERRORS. + +This is like `flycheck-ert-should-syntax-check', but with a +buffer in the right mode instead of a file." + ;; Load safe file-local variables because some tests depend on them + (let ((enable-local-variables :safe) + ;; Disable all hooks at this place, to prevent 3rd party packages + ;; from interfering + (hack-local-variables-hook)) + (hack-local-variables)) + ;; Configure config file locating for unit tests + (let ((process-hook-called 0) + (suspicious nil)) + (add-hook 'flycheck-process-error-functions + (lambda (_err) + (setq process-hook-called (1+ process-hook-called)) + nil) + nil :local) + (add-hook 'flycheck-status-changed-functions + (lambda (status) + (when (eq status 'suspicious) + (setq suspicious t))) + nil :local) + (flycheck-ert-buffer-sync) + (when suspicious + (signal 'flycheck-ert-suspicious-checker nil)) + (apply #'flycheck-ert-should-errors errors) + (should (= process-hook-called (length errors)))) + (flycheck-ert-ensure-clear)) + +(defun flycheck-ert-should-syntax-check (resource-file modes &rest errors) + "Test a syntax check in RESOURCE-FILE with MODES. + +RESOURCE-FILE is the file to check. MODES is a single major mode +symbol or a list thereof, specifying the major modes to syntax +check with. If more than one major mode is specified, the test +is run for each mode separately, so if you give three major +modes, the entire test will run three times. ERRORS is the list +of expected errors, as in `flycheck-ert-should-errors'. If +omitted, the syntax check must not emit any errors. The errors +are cleared after each test. + +The syntax checker is selected via standard syntax checker +selection. To test a specific checker, you need to set +`flycheck-checker' or `flycheck-disabled-checkers' accordingly +before using this predicate, depending on whether you want to use +manual or automatic checker selection. + +During the syntax check, configuration files of syntax checkers +are also searched in the `config-files' sub-directory of the +resource directory." + (when (symbolp modes) + (setq modes (list modes))) + (dolist (mode modes) + (unless (fboundp mode) + (ert-skip (format "%S missing" mode))) + (flycheck-ert-with-resource-buffer resource-file + (funcall mode) + (apply #'flycheck-ert-should-syntax-check-in-buffer errors)))) + +(defun flycheck-ert-at-nth-error (n) + "Determine whether point is at the N'th Flycheck error. + +Return non-nil if the point is at the N'th Flycheck error in the +current buffer. Otherwise return nil." + (let* ((error (nth (1- n) flycheck-current-errors)) + (mode flycheck-highlighting-mode) + (region (flycheck-error-region-for-mode error mode))) + (and (member error (flycheck-overlay-errors-at (point))) + (= (point) (car region))))) + +(defun flycheck-ert-explain--at-nth-error (n) + "Explain a failed at-nth-error predicate at N." + (let ((errors (flycheck-overlay-errors-at (point)))) + (if (null errors) + (format "Expected to be at error %s, but no error at point %s" + n (point)) + (let ((pos (cl-position (car errors) flycheck-current-errors))) + (format "Expected to be at point %s and error %s, \ +but point %s is at error %s" + (car (flycheck-error-region-for-mode + (nth (1- n) flycheck-current-errors) + flycheck-highlighting-mode)) + n (point) (1+ pos)))))) + +(put 'flycheck-ert-at-nth-error 'ert-explainer + 'flycheck-ert-explain--at-nth-error) + +(provide 'flycheck-ert) + +;;; flycheck-ert.el ends here diff --git a/elpa/flycheck-35.0/flycheck-pkg.el b/elpa/flycheck-35.0/flycheck-pkg.el new file mode 100644 index 0000000..f329c73 --- /dev/null +++ b/elpa/flycheck-35.0/flycheck-pkg.el @@ -0,0 +1,12 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "flycheck" "35.0" + "On-the-fly syntax checking." + '((emacs "27.1")) + :url "https://www.flycheck.org" + :commit "6e43c07e83406cdd3f75952ee988d61d7573ec11" + :revdesc "6e43c07e8340" + :keywords '("convenience" "languages" "tools") + :authors '(("Sebastian Wiesner" . "swiesner@lunaryorn.com")) + :maintainers '(("Clément Pit-Claudel" . "clement.pitclaudel@live.com") + ("fmdkdd" . "fmdkdd@gmail.com") + ("Bozhidar Batsov" . "bozhidar@batsov.dev"))) diff --git a/elpa/flycheck-35.0/flycheck.el b/elpa/flycheck-35.0/flycheck.el new file mode 100644 index 0000000..7bd3d3f --- /dev/null +++ b/elpa/flycheck-35.0/flycheck.el @@ -0,0 +1,13034 @@ +;;; flycheck.el --- On-the-fly syntax checking -*- lexical-binding: t; -*- + +;; Copyright (C) 2017-2025 Flycheck contributors +;; Copyright (C) 2012-2016 Sebastian Wiesner and Flycheck contributors +;; Copyright (C) 2013, 2014 Free Software Foundation, Inc. +;; +;; Author: Sebastian Wiesner +;; Maintainer: Clément Pit-Claudel +;; fmdkdd +;; Bozhidar Batsov +;; URL: https://www.flycheck.org +;; Keywords: convenience, languages, tools +;; Package-Version: 35.0 +;; Package-Revision: 6e43c07e8340 +;; Package-Requires: ((emacs "27.1")) + +;; This file is not part of GNU Emacs. + +;; 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 . + +;;; Commentary: + +;; On-the-fly syntax checking for GNU Emacs. +;; +;; Flycheck is a modern on-the-fly syntax checking extension for GNU Emacs, +;; intended as replacement for the older Flymake extension which is part of GNU +;; Emacs. +;; +;; Flycheck automatically checks buffers for errors while you type, and reports +;; warnings and errors directly in the buffer and in an optional IDE-like error +;; list. +;; +;; It comes with a rich interface for custom syntax checkers and other +;; extensions, and has already many 3rd party extensions adding new features. +;; +;; Please read the online manual at https://www.flycheck.org for more +;; information. You can open the manual directly from Emacs with `M-x +;; flycheck-manual'. +;; +;; # Setup +;; +;; Flycheck works best on Unix systems. It does not officially support Windows, +;; but tries to maintain Windows compatibility and should generally work fine on +;; Windows, too. +;; +;; To enable Flycheck add the following to your init file: +;; +;; (add-hook 'after-init-hook #'global-flycheck-mode) +;; +;; Flycheck will then automatically check buffers in supported languages, as +;; long as all necessary tools are present. Use `flycheck-verify-setup' to +;; troubleshoot your Flycheck setup. + +;;; Code: + +(eval-when-compile + (require 'let-alist) ; `let-alist' + (require 'compile) ; Compile Mode integration + (require 'jka-compr) ; To inhibit compression of temp files + (require 'pcase) ; `pcase-dolist' (`pcase' itself is autoloaded) + ) + +(require 'seq) ; Sequence functions +(require 'subr-x) ; Additional utilities +(require 'cl-lib) ; `cl-defstruct' and CL utilities +(require 'tabulated-list) ; To list errors +(require 'easymenu) ; Flycheck Mode menu definition +(require 'rx) ; Regexp fanciness in `flycheck-define-checker' +(require 'help-mode) ; `define-button-type' +(require 'find-func) ; `find-function-regexp-alist' +(require 'json) ; `flycheck-parse-json' +(require 'ansi-color) ; `flycheck-parse-with-patterns-without-color' + + +;; Declare a bunch of dynamic variables that we need from other modes +(defvar sh-shell) ; For shell script checker predicates +(defvar ess-language) ; For r-lintr predicate +(defvar markdown-hide-markup) ; +(defvar markdown-fontify-code-block-default-mode) ; For rust-error-explainer +(defvar markdown-fontify-code-blocks-natively) ; + +;; Tell the byte compiler about autoloaded functions from packages +(declare-function pkg-info-version-info "pkg-info" (package)) + + +;;; Customization +(defgroup flycheck nil + "Modern on-the-fly syntax checking for GNU Emacs." + :prefix "flycheck-" + :group 'tools + :link '(url-link :tag "Website" "https://www.flycheck.org") + :link '(url-link :tag "Github" "https://github.com/flycheck/flycheck")) + +(defgroup flycheck-config-files nil + "Configuration files for on-the-fly syntax checkers." + :prefix "flycheck-" + :group 'flycheck) + +(defgroup flycheck-options nil + "Options for on-the-fly syntax checkers." + :prefix "flycheck-" + :group 'flycheck) + +(defgroup flycheck-executables nil + "Executables of syntax checkers." + :prefix "flycheck-" + :group 'flycheck) + +(defgroup flycheck-faces nil + "Faces used by on-the-fly syntax checking." + :prefix "flycheck-" + :group 'flycheck) + +(defcustom flycheck-checkers + '(ada-gnat + asciidoctor + asciidoc + awk-gawk + bazel-build-buildifier + bazel-module-buildifier + bazel-starlark-buildifier + bazel-workspace-buildifier + c/c++-clang + c/c++-gcc + c/c++-cppcheck + cfengine + coffee + coffee-coffeelint + css-csslint + css-stylelint + cuda-nvcc + cwl + d-dmd + dockerfile-hadolint + elixir-credo + emacs-lisp + emacs-lisp-checkdoc + ember-template + erlang-rebar3 + erlang + eruby-erubis + eruby-ruumba + fortran-gfortran + go-gofmt + go-vet + go-build + go-test + go-errcheck + go-unconvert + go-staticcheck + groovy + haml + haml-lint + handlebars + haskell-stack-ghc + haskell-ghc + haskell-hlint + html-tidy + javascript-eslint + javascript-jshint + javascript-standard + json-jsonlint + json-python-json + json-jq + jsonnet + less + less-stylelint + llvm-llc + lua-luacheck + lua + markdown-markdownlint-cli + markdown-markdownlint-cli2 + markdown-mdl + markdown-pymarkdown + nix + nix-linter + opam + perl + perl-perlcritic + perl-perlimports + php + php-phpmd + php-phpcs + php-phpcs-changed + processing + proselint + protobuf-protoc + protobuf-prototool + pug + puppet-parser + puppet-lint + python-flake8 + python-ruff + python-pylint + python-pycompile + python-pyright + python-mypy + r-lintr + r + racket + rpm-rpmlint + rst-sphinx + rst + ruby-rubocop + ruby-chef-cookstyle + ruby-standard + ruby-reek + ruby + ruby-jruby + rust-cargo + rust + rust-clippy + salt-lint + scala + scala-scalastyle + scheme-chicken + scss-lint + sass-stylelint + scss-stylelint + sass/scss-sass-lint + sass + scss + sh-bash + sh-posix-dash + sh-posix-bash + sh-zsh + sh-shellcheck + slim + slim-lint + sql-sqlint + statix + systemd-analyze + tcl-nagelfar + terraform + terraform-tflint + tex-chktex + tex-lacheck + texinfo + textlint + typescript-tslint + verilog-verilator + vhdl-ghdl + xml-xmlstarlet + xml-xmllint + yaml-actionlint + yaml-jsyaml + yaml-ruby + yaml-yamllint) + "Syntax checkers available for automatic selection. + +A list of Flycheck syntax checkers to choose from when syntax +checking a buffer. Flycheck will automatically select a suitable +syntax checker from this list, unless `flycheck-checker' is set, +either directly or with `flycheck-select-checker'. + +You should not need to change this variable normally. In order +to disable syntax checkers, please use +`flycheck-disabled-checkers'. This variable is intended for 3rd +party extensions to tell Flycheck about new syntax checkers. + +Syntax checkers in this list must be defined with +`flycheck-define-checker'." + :group 'flycheck + :type '(repeat (symbol :tag "Checker")) + :risky t) + +(defcustom flycheck-disabled-checkers nil + "Syntax checkers excluded from automatic selection. + +A list of Flycheck syntax checkers to exclude from automatic +selection. Flycheck will never automatically select a syntax +checker in this list, regardless of the value of +`flycheck-checkers'. + +However, syntax checkers in this list are still available for +manual selection with `flycheck-select-checker'. + +Use this variable to disable syntax checkers, instead of removing +the syntax checkers from `flycheck-checkers'. You may also use +this option as a file or directory local variable to disable +specific checkers in individual files and directories +respectively." + :group 'flycheck + :type '(repeat (symbol :tag "Checker")) + :package-version '(flycheck . "0.16") + :safe #'flycheck-symbol-list-p) +(make-variable-buffer-local 'flycheck-disabled-checkers) + +(defvar-local flycheck--automatically-disabled-checkers nil + "List of syntax checkers automatically disabled for this buffer. + +A checker can be automatically disabled in two cases: + +1. Its `:enabled' predicate returned false. +2. It returned too many errors (see `flycheck-checker-error-threshold'). + +To trigger a reverification from Emacs Lisp code, do not modify +this variable: use `flycheck-reset-enabled-checker'.") + +(defvar-local flycheck-checker nil + "Syntax checker to use for the current buffer. + +If unset or nil, automatically select a suitable syntax checker +from `flycheck-checkers' on every syntax check. + +If set to a syntax checker only use this syntax checker and never +select one from `flycheck-checkers' automatically. The syntax +checker is used regardless of whether it is contained in +`flycheck-checkers' or `flycheck-disabled-checkers'. If the +syntax checker is unusable in the current buffer an error is +signaled. + +A syntax checker assigned to this variable must be defined with +`flycheck-define-checker'. + +Use the command `flycheck-select-checker' to select a syntax +checker for the current buffer, or set this variable as file +local variable to always use a specific syntax checker for a +file. See Info Node `(Emacs)Specifying File Variables' for more +information about file variables.") +(put 'flycheck-checker 'safe-local-variable 'flycheck-registered-checker-p) + +(defcustom flycheck-locate-config-file-functions nil + "Functions to locate syntax checker configuration files. + +Each function in this hook must accept two arguments: The value +of the configuration file variable, and the syntax checker +symbol. It must return either a string with an absolute path to +the configuration file, or nil, if it cannot locate the +configuration file. + +The functions in this hook are called in order of appearance, until a +function returns non-nil. The configuration file returned by that +function is then given to the syntax checker if it exists. + +This variable is an abnormal hook. See Info +node `(elisp)Hooks'." + :group 'flycheck + :type 'hook + :risky t) + +(defcustom flycheck-checker-error-threshold 400 + "Maximum errors allowed per syntax checker. + +The value of this variable is either an integer denoting the +maximum number of errors per syntax checker and buffer, or nil to +not limit the errors reported from a syntax checker. + +If this variable is a number and a syntax checker reports more +errors than the value of this variable, its errors are not +discarded, and not highlighted in the buffer or available in the +error list. The affected syntax checker is also disabled for +future syntax checks of the buffer." + :group 'flycheck + :type '(choice (const :tag "Do not limit reported errors" nil) + (integer :tag "Maximum number of errors")) + :risky t + :package-version '(flycheck . "0.22")) + +(defcustom flycheck-process-error-functions nil + "Functions to process errors. + +Each function in this hook must accept a single argument: A +Flycheck error to process. + +All functions in this hook are called in order of appearance, +until a function returns non-nil. Thus, a function in this hook +may return nil, to allow for further processing of the error, or +any non-nil value, to indicate that the error was fully processed +and inhibit any further processing. + +The functions are called for each newly parsed error immediately +after the corresponding syntax checker finished. At this stage, +the overlays from the previous syntax checks are still present, +and there may be further syntax checkers in the chain. + +This variable is an abnormal hook. See Info +node `(elisp)Hooks'." + :group 'flycheck + :type 'hook + :package-version '(flycheck . "0.13") + :risky t) + +(defcustom flycheck-auto-display-errors-after-checking t + "Whether to automatically display errors at the current point after checking. + +When being set to `nil', it will prevent Flycheck from automatically displaying +error messages. This setting is useful when Flycheck is used together with +`flycheck-posframe', to prevent `flycheck-posframe' from repeatedly displaying +errors at point." + :group 'flycheck + :type 'boolean + :package-version '(flycheck . "35") + :safe #'booleanp) + +(defcustom flycheck-display-errors-delay 0.9 + "Delay in seconds before displaying errors at point. + +Use floating point numbers to express fractions of seconds." + :group 'flycheck + :type 'number + :package-version '(flycheck . "0.15") + :safe #'numberp) + +(defcustom flycheck-display-errors-function #'flycheck-display-error-messages + "Function to display error messages. + +If set to a function, call the function with the list of errors +to display as single argument. Each error is an instance of the +`flycheck-error' struct. + +If set to nil, do not display errors at all." + :group 'flycheck + :type '(choice (const :tag "Display error messages" + flycheck-display-error-messages) + (const :tag "Display error messages only if no error list" + flycheck-display-error-messages-unless-error-list) + (function :tag "Error display function")) + :package-version '(flycheck . "0.13") + :risky t) + +(defcustom flycheck-clear-displayed-errors-function #'flycheck-clear-displayed-error-messages + "Function to hide error message displayed by `flycheck-display-errors-function'. + +If set to a function, it will be called with no arguments to +clear all displayed errors at point." + :group 'flycheck + :type '(choice (const :tag "Clear displayed error messages" + flycheck-clear-displayed-error-messages) + (function :tag "Clear displayed errors function")) + :package-version '(flycheck . "34.2") + :risky t) + +(defcustom flycheck-help-echo-function #'flycheck-help-echo-all-error-messages + "Function to compute the contents of the error tooltips. + +If set to a function, call the function with the list of errors +to display as single argument. Each error is an instance of the +`flycheck-error' struct. The function is used to set the +help-echo property of flycheck error overlays. It should return +a string, which is displayed when the user hovers over an error +or presses \\[display-local-help]. + +If set to nil, do not show error tooltips." + :group 'flycheck + :type '(choice (const :tag "Concatenate error messages to form a tooltip" + flycheck-help-echo-all-error-messages) + (function :tag "Help echo function")) + :package-version '(flycheck . "0.25") + :risky t) + +(defcustom flycheck-command-wrapper-function #'identity + "Function to modify checker commands before execution. + +The value of this option is a function which is given a list +containing the full command of a syntax checker after +substitution through `flycheck-substitute-argument' but before +execution. The function may return a new command for Flycheck to +execute. + +The default value is `identity' which does not change the +command. You may provide your own function to run Flycheck +commands through `bundle exec', `nix-shell' or similar wrappers." + :group 'flycheck + :type '(choice (const :tag "Do not modify commands" identity) + (function :tag "Modify command with a custom function")) + :package-version '(flycheck . "0.25") + :risky t) + +(defcustom flycheck-executable-find #'flycheck-default-executable-find + "Function to search for executables. + +The value of this option is a function which is given the name or +path of an executable and shall return the full path to the +executable, or nil if the executable does not exit. + +The default is `flycheck-default-executable-find', which searches +variable `exec-path' when given a command name, and resolves +paths to absolute ones. You can customize this option to search +for checkers in other environments such as bundle or NixOS +sandboxes." + :group 'flycheck + :type '(choice + (const :tag "Search executables in `exec-path'" + flycheck-default-executable-find) + (function :tag "Search executables with a custom function")) + :package-version '(flycheck . "32") + :risky t) + +(defun flycheck-default-executable-find (executable) + "Resolve EXECUTABLE to a full path. + +Like `executable-find', but supports relative paths. + +Attempts invoking `executable-find' first; if that returns nil, +and EXECUTABLE contains a directory component, expands to a full +path and tries invoking `executable-find' again." + ;; file-name-directory returns non-nil iff the given path has a + ;; directory component. + (or + (executable-find executable) + (when (file-name-directory executable) + (executable-find (expand-file-name executable))))) + +(defcustom flycheck-indication-mode 'left-fringe + "The indication mode for Flycheck errors. + +This variable controls how Flycheck indicates errors in buffers. +May be `left-fringe', `right-fringe', `left-margin', +`right-margin', or nil. + +If set to `left-fringe' or `right-fringe', indicate errors via +icons in the left and right fringe respectively. If set to +`left-margin' or `right-margin', use the margins instead. + +If set to nil, do not indicate errors and warnings, but just +highlight them according to `flycheck-highlighting-mode'." + :group 'flycheck + :type '(choice (const :tag "Indicate in the left fringe" left-fringe) + (const :tag "Indicate in the right fringe" right-fringe) + (const :tag "Indicate in the left margin" left-margin) + (const :tag "Indicate in the right margin" right-margin) + (const :tag "Do not indicate" nil)) + :safe #'symbolp) + +(defcustom flycheck-highlighting-mode 'symbols + "The highlighting mode for Flycheck errors and warnings. + +The highlighting mode controls how Flycheck highlights errors in +buffers when a checker only reports the starting position of an +error. The following modes are known: + +`columns' + Highlight a single character. If the error does not have a column, + highlight the whole line. + +`symbols' + Highlight a full symbol if there is any, otherwise behave like `columns'. + This is the default. + +`sexps' + Highlight a full expression, if there is any, otherwise behave like + `columns'. Note that this mode can be *very* slow in some major modes. + +`lines' + Highlight the whole line. + +nil + Do not highlight errors at all. However, errors will still + be reported in the mode line and in error message popups, + and indicated according to `flycheck-indication-mode'." + :group 'flycheck + :type '(choice (const :tag "Highlight columns only" columns) + (const :tag "Highlight symbols" symbols) + (const :tag "Highlight expressions" sexps) + (const :tag "Highlight whole lines" lines) + (const :tag "Do not highlight errors" nil)) + :package-version '(flycheck . "0.14") + :safe #'symbolp) + +(defvar flycheck-current-errors) +(defun flycheck-refresh-fringes-and-margins () + "Refresh fringes and margins of all windows displaying the current buffer. + +If any errors are currently shown, launch a new check, to adjust +to a potential new indication mode." + (dolist (win (get-buffer-window-list)) + (set-window-margins win left-margin-width right-margin-width) + (set-window-fringes win left-fringe-width right-fringe-width)) + (when flycheck-current-errors + (flycheck-buffer))) + +(defun flycheck-set-indication-mode (&optional mode) + "Set `flycheck-indication-mode' to MODE and adjust margins and fringes. + +When MODE is nil, adjust window parameters without changing the +mode. This function can be useful as a `flycheck-mode-hook', +especially if you use margins only in Flycheck buffers. + +When MODE is `left-margin', the left fringe is reduced to 1 pixel +to save space." + (interactive (list (intern (completing-read + "Mode: " '("left-fringe" "right-fringe" + "left-margin" "right-margin") + nil t nil nil + (prin1-to-string flycheck-indication-mode))))) + (setq mode (or mode flycheck-indication-mode)) + (pcase mode + ((or `left-fringe `right-fringe) + (setq left-fringe-width 8 right-fringe-width 8 + left-margin-width 0 right-margin-width 0)) + (`left-margin + (setq left-fringe-width 1 right-fringe-width 8 + left-margin-width 1 right-margin-width 0)) + (`right-margin + (setq left-fringe-width 8 right-fringe-width 8 + left-margin-width 0 right-margin-width 1)) + (_ (user-error "Invalid indication mode"))) + (setq-local flycheck-indication-mode mode) + (flycheck-refresh-fringes-and-margins)) + +(define-widget 'flycheck-highlighting-style 'lazy + "A value for `flycheck-highlighting-style'." + :offset 2 + :format "%t: Use %v" + :type '(choice + :format "%[Value Menu%] %v" + (const :tag "no highlighting" nil) + (const :tag "a face indicating the error level" level-face) + (list :tag "a pair of delimiters" + (const :format "" delimiters) + (string :tag "Before") + (string :tag "After")) + (list :tag "a conditional mix of styles" + (const :format "" conditional) + (integer :tag "Up to this many lines") + (flycheck-highlighting-style :format "Use %v") + (flycheck-highlighting-style :format "Otherwise, use %v")))) + +(defun flycheck--make-highlighting-delimiter (char) + "Make a highlighting bracket symbol by repeating CHAR twice." + (compose-chars ?\s + ;; '(Bl . Br) ?\s + '(Bc Br 30 0) char + '(Bc Bl -30 0) char)) + +(defcustom flycheck-highlighting-style + `(conditional 4 level-face (delimiters "" "")) + "The highlighting style for Flycheck errors and warnings. + +The highlighting style controls how Flycheck highlights error +regions in buffers. The following styles are supported: + +nil + Do not highlight errors. Same as setting + `flycheck-highlighting-mode' to nil. + +`level-face' + Chose a face depending on the severity of the error, and + apply it to the whole error text. See also the + `flycheck-define-error-level' and `flycheck-error', + `flycheck-warning', and `flycheck-info' faces. + +\(`delimiters' BEFORE AFTER) + Draw delimiters on each side of the error. BEFORE and AFTER + indicate which delimiters to use. If they are strings, they + are used as-is. If they are characters, they are repeated + twice and composed into a single character. Delimiters use + the fringe face corresponding to the severity of each error, + as well as the `flycheck-error-delimiter' face. Delimited + text has the `flycheck-delimited-error' face. + +\(`conditional' NLINES S1 S2) + Use style S1 for errors spanning up to NLINES lines, and + style S2 otherwise. + +See also `flycheck-highlighting-mode' and +`flycheck-indication-mode'." + :group 'flycheck + :type 'flycheck-highlighting-style + :package-version '(flycheck . "32") + :safe t) + +(defcustom flycheck-check-syntax-automatically '(save + idle-change + new-line + mode-enabled) + "When Flycheck should check syntax automatically. + +This variable is a list of events that may trigger syntax checks. +The following events are known: + +`save' + Check syntax immediately after the buffer was saved. + +`idle-change' + Check syntax a short time (see `flycheck-idle-change-delay') + after the last change to the buffer. + +`idle-buffer-switch' + Check syntax a short time (see `flycheck-idle-buffer-switch-delay') + after the user switches to a buffer. + +`new-line' + Check syntax immediately after a new line was inserted into + the buffer. + +`mode-enabled' + Check syntax immediately when variable `flycheck-mode' is + non-nil. + +Flycheck performs a syntax checks only on events, which are +contained in this list. For instance, if the value of this +variable is `(mode-enabled save)', Flycheck will only check if +the mode is enabled or the buffer was saved, but never after +changes to the buffer contents. + +If nil, never check syntax automatically. In this case, use +`flycheck-buffer' to start a syntax check manually." + :group 'flycheck + :type '(set (const :tag "After the buffer was saved" save) + (const :tag "After the buffer was changed and idle" idle-change) + (const + :tag "After switching the current buffer" idle-buffer-switch) + (const :tag "After a new line was inserted" new-line) + (const :tag "After `flycheck-mode' was enabled" mode-enabled)) + :package-version '(flycheck . "0.12") + :safe #'flycheck-symbol-list-p) + +(defcustom flycheck-idle-change-delay 0.5 + "How many seconds to wait after a change before checking syntax. + +After the buffer was changed, Flycheck will wait as many seconds +as the value of this variable before starting a syntax check. If +the buffer is modified during this time, Flycheck will wait +again. + +This variable has no effect, if `idle-change' is not contained in +`flycheck-check-syntax-automatically'." + :group 'flycheck + :type 'number + :package-version '(flycheck . "0.13") + :safe #'numberp) + +(defcustom flycheck-idle-buffer-switch-delay 0.5 + "How many seconds to wait after switching buffers before checking syntax. + +After the user switches to a new buffer, Flycheck will wait as +many seconds as the value of this variable before starting a +syntax check. If the user switches to another buffer during this +time, whether a syntax check is still performed depends on the +value of `flycheck-buffer-switch-check-intermediate-buffers'. + +This variable has no effect if `idle-buffer-switch' is not +contained in `flycheck-check-syntax-automatically'." + :group 'flycheck + :type 'number + :package-version '(flycheck . "32") + :safe #'numberp) + +(defcustom flycheck-buffer-switch-check-intermediate-buffers nil + "Whether to check syntax in a buffer you only visit briefly. + +If nil, then when you switch to a buffer but switch to another +buffer before the syntax check is performed, then the check is +canceled. If non-nil, then syntax checks due to switching +buffers are always performed. This only affects buffer switches +that happen less than `flycheck-idle-buffer-switch-delay' seconds +apart. + +This variable has no effect if `idle-buffer-switch' is not +contained in `flycheck-check-syntax-automatically'." + :group 'flycheck + :type 'boolean + :package-version '(flycheck . "32") + :safe #'booleanp) + +(defcustom flycheck-standard-error-navigation t + "Whether to support error navigation with `next-error'. + +If non-nil, enable navigation of Flycheck errors with +`next-error', `previous-error' and `first-error'. Otherwise, +these functions just navigate errors from compilation modes. + +Flycheck error navigation with `flycheck-next-error', +`flycheck-previous-error' and `flycheck-first-error' is always +enabled, regardless of the value of this variable. + +Note that this setting only takes effect when variable +`flycheck-mode' is non-nil. Changing it will not affect buffers +where variable `flycheck-mode' is already non-nil." + :group 'flycheck + :type 'boolean + :package-version '(flycheck . "0.15") + :safe #'booleanp) + +(define-widget 'flycheck-minimum-level 'lazy + "A radio-type choice of minimum error levels. + +See `flycheck-navigation-minimum-level' and +`flycheck-error-list-minimum-level'." + :type '(radio (const :tag "All locations" nil) + (const :tag "Informational messages" info) + (const :tag "Warnings" warning) + (const :tag "Errors" error) + (symbol :tag "Custom error level"))) + +(defcustom flycheck-navigation-minimum-level nil + "The minimum level of errors to navigate. + +If set to an error level, only navigate errors whose error level +is at least as severe as this one. If nil, navigate all errors." + :group 'flycheck + :type 'flycheck-minimum-level + :safe #'flycheck-error-level-p + :package-version '(flycheck . "0.21")) + +(defcustom flycheck-error-list-minimum-level nil + "The minimum level of errors to display in the error list. + +If set to an error level, only display errors whose error level +is at least as severe as this one in the error list. If nil, +display all errors. + +This is the default level, used when the error list is opened. +You can temporarily change the level using +\\[flycheck-error-list-set-filter], or reset it to this value +using \\[flycheck-error-list-reset-filter]." + :group 'flycheck + :type 'flycheck-minimum-level + :safe #'flycheck-error-level-p + :package-version '(flycheck . "0.24")) + +(defcustom flycheck-relevant-error-other-file-minimum-level 'error + "The minimum level of errors from other files to display in this buffer. + +If set to an error level, only display errors from other files +whose error level is at least as severe as this one. If nil, +display all errors from other files." + :group 'flycheck + :type 'flycheck-minimum-level + :safe #'flycheck-error-level-p + :package-version '(flycheck . "32")) + +(defcustom flycheck-relevant-error-other-file-show t + "Whether to show errors from other files." + :group 'flycheck + :type 'boolean + :package-version '(flycheck . "32") + :safe #'booleanp) + +(defcustom flycheck-completing-read-function #'completing-read + "Function to read from minibuffer with completion. + +The function must be compatible to the built-in `completing-read' +function." + :group 'flycheck + :type '(choice (const :tag "Default" completing-read) + (const :tag "IDO" ido-completing-read) + (function :tag "Custom function")) + :risky t + :package-version '(flycheck . "26")) + +(defcustom flycheck-temp-prefix "flycheck" + "Prefix for temporary files created by Flycheck." + :group 'flycheck + :type 'string + :package-version '(flycheck . "0.19") + :risky t) + +(defcustom flycheck-mode-hook nil + "Hooks to run after command `flycheck-mode' is toggled." + :group 'flycheck + :type 'hook + :risky t) + +(defcustom flycheck-after-syntax-check-hook nil + "Functions to run after each syntax check. + +This hook is run after a syntax check was finished. + +At this point, *all* chained checkers were run, and all errors +were parsed, highlighted and reported. The variable +`flycheck-current-errors' contains all errors from all syntax +checkers run during the syntax check, so you can apply any error +analysis functions. + +Note that this hook does *not* run after each individual syntax +checker in the syntax checker chain, but only after the *last +checker*. + +This variable is a normal hook. See Info node `(elisp)Hooks'." + :group 'flycheck + :type 'hook + :risky t) + +(defcustom flycheck-before-syntax-check-hook nil + "Functions to run before each syntax check. + +This hook is run right before a syntax check starts. + +Error information from the previous syntax check is *not* +cleared before this hook runs. + +Note that this hook does *not* run before each individual syntax +checker in the syntax checker chain, but only before the *first +checker*. + +This variable is a normal hook. See Info node `(elisp)Hooks'." + :group 'flycheck + :type 'hook + :risky t) + +(defcustom flycheck-syntax-check-failed-hook nil + "Functions to run if a syntax check failed. + +This hook is run whenever an error occurs during Flycheck's +internal processing. No information about the error is given to +this hook. + +You should use this hook to conduct additional cleanup actions +when Flycheck failed. + +This variable is a normal hook. See Info node `(elisp)Hooks'." + :group 'flycheck + :type 'hook + :risky t) + +(defcustom flycheck-status-changed-functions nil + "Functions to run if the Flycheck status changed. + +This hook is run whenever the status of Flycheck changes. Each +hook function takes the status symbol as single argument, as +given to `flycheck-report-status', which see. + +This variable is an abnormal hook. See Info +node `(elisp)Hooks'." + :group 'flycheck + :type 'hook + :risky t + :package-version '(flycheck . "0.20")) + +(defcustom flycheck-error-list-after-refresh-hook nil + "Functions to run after the error list was refreshed. + +This hook is run whenever the error list is refreshed. + +This variable is a normal hook. See Info node `(elisp)Hooks'." + :group 'flycheck + :type 'hook + :risky t + :package-version '(flycheck . "0.21")) + +(defface flycheck-error-delimiter + `((t)) + "Flycheck face for errors spanning multiple lines. + +See `flycheck-highlighting-style' for details on when this face +is used." + :package-version '(flycheck . "32") + :group 'flycheck-faces) + +(defface flycheck-delimited-error + `((t)) + "Flycheck face for errors spanning multiple lines. + +See `flycheck-highlighting-style' for details on when this face +is used." + :package-version '(flycheck . "32") + :group 'flycheck-faces) + +(defface flycheck-error + '((((supports :underline (:style wave))) + :underline (:style wave :color "Red1")) + (t + :underline t :inherit error)) + "Flycheck face for errors." + :package-version '(flycheck . "0.13") + :group 'flycheck-faces) + +(defface flycheck-warning + '((((supports :underline (:style wave))) + :underline (:style wave :color "DarkOrange")) + (t + :underline t :inherit warning)) + "Flycheck face for warnings." + :package-version '(flycheck . "0.13") + :group 'flycheck-faces) + +(defface flycheck-info + '((((supports :underline (:style wave))) + :underline (:style wave :color "ForestGreen")) + (t + :underline t :inherit success)) + "Flycheck face for informational messages." + :package-version '(flycheck . "0.15") + :group 'flycheck-faces) + +(defface flycheck-fringe-error + '((t :inherit error)) + "Flycheck face for fringe error indicators." + :package-version '(flycheck . "0.13") + :group 'flycheck-faces) + +(defface flycheck-fringe-warning + '((t :inherit warning)) + "Flycheck face for fringe warning indicators." + :package-version '(flycheck . "0.13") + :group 'flycheck-faces) + +(defface flycheck-fringe-info + ;; Semantically `success' is probably not the right face, but it looks nice as + ;; a base face + '((t :inherit success)) + "Flycheck face for fringe info indicators." + :package-version '(flycheck . "0.15") + :group 'flycheck-faces) + +(defface flycheck-error-list-error + '((t :inherit error)) + "Flycheck face for error messages in the error list." + :package-version '(flycheck . "0.16") + :group 'flycheck-faces) + +(defface flycheck-error-list-warning + '((t :inherit warning)) + "Flycheck face for warning messages in the error list." + :package-version '(flycheck . "0.16") + :group 'flycheck-faces) + +(defface flycheck-error-list-info + '((t :inherit success)) + "Flycheck face for info messages in the error list." + :package-version '(flycheck . "0.16") + :group 'flycheck-faces) + +(defface flycheck-error-list-line-number + '((t)) + "Face for line numbers in the error list." + :group 'flycheck-faces + :package-version '(flycheck . "0.16")) + +(defface flycheck-error-list-column-number + '((t)) + "Face for line numbers in the error list." + :group 'flycheck-faces + :package-version '(flycheck . "0.16")) + +(defface flycheck-error-list-filename + '((t :inherit mode-line-buffer-id :bold nil)) + "Face for filenames in the error list." + :group 'flycheck-faces + :package-version '(flycheck . "32")) + +(defface flycheck-error-list-id + '((t :inherit font-lock-type-face)) + "Face for the error ID in the error list." + :group 'flycheck-faces + :package-version '(flycheck . "0.22")) + +(defface flycheck-error-list-id-with-explainer + '((t :inherit flycheck-error-list-id + :box (:style released-button))) + "Face for the error ID in the error list, for errors that have an explainer." + :group 'flycheck-faces + :package-version '(flycheck . "30")) + +(defface flycheck-error-list-checker-name + '((t :inherit font-lock-function-name-face)) + "Face for the syntax checker name in the error list." + :group 'flycheck-faces + :package-version '(flycheck . "0.21")) + +(defface flycheck-error-list-error-message + '((t)) + "Face for the error message in the error list." + :group 'flycheck-faces + :package-version '(flycheck . "33")) + +(defface flycheck-error-list-highlight + '((t :bold t)) + "Flycheck face to highlight errors in the error list." + :package-version '(flycheck . "0.15") + :group 'flycheck-faces) + +(defface flycheck-verify-select-checker + '((t :box (:style released-button))) + "Flycheck face for the `select' button in the verify setup buffer." + :package-version '(flycheck . "32") + :group 'flycheck-faces) + +(defvar flycheck-command-map + (let ((map (make-sparse-keymap))) + (define-key map "c" #'flycheck-buffer) + (define-key map "C" #'flycheck-clear) + (define-key map (kbd "C-c") #'flycheck-compile) + (define-key map "n" #'flycheck-next-error) + (define-key map "p" #'flycheck-previous-error) + (define-key map "l" #'flycheck-list-errors) + (define-key map (kbd "C-w") #'flycheck-copy-errors-as-kill) + (define-key map "s" #'flycheck-select-checker) + (define-key map "?" #'flycheck-describe-checker) + (define-key map "h" #'flycheck-display-error-at-point) + (define-key map "e" #'flycheck-explain-error-at-point) + (define-key map "H" #'display-local-help) + (define-key map "i" #'flycheck-manual) + (define-key map "V" #'flycheck-version) + (define-key map "v" #'flycheck-verify-setup) + (define-key map "x" #'flycheck-disable-checker) + map) + "Keymap of Flycheck interactive commands.") + +(defcustom flycheck-keymap-prefix (kbd "C-c !") + "Prefix for key bindings of Flycheck. + +Changing this variable outside Customize does not have any +effect. To change the keymap prefix from Lisp, you need to +explicitly re-define the prefix key: + + (define-key flycheck-mode-map flycheck-keymap-prefix nil) + (setq flycheck-keymap-prefix (kbd \"C-c f\")) + (define-key flycheck-mode-map flycheck-keymap-prefix + flycheck-command-map) + +Please note that Flycheck's manual documents the default +keybindings. Changing this variable is at your own risk." + :group 'flycheck + :package-version '(flycheck . "0.19") + :type 'string + :risky t + :set + (lambda (variable key) + (when (and (boundp variable) (boundp 'flycheck-mode-map)) + (define-key flycheck-mode-map (symbol-value variable) nil) + (define-key flycheck-mode-map key flycheck-command-map)) + (set-default variable key))) + +(defcustom flycheck-mode-line '(:eval (flycheck-mode-line-status-text)) + "Mode line lighter for Flycheck. + +The value of this variable is a mode line template as in +`mode-line-format'. See Info Node `(elisp)Mode Line Format' for +more information. Note that it should contain a _single_ mode +line construct only. + +Customize this variable to change how Flycheck reports its status +in the mode line. You may use `flycheck-mode-line-status-text' +to obtain a human-readable status text, including an +error/warning count. + +You may also assemble your own status text. The current status +of Flycheck is available in `flycheck-last-status-change'. The +errors in the current buffer are stored in +`flycheck-current-errors', and the function +`flycheck-count-errors' may be used to obtain the number of +errors grouped by error level. + +Set this variable to nil to disable the mode line completely." + :group 'flycheck + :type 'sexp + :risky t + :package-version '(flycheck . "0.20")) + +(defcustom flycheck-mode-line-color t + "Use colors for Flycheck mode line status." + :group 'flycheck + :type 'boolean + :package-version '(flycheck . "35")) + +(defcustom flycheck-mode-line-prefix "FlyC" + "Base mode line lighter for Flycheck. + +This will have an effect only with the default +`flycheck-mode-line'. + +If you've customized `flycheck-mode-line' then the customized +function must be updated to use this variable." + :group 'flycheck + :type 'string + :package-version '(flycheck . "26")) + +(defcustom flycheck-mode-success-indicator ":0" + "Success indicator appended to `flycheck-mode-line-prefix'." + :group 'flycheck + :type 'string + :package-version '(flycheck . "35")) + +(defcustom flycheck-error-list-mode-line + `(,(propertized-buffer-identification "%12b") + " for buffer " + (:eval (flycheck-error-list-propertized-source-name)) + (:eval (flycheck-error-list-mode-line-filter-indicator))) + "Mode line construct for Flycheck error list. + +The value of this variable is a mode line template as in +`mode-line-format', to be used as +`mode-line-buffer-identification' in `flycheck-error-list-mode'. +See Info Node `(elisp)Mode Line Format' for more information. + +Customize this variable to change how the error list appears in +the mode line. The default shows the name of the buffer and the +name of the source buffer, i.e. the buffer whose errors are +currently listed." + :group 'flycheck + :type 'sexp + :risky t + :package-version '(flycheck . "0.20")) + +(defcustom flycheck-global-modes t + "Modes for which option `flycheck-mode' is turned on. + +If t, Flycheck Mode is turned on for all major modes. If a list, +Flycheck Mode is turned on for all `major-mode' symbols in that +list. If the `car' of the list is `not', Flycheck Mode is turned +on for all `major-mode' symbols _not_ in that list. If nil, +Flycheck Mode is never turned on by command +`global-flycheck-mode'. + +Note that Flycheck is never turned on for modes whose +`mode-class' property is `special' (see Info node `(elisp)Major +Mode Conventions'), regardless of the value of this option. + +Only has effect when variable `global-flycheck-mode' is non-nil." + :group 'flycheck + :type '(choice (const :tag "none" nil) + (const :tag "all" t) + (set :menu-tag "mode specific" :tag "modes" + :value (not) + (const :tag "Except" not) + (repeat :inline t (symbol :tag "mode")))) + :risky t + :package-version '(flycheck . "0.23")) + +;; Add built-in functions to our hooks, via `add-hook', to make sure that our +;; functions are really present, even if the variable was implicitly defined by +;; another call to `add-hook' that occurred before Flycheck was loaded. See +;; https://lists.gnu.org/archive/html/emacs-devel/2015-02/msg01271.html for why +;; we don't initialize the hook variables right away. We append our own +;; functions, because a user likely expects that their functions come first, +;; even if they added them before Flycheck was loaded. +(dolist (hook (list #'flycheck-locate-config-file-by-path + #'flycheck-locate-config-file-ancestor-directories + #'flycheck-locate-config-file-home)) + (add-hook 'flycheck-locate-config-file-functions hook 'append)) + +(add-hook 'flycheck-process-error-functions #'flycheck-add-overlay 'append) + + +;;; Global Flycheck menu +(defvar flycheck-mode-menu-map + (easy-menu-create-menu + "Syntax Checking" + '(["Enable on-the-fly syntax checking" flycheck-mode + :style toggle :selected flycheck-mode + :enable (or flycheck-mode + ;; Don't let users toggle the mode if there is no syntax + ;; checker for this buffer + (seq-find #'flycheck-checker-supports-major-mode-p + flycheck-checkers))] + ["Check current buffer" flycheck-buffer flycheck-mode] + ["Clear errors in buffer" flycheck-clear t] + ["Run checker as compile command" flycheck-compile flycheck-mode] + "---" + ["Go to next error" flycheck-next-error flycheck-mode] + ["Go to previous error" flycheck-previous-error flycheck-mode] + ["Show all errors" flycheck-list-errors flycheck-mode] + "---" + ["Copy messages at point" flycheck-copy-errors-as-kill + (flycheck-overlays-at (point))] + ["Explain error at point" flycheck-explain-error-at-point] + "---" + ["Select syntax checker" flycheck-select-checker flycheck-mode] + ["Disable syntax checker" flycheck-disable-checker flycheck-mode] + ["Set executable of syntax checker" flycheck-set-checker-executable + flycheck-mode] + "---" + ["Describe syntax checker" flycheck-describe-checker t] + ["Verify setup" flycheck-verify-setup t] + ["Show Flycheck version" flycheck-version t] + ["Flycheck quick help" flycheck-quick-help t] + ["Read the Flycheck manual" flycheck-manual t])) + "Menu of command `flycheck-mode'.") + +(easy-menu-add-item nil '("Tools") flycheck-mode-menu-map "Spell Checking") + + + +(defconst flycheck-version "35.0" + "The current version of Flycheck. + +Should be kept in sync with the package version metadata. +Used only when `package-get-function' is not available +or fails.") + +(defun flycheck--pkg-version () + "Extract FLYCHECK's package version from its package metadata." + ;; Use `cond' below to avoid a compiler unused return value warning + ;; when `package-get-version' returns nil. See #3181. + (cond ((fboundp 'package-get-version) + (package-get-version)) + ((fboundp 'pkg-info-version-info) + (pkg-info-version-info 'flycheck)) + (t + flycheck-version))) + +;;; Version information, manual and loading of Flycheck +(defun flycheck-version (&optional show-version) + "Get the Flycheck version as string. + +If called interactively or if SHOW-VERSION is non-nil, show the +version in the echo area and the messages buffer. + +The returned string includes both, the version from package.el +and the library version, if both a present and different. + +If the version number could not be determined, signal an error, +if called interactively, or if SHOW-VERSION is non-nil, otherwise +just return nil." + (interactive (list t)) + (let ((version (flycheck--pkg-version))) + (when show-version + (message "Flycheck version: %s" version)) + version)) + +(defun flycheck-unload-function () + "Unload function for Flycheck." + (global-flycheck-mode -1) + (easy-menu-remove-item nil '("Tools") (cadr flycheck-mode-menu-map)) + (remove-hook 'kill-emacs-hook #'flycheck-global-teardown) + (setq find-function-regexp-alist + (assq-delete-all 'flycheck-checker find-function-regexp-alist))) + +;;;###autoload +(defun flycheck-manual () + "Open the Flycheck manual." + (interactive) + (browse-url "https://www.flycheck.org")) + +;;;###autoload +(defun flycheck-quick-help () + "Display brief Flycheck help." + (interactive) + (with-current-buffer (get-buffer-create "*flycheck-quick-help*") + (with-help-window (current-buffer) + (flycheck-mode) ;; so that we can exapnd \\[flycheck-] + (let ((help + (substitute-command-keys + "Flycheck automatically runs checks on writable files when changed. +Mode line status for the current buffer: + FlyC Not been checked yet + FlyC* Flycheck is running + FlyC:0 Last check resulted in no errors and no warnings + FlyC:3|5 Checker reported three errors and five warnings + FlyC- No checker available + FlyC! The checker crashed + FlyC. The last syntax check was manually interrupted + FlyC? The checker did something unexpected + +Key bindings: + \\[flycheck-buffer] Check current buffer + \\[flycheck-clear] Clear errors in current buffer + \\[flycheck-compile] Run checker as compile command + + \\[flycheck-next-error] Next error + \\[flycheck-previous-error] Previous error + \\[flycheck-list-errors] List all errors + + \\[flycheck-copy-errors-as-kill] Copy error messages at point + \\[flycheck-display-error-at-point] Explain error at point +"))) + (help-mode) + (read-only-mode 0) + (insert help))))) + +(define-obsolete-function-alias 'flycheck-info + 'flycheck-manual "Flycheck 26" "Open the Flycheck manual.") + + +;;; Utility functions +(defun flycheck-sexp-to-string (sexp) + "Convert SEXP to a string. + +Like `prin1-to-string' but ensure that the returned string +is loadable." + (let ((print-quoted t) + (print-length nil) + (print-level nil)) + (prin1-to-string sexp))) + +(defun flycheck-string-to-number-safe (string) + "Safely convert STRING to a number. + +If STRING is of string type and a numeric string, convert STRING +to a number and return it. Otherwise return nil." + (let ((number-re (rx string-start (one-or-more (any digit)) string-end))) + (when (and (stringp string) (string-match-p number-re string)) + (string-to-number string)))) + +(defun flycheck-string-or-nil-p (obj) + "Determine if OBJ is a string or nil." + (or (null obj) (stringp obj))) + +(defun flycheck-string-list-p (obj) + "Determine if OBJ is a list of strings." + (and (listp obj) (seq-every-p #'stringp obj))) + +(defun flycheck-string-or-string-list-p (obj) + "Determine if OBJ is a string or a list of strings." + (or (stringp obj) (flycheck-string-list-p obj))) + +(defun flycheck-symbol-list-p (obj) + "Determine if OBJ is a list of symbols." + (and (listp obj) (seq-every-p #'symbolp obj))) + +(defvar-local flycheck--file-truename-cache nil) + +(defun flycheck--file-truename (file) + "Memoize the result of `file-truename' on (directory-file-name FILE)." + ;; `file-truename' is slow, but alternatives are incomplete, so memoizing is + ;; our best bet. See https://github.com/flycheck/flycheck/pull/1698. + (unless flycheck--file-truename-cache + (setq-local flycheck--file-truename-cache (make-hash-table :test 'equal))) + (or (gethash file flycheck--file-truename-cache) + (puthash file (file-truename (directory-file-name file)) + flycheck--file-truename-cache))) + +(defun flycheck-same-files-p (file-a file-b) + "Determine whether FILE-A and FILE-B refer to the same file. + +Files are the same if (in the order checked) they are equal, or +if they resolve to the same canonical paths." + (or (string= file-a file-b) + (string= (flycheck--file-truename file-a) + (flycheck--file-truename file-b)))) + +(defvar-local flycheck-temporaries nil + "Temporary files and directories created by Flycheck.") + +(defun flycheck-temp-dir-system () + "Create a unique temporary directory. + +Use `flycheck-temp-prefix' as prefix, and add the directory to +`flycheck-temporaries'. + +Return the path of the directory" + (let* ((tempdir (make-temp-file flycheck-temp-prefix 'directory))) + (push tempdir flycheck-temporaries) + tempdir)) + +(defun flycheck-temp-file-system (filename &optional suffix) + "Create a temporary file named after FILENAME. + +If FILENAME is non-nil, this function creates a temporary +directory with `flycheck-temp-dir-system', and creates a file +with the same name as FILENAME in this directory. + +Otherwise this function creates a temporary file starting with +`flycheck-temp-prefix'. If present, SUFFIX is appended; +otherwise, a random suffix is used. The path of the file is +added to `flycheck-temporaries'. + +Return the path of the file." + (let ((tempfile (convert-standard-filename + (if filename + (expand-file-name (file-name-nondirectory filename) + (flycheck-temp-dir-system)) + (make-temp-file flycheck-temp-prefix nil suffix))))) + (push tempfile flycheck-temporaries) + tempfile)) + +(defun flycheck-temp-file-inplace (filename &optional suffix) + "Create an in-place copy of FILENAME. + +Prefix the file with `flycheck-temp-prefix' and add the path of +the file to `flycheck-temporaries'. + +If FILENAME is nil, fall back to `flycheck-temp-file-system' with +the specified SUFFIX. + +Return the path of the file." + (if filename + (let* ((tempname (format "%s_%s" + flycheck-temp-prefix + (file-name-nondirectory filename))) + (tempfile (convert-standard-filename + (expand-file-name tempname + (file-name-directory filename))))) + (push tempfile flycheck-temporaries) + tempfile) + (flycheck-temp-file-system filename suffix))) + +(defun flycheck-temp-directory (checker) + "Return the directory where CHECKER writes temporary files. + +Return nil if the CHECKER does not write temporary files." + (let ((args (flycheck-checker-arguments checker))) + (cond + ((memq 'source args) temporary-file-directory) + ((memq 'source-inplace args) + (if buffer-file-name (file-name-directory buffer-file-name) + temporary-file-directory)) + (t nil)))) + +(defun flycheck-temp-files-writable-p (checker) + "Whether CHECKER can write temporary files. + +If CHECKER has `source' or `source-inplace' in its `:command', +return whether flycheck has the permissions to create the +respective temporary files. + +Return t if CHECKER does not use temporary files." + (let ((dir (flycheck-temp-directory checker))) + (or (not dir) (file-writable-p dir)))) + +(defun flycheck-save-buffer-to-file (file-name) + "Save the contents of the current buffer to FILE-NAME." + (make-directory (file-name-directory file-name) t) + (let ((jka-compr-inhibit t)) + (write-region nil nil file-name nil 0))) + +(defun flycheck-save-buffer-to-temp (temp-file-fn) + "Save buffer to temp file returned by TEMP-FILE-FN. + +Return the name of the temporary file." + (let ((filename (funcall temp-file-fn (buffer-file-name)))) + ;; Do not flush short-lived temporary files onto disk + (let ((write-region-inhibit-fsync t)) + (flycheck-save-buffer-to-file filename)) + filename)) + +(defun flycheck-prepend-with-option (option items &optional prepend-fn) + "Prepend OPTION to each item in ITEMS, using PREPEND-FN. + +Prepend OPTION to each item in ITEMS. + +ITEMS is a list of strings to pass to the syntax checker. OPTION +is the option, as string. PREPEND-FN is a function called to +prepend OPTION to each item in ITEMS. It receives the option and +a single item from ITEMS as argument, and must return a string or +a list of strings with OPTION prepended to the item. If +PREPEND-FN is nil or omitted, use `list'. + +Return a list of strings where OPTION is prepended to each item +in ITEMS using PREPEND-FN. If PREPEND-FN returns a list, it is +spliced into the resulting list." + (unless (stringp option) + (error "Option %S is not a string" option)) + (unless prepend-fn + (setq prepend-fn #'list)) + (let ((prepend + (lambda (item) + (let ((result (funcall prepend-fn option item))) + (cond + ((and (listp result) (seq-every-p #'stringp result)) result) + ((stringp result) (list result)) + (t (error "Invalid result type for option: %S" result))))))) + (apply #'append (seq-map prepend items)))) + +(defun flycheck-find-in-buffer (pattern) + "Find PATTERN in the current buffer. + +Return the result of the first matching group of PATTERN, or nil, +if PATTERN did not match." + (save-excursion + (save-restriction + (widen) + (goto-char (point-min)) + (when (re-search-forward pattern nil 'no-error) + (match-string-no-properties 1))))) + +(defun flycheck-buffer-empty-p (&optional buffer) + "Check whether a BUFFER is empty, defaulting to the current one." + (= (buffer-size buffer) 0)) + +(defun flycheck-buffer-nonempty-p (&optional buffer) + "Check whether a BUFFER is nonempty, defaulting to the current one." + (> (buffer-size buffer) 0)) + +(defun flycheck-ephemeral-buffer-p () + "Determine whether the current buffer is an ephemeral buffer. + +See Info node `(elisp)Buffer Names' for information about +ephemeral buffers." + (string-prefix-p " " (buffer-name))) + +(defun flycheck-encrypted-buffer-p () + "Determine whether the current buffer is an encrypted file. + +See Info node `(epa)Top' for Emacs' interface to encrypted +files." + ;; The EPA file handler sets this variable locally to remember the recipients + ;; of the encrypted file for re-encryption. Hence, a local binding of this + ;; variable is a good indication that the buffer is encrypted. I haven't + ;; found any better indicator anyway. + (local-variable-p 'epa-file-encrypt-to)) + +(defun flycheck-autoloads-file-p () + "Determine whether the current buffer is an autoloads file. + +Autoloads are generated by package.el during installation." + (string-suffix-p "-autoloads.el" (buffer-name))) + +(defun flycheck-in-user-emacs-directory-p (filename) + "Whether FILENAME is in `user-emacs-directory'." + (string-prefix-p (file-name-as-directory + (flycheck--file-truename user-emacs-directory)) + (flycheck--file-truename filename))) + +(defun flycheck-safe-delete (file-or-dir) + "Safely delete FILE-OR-DIR." + (ignore-errors + (if (file-directory-p file-or-dir) + (delete-directory file-or-dir 'recursive) + (delete-file file-or-dir)))) + +(defun flycheck-safe-delete-temporaries () + "Safely delete all temp files and directories of Flycheck. + +Safely delete all files and directories listed in +`flycheck-temporaries' and set the variable's value to nil." + (seq-do #'flycheck-safe-delete flycheck-temporaries) + (setq flycheck-temporaries nil)) + +(defun flycheck-rx-file-name (form) + "Translate the `(file-name)' FORM into a regular expression." + (let ((body (or (cdr form) '((minimal-match + (one-or-more not-newline)))))) + (rx-to-string `(group-n 1 ,@body) t))) + +(defun flycheck-rx-message (form) + "Translate the `(message)' FORM into a regular expression." + (let ((body (or (cdr form) '((one-or-more not-newline))))) + (rx-to-string `(group-n 4 ,@body) t))) + +(defun flycheck-rx-id (form) + "Translate the `(id)' FORM into a regular expression." + (rx-to-string `(group-n 5 ,@(cdr form)) t)) + +(defun flycheck-rx-to-string (form &optional no-group) + "Like `rx-to-string' for FORM, but with special keywords: + +`line' + matches the initial line number. + +`column' + matches the initial column number. + +`end-line' + matches the final line number. + +`end-column' + matches the final column number (exclusive). + + +`(file-name SEXP ...)' + matches the file name. SEXP describes the file name. If no + SEXP is given, use a default body of `(minimal-match + (one-or-more not-newline))'. + +`(message SEXP ...)' + matches the message. SEXP constitutes the body of the + message. If no SEXP is given, use a default body + of `(one-or-more not-newline)'. + +`(id SEXP ...)' + matches an error ID. SEXP describes the ID. + +NO-GROUP is passed to `rx-to-string'. + +See `rx' for a complete list of all built-in `rx' forms." + (let ((rx-constituents + (append + `((file-name flycheck-rx-file-name 0 nil) ;; group 1 + (line . ,(rx (group-n 2 (one-or-more digit)))) + (column . ,(rx (group-n 3 (one-or-more digit)))) + (message flycheck-rx-message 0 nil) ;; group 4 + (id flycheck-rx-id 0 nil) ;; group 5 + (end-line . ,(rx (group-n 6 (one-or-more digit)))) + (end-column . ,(rx (group-n 7 (one-or-more digit))))) + rx-constituents nil))) + (rx-to-string form no-group))) + +(defun flycheck-current-load-file () + "Get the source file currently being loaded. + +Always return the name of the corresponding source file, never +any byte-compiled file. + +Return nil, if the currently loaded file cannot be determined." + (when-let* ((this-file (cond + (load-in-progress load-file-name) + ((bound-and-true-p byte-compile-current-file)) + (t (buffer-file-name)))) + ;; A best guess for the source file of a compiled library. Works + ;; well in most cases, and especially for ELPA packages + (source-file (concat (file-name-sans-extension this-file) + ".el"))) + (when (file-exists-p source-file) + source-file))) + +(defun flycheck-module-root-directory (module &optional file-name) + "Get the root directory for a MODULE in FILE-NAME. + +MODULE is a qualified module name, either a string with +components separated by a dot, or as list of components. +FILE-NAME is the name of the file or directory containing the +module as string. When nil or omitted, defaults to the return +value of function `buffer-file-name'. + +Return the root directory of the module, that is, the directory, +from which FILE-NAME can be reached by descending directories +along each part of MODULE. + +If the MODULE name does not match the directory hierarchy upwards +from FILE-NAME, return the directory containing FILE-NAME. When +FILE-NAME is nil, return `default-directory'." + (let ((file-name (or file-name (buffer-file-name))) + (module-components (if (stringp module) + (split-string module (rx ".")) + (copy-sequence module)))) + (if (and module-components file-name) + (let ((parts (nreverse module-components)) + (base-directory (directory-file-name + (file-name-sans-extension file-name)))) + (while (and parts + (string= (file-name-nondirectory base-directory) + (car parts))) + (pop parts) + (setq base-directory (directory-file-name + (file-name-directory base-directory)))) + (file-name-as-directory base-directory)) + (if file-name + (file-name-directory file-name) + (expand-file-name default-directory))))) + +(cl-defstruct (flycheck-line-cache + (:constructor flycheck-line-cache-new)) + "Cache structure used to speed up `flycheck-goto-line'." + tick point line) + +(defvar-local flycheck--line-cache nil + "Cache used to speed ip `flycheck-goto-line'.") + +(defsubst flycheck--init-line-cache () + "Initialize or reinitialize `flycheck--line-cache'." + (let ((tick (buffer-modified-tick))) + (if flycheck--line-cache + (unless (= (flycheck-line-cache-tick flycheck--line-cache) tick) + (setf (flycheck-line-cache-tick flycheck--line-cache) tick + (flycheck-line-cache-point flycheck--line-cache) 1 + (flycheck-line-cache-line flycheck--line-cache) 1)) + (setq-local flycheck--line-cache + (flycheck-line-cache-new :tick tick :point 1 :line 1))))) + +(defun flycheck-goto-line (line) + "Move point to beginning of line number LINE. + +This function assumes that the current buffer is not narrowed." + (flycheck--init-line-cache) + (goto-char (flycheck-line-cache-point flycheck--line-cache)) + (let ((delta (- line (flycheck-line-cache-line flycheck--line-cache)))) + (when (= 0 (forward-line delta)) + (setf (flycheck-line-cache-point flycheck--line-cache) (point)) + (setf (flycheck-line-cache-line flycheck--line-cache) line)))) + +(defun flycheck-line-column-to-position (line column) + "Return the point closest to LINE, COLUMN on line LINE. + +COLUMN is one-based." + (save-excursion + (flycheck-goto-line line) + (min (+ (point) (1- column)) (line-end-position)))) + +(defun flycheck-line-column-at-point () + "Return the line and column number at point." + (cons (line-number-at-pos) (1+ (- (point) (line-beginning-position))))) + +(defun flycheck-line-column-at-pos (pos) + "Return the line and column number at position POS. + +COLUMN is one-based." + (let ((inhibit-field-text-motion t)) + (save-excursion + (goto-char pos) + (flycheck-line-column-at-point)))) + + +;;; Minibuffer tools +(defvar flycheck-read-checker-history nil + "`completing-read' history of `flycheck-read-checker'.") + +(defun flycheck-completing-read (prompt candidates default &optional history) + "Read a value from the minibuffer. + +Use `flycheck-completing-read-function' to read input from the +minibuffer with completion. + +Show PROMPT and read one of CANDIDATES, defaulting to DEFAULT. +HISTORY is passed to `flycheck-completing-read-function'. + +Note that `flycheck-completing-read-function' may return an empty +string instead of nil, even when \"\" isn't among the candidates. +See `completing-read' for more details." + (funcall flycheck-completing-read-function + prompt candidates nil 'require-match nil history default)) + +(defun flycheck-read-checker (prompt &optional default property candidates) + "Read a flycheck checker from minibuffer with PROMPT and DEFAULT. + +PROMPT is a string to show in the minibuffer as prompt. It +should end with a single space. DEFAULT is a symbol denoting the +default checker to use, if the user did not select any checker. +PROPERTY is a symbol denoting a syntax checker property. If +non-nil, only complete syntax checkers which have a non-nil value +for PROPERTY. CANDIDATES is an optional list of all syntax +checkers available for completion, defaulting to all defined +checkers. If given, PROPERTY is ignored. + +Return the checker as symbol, or DEFAULT if no checker was +chosen. If DEFAULT is nil and no checker was chosen, signal a +`user-error' if the underlying completion system does not provide +a default on its own." + (when (and default (not (flycheck-valid-checker-p default))) + (error "%S is no valid Flycheck checker" default)) + (let* ((candidates (seq-map #'symbol-name + (or candidates + (flycheck-defined-checkers property)))) + (default (and default (symbol-name default))) + (input (flycheck-completing-read + prompt candidates default + 'flycheck-read-checker-history))) + (when (string-empty-p input) + (unless default + (user-error "No syntax checker selected")) + (setq input default)) + (let ((checker (intern input))) + (unless (flycheck-valid-checker-p checker) + (error "%S is not a valid Flycheck syntax checker" checker)) + checker))) + +(defun flycheck-read-error-level (prompt) + "Read an error level from the user with PROMPT. + +Only offers level for which errors currently exist, in addition +to the default levels." + (let* ((levels (seq-map #'flycheck-error-level + (flycheck-error-list-current-errors))) + (levels-with-defaults (append '(info warning error) levels)) + (uniq-levels (seq-uniq levels-with-defaults)) + (level (flycheck-completing-read prompt uniq-levels nil))) + (when (string-empty-p level) (setq level nil)) + (and level (intern level)))) + + +;;; Checker API +(defun flycheck-defined-checkers (&optional property) + "Find all defined syntax checkers, optionally with PROPERTY. + +PROPERTY is a symbol. If given, only return syntax checkers with +a non-nil value for PROPERTY. + +The returned list is sorted alphapetically by the symbol name of +the syntax checkers." + (let (defined-checkers) + (mapatoms (lambda (symbol) + (when (and (flycheck-valid-checker-p symbol) + (or (null property) + (flycheck-checker-get symbol property))) + (push symbol defined-checkers)))) + (sort defined-checkers #'string<))) + +(defun flycheck-registered-checker-p (checker) + "Determine whether CHECKER is registered. + +A checker is registered if it is contained in +`flycheck-checkers'." + (and (flycheck-valid-checker-p checker) + (memq checker flycheck-checkers))) + +(defun flycheck-disabled-checker-p (checker) + "Determine whether CHECKER is disabled, manually or automatically." + (or (flycheck-manually-disabled-checker-p checker) + (flycheck-automatically-disabled-checker-p checker))) + +(defun flycheck-manually-disabled-checker-p (checker) + "Determine whether CHECKER has been manually disabled. + +A checker has been manually disabled if it is contained in +`flycheck-disabled-checkers'." + (memq checker flycheck-disabled-checkers)) + +(defun flycheck-automatically-disabled-checker-p (checker) + "Determine whether CHECKER has been automatically disabled. + +A checker has been automatically disabled if it is contained in +`flycheck--automatically-disabled-checkers'." + (memq checker flycheck--automatically-disabled-checkers)) + + +;;; Generic syntax checkers +(defconst flycheck-generic-checker-version 2 + "The internal version of generic syntax checker declarations. + +Flycheck will not use syntax checkers whose generic version is +less than this constant.") + +(defsubst flycheck--checker-property-name (property) + "Return the SYMBOL property for checker PROPERTY." + (intern (concat "flycheck-" (symbol-name property)))) + +(defun flycheck-checker-get (checker property) + "Get the value of CHECKER's PROPERTY." + (get checker (flycheck--checker-property-name property))) + +(gv-define-setter flycheck-checker-get (value checker property) + `(setf (get ,checker (flycheck--checker-property-name ,property)) ,value)) + +(defun flycheck-validate-next-checker (next &optional strict) + "Validate NEXT checker. + +With STRICT non-nil, also check whether the syntax checker and +the error level in NEXT are valid. Otherwise just check whether +these are symbols. + +Signal an error if NEXT is not a valid entry for +`:next-checkers'." + (when (symbolp next) + (setq next (cons t next))) + (pcase next + (`(,level . ,checker) + (if strict + (progn + (unless (or (eq level t) (flycheck-error-level-p level)) + (error "%S is not a valid Flycheck error level" level)) + (unless (flycheck-valid-checker-p checker) + (error "%s is not a valid Flycheck syntax checker" checker))) + (unless (symbolp level) + (error "Error level %S must be a symbol" level)) + (unless (symbolp checker) + (error "Checker %S must be a symbol" checker)))) + (_ (error "%S must be a symbol or cons cell" next))) + t) + +(defun flycheck-define-generic-checker (symbol docstring &rest properties) + "Define SYMBOL as generic syntax checker. + +Any syntax checker defined with this macro is eligible for manual +syntax checker selection with `flycheck-select-checker'. To make +the new syntax checker available for automatic selection, it must +be registered in `flycheck-checkers'. + +DOCSTRING is the documentation of the syntax checker, for +`flycheck-describe-checker'. The following PROPERTIES constitute +a generic syntax checker. Unless otherwise noted, all properties +are mandatory. + +`:start FUNCTION' + A function to start the syntax checker. + + FUNCTION shall take two arguments and return a context + object if the checker is started successfully. Otherwise it + shall signal an error. + + The first argument is the syntax checker being started. The + second is a callback function to report state changes to + Flycheck. The callback takes two arguments STATUS DATA, + where STATUS is a symbol denoting the syntax checker status + and DATA an optional argument with additional data for the + status report. See `flycheck-report-buffer-checker-status' + for more information about STATUS and DATA. + + FUNCTION may be synchronous or asynchronous, i.e. it may + call the given callback either immediately, or at some later + point (e.g. from a process sentinel). + + A syntax checker _must_ call CALLBACK at least once with a + STATUS that finishes the current syntax checker. Otherwise + Flycheck gets stuck at the current syntax check with this + syntax checker. + + The context object returned by FUNCTION is passed to + `:interrupt'. + +`:interrupt FUNCTION' + A function to interrupt the syntax check. + + FUNCTION is called with the syntax checker and the context + object returned by the `:start' function and shall try to + interrupt the syntax check. The context may be nil, if the + syntax check is interrupted before actually started. + FUNCTION should handle this situation. + + If it cannot interrupt the syntax check, it may either + signal an error or silently ignore the attempt to interrupt + the syntax checker, depending on the severity of the + situation. + + If interrupting the syntax check failed, Flycheck will let + the syntax check continue, but ignore any status reports. + Notably, it won't highlight any errors reported by the + syntax check in the buffer. + + This property is optional. If omitted, Flycheck won't + attempt to interrupt syntax checks with this syntax checker, + and simply ignore their results. + +`:print-doc FUNCTION' + A function to print additional documentation into the Help + buffer of this checker. + + FUNCTION is called when creating the Help buffer for the + syntax checker, with the syntax checker as single argument, + after printing the name of the syntax checker and its modes + and predicate, but before printing DOCSTRING. It may insert + additional documentation into the current buffer. + + The call occurs within `with-help-window'. Hence + `standard-output' points to the current buffer, so you may + use `princ' and friends to add content. Also, the current + buffer is put into Help mode afterwards, which automatically + turns symbols into references, if possible. + + This property is optional. If omitted, no additional + documentation is printed for this syntax checker. + +:verify FUNCTION + A function to verify the checker for the current buffer. + + FUNCTION is called with the syntax checker as single + argument, and shall return a list of + `flycheck-verification-result' objects indicating whether + the syntax checker could be used in the current buffer, and + highlighting potential setup problems. + + This property is optional. If omitted, no additional + verification occurs for this syntax checker. It is however + absolutely recommended that you add a `:verify' function to + your syntax checker, because it will help users to spot + potential setup problems. + +`:modes MODES' + A major mode symbol or a list thereof, denoting major modes + to use this syntax checker in. + + This syntax checker will only be used in buffers whose + `major-mode' is contained in MODES. + + If `:predicate' is also given the syntax checker will only + be used in buffers for which the `:predicate' returns + non-nil. + +`:predicate FUNCTION' + A function to determine whether to use the syntax checker in + the current buffer. + + FUNCTION is called without arguments and shall return + non-nil if this syntax checker shall be used to check the + current buffer. Otherwise it shall return nil. + + If this checker has a `:working-directory' FUNCTION is + called with `default-directory' bound to the checker's + working directory. + + FUNCTION is only called in matching major modes. + + This property is optional. + +`:enabled FUNCTION' + A function to determine whether to use the syntax checker in + the current buffer. + + This property behaves as `:predicate', except that it's only + called the first time a syntax checker is to be used in a buffer. + + FUNCTION is called without arguments and shall return + non-nil if this syntax checker shall be used to check the + current buffer. Otherwise it shall return nil. + + If FUNCTION returns a non-nil value the checker is put in a + whitelist in `flycheck--automatically-enabled-checkers' to + prevent further invocations of `:enabled'. Otherwise it is + disabled via `flycheck--automatically-disabled-checkers' to + prevent any further use of it. + + If this checker has a `:working-directory' FUNCTION is + called with `default-directory' bound to the checker's + working directory. + + FUNCTION is only called in matching major modes. + + This property is optional. + +`:error-filter FUNCTION' + A function to filter the errors returned by this checker. + + FUNCTION is called with the list of `flycheck-error' objects + returned by the syntax checker and shall return another list + of `flycheck-error' objects, which is considered the final + result of this syntax checker. + + FUNCTION is free to add, remove or modify errors, whether in + place or by copying. + + This property is optional. The default filter is + `identity'. + +`:error-explainer FUNCTION' + A function to return an explanation text for errors + generated by this checker. + + FUNCTION is called with a `flycheck-error' object, in the + buffer of that error. It shall return an explanation + message for the error. + + The message can take any of the following forms: + - A string, which will be displayed to the user + - A function (likely a closure), which will be called with + `standard-output' set to a `flycheck-explain-error-mode' + buffer, and should write to it. + - A cons `(url . ,URL), indicating that the explanation can + be found online at URL. + - nil if there is no explanation for this error. + + If URL is provided by the checker, and cannot be composed + from other elements in the `flycheck-error' object, consider + passing the URL via text properties: + + ;; During the error object creation + (put-text-property 0 1 \\='explainer-url .url .check_id) + + ;; In the error-explainer FUNCTION + (let ((id (flycheck-error-id err))) + (and id `(url . ,(get-text-property 0 \\='explainer-url id)))) + + This property is optional. + +`:next-checkers NEXT-CHECKERS' + A list denoting syntax checkers to apply after this syntax + checker, in what we call \"chaining\" of syntax checkers. + + Each ITEM is a cons cell `(LEVEL . CHECKER)'. CHECKER is a + syntax checker to run after this syntax checker. LEVEL is + an error level. CHECKER will only be used if there are no + current errors of at least LEVEL. LEVEL may also be t, in + which case CHECKER is used regardless of the current errors. + + ITEM may also be a syntax checker symbol, which is + equivalent to `(t . ITEM)'. + + Flycheck tries all items in order of declaration, and uses + the first whose LEVEL matches and whose CHECKER is + registered and can be used for the current buffer. + + This feature is typically used to apply more than one syntax + checker to a buffer. For instance, you might first use a + compiler to check a buffer for syntax and type errors, and + then run a linting tool that checks for insecure code, or + questionable style. + + This property is optional. If omitted, it defaults to the + nil, i.e. no other syntax checkers are applied after this + syntax checker. + +`:working-directory FUNCTION' + The value of `default-directory' when invoking `:start'. + + FUNCTION is a function taking the syntax checker as sole + argument. It shall return the absolute path to an existing + directory to use as `default-directory' for `:start' or + nil to fall back to the `default-directory' of the current + buffer. + + This property is optional. If omitted, invoke `:start' + from the `default-directory' of the buffer being checked. + +Signal an error, if any property has an invalid value." + (declare (indent 1) + (doc-string 2)) + (let ((start (plist-get properties :start)) + (interrupt (plist-get properties :interrupt)) + (print-doc (plist-get properties :print-doc)) + (modes (plist-get properties :modes)) + (predicate (plist-get properties :predicate)) + (verify (plist-get properties :verify)) + (enabled (plist-get properties :enabled)) + (filter (or (plist-get properties :error-filter) #'identity)) + (explainer (plist-get properties :error-explainer)) + (next-checkers (plist-get properties :next-checkers)) + (file (flycheck-current-load-file)) + (working-directory (plist-get properties :working-directory))) + + (unless (listp modes) + (setq modes (list modes))) + + (unless (functionp start) + (error ":start %S of syntax checker %s is not a function" start symbol)) + (unless (or (null interrupt) (functionp interrupt)) + (error ":interrupt %S of syntax checker %s is not a function" + interrupt symbol)) + (unless (or (null print-doc) (functionp print-doc)) + (error ":print-doc %S of syntax checker %s is not a function" + print-doc symbol)) + (unless (or (null verify) (functionp verify)) + (error ":verify %S of syntax checker %S is not a function" + verify symbol)) + (unless (or (null enabled) (functionp enabled)) + (error ":enabled %S of syntax checker %S is not a function" + enabled symbol)) + (unless modes + (error "Missing :modes in syntax checker %s" symbol)) + (dolist (mode modes) + (unless (symbolp mode) + (error "Invalid :modes %s in syntax checker %s, %s must be a symbol" + modes symbol mode))) + (unless (or (null predicate) (functionp predicate)) + (error ":predicate %S of syntax checker %s is not a function" + predicate symbol)) + (unless (functionp filter) + (error ":error-filter %S of syntax checker %s is not a function" + filter symbol)) + (unless (or (null explainer) (functionp explainer)) + (error ":error-explainer %S of syntax checker %S is not a function" + explainer symbol)) + (dolist (checker next-checkers) + (flycheck-validate-next-checker checker)) + + (let ((real-predicate + (and predicate + (lambda () + ;; Run predicate in the checker's default directory + (let ((default-directory + (flycheck-compute-working-directory symbol))) + (funcall predicate))))) + (real-enabled + (lambda () + (if (flycheck-valid-checker-p symbol) + (or (null enabled) + ;; Run enabled in the checker's default directory + (let ((default-directory + (flycheck-compute-working-directory symbol))) + (funcall enabled))) + (lwarn 'flycheck + :warning "%S is no valid Flycheck syntax checker. +Try to reinstall the package defining this syntax checker." symbol) + nil)))) + (pcase-dolist (`(,prop . ,value) + `((start . ,start) + (interrupt . ,interrupt) + (print-doc . ,print-doc) + (modes . ,modes) + (predicate . ,real-predicate) + (verify . ,verify) + (enabled . ,real-enabled) + (error-filter . ,filter) + (error-explainer . ,explainer) + (next-checkers . ,next-checkers) + (documentation . ,docstring) + (file . ,file) + (working-directory . ,working-directory))) + (setf (flycheck-checker-get symbol prop) value))) + + ;; Track the version, to avoid breakage if the internal format changes + (setf (flycheck-checker-get symbol 'generic-checker-version) + flycheck-generic-checker-version))) + +(defun flycheck-valid-checker-p (checker) + "Check whether a CHECKER is valid. + +A valid checker is a symbol defined as syntax checker with +`flycheck-define-checker'." + (and (symbolp checker) + (= (or (get checker 'flycheck-generic-checker-version) 0) + flycheck-generic-checker-version))) + +(defun flycheck-checker-supports-major-mode-p (checker &optional mode) + "Whether CHECKER supports the given major MODE. + +CHECKER is a syntax checker symbol and MODE a major mode symbol. +Look at the `modes' property of CHECKER to determine whether +CHECKER supports buffers in the given major MODE. + +MODE defaults to the value of `major-mode' if omitted or nil. + +Return non-nil if CHECKER supports MODE and nil otherwise." + (let ((mode (or mode major-mode))) + (memq mode (flycheck-checker-get checker 'modes)))) + +(define-obsolete-variable-alias 'flycheck-enabled-checkers + 'flycheck--automatically-enabled-checkers "32") + +(defvar flycheck--automatically-enabled-checkers nil + "Syntax checkers included in automatic selection. + +A list of Flycheck syntax checkers included in automatic +selection for the current buffer.") +(make-variable-buffer-local 'flycheck--automatically-enabled-checkers) + +(defun flycheck-may-enable-checker (checker) + "Whether a generic CHECKER may be enabled for current buffer. + +Return non-nil if CHECKER may be used for the current buffer, and +nil otherwise. The result of the `:enabled' check, if any, is +cached." + (and + ;; May only enable valid checkers + (flycheck-valid-checker-p checker) + ;; Don't run the :enabled check if the checker is already disabled… + (not (flycheck-disabled-checker-p checker)) + (or + ;; …or if we've already cached the result + (memq checker flycheck--automatically-enabled-checkers) + (let* ((enabled (flycheck-checker-get checker 'enabled)) + (may-enable (or (null enabled) (funcall enabled)))) + ;; Cache the result + (if may-enable + (cl-pushnew checker flycheck--automatically-enabled-checkers) + (cl-pushnew checker flycheck--automatically-disabled-checkers)) + may-enable)))) + +(defun flycheck-reset-enabled-checker (checker) + "Reset the `:enabled' test of CHECKER. + +Forget that CHECKER has been enabled or automatically disabled +from a previous `:enabled' test. The result of the `:enabled' +test is cached in `flycheck-may-enable-checker': if you wish to +test the `:enabled' predicate again, you must first reset its +state using this function." + (when (memq checker flycheck--automatically-disabled-checkers) + (setq flycheck--automatically-disabled-checkers + (remq checker flycheck--automatically-disabled-checkers))) + (when (memq checker flycheck--automatically-enabled-checkers) + (setq flycheck--automatically-enabled-checkers + (remq checker flycheck--automatically-enabled-checkers))) + (flycheck-buffer)) + +(defun flycheck-may-use-checker (checker) + "Whether a generic CHECKER may be used. + +Return non-nil if CHECKER may be used for the current buffer, and +nil otherwise." + (let ((predicate (flycheck-checker-get checker 'predicate))) + (and (flycheck-valid-checker-p checker) + (flycheck-checker-supports-major-mode-p checker) + (flycheck-may-enable-checker checker) + (or (null predicate) (funcall predicate))))) + +(defun flycheck-may-use-next-checker (next-checker) + "Determine whether NEXT-CHECKER may be used." + (when (symbolp next-checker) + (push t next-checker)) + (let ((level (car next-checker)) + (next-checker (cdr next-checker))) + (and (or (eq level t) + (flycheck-has-max-current-errors-p level)) + (flycheck-registered-checker-p next-checker) + (flycheck-may-use-checker next-checker)))) + + +;;; Help for generic syntax checkers +(define-button-type 'help-flycheck-checker-def + :supertype 'help-xref + 'help-function #'flycheck-goto-checker-definition + 'help-echo "mouse-1, RET: find Flycheck checker definition") + +(defconst flycheck-find-checker-regexp + (rx line-start (zero-or-more (syntax whitespace)) + "(" symbol-start + (or "flycheck-define-checker" "flycheck-define-command-checker") + symbol-end + (eval (list 'regexp find-function-space-re)) + (? "'") + symbol-start "%s" symbol-end + (or (syntax whitespace) line-end)) + "Regular expression to find a checker definition.") + +(add-to-list 'find-function-regexp-alist + '(flycheck-checker . flycheck-find-checker-regexp)) + +(defun flycheck-goto-checker-definition (checker file) + "Go to to the definition of CHECKER in FILE." + (let ((location (find-function-search-for-symbol + checker 'flycheck-checker file))) + (pop-to-buffer (car location)) + (if (cdr location) + (goto-char (cdr location)) + (message "Unable to find checker location in file")))) + +(defun flycheck-checker-at-point () + "Return the Flycheck checker found at or before point. + +Return nil if there is no checker." + (let ((symbol (variable-at-point 'any-symbol))) + (when (flycheck-valid-checker-p symbol) + symbol))) + +(defun flycheck-describe-checker (checker) + "Display the documentation of CHECKER. + +CHECKER is a checker symbol. + +Pop up a help buffer with the documentation of CHECKER." + (interactive + (let* ((enable-recursive-minibuffers t) + (default (or (flycheck-checker-at-point) + (ignore-errors (flycheck-get-checker-for-buffer)))) + (prompt (if default + (format "Describe syntax checker (default %s): " default) + "Describe syntax checker: "))) + (list (flycheck-read-checker prompt default)))) + (unless (flycheck-valid-checker-p checker) + (user-error "You didn't specify a Flycheck syntax checker")) + (let ((filename (flycheck-checker-get checker 'file)) + (modes (flycheck-checker-get checker 'modes)) + (predicate (flycheck-checker-get checker 'predicate)) + (print-doc (flycheck-checker-get checker 'print-doc)) + (next-checkers (flycheck-checker-get checker 'next-checkers)) + (help-xref-following + ;; Ensure that we don't reuse buffers like `flycheck-verify-checker', + ;; and that we don't error out if a `help-flycheck-checker-doc' button + ;; is added outside of a documentation window. + (and help-xref-following (eq major-mode 'help-mode)))) + (help-setup-xref (list #'flycheck-describe-checker checker) + (called-interactively-p 'interactive)) + (save-excursion + (with-help-window (help-buffer) + (princ (format "%s is a Flycheck syntax checker" checker)) + (when filename + (princ (format " in `%s'" (file-name-nondirectory filename))) + (with-current-buffer standard-output + (save-excursion + (re-search-backward "`\\([^`']+\\)'" nil t) + (help-xref-button 1 'help-flycheck-checker-def + checker filename)))) + (princ ".\n\n") + + (let ((modes-start (with-current-buffer standard-output (point-max)))) + ;; Track the start of the modes documentation, to properly re-fill + ;; it later + (princ " This syntax checker checks syntax in the major mode(s) ") + (princ (string-join + (seq-map (apply-partially #'format "`%s'") modes) + ", ")) + (when predicate + (princ ", and uses a custom predicate")) + (princ ".") + (when next-checkers + (princ " It runs the following checkers afterwards:")) + (with-current-buffer standard-output + (save-excursion + (fill-region-as-paragraph modes-start (point-max)))) + (princ "\n") + + ;; Print the list of next checkers + (when next-checkers + (princ "\n") + (let ((beg-checker-list (with-current-buffer standard-output + (point)))) + (dolist (next-checker next-checkers) + (if (symbolp next-checker) + (princ (format " * `%s'\n" next-checker)) + (princ (format " * `%s' (maximum level `%s')\n" + (cdr next-checker) (car next-checker))))) + ;; + (with-current-buffer standard-output + (save-excursion + (while (re-search-backward "`\\([^`']+\\)'" + beg-checker-list t) + (let ((checker (intern-soft (match-string 1)))) + (when (flycheck-valid-checker-p checker) + (help-xref-button 1 'help-flycheck-checker-doc + checker))))))))) + ;; Call the custom print-doc function of the checker, if present + (when print-doc + (funcall print-doc checker)) + ;; Ultimately, print the docstring + (princ "\nDocumentation:\n") + (princ (flycheck-checker-get checker 'documentation)))))) + + +;;; Syntax checker verification +(cl-defstruct (flycheck-verification-result + (:constructor flycheck-verification-result-new)) + "Structure for storing a single verification result. + +Slots: + +`label' + A label for this result, as string + +`message' + A message for this result, as string + +`face' + The face to use for the `message'. + + You can either use a face symbol, or a list of face symbols." + label message face) + +(defun flycheck-verify-generic-checker (checker) + "Verify a generic CHECKER in the current buffer. + +Return a list of `flycheck-verification-result' objects." + (let (results + (predicate (flycheck-checker-get checker 'predicate)) + (enabled (flycheck-checker-get checker 'enabled)) + (verify (flycheck-checker-get checker 'verify))) + (when enabled + (let ((result (funcall enabled))) + (push (flycheck-verification-result-new + :label (propertize "may enable" 'help-echo ":enable") + :message (if result "yes" "no") + :face (if result 'success '(bold warning))) + results))) + (when predicate + (let ((result (funcall predicate))) + (push (flycheck-verification-result-new + :label (propertize "may run" 'help-echo ":predicate") + :message (prin1-to-string (not (null result))) + :face (if result 'success '(bold warning))) + results))) + (append (nreverse results) + (and verify (funcall verify checker))))) + +(define-button-type 'help-flycheck-checker-doc + :supertype 'help-xref + 'help-function #'flycheck-describe-checker + 'help-echo "mouse-1, RET: describe Flycheck checker") + +(define-button-type 'flycheck-button + 'follow-link t + 'action (lambda (pos) + (apply (get-text-property pos 'flycheck-action) + (get-text-property pos 'flycheck-data)) + ;; Revert the verify-setup buffer since it is now stale + (revert-buffer)) + 'face 'flycheck-verify-select-checker) + +(define-button-type 'flycheck-checker-select + :supertype 'flycheck-button + 'flycheck-action (lambda (buffer checker) + (with-current-buffer buffer + (flycheck-select-checker checker))) + 'help-echo "mouse-1, RET: select this checker") + +(define-button-type 'flycheck-checker-enable + :supertype 'flycheck-button + 'flycheck-action (lambda (buffer checker) + (interactive) + (with-current-buffer buffer + (flycheck--toggle-checker checker t) + (flycheck-buffer))) + 'help-echo "mouse-1, RET: re-enable this checker in this buffer") + +(define-button-type 'flycheck-checker-reset-enabled + :supertype 'flycheck-button + 'flycheck-action (lambda (buffer checker) + (with-current-buffer buffer + (flycheck-reset-enabled-checker checker))) + 'help-echo "mouse-1, RET: try to re-enable this checker") + +(defun flycheck--verify-princ-checker (checker buffer + &optional with-mm with-select) + "Print verification result of CHECKER for BUFFER. + +When WITH-MM is given and non-nil, also include the major mode +into the verification results. + +When WITH-SELECT is non-nil, add a button to select this checker." + (princ " ") + (insert-button (symbol-name checker) + 'type 'help-flycheck-checker-doc + 'help-args (list checker)) + (cond + ((with-current-buffer buffer + (flycheck-manually-disabled-checker-p checker)) + (insert (propertize " (manually disabled) " 'face '(bold error))) + (insert-text-button "enable" + 'type 'flycheck-checker-enable + 'flycheck-data (list buffer checker))) + ((with-current-buffer buffer + (flycheck-automatically-disabled-checker-p checker)) + (insert (propertize " (automatically disabled) " 'face '(bold error))) + (insert-text-button "reset" + 'type 'flycheck-checker-reset-enabled + 'flycheck-data (list buffer checker)))) + (when (eq checker (buffer-local-value 'flycheck-checker buffer)) + (insert (propertize " (explicitly selected)" 'face 'bold))) + (when with-select + (princ " ") + (insert-text-button "select" + 'type 'flycheck-checker-select + 'flycheck-data (list buffer checker))) + (princ "\n") + (let ((results (with-current-buffer buffer + (append (flycheck-verify-generic-checker checker) + (flycheck--verify-next-checkers checker))))) + (when with-mm + (with-current-buffer buffer + (let ((message-and-face + (if (flycheck-checker-supports-major-mode-p checker) + (cons (format "`%s' supported" major-mode) 'success) + (cons (format "`%s' not supported" major-mode) 'error)))) + (push (flycheck-verification-result-new + :label "major mode" + :message (car message-and-face) + :face (cdr message-and-face)) + results)))) + (let* ((label-length + (seq-max (mapcar + (lambda (res) + (length (flycheck-verification-result-label res))) + results))) + (message-column (+ 8 label-length))) + (dolist (result results) + (princ " - ") + (princ (flycheck-verification-result-label result)) + (princ ": ") + (princ (make-string (- message-column (current-column)) ?\ )) + (let ((message (flycheck-verification-result-message result)) + (face (flycheck-verification-result-face result))) + ;; If face is nil, using propertize erases the face already contained + ;; by the message. We don't want that, since this would remove the + ;; button face from the checker chain result. + (insert (if face (propertize message 'face face) message))) + (princ "\n")))) + (princ "\n")) + +(defun flycheck--get-next-checker-symbol (next) + "Get the checker symmbol of NEXT checker. + +NEXT should be either a cons (NEXT-CHECKER . LEVEL) or a +symbol." + (if (consp next) (cdr next) next)) + +(defun flycheck-get-next-checkers (checker) + "Return the immediate next checkers of CHECKER. + +This is a list of checker symbols. The error levels of the +`:next-checker' property are ignored." + (mapcar #'flycheck--get-next-checker-symbol + (flycheck-checker-get checker 'next-checkers))) + +(defun flycheck-all-next-checkers (checker) + "Return all checkers that may follow CHECKER. + +Return the transitive closure of the next-checker relation. The +return value is a list of checkers, not including CHECKER." + (let ((next-checkers) + (visited) + (queue (list checker))) + (while queue + (let ((c (pop queue))) + (push c visited) + (dolist (n (flycheck-get-next-checkers c)) + (push n next-checkers) + (unless (memq n visited) + (cl-pushnew n queue))))) + (seq-uniq next-checkers))) + +(defun flycheck--verify-next-checkers (checker) + "Return a verification result for the next checkers of CHECKER." + (when-let (next (flycheck-get-next-checkers checker)) + (list + (flycheck-verification-result-new + :label "next checkers" + ;; We use `make-text-button' to preserve the button properties in the + ;; string + :message (mapconcat + (lambda (checker) + (make-text-button (symbol-name checker) nil + 'type 'help-flycheck-checker-doc + 'help-args (list checker))) + next + ", "))))) + +(defun flycheck--verify-print-header (desc buffer) + "Print a title with DESC for BUFFER in the current buffer. + +DESC is an arbitrary string containing a description, and BUFFER +is the buffer being verified. The name and the major mode mode +of BUFFER are printed. + +DESC and information about BUFFER are printed in the current +buffer." + (princ desc) + (insert (propertize (buffer-name buffer) 'face 'bold)) + (princ " in ") + (let ((mode (buffer-local-value 'major-mode buffer))) + (insert-button (symbol-name mode) + 'type 'help-function + 'help-args (list mode))) + (princ ":\n\n")) + +(defun flycheck--verify-print-footer (buffer) + "Print a footer for BUFFER in the current buffer. + +BUFFER is the buffer being verified." + (princ "Flycheck Mode is ") + (let ((enabled (buffer-local-value 'flycheck-mode buffer))) + (insert (propertize (if enabled "enabled" "disabled") + 'face (if enabled 'success '(warning bold))))) + (princ + (with-current-buffer buffer + ;; Use key binding state in the verified buffer to print the help. + (substitute-command-keys + ". Use \\[universal-argument] \\[flycheck-disable-checker] \ +to enable disabled checkers."))) + (save-excursion + (let ((end (point))) + (backward-paragraph) + (fill-region-as-paragraph (point) end))) + + (princ "\n\n--------------------\n\n") + (princ (format "Flycheck version: %s\n" (flycheck--pkg-version))) + (princ (format "Emacs version: %s\n" emacs-version)) + (princ (format "System: %s\n" system-configuration)) + (princ (format "Window system: %S\n" window-system))) + +(define-derived-mode flycheck-verify-mode help-mode + "Flycheck verification" + "Major mode to display Flycheck verification results." + ;; `help-mode-finish' will restore `buffer-read-only' + (setq buffer-read-only nil)) + +(defun flycheck-verify-checker (checker) + "Check whether a CHECKER can be used in this buffer. + +Show a buffer listing possible problems that prevent CHECKER from +being used for the current buffer. + +Note: Do not use this function to check whether a syntax checker +is applicable from Emacs Lisp code. Use +`flycheck-may-use-checker' instead." + (interactive (list (flycheck-read-checker "Checker to verify: "))) + (unless (flycheck-valid-checker-p checker) + (user-error "%s is not a syntax checker" checker)) + + ;; Save the buffer to make sure that all predicates are good + ;; FIXME: this may be surprising to users, with unintended side-effects. + (when (and (buffer-file-name) (buffer-modified-p)) + (save-buffer)) + + (let ((buffer (current-buffer))) + (with-help-window "*Flycheck checker*" + (with-current-buffer standard-output + (flycheck-verify-mode) + (flycheck--verify-print-header "Syntax checker in buffer " buffer) + (flycheck--verify-princ-checker checker buffer 'with-mm) + (if (with-current-buffer buffer (flycheck-may-use-checker checker)) + (insert (propertize + "Flycheck can use this syntax checker for this buffer.\n" + 'face 'success)) + (insert (propertize + "Flycheck cannot use this syntax checker for this buffer.\n" + 'face 'error))) + (insert "\n") + (flycheck--verify-print-footer buffer))))) + +(defun flycheck-verify-setup () + "Check whether Flycheck can be used in this buffer. + +Display a new buffer listing all syntax checkers that could be +applicable in the current buffer. For each syntax checkers, +possible problems are shown." + (interactive) + ;; Save to make sure checkers that only work on saved buffers will pass the + ;; verification + (when (and (buffer-file-name) (buffer-modified-p)) + (save-buffer)) + + (let* ((buffer (current-buffer)) + (first-checker (flycheck-get-checker-for-buffer)) + (valid-checkers + (remq first-checker + (seq-filter #'flycheck-may-use-checker flycheck-checkers))) + (valid-next-checkers + (when first-checker + (seq-intersection valid-checkers + (flycheck-all-next-checkers first-checker)))) + (valid-remaining (seq-difference valid-checkers valid-next-checkers)) + (other-checkers + (seq-difference (seq-filter #'flycheck-checker-supports-major-mode-p + flycheck-checkers) + (cons first-checker valid-checkers)))) + + ;; Print all applicable checkers for this buffer + (with-help-window "*Flycheck checkers*" + (with-current-buffer standard-output + (flycheck-verify-mode) + + (flycheck--verify-print-header "Syntax checkers for buffer " buffer) + + (if first-checker + (progn + (princ "First checker to run:\n\n") + (flycheck--verify-princ-checker first-checker buffer)) + (insert (propertize + "No checker to run in this buffer.\n\n" + 'face '(bold error)))) + + (when valid-next-checkers + (princ + "Checkers that may run as part of the first checker's chain:\n\n") + (dolist (checker valid-next-checkers) + (flycheck--verify-princ-checker checker buffer))) + + (when valid-remaining + (princ "Checkers that could run if selected:\n\n") + (dolist (checker valid-remaining) + (flycheck--verify-princ-checker checker buffer nil 'with-select))) + + (when other-checkers + (princ + "Checkers that are compatible with this mode, \ +but will not run until properly configured:\n\n") + (dolist (checker other-checkers) + (flycheck--verify-princ-checker checker buffer))) + + ;; If we have no checkers at all, that's worth mentioning + (unless (or first-checker valid-checkers other-checkers) + (insert (propertize + "No checkers are available for this buffer.\n\n" + 'face '(bold error)))) + + (let ((unregistered-checkers + (seq-difference (flycheck-defined-checkers) flycheck-checkers))) + (when unregistered-checkers + (insert (propertize + "The following syntax checkers are not registered:\n" + 'face '(bold warning))) + (dolist (checker unregistered-checkers) + (princ " - ") + (princ checker) + (princ "\n")) + (princ + "Try adding these syntax checkers to `flycheck-checkers'.\n\n"))) + + (flycheck--verify-print-footer buffer) + + (setq-local revert-buffer-function + (lambda (_ignore-auto _noconfirm) + (with-current-buffer buffer (flycheck-verify-setup)))))))) + + +;;; Predicates for generic syntax checkers +(defun flycheck-buffer-saved-p (&optional buffer) + "Determine whether BUFFER is saved to a file. + +BUFFER is the buffer to check. If omitted or nil, use the +current buffer as BUFFER. + +Return non-nil if the BUFFER is backed by a file, and not +modified, or nil otherwise." + (let ((file-name (buffer-file-name buffer))) + (and file-name (file-exists-p file-name) (not (buffer-modified-p buffer))))) + + +;;; Extending generic checkers +(defun flycheck-remove-next-checker (checker next) + "After CHECKER remove a NEXT checker. + +CHECKER is a syntax checker symbol, from which to remove NEXT +checker. + +NEXT is a cons or a symbol, as documented in +`flycheck-add-next-checker'." + (unless (flycheck-valid-checker-p checker) + (error "%s is not a valid syntax checker" checker)) + (let* ((next-symbol (flycheck--get-next-checker-symbol next))) + (setf + (flycheck-checker-get checker 'next-checkers) + (seq-remove + (lambda (next) (eq (flycheck--get-next-checker-symbol next) next-symbol)) + (flycheck-checker-get checker 'next-checkers))))) + +(defun flycheck-add-next-checker (checker next &optional append) + "After CHECKER add a NEXT checker. + +CHECKER is a syntax checker symbol, to which to add NEXT checker. + +NEXT is a cons cell `(LEVEL . NEXT-CHECKER)'. NEXT-CHECKER is a +symbol denoting the syntax checker to run after CHECKER. LEVEL +is an error level. NEXT-CHECKER will only be used if there is no +current error whose level is more severe than LEVEL. LEVEL may +also be t, in which case NEXT-CHECKER is used regardless of the +current errors. + +NEXT can also be a syntax checker symbol only, which is +equivalent to `(t . NEXT)'. + +NEXT-CHECKER is prepended before other next checkers, unless +APPEND is non-nil." + (unless (flycheck-valid-checker-p checker) + (error "%s is not a valid syntax checker" checker)) + (flycheck-validate-next-checker next 'strict) + (flycheck-remove-next-checker checker next) + (let ((next-checkers (flycheck-checker-get checker 'next-checkers))) + (setf (flycheck-checker-get checker 'next-checkers) + (if append (append next-checkers (list next)) + (cons next next-checkers))))) + +(defun flycheck-add-mode (checker mode) + "To CHECKER add a new major MODE. + +CHECKER and MODE are symbols denoting a syntax checker and a +major mode respectively. + +Add MODE to the `:modes' property of CHECKER, so that CHECKER +will be used in buffers with MODE." + (unless (flycheck-valid-checker-p checker) + (error "%s is not a valid syntax checker" checker)) + (unless (symbolp mode) + (error "%s is not a symbol" mode)) + (push mode (flycheck-checker-get checker 'modes))) + + +;;; Generic syntax checks +(cl-defstruct (flycheck-syntax-check + (:constructor flycheck-syntax-check-new)) + "Structure for storing syntax check state. + +Slots: + +`buffer' + The buffer being checked. + +`checker' + The syntax checker being used. + +`context' + The context object. + +`working-directory' + Working directory for the syntax checker. Serve as a value for + `default-directory' for a checker." + buffer checker context working-directory) + +(defun flycheck-syntax-check-start (syntax-check callback) + "Start a SYNTAX-CHECK with CALLBACK." + (let ((checker (flycheck-syntax-check-checker syntax-check)) + (default-directory + (flycheck-syntax-check-working-directory syntax-check))) + (setf (flycheck-syntax-check-context syntax-check) + (funcall (flycheck-checker-get checker 'start) checker callback)))) + +(defun flycheck-syntax-check-interrupt (syntax-check) + "Interrupt a SYNTAX-CHECK." + (let* ((checker (flycheck-syntax-check-checker syntax-check)) + (interrupt-fn (flycheck-checker-get checker 'interrupt)) + (context (flycheck-syntax-check-context syntax-check))) + (when interrupt-fn + (funcall interrupt-fn checker context)))) + + +;;; Syntax checking mode + +(defvar flycheck-mode-map + (let ((map (make-sparse-keymap))) + (define-key map flycheck-keymap-prefix flycheck-command-map) + ;; We place the menu under a custom menu key. Since this menu key is not + ;; present in the menu of the global map, no top-level menu entry is added + ;; to the global menu bar. However, it still appears on the mode line + ;; lighter. + (define-key map [menu-bar flycheck] flycheck-mode-menu-map) + map) + "Keymap of command `flycheck-mode'.") + +(defvar-local flycheck-old-next-error-function nil + "Remember the old `next-error-function'.") + +(defconst flycheck-hooks-alist + '( + ;; Handle events that may start automatic syntax checks + (after-save-hook . flycheck-handle-save) + (after-change-functions . flycheck-handle-change) + ;; Handle events that may triggered pending deferred checks + (window-configuration-change-hook . flycheck-perform-deferred-syntax-check) + (post-command-hook . flycheck-perform-deferred-syntax-check) + ;; Teardown Flycheck whenever the buffer state is about to get lost, to + ;; clean up temporary files and directories. + (kill-buffer-hook . flycheck-teardown) + (change-major-mode-hook . flycheck-teardown) + (before-revert-hook . flycheck-teardown) + ;; Update the error list if necessary + (post-command-hook . flycheck-error-list-update-source) + (post-command-hook . flycheck-error-list-highlight-errors) + ;; Display errors. Show errors at point after commands (like movements) and + ;; when Emacs gets focus. Cancel the display timer when Emacs looses focus + ;; (as there's no need to display errors if the user can't see them), and + ;; hide the error buffer (for large error messages) if necessary. Note that + ;; the focus hooks only work on Emacs 24.4 and upwards, but since undefined + ;; hooks are perfectly ok we don't need a version guard here. They'll just + ;; not work silently. + (post-command-hook . flycheck-display-error-at-point-soon) + (focus-in-hook . flycheck-display-error-at-point-soon) + (focus-out-hook . flycheck-cancel-error-display-error-at-point-timer) + (post-command-hook . flycheck-hide-error-buffer) + ;; Immediately show error popups when navigating to an error + (next-error-hook . flycheck-display-error-at-point)) + "Hooks which Flycheck needs to hook in. + +The `car' of each pair is a hook variable, the `cdr' a function +to be added or removed from the hook variable if Flycheck mode is +enabled and disabled respectively.") + +;;;###autoload +(define-minor-mode flycheck-mode + "Flycheck is a minor mode for on-the-fly syntax checking. + +In `flycheck-mode' the buffer is automatically syntax-checked +using the first suitable syntax checker from `flycheck-checkers'. +Use `flycheck-select-checker' to select a checker for the current +buffer manually. + +If you run into issues, use `\\[flycheck-verify-setup]' to get help. + +Flycheck supports many languages out of the box, and many +additional ones are available on MELPA. Adding new ones is very +easy. Complete documentation is available online at URL +`https://www.flycheck.org/en/latest/'. Please report issues and +request features at URL `https://github.com/flycheck/flycheck'. + +Flycheck displays its status in the mode line. In the default +configuration, it looks like this: + +`FlyC' This buffer has not been checked yet. +`FlyC*' Flycheck is running. Expect results soon! +`FlyC:0' Last check resulted in no errors and no warnings. +`FlyC:3|5' This buffer contains three errors and five warnings. + Use `\\[flycheck-list-errors]' to see the list. +`FlyC-' Flycheck doesn't have a checker for this buffer. + +You may also see the following icons: +`FlyC!' The checker crashed. +`FlyC.' The last syntax check was manually interrupted. +`FlyC?' The checker did something unexpected, like exiting with 1 + but returning no errors. + +The following keybindings are available in `flycheck-mode': + +\\{flycheck-mode-map} +\(you can change the prefix by customizing +`flycheck-keymap-prefix') + +If called interactively, enable Flycheck mode if ARG is positive, +and disable it if ARG is zero or negative. If called from Lisp, +also enable the mode if ARG is omitted or nil, and toggle it if +ARG is ‘toggle’; disable the mode otherwise." + :init-value nil + :keymap flycheck-mode-map + :lighter flycheck-mode-line + :after-hook (flycheck-buffer-automatically 'mode-enabled 'force-deferred) + (cond + (flycheck-mode + (flycheck-clear) + + (pcase-dolist (`(,hook . ,fn) (reverse flycheck-hooks-alist)) + (add-hook hook fn nil 'local)) + + (setq flycheck-old-next-error-function + (if flycheck-standard-error-navigation + next-error-function + :unset)) + (when flycheck-standard-error-navigation + (setq next-error-function #'flycheck-next-error-function)) + + ;; This hook must be added globally since otherwise we cannot + ;; detect a change from a buffer where Flycheck is enabled to a + ;; buffer where Flycheck is not enabled, and therefore cannot + ;; notice that there has been any change when the user switches + ;; back to the buffer where Flycheck is enabled. + (add-hook 'buffer-list-update-hook #'flycheck-handle-buffer-switch)) + (t + (unless (eq flycheck-old-next-error-function :unset) + (setq next-error-function flycheck-old-next-error-function)) + + (pcase-dolist (`(,hook . ,fn) flycheck-hooks-alist) + (remove-hook hook fn 'local)) + + (flycheck-teardown)))) + + +;;; Syntax checker selection for the current buffer +(defun flycheck-get-checker-for-buffer () + "Find the checker for the current buffer. + +Use the selected checker for the current buffer, if any, +otherwise search for the best checker from `flycheck-checkers'. + +Return checker if there is a checker for the current buffer, or +nil otherwise." + (if flycheck-checker + (when (flycheck-may-use-checker flycheck-checker) + flycheck-checker) + (seq-find #'flycheck-may-use-checker flycheck-checkers))) + +(defun flycheck-get-next-checker-for-buffer (checker) + "Get the checker to run after CHECKER for the current buffer." + (let ((next (seq-find #'flycheck-may-use-next-checker + (flycheck-checker-get checker 'next-checkers)))) + (when next + (if (symbolp next) next (cdr next))))) + +(defun flycheck-select-checker (checker) + "Select CHECKER for the current buffer. + +CHECKER is a syntax checker symbol (see `flycheck-checkers') or +nil. In the former case, use CHECKER for the current buffer, +otherwise deselect the current syntax checker (if any) and use +automatic checker selection via `flycheck-checkers'. + +If called interactively prompt for CHECKER. With prefix arg +deselect the current syntax checker and enable automatic +selection again. + +Set `flycheck-checker' to CHECKER and automatically start a new +syntax check if the syntax checker changed. + +CHECKER will be used, even if it is not contained in +`flycheck-checkers', or if it is disabled via +`flycheck-disabled-checkers'." + (interactive + (if current-prefix-arg + (list nil) + (list (flycheck-read-checker "Select checker: " + (flycheck-get-checker-for-buffer))))) + (when (not (eq checker flycheck-checker)) + (unless (or (not checker) (flycheck-may-use-checker checker)) + (flycheck-verify-checker checker) + (user-error "Can't use syntax checker %S in this buffer" checker)) + (setq flycheck-checker checker) + (when flycheck-mode + (flycheck-buffer)))) + +(defun flycheck--toggle-checker (checker enable) + "Enable or disable CHECKER for the current buffer. + +If ENABLE, re-enable CHECKER by removing it from the buffer-local +value of `flycheck-disabled-checkers'. Otherwise, add the syntax +checker to the buffer-local value of `flycheck-disabled-checkers'." + (cond + (enable + ;; We must use `remq' instead of `delq', because we must _not_ modify the + ;; list. Otherwise we could potentially modify the global default value, + ;; in case the list is the global default. + (when (memq checker flycheck-disabled-checkers) + (setq flycheck-disabled-checkers + (remq checker flycheck-disabled-checkers))) + (when (memq checker flycheck--automatically-disabled-checkers) + (setq flycheck--automatically-disabled-checkers + (remq checker flycheck--automatically-disabled-checkers)))) + (t (unless (memq checker flycheck-disabled-checkers) + (push checker flycheck-disabled-checkers))))) + +(defun flycheck-disable-checker (checker &optional enable) + "Interactively disable CHECKER for the current buffer. + +Prompt for a syntax checker to disable, and add the syntax +checker to the buffer-local value of +`flycheck-disabled-checkers'. + +With non-nil ENABLE or with prefix arg, prompt for a disabled +syntax checker and re-enable it by removing it from the +buffer-local value of `flycheck-disabled-checkers'." + (declare + (interactive-only "Directly set `flycheck-disabled-checkers' instead")) + (interactive + (let* ((enable current-prefix-arg) + (candidates (if enable + (append flycheck-disabled-checkers + flycheck--automatically-disabled-checkers) + flycheck-checkers)) + (prompt (if enable "Enable syntax checker: " + "Disable syntax checker: "))) + (when (and enable (not candidates)) + (user-error "No syntax checkers disabled in this buffer")) + (list (flycheck-read-checker prompt nil nil candidates) enable))) + (unless checker + (user-error "No syntax checker given")) + (flycheck--toggle-checker checker enable) + (flycheck-buffer)) + + +;;; Syntax checks for the current buffer +(defvar-local flycheck-current-syntax-check nil + "The current syntax check in the this buffer.") +(put 'flycheck-current-syntax-check 'permanent-local t) + +(defun flycheck-start-current-syntax-check (checker) + "Start a syntax check in the current buffer with CHECKER. + +Set `flycheck-current-syntax-check' accordingly." + ;; Allocate the current syntax check *before* starting it. This allows for + ;; synchronous checks, which call the status callback immediately in their + ;; start function. + (let* ((check + (flycheck-syntax-check-new + :buffer (current-buffer) + :checker checker + :context nil + :working-directory (flycheck-compute-working-directory checker))) + (callback (flycheck-buffer-status-callback check))) + (setq flycheck-current-syntax-check check) + (flycheck-report-status 'running) + (flycheck-syntax-check-start check callback))) + +(defun flycheck-running-p () + "Determine whether a syntax check is running in the current buffer." + (not (null flycheck-current-syntax-check))) + +(defun flycheck-stop () + "Stop any ongoing syntax check in the current buffer." + (when (flycheck-running-p) + (flycheck-syntax-check-interrupt flycheck-current-syntax-check) + ;; Remove the current syntax check, to reset Flycheck into a non-running + ;; state, and to make `flycheck-report-buffer-checker-status' ignore any + ;; status reports from the current syntax check. + (setq flycheck-current-syntax-check nil) + (flycheck-report-status 'interrupted))) + +(defun flycheck-buffer-status-callback (syntax-check) + "Create a status callback for SYNTAX-CHECK in the current buffer." + (lambda (&rest args) + (apply #'flycheck-report-buffer-checker-status + syntax-check args))) + +(defun flycheck-buffer () + "Start checking syntax in the current buffer. + +Get a syntax checker for the current buffer with +`flycheck-get-checker-for-buffer', and start it." + (interactive) + (flycheck-clean-deferred-check) + (if flycheck-mode + (unless (flycheck-running-p) + ;; Clear error list and mark all overlays for deletion. We do not + ;; delete all overlays immediately to avoid excessive re-displays and + ;; flickering, if the same errors gets highlighted again after the check + ;; completed. + (run-hooks 'flycheck-before-syntax-check-hook) + (flycheck-clear-errors) + (flycheck-mark-all-overlays-for-deletion) + (condition-case err + (let* ((checker (flycheck-get-checker-for-buffer))) + (if checker + (flycheck-start-current-syntax-check checker) + (flycheck-clear) + (flycheck-report-status 'no-checker))) + (error + (flycheck-report-failed-syntax-check) + (signal (car err) (cdr err))))) + (user-error "Flycheck mode disabled"))) + +(defun flycheck-report-buffer-checker-status + (syntax-check status &optional data) + "In BUFFER, report a SYNTAX-CHECK STATUS with DATA. + +SYNTAX-CHECK is the `flycheck-syntax-check' which reported +STATUS. STATUS denotes the status of CHECKER, with an optional +DATA. STATUS may be one of the following symbols: + +`errored' + The syntax checker has errored. DATA is an optional error + message. + + This report finishes the current syntax check. + +`interrupted' + The syntax checker was interrupted. DATA is ignored. + + This report finishes the current syntax check. + +`finished' + The syntax checker has finished with a proper error report + for the current buffer. DATA is the (potentially empty) + list of `flycheck-error' objects reported by the syntax + check. + + This report finishes the current syntax check. + +`suspicious' + The syntax checker encountered a suspicious state, which the + user needs to be informed about. DATA is an optional + message. + +A syntax checker _must_ report a status at least once with any +symbol that finishes the current syntax checker. Otherwise +Flycheck gets stuck with the current syntax check. + +If CHECKER is not the currently used syntax checker in +`flycheck-current-syntax-check', the status report is largely +ignored. Notably, any errors reported by the checker are +discarded." + (let ((buffer (flycheck-syntax-check-buffer syntax-check))) + ;; Ignore the status report if the buffer is gone, or if this syntax check + ;; isn't the current one in buffer (which can happen if this is an old + ;; report of an interrupted syntax check, and a new syntax check was started + ;; since this check was interrupted) + (when (and (buffer-live-p buffer) + (eq syntax-check + (buffer-local-value 'flycheck-current-syntax-check buffer))) + (with-current-buffer buffer + (let ((checker (flycheck-syntax-check-checker syntax-check))) + (pcase status + ((or `errored `interrupted) + (flycheck-report-failed-syntax-check status) + (when (eq status 'errored) + ;; In case of error, show the error message + (message "Error from syntax checker %s: %s" + checker (or data "UNKNOWN!")))) + (`suspicious + (when flycheck-mode + (message "Suspicious state from syntax checker %s: %s" + checker (or data "UNKNOWN!"))) + (flycheck-report-status 'suspicious)) + (`finished + (when flycheck-mode + ;; Only report errors from the checker if Flycheck Mode is + ;; still enabled. + (flycheck-finish-current-syntax-check + data + (flycheck-syntax-check-working-directory syntax-check)))) + (_ + (error "Unknown status %s from syntax checker %s" + status checker)))))))) + +(defun flycheck-finish-current-syntax-check (errors working-dir) + "Finish the current syntax-check in the current buffer with ERRORS. + +ERRORS is a list of `flycheck-error' objects reported by the +current syntax check in `flycheck-current-syntax-check'. + +Report all ERRORS and potentially start any next syntax checkers. + +If the current syntax checker reported excessive errors, it is +disabled via `flycheck-disable-excessive-checker' for subsequent +syntax checks. + +Relative file names in ERRORS will be expanded relative to +WORKING-DIR." + (let* ((syntax-check flycheck-current-syntax-check) + (checker (flycheck-syntax-check-checker syntax-check)) + (errors (flycheck-relevant-errors + (flycheck-fill-and-expand-error-file-names + (flycheck-filter-errors + (flycheck-assert-error-list-p errors) checker) + working-dir)))) + (unless (flycheck-disable-excessive-checker checker errors) + (flycheck-report-current-errors errors)) + (let ((next-checker (flycheck-get-next-checker-for-buffer checker))) + (if next-checker + (flycheck-start-current-syntax-check next-checker) + (setq flycheck-current-syntax-check nil) + (flycheck-report-status 'finished) + ;; Delete overlays only after the very last checker has run, to avoid + ;; flickering on intermediate re-displays + (flycheck-delete-marked-overlays) + (flycheck-error-list-refresh) + (run-hooks 'flycheck-after-syntax-check-hook) + (when (and flycheck-auto-display-errors-after-checking + (eq (current-buffer) (window-buffer))) + (flycheck-display-error-at-point)) + ;; Immediately try to run any pending deferred syntax check, which + ;; were triggered by intermediate automatic check event, to make sure + ;; that we quickly refine outdated error information + (flycheck-perform-deferred-syntax-check))))) + +(defun flycheck-disable-excessive-checker (checker errors) + "Disable CHECKER if it reported excessive ERRORS. + +If ERRORS has more items than `flycheck-checker-error-threshold', +add CHECKER to `flycheck--automatically-disabled-checkers', and +show a warning. + +Return t when CHECKER was disabled, or nil otherwise." + (when (and flycheck-checker-error-threshold + (> (length errors) flycheck-checker-error-threshold)) + ;; Disable CHECKER for this buffer + ;; (`flycheck--automatically-disabled-checkers' is a local variable). + (lwarn '(flycheck syntax-checker) :warning + (substitute-command-keys + "Syntax checker %s reported too many errors (%s) and is disabled. +Use `\\[customize-variable] RET flycheck-checker-error-threshold' to +change the threshold or `\\[universal-argument] \ +\\[flycheck-disable-checker]' to re-enable the checker.") + checker (length errors)) + (push checker flycheck--automatically-disabled-checkers) + t)) + +(defun flycheck-clear (&optional shall-interrupt) + "Clear all errors in the current buffer. + +With prefix arg or SHALL-INTERRUPT non-nil, also interrupt the +current syntax check." + (interactive "P") + (when shall-interrupt + (flycheck-stop)) + (flycheck-delete-all-overlays) + (flycheck-clear-errors) + (flycheck-clear-displayed-error-messages) + (flycheck-error-list-refresh) + (flycheck-hide-error-buffer)) + +(defun flycheck--empty-variables () + "Empty variables used by Flycheck." + (kill-local-variable 'flycheck--file-truename-cache) + (kill-local-variable 'flycheck--idle-trigger-timer) + (kill-local-variable 'flycheck--idle-trigger-conditions) + (kill-local-variable 'flycheck--last-error-display-tick)) + +(defun flycheck-teardown (&optional ignore-global) + "Teardown Flycheck in the current buffer. + +Completely clear the whole Flycheck state. Remove overlays, kill +running checks, and empty all variables used by Flycheck. + +Unless optional argument IGNORE-GLOBAL is non-nil, check to see +if no more Flycheck buffers remain (aside from the current +buffer), and if so then clean up global hooks." + (flycheck-safe-delete-temporaries) + (flycheck-stop) + (flycheck-clean-deferred-check) + (flycheck-clear) + (flycheck-cancel-error-display-error-at-point-timer) + (flycheck--clear-idle-trigger-timer) + (flycheck--empty-variables) + (unless (or ignore-global + (seq-some (lambda (buf) + (and (not (equal buf (current-buffer))) + (buffer-local-value 'flycheck-mode buf))) + (buffer-list))) + (flycheck-global-teardown 'ignore-local))) + + +;;; Automatic syntax checking in a buffer +(defun flycheck-may-check-automatically (&rest conditions) + "Determine whether the buffer may be checked under one of CONDITIONS. + +Read-only buffers may never be checked automatically. + +If CONDITIONS are given, determine whether syntax may be checked +under at least one of them, according to +`flycheck-check-syntax-automatically'." + (and (not (or buffer-read-only (flycheck-ephemeral-buffer-p))) + (file-exists-p default-directory) + (or (not conditions) + (seq-some + (lambda (condition) + (memq condition flycheck-check-syntax-automatically)) + conditions)))) + +(defvar-local flycheck--idle-trigger-timer nil + "Timer used to trigger a syntax check after an idle delay.") + +(defvar-local flycheck--idle-trigger-conditions nil + "List of conditions under which an idle syntax check will be triggered. +This will be some subset of the allowable values for +`flycheck-check-syntax-automatically'. + +For example, if the user switches to a buffer and then makes an +edit, this list will have the values `idle-change' and +`idle-buffer-switch' in it, at least until the idle timer +expires.") + +(defun flycheck-buffer-automatically (&optional condition force-deferred) + "Automatically check syntax at CONDITION. + +Syntax is not checked if `flycheck-may-check-automatically' +returns nil for CONDITION. (CONDITION may be a single condition +or a list of them.) + +The syntax check is deferred if FORCE-DEFERRED is non-nil, or if +`flycheck-must-defer-check' returns t." + (when (and flycheck-mode (if (listp condition) + (apply #'flycheck-may-check-automatically + condition) + (flycheck-may-check-automatically condition))) + (flycheck--clear-idle-trigger-timer) + (setq flycheck--idle-trigger-conditions nil) + (if (or force-deferred (flycheck-must-defer-check)) + (flycheck-buffer-deferred) + (with-demoted-errors "Error while checking syntax automatically: %S" + (flycheck-buffer))))) + +(defun flycheck--clear-idle-trigger-timer () + "Clear the idle trigger timer." + (when flycheck--idle-trigger-timer + (cancel-timer flycheck--idle-trigger-timer) + (setq flycheck--idle-trigger-timer nil))) + +(defun flycheck--handle-idle-trigger (buffer) + "Run a syntax check in BUFFER if appropriate. +This function is called by `flycheck--idle-trigger-timer'." + (let ((current-buffer (current-buffer))) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (unless (or flycheck-buffer-switch-check-intermediate-buffers + (eq buffer current-buffer)) + (setq flycheck--idle-trigger-conditions + (delq 'idle-buffer-switch + flycheck--idle-trigger-conditions))) + (when flycheck--idle-trigger-conditions + (flycheck-buffer-automatically flycheck--idle-trigger-conditions) + (setq flycheck--idle-trigger-conditions nil)))))) + +(defun flycheck-handle-change (beg end _len) + "Handle a buffer change between BEG and END. + +BEG and END mark the beginning and end of the change text. _LEN +is ignored. + +Start a syntax check if a new line has been inserted into the +buffer." + ;; Save and restore the match data, as recommended in (elisp)Change Hooks + (save-match-data + (when flycheck-mode + (if (string-match-p (rx "\n") (buffer-substring beg end)) + (flycheck-buffer-automatically 'new-line 'force-deferred) + (when (memq 'idle-change flycheck-check-syntax-automatically) + (flycheck--clear-idle-trigger-timer) + (cl-pushnew 'idle-change flycheck--idle-trigger-conditions) + (setq flycheck--idle-trigger-timer + (run-at-time flycheck-idle-change-delay nil + #'flycheck--handle-idle-trigger + (current-buffer)))))))) + +(defvar flycheck--last-buffer (current-buffer) + "The current buffer or the buffer that was previously current. +This is usually equal to the current buffer, unless the user just +switched buffers. After a buffer switch, it is the previous +buffer.") + +(defun flycheck-handle-buffer-switch () + "Handle a possible switch to another buffer. + +If a buffer switch actually happened, schedule a syntax check." + ;; Switching buffers here is weird, but unfortunately necessary. It + ;; turns out that `with-temp-buffer' triggers + ;; `buffer-list-update-hook' twice, and the value of + ;; `current-buffer' is bogus in one of those triggers (the one just + ;; after the temp buffer is killed). If we rely on the bogus value, + ;; Flycheck will think that the user is switching back and forth + ;; between different buffers during the `with-temp-buffer' call + ;; (note: two different normal buffers, not the current buffer and + ;; the temp buffer!), and that would trigger spurious syntax checks. + ;; It seems that reading (window-buffer) gets us the correct current + ;; buffer in all important real-life situations (although it doesn't + ;; necessarily catch uses of `set-buffer'). + (with-current-buffer (window-buffer) + (unless (or (equal flycheck--last-buffer (current-buffer)) + ;; Don't bother keeping track of changes to and from + ;; the minibuffer, as they will never require us to + ;; run a syntax check. + (minibufferp)) + (setq flycheck--last-buffer (current-buffer)) + (when (and flycheck-mode + (memq 'idle-buffer-switch flycheck-check-syntax-automatically)) + (flycheck--clear-idle-trigger-timer) + (cl-pushnew 'idle-buffer-switch flycheck--idle-trigger-conditions) + (setq flycheck--idle-trigger-timer + (run-at-time flycheck-idle-buffer-switch-delay nil + #'flycheck--handle-idle-trigger + (current-buffer))))))) + +(defun flycheck-handle-save () + "Handle a save of the buffer." + (flycheck-buffer-automatically 'save)) + + +;;; Deferred syntax checking +(defvar-local flycheck-deferred-syntax-check nil + "If non-nil, a deferred syntax check is pending.") + +(defun flycheck-must-defer-check () + "Determine whether the syntax check has to be deferred. + +A check has to be deferred if the buffer is not visible, or if the buffer is +currently being reverted. + +Return t if the check is to be deferred, or nil otherwise." + (or (not (get-buffer-window)) + ;; We defer the syntax check if Flycheck is already running, to + ;; immediately start a new syntax check after the current one finished, + ;; because the result of the current check will most likely be outdated by + ;; the time it is finished. + (flycheck-running-p) + ;; We must defer checks while a buffer is being reverted, to avoid race + ;; conditions while the buffer contents are being restored. + revert-buffer-in-progress-p)) + +(defun flycheck-deferred-check-p () + "Determine whether the current buffer has a deferred check. + +Return t if so, or nil otherwise." + flycheck-deferred-syntax-check) + +(defun flycheck-buffer-deferred () + "Defer syntax check for the current buffer." + (setq flycheck-deferred-syntax-check t)) + +(defun flycheck-clean-deferred-check () + "Clean a deferred syntax checking state." + (setq flycheck-deferred-syntax-check nil)) + +(defun flycheck-perform-deferred-syntax-check () + "Perform the deferred syntax check." + (when (flycheck-deferred-check-p) + (flycheck-clean-deferred-check) + (flycheck-buffer-automatically))) + + +;;; Syntax checking in all buffers +(defun flycheck-may-enable-mode () + "Determine whether Flycheck mode may be enabled. + +Flycheck mode is not enabled for + +- the minibuffer, +- `fundamental-mode' +- major modes whose `mode-class' property is `special', +- ephemeral buffers (see `flycheck-ephemeral-buffer-p'), +- encrypted buffers (see `flycheck-encrypted-buffer-p'), +- remote files (see `file-remote-p'), +- and major modes excluded by `flycheck-global-modes'. + +Return non-nil if Flycheck mode may be enabled, and nil +otherwise." + (and (pcase flycheck-global-modes + ;; Whether `major-mode' is disallowed by `flycheck-global-modes' + (`t t) + (`(not . ,modes) (not (memq major-mode modes))) + (modes (memq major-mode modes))) + (not (or (minibufferp) + (eq major-mode 'fundamental-mode) + (eq (get major-mode 'mode-class) 'special) + (flycheck-ephemeral-buffer-p) + (flycheck-encrypted-buffer-p) + (and (buffer-file-name) + (file-remote-p (buffer-file-name) 'method)))))) + +(defun flycheck-mode-on-safe () + "Enable command `flycheck-mode' if it is safe to do so. + +Command `flycheck-mode' is only enabled if +`flycheck-may-enable-mode' returns a non-nil result." + (when (flycheck-may-enable-mode) + (flycheck-mode))) + +;;;###autoload +(define-globalized-minor-mode global-flycheck-mode flycheck-mode + flycheck-mode-on-safe + :init-value nil + :group 'flycheck) + +(defun flycheck-global-teardown (&optional ignore-local) + "Teardown Flycheck in all buffers. + +Completely clear the whole Flycheck state in all buffers, stop +all running checks, remove all temporary files, and empty all +variables of Flycheck. + +Also remove global hooks. (If optional argument IGNORE-LOCAL is +non-nil, then only do this and skip per-buffer teardown.)" + (unless ignore-local + (dolist (buffer (buffer-list)) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (when flycheck-mode + (flycheck-teardown 'ignore-global)))))) + (remove-hook 'buffer-list-update-hook #'flycheck-handle-buffer-switch)) + +;; Clean up the entire state of Flycheck when Emacs is killed, to get rid of any +;; pending temporary files. +(add-hook 'kill-emacs-hook #'flycheck-global-teardown) + + +;;; Errors from syntax checks +(cl-defstruct (flycheck-error + (:constructor nil) + (:constructor + flycheck-error-new + (&key + line column end-line end-column + buffer checker filename message level id group + &aux (-end-line end-line) (-end-column end-column))) + (:constructor + flycheck-error-new-at + (line + column + &optional level message + &key end-line end-column checker id group + (filename (buffer-file-name)) (buffer (current-buffer)) + &aux (-end-line end-line) (-end-column end-column))) + (:constructor + flycheck-error-new-at-pos + (pos + &optional level message + &key end-pos checker id group + (filename (buffer-file-name)) (buffer (current-buffer)) + &aux + ((line . column) + (if pos (flycheck-line-column-at-pos pos) + '(nil . nil))) + ((-end-line . -end-column) + (if end-pos (flycheck-line-column-at-pos end-pos) + '(nil . nil)))))) + "Structure representing an error reported by a syntax checker. +Slots: + +`buffer' + The buffer that the error was reported for, as buffer object. + +`checker' + The syntax checker which reported this error, as symbol. + +`filename' + The file name the error refers to, as string. + +`line' + The line on which the error starts, as number. + +`column' (optional) + The column at which the error starts, as number. + + For compatibility with external tools and unlike Emacs + itself (e.g. in Compile Mode) Flycheck uses _1-based_ + columns: The first character on a line is column 1. + + Occasionally some tools try to proactively adapt to Emacs + and emit 0-based columns automatically. In these cases, the + columns must be adjusted for Flycheck, see + `flycheck-increment-error-columns'. + + If nil, the whole line is highlighted. + +`end-line' (optional) + The line on which the error ends. If nil, this is computed according to + `flycheck-highlighting-mode'. + +`end-column' + The column at which the error ends. If nil, this is computed according to + `flycheck-highlighting-mode'. Error intervals are right-open: the + end-column points to the first character not included in the error. For + example, 1:1 is an empty range. and in \"line-number-at-pos\", the range + 6:12 covers the word \"number\". + +`message' (optional) + The error message as a string, if any. + +`level' + The error level, as either `info', `warning' or `error'. + +`id' (optional) + An ID identifying the kind of error. + +`group' (optional) + A symbol identifying the group the error belongs to. + + Some tools will emit multiple errors that relate to the same + issue (e.g., lifetime errors in Rust). All related errors + collected by a checker should have the same `group` value, + in order to be able to present them to the user. + + See `flycheck-related-errors`." + buffer checker filename line column message level id group + ;; The fields below are at the end of the record to preserve backwards + ;; compatibility; see https://github.com/flycheck/flycheck/pull/1400 and + ;; https://lists.gnu.org/archive/html/emacs-devel/2018-07/msg00436.html + -end-line -end-column) + +;; These accessors are defined for backwards compatibility +;; FIXME: Clean up once package.el learns how to recompile dependencies. + +(defun flycheck-error-end-line (err) + "Return the end line of a Flycheck error ERR." + (condition-case nil (flycheck-error--end-line err) + (args-out-of-range nil))) + +(defun flycheck-error-end-column (err) + "Return the end column of a Flycheck error ERR." + (condition-case nil (flycheck-error--end-column err) + (args-out-of-range nil))) + +(defun flycheck-error--set-end-line (err line) + "Set the end line of a Flycheck error ERR to LINE." + (condition-case nil (setf (flycheck-error--end-line err) line) + (args-out-of-range nil))) + +(defun flycheck-error--set-end-column (err column) + "Set the end column of a Flycheck error ERR to COLUMN." + (condition-case nil (setf (flycheck-error--end-column err) column) + (args-out-of-range nil))) + +(gv-define-simple-setter flycheck-error-end-line + flycheck-error--set-end-line) +(gv-define-simple-setter flycheck-error-end-column + flycheck-error--set-end-column) + +(defmacro flycheck-error-with-buffer (err &rest forms) + "Switch to the buffer of ERR and evaluate FORMS. + +If the buffer of ERR is not live, FORMS are not evaluated." + (declare (indent 1) (debug t)) + `(when (buffer-live-p (flycheck-error-buffer ,err)) + (with-current-buffer (flycheck-error-buffer ,err) + ,@forms))) + +(defun flycheck--exact-region (err) + "Get the region of ERR, if ERR specifies a range. + +Return a cons cell `(BEG . END)'. If the input range is empty, +it is expanded to cover at least one character so that END is +always greater than BEG. If ERR doesn't specify an end-column +return nil." + (if-let* ((line (flycheck-error-line err)) + (column (flycheck-error-column err)) + (end-line (or (flycheck-error-end-line err) line)) + (end-column (flycheck-error-end-column err))) + ;; Ignoring fields speeds up calls to `line-end-position'. + (let* ((inhibit-field-text-motion t) + (beg (flycheck-line-column-to-position line column)) + (end (flycheck-line-column-to-position end-line end-column))) + (cond + ((< beg end) (cons beg end)) + ((= end (point-max)) (cons (1- end) end)) + (t (cons end (1+ end))))))) + +(defun flycheck--line-region (pos) + "Get the line region of position POS. + +Return a cons cell `(BEG . END)' where BEG is the first +non-whitespace character on the line ERR refers to, and END the +end of the line." + (save-excursion + (goto-char pos) + (forward-line 0) + (let ((bol (point)) + (end (line-end-position))) + ;; Move to the beginning of this line's indentation, similar to + ;; `back-to-indentation' + (skip-syntax-forward " " end) + (backward-prefix-chars) + ;; If the current line is blank, highlight it in full; if it's + ;; empty, include the previous line break character(s) to have + ;; any region at all (when called with 0, `line-end-position' + ;; gives us the end of the previous line). + (cons (if (eolp) (if (= bol end) (line-end-position 0) bol) (point)) + end)))) + +(defun flycheck--column-region (pos) + "Get the column region of position POS. + +Return a cons cell `(BEG . END)' where BEG is the character +before the column, and END the actual column." + (save-excursion + (goto-char pos) + ;; (eobp): No enough lines in the buffer + (if (eobp) (cons (1- (point-max)) (point-max)) + (cons pos (1+ pos))))) + +(defun flycheck-bounds-of-thing-at-point (thing pos) + "Get the region of THING at position POS. + +THING is a understood by `thing-at-point'. + +Return a cons cell `(BEG . END)' where BEG is the beginning of +the THING at the column, and END the end of the THING." + (save-excursion + (goto-char pos) + (bounds-of-thing-at-point thing))) + +(defun flycheck--approximate-region (err mode) + "Compute the region of ERR based on MODE and ERR's line and column." + ;; Ignoring fields speeds up calls to `line-end-position'. + (let* ((inhibit-field-text-motion t) + (line (flycheck-error-line err)) + (column (flycheck-error-column err)) + (beg (flycheck-line-column-to-position line (or column 1)))) + (if (or (null column) + (eq mode 'lines)) + (flycheck--line-region beg) + (or (pcase mode + (`symbols + ;; Ensure that we're on a word or symbol. See + ;; https://github.com/flycheck/flycheck/issues/1519 + (and (<= (point-min) beg) (< beg (point-max)) + (memq (char-syntax (char-after beg)) '(?w ?_)) + (flycheck-bounds-of-thing-at-point 'symbol beg))) + (`sexps + (flycheck-bounds-of-thing-at-point 'sexp beg))) + (flycheck--column-region beg))))) + +(defun flycheck-error-region-for-mode (err mode) + "Get the region of ERR for the highlighting MODE. + +ERR is a Flycheck error. If its position is fully specified, use +that to compute a region; otherwise, use MODE, as documented in +`flycheck-highlighting-mode'. If MODE is nil, signal an error." + (flycheck-error-with-buffer err + (save-restriction + (widen) + (or (flycheck--exact-region err) + (flycheck--approximate-region err mode))))) + +(defun flycheck-error-pos (err) + "Get the buffer position of ERR. + +ERR is a Flycheck error whose position to get. + +The error position is the error column, or the first +non-whitespace character of the error line, if ERR has no error column." + (car (flycheck-error-region-for-mode + err flycheck-highlighting-mode))) + +(defun flycheck-error-format-snippet (err &optional max-length) + "Extract the text that ERR refers to from the buffer. + +Newlines and blanks are replaced by single spaces. If ERR +doesn't include an end-position, return nil. + +MAX-LENGTH is how many characters to read from the buffer, at +most. It defaults to 20." + (flycheck-error-with-buffer err + (save-restriction + (widen) + (pcase (flycheck--exact-region err) + (`(,beg . ,end) + (truncate-string-to-width + (replace-regexp-in-string + "\\s-+" " " (buffer-substring beg (min end (point-max)))) + (or max-length 20) nil nil t)))))) + +(defun flycheck-error-format-message-and-id (err &optional include-snippet) + "Format the message and id of ERR as human-readable string. + +If INCLUDE-SNIPPET is non-nil, prepend the message with a snippet +of the text that the error applies to (such text can only be +determined if the error contains a full span, not just a +beginning position)." + (let* ((id (flycheck-error-id err)) + (fname (flycheck-error-filename err)) + (other-file-p (and fname (not (equal fname (buffer-file-name)))))) + (concat (and other-file-p (format "In %S:\n" (file-relative-name fname))) + (and include-snippet + (when-let* ((snippet (flycheck-error-format-snippet err))) + (format-message "`%s': " snippet))) + (or (flycheck-error-message err) + (format "Unknown %S" (flycheck-error-level err))) + (and id (format " [%s]" id))))) + +(defun flycheck-error-format-position (err) + "Format the position of ERR as a human-readable string." + (let ((line (flycheck-error-line err)) + (column (flycheck-error-column err)) + (end-line (flycheck-error-end-line err)) + (end-column (flycheck-error-end-column err))) + (if (and line column) + (if (or (null end-line) (equal line end-line)) + (if (or (null end-column) (equal column (1- end-column))) + (format "%d:%d" line column) + (format "%d:%d-%d" line column end-column)) + (format "(%d:%d)-(%d:%d)" line column end-line end-column)) + (if (or (null end-line) (equal line end-line)) + (format "%d" line) + (format "%d-%d" line end-line))))) + +(defun flycheck-error-format (err &optional with-file-name) + "Format ERR as human-readable string, optionally WITH-FILE-NAME. + +Return a string that represents the given ERR. If WITH-FILE-NAME +is given and non-nil, include the file-name as well, otherwise +omit it." + (let* ((level (symbol-name (flycheck-error-level err))) + (checker (symbol-name (flycheck-error-checker err))) + (format `(,@(when with-file-name + (list (flycheck-error-filename err) ":")) + ,(flycheck-error-format-position err) ":" + ,level ": " + ,(flycheck-error-format-message-and-id err) + " (" ,checker ")"))) + (apply #'concat format))) + +(defun flycheck-error-< (err1 err2) + "Determine whether ERR1 is less than ERR2 by location." + (let ((l1 (flycheck-error-line err1)) + (l2 (flycheck-error-line err2))) + (if (/= l1 l2) + (< l1 l2) + (let ((c1 (or (flycheck-error-column err1) 1)) + (c2 (or (flycheck-error-column err2) 1))) + (if (/= c1 c2) + (< c1 c2) + (let ((el1 (or (flycheck-error-end-line err1) l1)) + (el2 (or (flycheck-error-end-line err2) l2))) + (if (/= el1 el2) + (< el1 el2) + (let ((cl1 (or (flycheck-error-end-column err1) 1)) + (cl2 (or (flycheck-error-end-column err2) 1))) + (< cl1 cl2))))))))) + +(defun flycheck-error-level-< (err1 err2) + "Determine whether ERR1 is less than ERR2 by error level. + +Like `flycheck-error-<', but compares by error level severity +first. Levels of the same severity are compared by name." + (let* ((level1 (flycheck-error-level err1)) + (level2 (flycheck-error-level err2)) + (severity1 (flycheck-error-level-severity level1)) + (severity2 (flycheck-error-level-severity level2))) + (cond + ((= severity1 severity2) + (if (string= level1 level2) + (flycheck-error-< err1 err2) + (string< level1 level2))) + (t (< severity1 severity2))))) + +(defun flycheck-assert-error-list-p (errors) + "Assert that all items in ERRORS are of `flycheck-error' type. + +Signal an error if any item in ERRORS is not a `flycheck-error' +object, as by `flycheck-error-p'. Otherwise return ERRORS +again." + (unless (listp errors) + (signal 'wrong-type-argument (list 'listp errors))) + (dolist (err errors) + (unless (flycheck-error-p err) + (signal 'wrong-type-argument (list 'flycheck-error-p err)))) + errors) + + +;;; Errors in the current buffer +(defvar-local flycheck-current-errors nil + "A list of all errors and warnings in the current buffer.") + +(defun flycheck-report-current-errors (errors) + "Report ERRORS in the current buffer. + +Add ERRORS to `flycheck-current-errors' and process each error +with `flycheck-process-error-functions'." + (setq flycheck-current-errors (append errors flycheck-current-errors)) + (overlay-recenter (point-max)) + ;; We can't use `seq-sort-by' because it's not in Emacs 25's built-in `seq', + ;; and installing an updated version doesn't help (this is a package.el bug; + ;; see https://lists.gnu.org/archive/html/emacs-devel/2020-04/msg01974.html). + (seq-do (lambda (err) + (run-hook-with-args-until-success 'flycheck-process-error-functions + err)) + (seq-sort (lambda (e1 e2) + (< (flycheck-error-line e1) (flycheck-error-line e2))) + errors))) + +(defun flycheck-clear-errors () + "Remove all error information from the current buffer." + (setq flycheck-current-errors nil) + (flycheck-report-status 'not-checked)) + +(defun flycheck-fill-and-expand-error-file-names (errors directory) + "Fill and expand file names in ERRORS relative to DIRECTORY. + +Expand all file names of ERRORS against DIRECTORY. If the file +name of an error is nil fill in the result of function +`buffer-file-name' in the current buffer. + +Return ERRORS, modified in-place." + (seq-do (lambda (err) + (setf (flycheck-error-filename err) + (if-let (filename (flycheck-error-filename err)) + (expand-file-name filename directory) + (buffer-file-name)))) + errors) + errors) + +(defun flycheck-relevant-error-other-file-p (err) + "Determine whether ERR is a relevant error for another file." + (let ((file-name (flycheck-error-filename err))) + (and file-name + flycheck-relevant-error-other-file-show + (or (null buffer-file-name) + (not (flycheck-same-files-p buffer-file-name file-name))) + (<= (flycheck-error-level-severity + flycheck-relevant-error-other-file-minimum-level) + (flycheck-error-level-severity (flycheck-error-level err)))))) + +(defun flycheck-relevant-error-p (err) + "Determine whether ERR is relevant for the current buffer. + +Return t if ERR may be shown for the current buffer, or nil +otherwise." + (flycheck-error-with-buffer err + (let ((file-name (flycheck-error-filename err)) + (message (flycheck-error-message err))) + (and + (or + ;; Neither the error nor buffer have a file name + (and (not file-name) (not buffer-file-name)) + ;; Both have files, and they match + (and buffer-file-name file-name + (flycheck-same-files-p file-name buffer-file-name)) + ;; This is a significant error from another file + (flycheck-relevant-error-other-file-p err)) + message + (not (string-empty-p message)) + ;; Errors without line numbers are discarded. If a linter + ;; reports relevant errors without line numbers, use + ;; `flycheck-fill-empty-line-numbers' as the checker's + ;; `:error-filter' to set them to line 0. + (flycheck-error-line err))))) + +(defun flycheck-relevant-errors (errors) + "Filter the relevant errors from ERRORS. + +Return a list of all errors that are relevant for their +corresponding buffer." + (seq-filter #'flycheck-relevant-error-p errors)) + +(defun flycheck-related-errors (err &optional error-set) + "Get all the errors that are in the same group as ERR. + +Return a list of all errors (from ERROR-SET) that have the same +`flycheck-error-group' as ERR, including ERR itself. + +If ERROR-SET is nil, `flycheck-current-errors' is used instead." + (let ((group (flycheck-error-group err)) + (checker (flycheck-error-checker err))) + (if group + (seq-filter (lambda (e) + (and (eq (flycheck-error-checker e) checker) + (eq (flycheck-error-group e) group))) + (or error-set flycheck-current-errors)) + (list err)))) + + +;;; Status reporting for the current buffer +(defvar-local flycheck-last-status-change 'not-checked + "The last status change in the current buffer.") + +(defun flycheck-report-failed-syntax-check (&optional status) + "Report a failed Flycheck syntax check with STATUS. + +STATUS is a status symbol for `flycheck-report-status', +defaulting to `errored'. + +Clear Flycheck state, run `flycheck-syntax-check-failed-hook' and +report an error STATUS." + (flycheck-clear) + (setq flycheck-current-syntax-check nil) + (run-hooks 'flycheck-syntax-check-failed-hook) + (flycheck-report-status (or status 'errored))) + +(defun flycheck-report-status (status) + "Report Flycheck STATUS. + +STATUS is one of the following symbols: + +`not-checked' + The current buffer was not checked. + +`no-checker' + Automatic syntax checker selection did not find a suitable + syntax checker. + +`running' + A syntax check is now running in the current buffer. + +`errored' + The current syntax check has errored. + +`finished' + The current syntax check was finished normally. + +`interrupted' + The current syntax check was interrupted. + +`suspicious' + The last syntax check had a suspicious result. + +Set `flycheck-last-status-change' and call +`flycheck-status-changed-functions' with STATUS. Afterwards +refresh the mode line." + (setq flycheck-last-status-change status) + (run-hook-with-args 'flycheck-status-changed-functions status) + (force-mode-line-update)) + +(defun flycheck-mode-line-status-text (&optional status) + "Get a text describing STATUS for use in the mode line. + +STATUS defaults to `flycheck-last-status-change' if omitted or +nil." + (let* ((current-status (or status flycheck-last-status-change)) + (indicator (pcase current-status + (`not-checked "") + (`no-checker "-") + (`running "*") + (`errored "!") + (`finished + (let-alist (flycheck-count-errors flycheck-current-errors) + (if (or .error .warning) + (format ":%s|%s" (or .error 0) (or .warning 0)) + flycheck-mode-success-indicator))) + (`interrupted ".") + (`suspicious "?"))) + (face (when flycheck-mode-line-color + (pcase current-status + (`errored 'error) + (`finished + (let-alist (flycheck-count-errors flycheck-current-errors) + (if (or .error .warning) 'error 'success)))))) + (text (format " %s%s" flycheck-mode-line-prefix indicator))) + (when face + (setq text (propertize text 'face face))) + text)) + + +;;; Error levels +(defun flycheck-make-margin-spec (margin-str face) + "Make a display spec to indicate errors in the margins. + +Returns MARGIN-STR with FACE applied." + (propertize margin-str 'face `(,face default))) + +(defconst flycheck-default-margin-str "»" + "String used to indicate errors in the margins.") + +(defconst flycheck-default-margin-continuation-str "⋮" + "String used to indicate continuation lines in the margins.") + +;;;###autoload +(defun flycheck-define-error-level (level &rest properties) + "Define a new error LEVEL with PROPERTIES. + +The following PROPERTIES constitute an error level: + +`:severity SEVERITY' + A number denoting the severity of this level. The higher + the number, the more severe is this level compared to other + levels. Defaults to 0; info is -10, warning is 10, and + error is 100. + + The severity is used by `flycheck-error-level-<' to + determine the ordering of errors according to their levels. + +`:compilation-level LEVEL' + + A number indicating the broad class of messages that errors + at this level belong to: one of 0 (info), 1 (warning), or + 2 or nil (error). Defaults to nil. + + This is used by `flycheck-checker-pattern-to-error-regexp' + to map error levels into `compilation-mode''s hierarchy and + to get proper highlighting of errors in `compilation-mode'. + +`:overlay-category CATEGORY' + A symbol denoting the overlay category to use for error + highlight overlays for this level. See Info + node `(elisp)Overlay Properties' for more information about + overlay categories. + + A category for an error level overlay should at least define + the `face' property, for error highlighting. Another useful + property for error level categories is `priority', to + influence the stacking of multiple error level overlays. + +`:fringe-bitmap BITMAPS' + A fringe bitmap symbol denoting the bitmap to use for fringe + indicators for this level, or a cons of two bitmaps (one for + narrow fringes and one for wide fringes). See Info node + `(elisp)Fringe Bitmaps' for more information about fringe + bitmaps, including a list of built-in fringe bitmaps. + +`:fringe-face FACE' + A face symbol denoting the face to use for fringe indicators + for this level. + +`:margin-spec SPEC' + A display specification indicating what to display in the + margin when `flycheck-indication-mode' is `left-margin' or + `right-margin'. See Info node `(elisp)Displaying in the + Margins'. If omitted, Flycheck generates an image spec from + the fringe bitmap. + +`:error-list-face FACE' + A face symbol denoting the face to use for messages of this + level in the error list. See `flycheck-list-errors'." + (declare (indent 1)) + (setf (get level 'flycheck-error-level) t) + (setf (get level 'flycheck-error-severity) + (or (plist-get properties :severity) 0)) + (setf (get level 'flycheck-compilation-level) + (plist-get properties :compilation-level)) + (setf (get level 'flycheck-overlay-category) + (plist-get properties :overlay-category)) + (setf (get level 'flycheck-fringe-bitmaps) + (let ((bitmap (plist-get properties :fringe-bitmap))) + (if (consp bitmap) bitmap (cons bitmap bitmap)))) + ;; Kept for compatibility + (setf (get level 'flycheck-fringe-bitmap-double-arrow) + (car (get level 'flycheck-fringe-bitmaps))) + (setf (get level 'flycheck-fringe-face) + (plist-get properties :fringe-face)) + (setf (get level 'flycheck-margin-spec) + (or (plist-get properties :margin-spec) + (flycheck-make-margin-spec + flycheck-default-margin-str + (or (get level 'flycheck-fringe-face) 'default)))) + (setf (get level 'flycheck-margin-continuation) + (flycheck-make-margin-spec + flycheck-default-margin-continuation-str + (or (get level 'flycheck-fringe-face) 'default))) + (setf (get level 'flycheck-error-list-face) + (plist-get properties :error-list-face))) + +(defun flycheck-error-level-p (level) + "Determine whether LEVEL is a Flycheck error level." + (get level 'flycheck-error-level)) + +(defun flycheck-error-level-severity (level) + "Get the numeric severity of LEVEL." + (or (get level 'flycheck-error-severity) 0)) + +(defun flycheck-error-level-compilation-level (level) + "Get the compilation level for LEVEL." + (get level 'flycheck-compilation-level)) + +(defun flycheck-error-level-overlay-category (level) + "Get the overlay category for LEVEL." + (get level 'flycheck-overlay-category)) + +(defun flycheck-error-level-margin-spec (level) + "Get the margin spec for LEVEL." + (get level 'flycheck-margin-spec)) + +(defun flycheck-error-level-margin-continuation-spec (level) + "Get the margin continuation spec for LEVEL." + (get level 'flycheck-margin-continuation)) + +(defun flycheck-error-level-fringe-bitmap (level &optional hi-res) + "Get the fringe bitmap for LEVEL. + +Optional argument HI-RES non-nil means that the returned bitmap +will be the high resolution version." + (let ((bitmaps (get level 'flycheck-fringe-bitmaps))) + (if hi-res (cdr bitmaps) (car bitmaps)))) + +(defun flycheck-error-level-fringe-face (level) + "Get the fringe face for LEVEL." + (get level 'flycheck-fringe-face)) + +(defun flycheck-error-level-error-list-face (level) + "Get the error list face for LEVEL." + (get level 'flycheck-error-list-face)) + +(defun flycheck-error-level-make-indicator (level side &optional continuation) + "Create the fringe or margin icon for LEVEL at SIDE. + +Return a propertized string that shows an indicator according +to LEVEL and the given fringe or margin SIDE. + +LEVEL is a Flycheck error level defined with +`flycheck-define-error-level', and SIDE is either `left-fringe', +`right-fringe', `left-margin', or `right-margin'. + +CONTINUATION indicates which fringe bitmap or margin spec to use: +either the `:fringe-bitmap' and `:margin-spec' properties of +LEVEL when CONTINUATION is nil or omitted, or bitmaps and specs +indicating an error spanning more than one line. + +Return a propertized string representing the fringe icon, +intended for use as `before-string' of an overlay to actually +show the indicator." + (propertize + "!" 'display + (pcase side + ((or `left-fringe `right-fringe) + (list side + (if continuation 'flycheck-fringe-bitmap-continuation + (let* ((fringe-width + (pcase side + (`left-fringe (car (window-fringes))) + (`right-fringe (cadr (window-fringes))))) + (high-res (>= fringe-width 16))) + (flycheck-error-level-fringe-bitmap level high-res))) + (flycheck-error-level-fringe-face level))) + ((or `left-margin `right-margin) + `((margin ,side) + ,(or (if continuation + (flycheck-error-level-margin-continuation-spec level) + (flycheck-error-level-margin-spec level)) + ""))) + (_ (error "Invalid fringe side: %S" side))))) + +(define-obsolete-function-alias + 'flycheck-error-level-make-fringe-icon + 'flycheck-error-level-make-indicator + "33") + + +;;; Built-in error levels +(defconst flycheck-fringe-bitmap-double-arrow + [#b11011000 + #b01101100 + #b00110110 + #b00011011 + #b00110110 + #b01101100 + #b11011000] + "Bitmaps used to indicate errors in the left fringes.") + +(defconst flycheck-fringe-bitmap-double-left-arrow + [#b00011011 + #b00110110 + #b01101100 + #b11011000 + #b01101100 + #b00110110 + #b00011011] + "Bitmaps used to indicate errors in the right fringes.") + +(defconst flycheck-fringe-bitmap-double-arrow-hi-res + [#b1111001111000000 + #b0111100111100000 + #b0011110011110000 + #b0001111001111000 + #b0000111100111100 + #b0000011110011110 + #b0000011110011110 + #b0000111100111100 + #b0001111001111000 + #b0011110011110000 + #b0111100111100000 + #b1111001111000000] + "High-resolution bitmap used to indicate errors in the left fringes.") + +(defconst flycheck-fringe-bitmap-double-left-arrow-hi-res + [#b0000001111001111 + #b0000011110011110 + #b0000111100111100 + #b0001111001111000 + #b0011110011110000 + #b0111100111100000 + #b0111100111100000 + #b0011110011110000 + #b0001111001111000 + #b0000111100111100 + #b0000011110011110 + #b0000001111001111] + "High-resolution bitmap used to indicate errors in the right fringes.") + +(defconst flycheck-fringe-bitmap-continuation + [#b1000000010000000 + #b0010000000100000 + #b0000100000001000 + #b0000001000000010] + "Bitmap used to indicate continuation lines in the fringes.") + +(when (fboundp 'define-fringe-bitmap) ;; #ifdef HAVE_WINDOW_SYSTEM + (define-fringe-bitmap + 'flycheck-fringe-bitmap-double-arrow + flycheck-fringe-bitmap-double-arrow) + (define-fringe-bitmap + 'flycheck-fringe-bitmap-double-arrow-hi-res + flycheck-fringe-bitmap-double-arrow-hi-res + nil 16) + (define-fringe-bitmap + 'flycheck-fringe-bitmap-double-left-arrow + flycheck-fringe-bitmap-double-left-arrow) + (define-fringe-bitmap + 'flycheck-fringe-bitmap-double-left-arrow-hi-res + flycheck-fringe-bitmap-double-left-arrow-hi-res + nil 16) + (define-fringe-bitmap + 'flycheck-fringe-bitmap-continuation + flycheck-fringe-bitmap-continuation + nil 16 '(top repeat))) + +(defun flycheck-redefine-standard-error-levels + (&optional margin-str fringe-bitmap) + "Redefine Flycheck's standard error levels. + +This is useful to change the character drawn in the +margins (MARGIN-STR, a string) or the bitmap drawn in the +fringes (FRINGE-BITMAP, a fringe bitmap symbol or a cons of such +symbols, as in `flycheck-define-error-level')." + (unless margin-str + (setq margin-str flycheck-default-margin-str)) + + (unless fringe-bitmap + (setq fringe-bitmap + (cons 'flycheck-fringe-bitmap-double-arrow + 'flycheck-fringe-bitmap-double-arrow-hi-res))) + + (setf (get 'flycheck-error-overlay 'face) 'flycheck-error) + (setf (get 'flycheck-error-overlay 'priority) 110) + + (flycheck-define-error-level 'error + :severity 100 + :compilation-level 2 + :overlay-category 'flycheck-error-overlay + :margin-spec (flycheck-make-margin-spec margin-str 'flycheck-fringe-error) + :fringe-bitmap fringe-bitmap + :fringe-face 'flycheck-fringe-error + :error-list-face 'flycheck-error-list-error) + + (setf (get 'flycheck-warning-overlay 'face) 'flycheck-warning) + (setf (get 'flycheck-warning-overlay 'priority) 100) + + (flycheck-define-error-level 'warning + :severity 10 + :compilation-level 1 + :overlay-category 'flycheck-warning-overlay + :margin-spec (flycheck-make-margin-spec margin-str 'flycheck-fringe-warning) + :fringe-bitmap fringe-bitmap + :fringe-face 'flycheck-fringe-warning + :error-list-face 'flycheck-error-list-warning) + + (setf (get 'flycheck-info-overlay 'face) 'flycheck-info) + (setf (get 'flycheck-info-overlay 'priority) 90) + + (flycheck-define-error-level 'info + :severity -10 + :compilation-level 0 + :overlay-category 'flycheck-info-overlay + :margin-spec (flycheck-make-margin-spec margin-str 'flycheck-fringe-info) + :fringe-bitmap fringe-bitmap + :fringe-face 'flycheck-fringe-info + :error-list-face 'flycheck-error-list-info)) + +(flycheck-redefine-standard-error-levels) + + +;;; Error filtering +(defun flycheck-filter-errors (errors checker) + "Filter ERRORS from CHECKER. + +Apply the error filter of CHECKER to ERRORs and return the +result. If CHECKER has no error filter, fall back to +`flycheck-sanitize-errors'." + (let ((filter (or (flycheck-checker-get checker 'error-filter) + #'flycheck-sanitize-errors))) + (funcall filter errors))) + +(defun flycheck-sanitize-errors (errors) + "Sanitize ERRORS. + +Sanitize ERRORS by trimming leading and trailing whitespace in +all error messages, and by replacing 0 columns and empty error +messages with nil. + +Returns sanitized ERRORS." + (dolist (err errors) + (flycheck-error-with-buffer err + (let ((message (flycheck-error-message err)) + (id (flycheck-error-id err))) + (when message + (setq message (string-trim message)) + (setf (flycheck-error-message err) + (if (string-empty-p message) nil message))) + (when (and id (string-empty-p id)) + (setf (flycheck-error-id err) nil)) + (when (eq (flycheck-error-column err) 0) + (setf (flycheck-error-column err) nil)) + (when (eq (flycheck-error-end-column err) 0) + (setf (flycheck-error-end-column err) nil))))) + errors) + +(defun flycheck-remove-error-file-names (file-name errors) + "Remove matching FILE-NAME from ERRORS. + +Use as `:error-filter' for syntax checkers that output faulty +filenames. Flycheck will later fill in the buffer file name. + +Return ERRORS." + (seq-do (lambda (err) + (when (and (flycheck-error-filename err) + (string= (flycheck-error-filename err) file-name)) + (setf (flycheck-error-filename err) nil))) + errors) + errors) + +(defun flycheck-increment-error-columns (errors &optional offset) + "Increment all columns of ERRORS by OFFSET (default: 1). + + Use this as `:error-filter' if a syntax checker outputs 0-based + columns." + (setq offset (or offset 1)) ;; Emacs bug #31715 + (seq-do (lambda (err) + (when (flycheck-error-column err) + (cl-incf (flycheck-error-column err) offset)) + (when (flycheck-error-end-column err) + (cl-incf (flycheck-error-end-column err) offset))) + errors) + errors) + +(defun flycheck-collapse-error-message-whitespace (errors) + "Collapse whitespace in all messages of ERRORS. + +Return ERRORS." + (dolist (err errors) + (when-let (message (flycheck-error-message err)) + (setf (flycheck-error-message err) + (replace-regexp-in-string (rx (one-or-more (any space "\n" "\r"))) + " " message 'fixed-case 'literal)))) + errors) + +(defun flycheck-dedent-error-messages (errors) + "Dedent all messages of ERRORS. + +For each error in ERRORS, determine the indentation offset from +the leading whitespace of the first line, and dedent all further +lines accordingly. + +Return ERRORS, with in-place modifications." + (dolist (err errors) + (when-let (message (flycheck-error-message err)) + (with-temp-buffer + (insert message) + ;; Determine the indentation offset + (goto-char (point-min)) + (back-to-indentation) + (let* ((indent-offset (- (point) (point-min)))) + ;; Now iterate over all lines and dedent each according to + ;; `indent-offset' + (while (not (eobp)) + (back-to-indentation) + ;; If the current line starts with sufficient whitespace, delete the + ;; indentation offset. Otherwise keep the line intact, as we might + ;; loose valuable information + (when (>= (- (point) (line-beginning-position)) indent-offset) + (delete-char (- indent-offset))) + (forward-line 1))) + (delete-trailing-whitespace (point-min) (point-max)) + (setf (flycheck-error-message err) + (buffer-substring-no-properties (point-min) (point-max)))))) + errors) + +(defun flycheck-fold-include-levels (errors sentinel-message) + "Fold levels of ERRORS from included files. + +ERRORS is a list of `flycheck-error' objects. SENTINEL-MESSAGE +is a regular expression matched against the error message to +determine whether the error denotes errors from an included +file. Alternatively, it is a function that is given an error and +shall return non-nil, if the error denotes errors from an +included file." + (unless (or (stringp sentinel-message) (functionp sentinel-message)) + (error "Sentinel must be string or function: %S" sentinel-message)) + (let ((sentinel (if (functionp sentinel-message) + sentinel-message + (lambda (err) + (string-match-p sentinel-message + (flycheck-error-message err))))) + (remaining-errors errors)) + (while remaining-errors + (let* ((current-error (pop remaining-errors))) + (when (funcall sentinel current-error) + ;; We found an error denoting errors in the included file: + ;; 1. process all subsequent errors until faulty include file is found + ;; 2. process again all subsequent errors until an error has the + ;; current file name again + ;; 3. find the most severe error level + (let ((current-filename (flycheck-error-filename current-error)) + (current-level nil) + (faulty-include-filename nil) + (filename nil) + (done (null remaining-errors))) + + (while (not done) + (setq filename (flycheck-error-filename (car remaining-errors))) + (unless faulty-include-filename + (unless (string= filename current-filename) + (setq faulty-include-filename filename))) + + (let* ((error-in-include (pop remaining-errors)) + (in-include-level (flycheck-error-level error-in-include))) + (unless (funcall sentinel error-in-include) + ;; Ignore nested "included file" errors, we are only + ;; interested in real errors because these define our level + (when (or (not current-level) + (> (flycheck-error-level-severity in-include-level) + (flycheck-error-level-severity current-level))) + (setq current-level in-include-level)))) + + (setq done (or (null remaining-errors) + (and faulty-include-filename + (string= filename current-filename))))) + + (setf (flycheck-error-level current-error) current-level + (flycheck-error-message current-error) + (format "In include %s" faulty-include-filename)))))) + errors)) + +(defun flycheck-dequalify-error-ids (errors) + "De-qualify error ids in ERRORS. + +Remove all qualifications from error ids in ERRORS, by stripping +all leading dotted components from error IDs. For instance, if +the error ID is com.foo.E100, replace it with E100. + +This error filter is mainly useful to simplify error IDs obtained +from parsing Checkstyle XML, which frequently has very verbose +IDs, that include the name of the tool." + (seq-do (lambda (err) + (let ((id (flycheck-error-id err))) + (when id + (setf (flycheck-error-id err) + (replace-regexp-in-string + (rx string-start + (group + (optional (zero-or-more not-newline) ".")) + (one-or-more (not (any "."))) + string-end) + "" id 'fixedcase 'literal 1))))) + errors) + errors) + +(defun flycheck-remove-error-ids (errors) + "Remove all error ids from ERRORS." + (seq-do (lambda (err) (setf (flycheck-error-id err) nil)) errors) + errors) + +(defun flycheck-fill-empty-line-numbers (errors) + "Set ERRORS without lines to line 0. + +Use as `:error-filter' for syntax checkers that output errors +without line numbers. + +Return ERRORS." + (seq-do (lambda (err) + (unless (flycheck-error-line err) + (setf (flycheck-error-line err) 0))) + errors) + errors) + + +;;; Error analysis +(defun flycheck-count-errors (errors) + "Count the number of ERRORS, grouped by level. + +Return an alist, where each ITEM is a cons cell whose `car' is an +error level, and whose `cdr' is the number of errors of that +level." + (let (counts-by-level) + (dolist (err errors) + (let* ((level (flycheck-error-level err)) + (item (assq level counts-by-level))) + (if item + (cl-incf (cdr item)) + (push (cons level 1) counts-by-level)))) + counts-by-level)) + +(defun flycheck-has-max-errors-p (errors level) + "Check if there is no error in ERRORS more severe than LEVEL." + (let ((severity (flycheck-error-level-severity level))) + (seq-every-p (lambda (e) (<= (flycheck-error-level-severity + (flycheck-error-level e)) + severity)) + errors))) + +(defun flycheck-has-max-current-errors-p (level) + "Check if there is no current error more severe than LEVEL." + (flycheck-has-max-errors-p flycheck-current-errors level)) + +(defun flycheck-has-errors-p (errors level) + "Determine if there are any ERRORS with LEVEL." + (seq-some (lambda (e) (eq (flycheck-error-level e) level)) errors)) + +(defun flycheck-has-current-errors-p (&optional level) + "Determine if the current buffer has errors with LEVEL. + +If LEVEL is omitted if the current buffer has any errors at all." + (if level + (flycheck-has-errors-p flycheck-current-errors level) + (and flycheck-current-errors t))) + + +;;; Error overlays in the current buffer +(defvar-local flycheck--last-overlay-index 0 + "Last index given to a Flycheck overlay. + +These indices are used to preserve error order (Emacs doesn't +preserve overlay order when calling `overlays-at').") + +(defun flycheck--next-overlay-index () + "Compute the index to assign to a new Flycheck overlay." + (cl-incf flycheck--last-overlay-index)) + +(defun flycheck--highlighting-style (err) + "Determine the highlighting style to apply to ERR. + +Styles are documented in `flycheck-highlighting-style'; this +functions resolves `conditional' style specifications." + (let* ((style flycheck-highlighting-style) + (first-line (flycheck-error-line err)) + (end-line (or (flycheck-error-end-line err) first-line)) + (nlines (- end-line first-line))) + (while (eq (car-safe style) 'conditional) + (pcase-let ((`(,threshold ,s1 ,s2) (cdr style))) + (setq style (if (< nlines threshold) s1 s2)))) + (pcase style + (`(delimiters ,before ,after) + (when (characterp before) + (setq before (flycheck--make-highlighting-delimiter before))) + (when (characterp after) + (setq after (flycheck--make-highlighting-delimiter after))) + (setq style `(delimiters ,before ,after)))) + style)) + +(defun flycheck--setup-highlighting (err overlay) + "Apply properties to OVERLAY to highlight ERR." + (let ((level (flycheck-error-level err))) + (unless flycheck-highlighting-mode + ;; Erase the highlighting from the overlay if requested by the user + (setf (overlay-get overlay 'face) nil)) + (when flycheck-indication-mode + (setf (overlay-get overlay 'before-string) + (flycheck-error-level-make-indicator + level flycheck-indication-mode)) + (setf (overlay-get overlay 'line-prefix) + (flycheck-error-level-make-indicator + level flycheck-indication-mode t))) + (pcase (flycheck--highlighting-style err) + ((or `nil (guard (null flycheck-highlighting-mode))) + ;; Erase the highlighting + (setf (overlay-get overlay 'face) nil)) + (`level-face) + (`(delimiters ,before ,after) + ;; Replace the highlighting with delimiters + (let* ((fringe-face (flycheck-error-level-fringe-face level)) + (delim-face `(flycheck-error-delimiter ,fringe-face))) + (setf (overlay-get overlay 'face) 'flycheck-delimited-error) + (setf (overlay-get overlay 'before-string) + (concat (propertize before 'face delim-face) + (or (overlay-get overlay 'before-string) ""))) + (setf (overlay-get overlay 'after-string) + (propertize after 'face delim-face)))) + (other (error "Unsupported highlighting style: %S" other))))) + +(defun flycheck-add-overlay (err) + "Add overlay for ERR. + +Return the created overlay." + ;; We must have a proper error region for the sake of fringe indication, + ;; error display and error navigation, even if the highlighting is disabled. + ;; We erase the highlighting later on in this case + (pcase-let* ((`(,beg . ,end) + (if (flycheck-relevant-error-other-file-p err) + ;; Display overlays for other-file errors on the first line + (cons (point-min) + (save-excursion (goto-char (point-min)) + (line-end-position))) + (flycheck-error-region-for-mode + err (or flycheck-highlighting-mode 'lines)))) + (overlay (make-overlay beg end)) + (level (flycheck-error-level err)) + (category (flycheck-error-level-overlay-category level)) + (index (flycheck--next-overlay-index))) + (unless (flycheck-error-level-p level) + (error "Undefined error level: %S" level)) + (setf (overlay-get overlay 'flycheck-error-index) index) + (setf (overlay-get overlay 'flycheck-overlay) t) + (setf (overlay-get overlay 'flycheck-error) err) + (setf (overlay-get overlay 'category) category) + (setf (overlay-get overlay 'help-echo) #'flycheck-help-echo) + (flycheck--setup-highlighting err overlay) + overlay)) + +(defun flycheck-help-echo (_window object pos) + "Construct a tooltip message. + +Most of the actual work is done by calling +`flycheck-help-echo-function' with the appropriate list of +errors. Arguments WINDOW, OBJECT and POS are as described in +info node `(elisp)Special properties', as this function is +intended to be used as the \\='help-echo property of flycheck error +overlays." + (when-let (buf (cond ((bufferp object) object) + ((overlayp object) (overlay-buffer object)))) + (with-current-buffer buf + (when-let* ((fn flycheck-help-echo-function) + (errs (flycheck-overlay-errors-at pos))) + (propertize (funcall fn errs) 'help-echo-inhibit-substitution t))))) + +(defun flycheck-help-echo-all-error-messages (errs) + "Concatenate error messages and ids from ERRS." + (pcase (delq nil errs) ;; FIXME why would errors be nil here? + (`(,err) ;; A single error + (flycheck-error-format-message-and-id err)) + (_ ;; Zero or multiple errors + (mapconcat + (lambda (err) + (flycheck-error-format-message-and-id err 'include-snippet)) + errs "\n")))) + +(defun flycheck-filter-overlays (overlays) + "Get all Flycheck overlays from OVERLAYS, in original order." + ;; The order of errors returned from overlays is not stable, so we sort + ;; them again using the internal index to guarantee errors are always + ;; displayed in the same order. + (seq-sort + ;; We can't use `seq-sort-by' here; see above + (lambda (o1 o2) (< (overlay-get o1 'flycheck-error-index) + (overlay-get o2 'flycheck-error-index))) + (seq-filter (lambda (o) (overlay-get o 'flycheck-overlay)) overlays))) + +(defun flycheck-overlays-at (pos) + "Get all Flycheck overlays at POS." + (flycheck-filter-overlays (overlays-at pos))) + +(defun flycheck-overlays-in (beg end) + "Get all Flycheck overlays between BEG and END." + (flycheck-filter-overlays (overlays-in beg end))) + +(defun flycheck-overlay-errors-at (pos) + "Return a list of all flycheck errors overlaid at POS." + (seq-map (lambda (o) (overlay-get o 'flycheck-error)) + (flycheck-overlays-at pos))) + +(defun flycheck-overlay-errors-in (beg end) + "Return a list of all flycheck errors overlaid between BEG and END." + (seq-map (lambda (o) (overlay-get o 'flycheck-error)) + (flycheck-overlays-in beg end))) + +(defvar-local flycheck-overlays-to-delete nil + "Overlays mark for deletion after all syntax checks completed.") +(put 'flycheck-overlays-to-delete 'permanent-local t) + +(defun flycheck-delete-all-overlays () + "Remove all flycheck overlays in the current buffer." + (overlay-recenter (point-max)) + (flycheck-delete-marked-overlays) + (setq flycheck--last-overlay-index 0) + (save-restriction + (widen) + (seq-do #'delete-overlay (flycheck-overlays-in (point-min) (point-max))))) + +(defun flycheck-mark-all-overlays-for-deletion () + "Mark all current overlays for deletion." + (setq flycheck-overlays-to-delete + (append (flycheck-overlays-in (point-min) (point-max)) + flycheck-overlays-to-delete))) + +(defun flycheck-delete-marked-overlays () + "Delete all overlays marked for deletion." + (overlay-recenter (point-max)) + (seq-do #'delete-overlay flycheck-overlays-to-delete) + (setq flycheck-overlays-to-delete nil)) + + +;;; Error navigation in the current buffer +(defun flycheck-error-level-interesting-at-pos-p (pos) + "Check if error severity at POS passes `flycheck-error-level-interesting-p'." + (flycheck-error-level-interesting-p (get-char-property pos 'flycheck-error))) + +(defun flycheck-error-level-interesting-p (err) + "Check if ERR severity is >= `flycheck-navigation-minimum-level'. + +ERR is also interesting (the function returns true) if there are +no errors as or more severe than `flycheck-navigation-minimum-level'." + (when (flycheck-error-p err) + (if-let (min-level flycheck-navigation-minimum-level) + (or (<= (flycheck-error-level-severity min-level) + (flycheck-error-level-severity (flycheck-error-level err))) + (not (flycheck-has-current-errors-p min-level))) + t))) + +(defun flycheck-next-error-pos (n &optional reset) + "Get the position of the N-th next error. + +With negative N, get the position of the (-N)-th previous error +instead. With non-nil RESET, search from `point-min', otherwise +search from the current point. + +Return the position of the next or previous error, or nil if +there is none. If N is zero, return `point', or `point-min' if +RESET is non-nil." + (let ((n (or n 1)) + (pos (if reset (point-min) (point)))) + (if (>= n 0) + ;; Search forwards + (while (and pos (> n 0)) + (setq n (1- n)) + (when (get-char-property pos 'flycheck-error) + ;; Move beyond from the current error if any + (setq pos (next-single-char-property-change pos 'flycheck-error))) + (while (not (or (= pos (point-max)) + (flycheck-error-level-interesting-at-pos-p pos))) + ;; Scan for the next error + (setq pos (next-single-char-property-change pos 'flycheck-error))) + (when (and (= pos (point-max)) + (not (flycheck-error-level-interesting-at-pos-p pos))) + ;; If we reached the end of the buffer, but no error, we didn't find + ;; any + (setq pos nil))) + ;; Search backwards + (while (and pos (< n 0)) + (setq n (1+ n)) + ;; Loop until we find an error. We need to check the position *before* + ;; the current one, because `previous-single-char-property-change' + ;; always moves to the position *of* the change. + (while (not (or (= pos (point-min)) + (flycheck-error-level-interesting-at-pos-p (1- pos)))) + (setq pos (previous-single-char-property-change pos 'flycheck-error))) + (when (and (= pos (point-min)) + (not (flycheck-error-level-interesting-at-pos-p pos))) + ;; We didn't find any error. + (setq pos nil)) + (when pos + ;; We found an error, so move to its beginning + (setq pos (previous-single-char-property-change pos + 'flycheck-error))))) + pos)) + +(defun flycheck-next-error-function (n reset) + "Visit the N-th error from the current point. + +N is the number of errors to advance by, where a negative N +advances backwards. With non-nil RESET, advance from the +beginning of the buffer, otherwise advance from the current +position. + +Intended for use with `next-error-function'." + (if-let* ((pos (flycheck-next-error-pos n reset)) + (err (get-char-property pos 'flycheck-error))) + (flycheck-jump-to-error err) + (user-error "No more Flycheck errors"))) + +(defun flycheck-next-error (&optional n reset) + "Visit the N-th error from the current point. + +N is the number of errors to advance by, where a negative N +advances backwards. With non-nil RESET, advance from the +beginning of the buffer, otherwise advance from the current +position." + (interactive "P") + (when (consp n) + ;; Universal prefix argument means reset + (setq reset t n nil)) + (flycheck-next-error-function n reset) + (flycheck-display-error-at-point)) + +(defun flycheck-previous-error (&optional n) + "Visit the N-th previous error. + +If given, N specifies the number of errors to move backwards by. +If N is negative, move forwards instead." + (interactive "P") + (flycheck-next-error (- (or n 1)))) + +(defun flycheck-first-error (&optional n) + "Visit the N-th error from beginning of the buffer. + +If given, N specifies the number of errors to move forward from +the beginning of the buffer." + (interactive "P") + (flycheck-next-error n 'reset)) + + +;;; Listing errors in buffers +(defconst flycheck-error-list-buffer "*Flycheck errors*" + "The name of the buffer to show error lists.") + +(defmacro flycheck-error-list-with-buffer (&rest body) + "Evaluate BODY in flycheck-error-list-buffer, if it exists." + (declare (indent 0) (debug t)) + `(when (get-buffer flycheck-error-list-buffer) + (with-current-buffer flycheck-error-list-buffer + ,@body))) + +(defvar flycheck-error-list-mode-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "f") #'flycheck-error-list-set-filter) + (define-key map (kbd "F") #'flycheck-error-list-reset-filter) + (define-key map (kbd "n") #'flycheck-error-list-next-error) + (define-key map (kbd "p") #'flycheck-error-list-previous-error) + (define-key map (kbd "g") #'flycheck-error-list-check-source) + (define-key map (kbd "e") #'flycheck-error-list-explain-error) + (define-key map (kbd "RET") #'flycheck-error-list-goto-error) + map) + "The keymap of `flycheck-error-list-mode'.") + +(defun flycheck-error-list-make-last-column (message checker) + "Compute contents of the last error list cell. + +MESSAGE and CHECKER are displayed in a single column to allow the +message to stretch arbitrarily far." + (let ((checker-name (propertize (symbol-name checker) + 'face 'flycheck-error-list-checker-name)) + (message (propertize message + 'face 'flycheck-error-list-error-message))) + (format "%s (%s)" message checker-name))) + +(defconst flycheck-error-list-format + `[("File" 6) + ("Line" 5 flycheck-error-list-entry-< :right-align t) + ("Col" 3 nil :right-align t) + ("Level" 8 flycheck-error-list-entry-level-<) + ("ID" 6 t) + (,(flycheck-error-list-make-last-column "Message" 'Checker) 0 t)] + "Table format for the error list.") + +(defconst flycheck-error-list-padding 1 + "Padding used in error list.") + +(defconst flycheck--error-list-msg-offset + (seq-reduce + (lambda (offset fmt) + (pcase-let* ((`(,_ ,width ,_ . ,props) fmt) + (padding (or (plist-get props :pad-right) 1))) + (+ offset width padding))) + (seq-subseq flycheck-error-list-format 0 -1) + flycheck-error-list-padding) + "Amount of space to use in `flycheck-flush-multiline-message'.") + +(define-derived-mode flycheck-error-list-mode tabulated-list-mode + "Flycheck errors" + "Major mode for listing Flycheck errors. + +\\{flycheck-error-list-mode-map}" + (setq tabulated-list-format flycheck-error-list-format + ;; Sort by location initially + tabulated-list-sort-key (cons "Line" nil) + tabulated-list-padding flycheck-error-list-padding + tabulated-list-entries #'flycheck-error-list-entries + ;; `revert-buffer' updates the mode line for us, so all we need to do is + ;; set the corresponding mode line construct. + mode-line-buffer-identification flycheck-error-list-mode-line) + ;; See https://github.com/flycheck/flycheck/issues/1101 + (setq-local truncate-string-ellipsis "…") + (tabulated-list-init-header)) + +(defvar-local flycheck-error-list-source-buffer nil + "The current source buffer of the error list.") +;; Needs to permanently local to preserve the source buffer across buffer +;; reversions +(put 'flycheck-error-list-source-buffer 'permanent-local t) + +(defun flycheck-error-list-set-source (buffer) + "Set BUFFER as the source buffer of the error list." + (flycheck-error-list-with-buffer + (setq flycheck-error-list-source-buffer buffer) + (flycheck-error-list-refresh))) + +(defun flycheck-error-list-update-source () + "Make the error list display errors from the current buffer. + +The update is skipped if the current buffer is the error list or +if the error list is already pointing to the current buffer." + (unless (memq (current-buffer) + (list (get-buffer flycheck-error-list-buffer) + (flycheck-error-list-with-buffer + flycheck-error-list-source-buffer))) + (flycheck-error-list-set-source (current-buffer)))) + +(defun flycheck-error-list-check-source () + "Trigger a syntax check in the source buffer of the error list." + (interactive) + (let ((buffer (get-buffer flycheck-error-list-source-buffer))) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (flycheck-buffer))))) + +(define-button-type 'flycheck-error-list + 'action #'flycheck-error-list-goto-error + 'help-echo "mouse-1, RET: goto error" + 'face nil) + +(define-button-type 'flycheck-error-list-explain-error + 'action #'flycheck-error-list-explain-error + 'help-echo "mouse-1, RET: explain error") + +(defsubst flycheck-error-list-make-cell (text &optional face help-echo type) + "Make an error list cell with TEXT and FACE. + +If FACE is nil don't set a FACE on TEXT. If TEXT already has +face properties, do not specify a FACE. Note though, that if +TEXT gets truncated it will not inherit any previous face +properties. If you expect TEXT to be truncated in the error +list, do specify a FACE explicitly! + +If HELP-ECHO is non-nil, set a help-echo property on TEXT, with +value HELP-ECHO. This is convenient if you expect TEXT to be +truncated. + +The cell will have the type TYPE unless TYPE is nil, and the +default type `flycheck-error-list' will be used instead." + (append (list text 'type (if type type + 'flycheck-error-list)) + (and face (list 'face face)) + (and help-echo (list 'help-echo help-echo)))) + +(defsubst flycheck-error-list-make-number-cell (number face) + "Make a table cell for a NUMBER with FACE. + +Convert NUMBER to string, fontify it with FACE and return the +string with attached text properties." + (flycheck-error-list-make-cell + (if (numberp number) (number-to-string number) "") + face)) + +(defun flycheck-error-list-make-entry (error) + "Make a table cell for the given ERROR. + +Return a list with the contents of the table cell." + (let* ((level (flycheck-error-level error)) + (level-face (flycheck-error-level-error-list-face level)) + (filename (flycheck-error-filename error)) + (line (flycheck-error-line error)) + (column (flycheck-error-column error)) + (message (or (flycheck-error-message error) + (format "Unknown %S" level))) + (flushed-msg (flycheck-flush-multiline-message message)) + (id (flycheck-error-id error)) + (id-str (if id (format "%s" id) "")) + (checker (flycheck-error-checker error)) + (msg-and-checker + (flycheck-error-list-make-last-column flushed-msg checker)) + (explainer (flycheck-checker-get checker 'error-explainer))) + (list error + (vector (flycheck-error-list-make-cell + (if filename + (file-name-nondirectory filename) + "") + 'flycheck-error-list-filename) + (flycheck-error-list-make-number-cell + line 'flycheck-error-list-line-number) + (flycheck-error-list-make-number-cell + column 'flycheck-error-list-column-number) + (flycheck-error-list-make-cell + (symbol-name (flycheck-error-level error)) level-face) + ;; Error ID use a different face when an error-explainer is + ;; present + (flycheck-error-list-make-cell + id-str (if explainer 'flycheck-error-list-id-with-explainer + 'flycheck-error-list-id) + id-str 'flycheck-error-list-explain-error) + (flycheck-error-list-make-cell + msg-and-checker nil msg-and-checker))))) + +(defun flycheck-flush-multiline-message (msg) + "Prepare error message MSG for display in the error list. + +Prepend all lines of MSG except the first with enough space to +ensure that they line up properly once the message is displayed." + (let* ((spc-spec `(space . (:width ,flycheck--error-list-msg-offset))) + (spc (propertize " " 'display spc-spec)) + (rep (concat "\\1" spc "\\2"))) + (replace-regexp-in-string "\\([\r\n]+\\)\\(.\\)" rep msg))) + +(defun flycheck-error-list-current-errors () + "Read the list of errors in `flycheck-error-list-source-buffer'." + (when (buffer-live-p flycheck-error-list-source-buffer) + (buffer-local-value 'flycheck-current-errors + flycheck-error-list-source-buffer))) + +(defun flycheck-error-list-entries () + "Create the entries for the error list." + (when-let* ((errors (flycheck-error-list-current-errors)) + (filtered (flycheck-error-list-apply-filter errors))) + (seq-map #'flycheck-error-list-make-entry filtered))) + +(defun flycheck-error-list-entry-< (entry1 entry2) + "Determine whether ENTRY1 is before ENTRY2 by location. + +See `flycheck-error-<'." + (flycheck-error-< (car entry1) (car entry2))) + +(defun flycheck-error-list-entry-level-< (entry1 entry2) + "Determine whether ENTRY1 is before ENTRY2 by level. + +See `flycheck-error-level-<'." + (not (flycheck-error-level-< (car entry1) (car entry2)))) + +(defvar flycheck-error-list-mode-line-map + (let ((map (make-sparse-keymap))) + (define-key map [mode-line mouse-1] + #'flycheck-error-list-mouse-switch-to-source) + map) + "Keymap for error list mode line.") + +(defun flycheck-error-list-propertized-source-name () + "Get the name of the current source buffer for the mode line. + +Propertize the name of the current source buffer for use in the +mode line indication of `flycheck-error-list-mode'." + (let ((name (replace-regexp-in-string + (rx "%") "%%" + (buffer-name flycheck-error-list-source-buffer) + 'fixed-case 'literal))) + (propertize name 'face 'mode-line-buffer-id + 'mouse-face 'mode-line-highlight + 'help-echo "mouse-1: switch to source" + 'local-map flycheck-error-list-mode-line-map))) + +(defun flycheck-error-list-mouse-switch-to-source (event) + "Switch to the error list source buffer of the EVENT window." + (interactive "e") + (save-selected-window + (when (eventp event) + (select-window (posn-window (event-start event)))) + (when (buffer-live-p flycheck-error-list-source-buffer) + (switch-to-buffer flycheck-error-list-source-buffer)))) + +(defun flycheck-get-error-list-window-list (&optional all-frames) + "Get all windows displaying the error list. + +ALL-FRAMES specifies the frames to consider, as in +`get-buffer-window-list'." + (when-let (buf (get-buffer flycheck-error-list-buffer)) + (get-buffer-window-list buf nil all-frames))) + +(defun flycheck-get-error-list-window (&optional all-frames) + "Get a window displaying the error list, or nil if none. + +ALL-FRAMES specifies the frames to consider, as in +`get-buffer-window'." + (when-let (buf (get-buffer flycheck-error-list-buffer)) + (get-buffer-window buf all-frames))) + +(defun flycheck-error-list-recenter-at (pos) + "Recenter the error list at POS." + (dolist (window (flycheck-get-error-list-window-list t)) + (with-selected-window window + (goto-char pos) + (let ((recenter-redisplay nil)) + (recenter))))) + +(defun flycheck-error-list-refresh () + "Refresh the current error list. + +Add all errors currently reported for the current +`flycheck-error-list-source-buffer', and recenter the error +list." + ;; We only refresh the error list, when it is visible in a window, and we + ;; select this window while reverting, because Tabulated List mode attempts to + ;; recenter the error at the old location, so it must have the proper window + ;; selected. + (when-let (window (flycheck-get-error-list-window t)) + (with-selected-window window + (revert-buffer)) + (run-hooks 'flycheck-error-list-after-refresh-hook) + (let ((preserve-pos (eq (current-buffer) + (get-buffer flycheck-error-list-buffer)))) + ;; If the error list is the current buffer, don't recenter when + ;; highlighting + (flycheck-error-list-highlight-errors preserve-pos)))) + +(defun flycheck-error-list-mode-line-filter-indicator () + "Create a string representing the current error list filter." + (if flycheck-error-list-minimum-level + (format " [>= %s]" flycheck-error-list-minimum-level) + "")) + +(defun flycheck-error-list-set-filter (level) + "Restrict the error list to errors at level LEVEL or higher. + +LEVEL is either an error level symbol, or nil, to remove the filter." + (interactive + (list (flycheck-read-error-level + "Minimum error level (errors at lower levels will be hidden): "))) + (when (and level (not (flycheck-error-level-p level))) + (user-error "Invalid level: %s" level)) + (flycheck-error-list-with-buffer + (setq-local flycheck-error-list-minimum-level level) + (force-mode-line-update) + (flycheck-error-list-refresh) + (flycheck-error-list-recenter-at (point-min)))) + +(defun flycheck-error-list-reset-filter (&optional refresh) + "Remove local error filters and reset to the default filter. + +Interactively, or with non-nil REFRESH, refresh the error list." + (interactive '(t)) + (flycheck-error-list-with-buffer + (kill-local-variable 'flycheck-error-list-minimum-level) + (when refresh + (flycheck-error-list-refresh) + (flycheck-error-list-recenter-at (point-min)) + (force-mode-line-update)))) + +(defun flycheck-error-list-apply-filter (errors) + "Filter ERRORS according to `flycheck-error-list-minimum-level'." + (if-let* ((min-level flycheck-error-list-minimum-level) + (min-severity (flycheck-error-level-severity min-level))) + (seq-filter (lambda (err) (>= (flycheck-error-level-severity + (flycheck-error-level err)) + min-severity)) + errors) + errors)) + +(defun flycheck-error-list-goto-error (&optional pos) + "Go to the location of the error at POS in the error list. + +POS defaults to `point'." + (interactive) + (when-let* ((error (tabulated-list-get-id pos))) + (flycheck-jump-to-error error))) + +(defun flycheck-jump-to-error (error) + "Go to the location of ERROR." + (let* ((error-copy (copy-flycheck-error error)) + (filename (flycheck-error-filename error)) + (other-file-error (flycheck-relevant-error-other-file-p error)) + (buffer (if filename + (find-file-noselect filename) + (flycheck-error-buffer error)))) + (when (buffer-live-p buffer) + (setf (flycheck-error-buffer error-copy) buffer) + (flycheck-jump-in-buffer buffer error-copy) + ;; When jumping to an error in another file, it may not have + ;; this error available for highlighting yet, so we trigger a check + ;; if necessary. + (when other-file-error + (with-current-buffer buffer + ;; `seq-contains-p' is only in seq >= 2.21 + (unless (with-no-warnings + (seq-contains flycheck-current-errors error-copy 'equal)) + (when flycheck-mode + (flycheck-buffer)))))))) + +(defun flycheck-jump-in-buffer (buffer error) + "In BUFFER, jump to ERROR." + ;; FIXME: we assume BUFFER and the buffer of ERROR are the same. We don't + ;; need the first argument then. + (if (eq (window-buffer) (get-buffer flycheck-error-list-buffer)) + ;; When called from within the error list, keep the error list, + ;; otherwise replace the current buffer. + (pop-to-buffer buffer 'other-window) + (switch-to-buffer buffer)) + (let ((pos (flycheck-error-pos error))) + (unless (eq (goto-char pos) (point)) + ;; If widening gets in the way of moving to the right place, remove it + ;; and try again + (widen) + (goto-char pos))) + ;; Re-highlight the errors. We have post-command-hook for that, but calls to + ;; `flycheck-jump-in-buffer' that come from other buffers (e.g. from the error + ;; list) won't trigger it. + (flycheck-error-list-highlight-errors 'preserve-pos)) + +(defun flycheck-error-list-explain-error (&optional pos) + "Explain the error at POS in the error list. + +POS defaults to `point'." + (interactive) + (when-let* ((error (tabulated-list-get-id pos)) + (explainer (flycheck-checker-get (flycheck-error-checker error) + 'error-explainer))) + (flycheck-error-with-buffer error + (when-let (explanation (funcall explainer error)) + (flycheck-display-error-explanation explanation))))) + +(defun flycheck-error-list-next-error-pos (pos &optional n) + "Starting from POS get the N'th next error in the error list. + +N defaults to 1. If N is negative, search for the previous error +instead. + +Get the beginning position of the N'th next error from POS, or +nil, if there is no next error." + (let ((n (or n 1))) + (if (>= n 0) + ;; Search forward + (while (and pos (/= n 0)) + (setq n (1- n)) + (setq pos (next-single-property-change pos 'tabulated-list-id))) + ;; Search backwards + (while (/= n 0) + (setq n (1+ n)) + ;; We explicitly give the limit here to explicitly have the minimum + ;; point returned, to be able to move to the first error (which starts + ;; at `point-min') + (setq pos (previous-single-property-change pos 'tabulated-list-id + nil (point-min))))) + pos)) + +(defun flycheck-error-list-previous-error (n) + "Go to the N'th previous error in the error list." + (interactive "P") + (flycheck-error-list-next-error (- (or n 1)))) + +(defun flycheck-error-list-next-error (n) + "Go to the N'th next error in the error list." + (interactive "P") + (let ((pos (flycheck-error-list-next-error-pos (point) n))) + (when (and pos (/= pos (point))) + (goto-char pos) + (save-selected-window + ;; Keep the error list selected, so that the user can navigate errors by + ;; repeatedly pressing n/p, without having to re-select the error list + ;; window. + (flycheck-error-list-goto-error))))) + +(defvar-local flycheck-error-list-highlight-overlays nil + "Error highlight overlays in the error list buffer.") +(put 'flycheck-error-list-highlight-overlays 'permanent-local t) + +(defun flycheck-error-list-highlight-errors (&optional preserve-pos) + "Highlight errors in the error list. + +Highlight all errors in the error list that are at point in the +source buffer, and on the same line as point. Then recenter the +error list to the highlighted error, unless PRESERVE-POS is +non-nil." + (when (get-buffer flycheck-error-list-buffer) + (with-current-buffer flycheck-error-list-buffer + (let ((current-errors + (when (buffer-live-p flycheck-error-list-source-buffer) + (with-current-buffer flycheck-error-list-source-buffer + (flycheck-overlay-errors-in (line-beginning-position) + (line-end-position)))))) + (let ((old-overlays flycheck-error-list-highlight-overlays) + (min-point (point-max)) + (max-point (point-min))) + ;; Display the new overlays first, to avoid re-display flickering + (setq flycheck-error-list-highlight-overlays nil) + (when current-errors + (let ((next-error-pos (point-min))) + (while next-error-pos + (let* ((beg next-error-pos) + (end (flycheck-error-list-next-error-pos beg)) + (err (tabulated-list-get-id beg))) + (when (member err current-errors) + (setq min-point (min min-point beg) + max-point (max max-point beg)) + (let ((ov (make-overlay beg + ;; Extend overlay to the beginning + ;; of the next line, to highlight + ;; the whole line + (or end (point-max))))) + (push ov flycheck-error-list-highlight-overlays) + (setf (overlay-get ov 'flycheck-error-highlight-overlay) + t) + (setf (overlay-get ov 'face) + 'flycheck-error-list-highlight))) + (setq next-error-pos end))))) + ;; Delete the old overlays + (seq-do #'delete-overlay old-overlays) + (when (and (not preserve-pos) current-errors) + ;; Move point to the middle error + (goto-char (+ min-point (/ (- max-point min-point) 2))) + (beginning-of-line) + ;; And recenter the error list at this position + (flycheck-error-list-recenter-at (point)))))))) + +(defun flycheck-list-errors () + "Show the error list for the current buffer." + (interactive) + (unless flycheck-mode + (user-error "Flycheck mode not enabled")) + ;; Create and initialize the error list + (unless (get-buffer flycheck-error-list-buffer) + (with-current-buffer (get-buffer-create flycheck-error-list-buffer) + (flycheck-error-list-mode))) + ;; Reset the error filter + (flycheck-error-list-reset-filter) + (let ((source (current-buffer))) + ;; Show the error list in a side window. Under some configurations of + ;; `display-buffer', this may select `flycheck-error-list-buffer' (see URL + ;; `https://github.com/flycheck/flycheck/issues/1776'). + (display-buffer flycheck-error-list-buffer) + ;; Adjust the source, causing a refresh + (flycheck-error-list-set-source source))) + +(defalias 'list-flycheck-errors 'flycheck-list-errors) + + +;;; Displaying errors in the current buffer +(defun flycheck-display-errors (errors) + "Display ERRORS using `flycheck-display-errors-function'." + (when flycheck-display-errors-function + (funcall flycheck-display-errors-function errors))) + +(defun flycheck-clear-displayed-errors () + "Clear errors using `flycheck-clear-displayed-errors-function'." + (when flycheck-clear-displayed-errors-function + (funcall flycheck-clear-displayed-errors-function))) + +(defvar-local flycheck-display-error-at-point-timer nil + "Timer to automatically show errors.") + +(defun flycheck-cancel-error-display-error-at-point-timer () + "Cancel the error display timer for the current buffer." + (when flycheck-display-error-at-point-timer + (cancel-timer flycheck-display-error-at-point-timer) + (setq flycheck-display-error-at-point-timer nil))) + +(defun flycheck-display-error-at-point () + "Display all the error messages at point. + +If there are no errors, clears the error messages at point." + (interactive) + ;; This function runs from a timer, so we must take care to not ignore any + ;; errors + (with-demoted-errors "Flycheck error display error: %s" + (flycheck-cancel-error-display-error-at-point-timer) + (when flycheck-mode + (let ((errors (flycheck-overlay-errors-at (point)))) + (if errors + (flycheck-display-errors errors) + (flycheck-clear-displayed-errors)))))) + +(defun flycheck-display-error-at-point-soon () + "Display error messages at point, with a delay." + (flycheck-cancel-error-display-error-at-point-timer) + (setq flycheck-display-error-at-point-timer + (run-at-time flycheck-display-errors-delay nil + 'flycheck-display-error-at-point))) + + +;;; Functions to display errors +(defconst flycheck-error-message-buffer "*Flycheck error messages*" + "The name of the buffer to show long error messages in.") + +(defun flycheck-error-message-buffer () + "Get the buffer object to show long error messages in. + +Get the buffer named by variable `flycheck-error-message-buffer', +or nil if the buffer does not exist." + (get-buffer flycheck-error-message-buffer)) + +(defun flycheck-may-use-echo-area-p () + "Determine whether the echo area may be used. + +The echo area may be used if the cursor is not in the echo area, +and if the echo area is not occupied by minibuffer input." + (not (or cursor-in-echo-area (active-minibuffer-window)))) + +(define-derived-mode flycheck-error-message-mode text-mode + "Flycheck error messages" + "Major mode for extended error messages.") + +(defvar flycheck--last-displayed-message nil + "Reference to the last displayed message so it can be cleared. + +This value is the return value from `display-message-or-buffer', +thus it can be a string or a window. + +See `flycheck-clear-displayed-error-messages'.") + +(defun flycheck-display-error-messages (errors) + "Display the messages of ERRORS. + +Concatenate all non-nil messages of ERRORS as with +`flycheck-help-echo-all-error-messages', and display them with +`display-message-or-buffer', which shows the messages either in +the echo area or in a separate buffer, depending on the number of +lines. See Info node `(elisp)Displaying Messages' for more +information. + +In the latter case, show messages in the buffer denoted by +variable `flycheck-error-message-buffer'." + (when (and errors (flycheck-may-use-echo-area-p)) + (let* ((message (flycheck-help-echo-all-error-messages errors)) + (retval (display-message-or-buffer + message flycheck-error-message-buffer 'not-this-window))) + ;; We cannot rely on `display-message-or-buffer' returning the right + ;; window. See URL `https://github.com/flycheck/flycheck/issues/1643'. + (when-let (buf (get-buffer flycheck-error-message-buffer)) + (with-current-buffer buf + (unless (derived-mode-p 'flycheck-error-message-mode) + (flycheck-error-message-mode)))) + (setq flycheck--last-displayed-message retval) + retval))) + +(defun flycheck-display-error-messages-unless-error-list (errors) + "Show messages of ERRORS unless the error list is visible. + +Like `flycheck-display-error-messages', but only if the error +list (see `flycheck-list-errors') is not visible in any window in +the current frame." + (unless (flycheck-get-error-list-window 'current-frame) + (flycheck-display-error-messages errors))) + +(defun flycheck-hide-error-buffer () + "Hide the Flycheck error buffer if necessary. + +Hide the error buffer if there is no error under point." + (when-let* ((buffer (flycheck-error-message-buffer)) + (window (get-buffer-window buffer))) + (unless (flycheck-overlays-at (point)) + ;; save-selected-window prevents `quit-window' from changing the current + ;; buffer (see https://github.com/flycheck/flycheck/issues/648). + (save-selected-window + (quit-window nil window))))) + +(defun flycheck-clear-displayed-error-messages () + "Clear error messages displayed by `flycheck-display-error-messages'." + (when flycheck--last-displayed-message + (if (and (stringp flycheck--last-displayed-message) + (equal (current-message) flycheck--last-displayed-message)) + (message nil) + (flycheck-hide-error-buffer)))) + + +;;; Working with errors +(defun flycheck-copy-errors-as-kill (pos &optional formatter) + "Copy each error at POS into kill ring, using FORMATTER. + +FORMATTER is a function to turn an error into a string, +defaulting to `flycheck-error-message'. + +Interactively, use `flycheck-error-format-message-and-id' as +FORMATTER with universal prefix arg, and `flycheck-error-id' with +normal prefix arg, i.e. copy the message and the ID with +universal prefix arg, and only the id with normal prefix arg." + (interactive (list (point) + (pcase current-prefix-arg + ((pred not) #'flycheck-error-message) + ((pred consp) #'flycheck-error-format-message-and-id) + (_ #'flycheck-error-id)))) + (let ((messages (delq nil (seq-map (or formatter #'flycheck-error-message) + (flycheck-overlay-errors-at pos))))) + (when messages + (seq-do #'kill-new (reverse messages)) + (message (string-join messages "\n"))))) + +(defun flycheck-explain-error-at-point () + "Display an explanation for the first explainable error at point. + +The first explainable error at point is the first error at point +with a non-nil `:error-explainer' function defined in its +checker. The `:error-explainer' function is then called with +this error to produce the explanation to display." + (interactive) + (when-let* ((first-error + ;; Get the first error at point that has an `error-explainer'. + (seq-find (lambda (error) + (flycheck-checker-get + (flycheck-error-checker error) 'error-explainer)) + (flycheck-overlay-errors-at (point)))) + (explainer + (flycheck-checker-get (flycheck-error-checker first-error) + 'error-explainer)) + (explanation (funcall explainer first-error))) + (flycheck-display-error-explanation explanation))) + +(defconst flycheck-explain-error-buffer "*Flycheck error explanation*" + "The name of the buffer to show error explanations.") + +(define-derived-mode flycheck-explain-error-mode help-mode + "Error explanation" + "Major mode for displaying error explanations." + (setq buffer-read-only t)) + +(defun flycheck-display-error-explanation (explanation) + "Display the EXPLANATION for an error." + (pcase explanation + (`nil) + (`(url . ,url) (browse-url url)) + (_ (let ((inhibit-read-only t) + (standard-output (temp-buffer-window-setup + flycheck-explain-error-buffer))) + (with-current-buffer standard-output + (flycheck-explain-error-mode)) + (cond + ((functionp explanation) (funcall explanation)) + ((stringp explanation) (princ explanation)) + (t (error "Unsupported error explanation: %S" explanation))) + (display-message-or-buffer standard-output nil 'not-this-window))))) + + +;;; Syntax checkers using external commands +(defun flycheck-command-argument-p (arg) + "Check whether ARG is a valid command argument." + (pcase arg + ((pred stringp) t) + ((or `source `source-inplace `source-original) t) + (`(,(or `source `source-inplace) ,suffix) + (stringp suffix)) + ((or `temporary-directory `temporary-file-name) t) + (`null-device t) + (`(config-file ,option-name ,config-file-var) + (and (stringp option-name) + (symbolp config-file-var))) + (`(config-file ,option-name ,config-file-var ,prepender) + (and (stringp option-name) + (symbolp config-file-var) + (symbolp prepender))) + (`(,(or `option `option-list) ,option-name ,option-var) + (and (stringp option-name) + (symbolp option-var))) + (`(,(or `option `option-list) ,option-name ,option-var ,prepender) + (and (stringp option-name) + (symbolp option-var) + (symbolp prepender))) + (`(,(or `option `option-list) ,option-name ,option-var ,prepender ,filter) + (and (stringp option-name) + (symbolp option-var) + (symbolp prepender) + (symbolp filter))) + (`(option-flag ,option-name ,option-var) + (and (stringp option-name) + (symbolp option-var))) + (`(eval ,_) t) + (_ nil))) + +(defun flycheck-compute-working-directory (checker) + "Get the default working directory for CHECKER. + +Compute the value of `default-directory' for the invocation of +the syntax checker command, by calling the function in the +`working-directory' property of CHECKER, with CHECKER as sole +argument, and returning its value. Signal an error if the +function returns a non-existing working directory. + +If the property is undefined or if the function returns nil +return the `default-directory' of the current buffer." + (let* ((def-directory-fn (flycheck-checker-get checker 'working-directory)) + (directory (or (and def-directory-fn + (funcall def-directory-fn checker)) + ;; Default to the `default-directory' of the current + ;; buffer + default-directory))) + (unless (file-exists-p directory) + (error ":working-directory %s of syntax checker %S does not exist" + directory checker)) + directory)) + +;;;###autoload +(defun flycheck-define-command-checker (symbol docstring &rest properties) + "Define SYMBOL as syntax checker to run a command. + +Define SYMBOL as generic syntax checker via +`flycheck-define-generic-checker', which uses an external command +to check the buffer. SYMBOL and DOCSTRING are the same as for +`flycheck-define-generic-checker'. + +In addition to the properties understood by +`flycheck-define-generic-checker', the following PROPERTIES +constitute a command syntax checker. Unless otherwise noted, all +properties are mandatory. Note that the default `:error-filter' +of command checkers is `flycheck-sanitize-errors'. + +`:command COMMAND' + The command to run for syntax checking. + + COMMAND is a list of the form `(EXECUTABLE [ARG ...])'. + + EXECUTABLE is a string with the executable of this syntax + checker. It can be overridden with the variable + `flycheck-SYMBOL-executable'. Note that this variable is + NOT implicitly defined by this function. Use + `flycheck-def-executable-var' to define this variable. + + Each ARG is an argument to the executable, either as string, + or as special symbol or form for + `flycheck-substitute-argument', which see. + +`:error-patterns PATTERNS' + A list of patterns to parse the output of the `:command'. + + Each ITEM in PATTERNS is a list `(LEVEL SEXP ...)', where + LEVEL is a Flycheck error level (see + `flycheck-define-error-level'), followed by one or more RX + `SEXP's which parse an error of that level and extract line, + column, file name and the message. + + See `rx' for general information about RX, and + `flycheck-rx-to-string' for some special RX forms provided + by Flycheck. + + All patterns are applied in the order of declaration to the + whole output of the syntax checker. Output already matched + by a pattern will not be matched by subsequent patterns. In + other words, the first pattern wins. + + This property is optional. If omitted, however, an + `:error-parser' is mandatory. + +`:error-parser FUNCTION' + A function to parse errors with. + + The function shall accept three arguments OUTPUT CHECKER + BUFFER. OUTPUT is the syntax checker output as string, + CHECKER the syntax checker that was used, and BUFFER a + buffer object representing the checked buffer. The function + must return a list of `flycheck-error' objects parsed from + OUTPUT. + + This property is optional. If omitted, it defaults to + `flycheck-parse-with-patterns'. In this case, + `:error-patterns' is mandatory. + +`:standard-input t' + Whether to send the buffer contents on standard input. + + If this property is given and has a non-nil value, send the + contents of the buffer on standard input. + + Some checkers that support reading from standard input have + a separate flag to indicate the name of the file whose + contents are being passed on standard input (typically + `stdin-filename'). In that case, use the `(option)' form in + `:command' to pass the value of variable `buffer-file-name' + when the current buffer has a file name (that is, + use `option \"--stdin-file-name\" buffer-file-name'). + + For buffers not backed by files, checkers that support input + on stdin typically report a file name like `-' or `'. + Make sure your error parser or patterns expect these file + names (for example, use `(or \"\" (file-name))') or + call `flycheck-remove-error-file-names' in a custom + `:error-filter'. + + Defaults to nil. + +Note that you may not give `:start', `:interrupt', and +`:print-doc' for a command checker. You can give a custom +`:verify' function, though, whose results will be appended to the +default `:verify' function of command checkers." + (declare (indent 1) + (doc-string 2)) + (dolist (prop '(:start :interrupt :print-doc)) + (when (plist-get properties prop) + (error "%s not allowed in definition of command syntax checker %s" + prop symbol))) + + (unless (plist-get properties :error-filter) + ;; Default to `flycheck-sanitize-errors' as error filter + (setq properties (plist-put properties :error-filter + #'flycheck-sanitize-errors))) + (let ((verify-fn (plist-get properties :verify))) + (setq properties + (plist-put properties :verify + (lambda (checker) + (append (flycheck-verify-command-checker checker) + (and verify-fn + (funcall verify-fn checker))))))) + + (let ((command (plist-get properties :command)) + (patterns (plist-get properties :error-patterns)) + (parser (or (plist-get properties :error-parser) + #'flycheck-parse-with-patterns)) + (enabled (plist-get properties :enabled)) + (standard-input (plist-get properties :standard-input))) + (unless command + (error "Missing :command in syntax checker %s" symbol)) + (unless (stringp (car command)) + (error "Command executable for syntax checker %s must be a string: %S" + symbol (car command))) + (dolist (arg (cdr command)) + (unless (flycheck-command-argument-p arg) + (error "Invalid command argument %S in syntax checker %s" arg symbol))) + (when (and (eq parser 'flycheck-parse-with-patterns) + (not patterns)) + (error "Missing :error-patterns in syntax checker %s" symbol)) + + (setq properties + ;; Automatically disable command checkers if the executable does not + ;; exist. + (plist-put properties :enabled + (lambda () + (and (flycheck-find-checker-executable symbol) + (flycheck-temp-files-writable-p symbol) + (or (not enabled) (funcall enabled)))))) + + (apply #'flycheck-define-generic-checker symbol docstring + :start #'flycheck-start-command-checker + :interrupt #'flycheck-interrupt-command-checker + :print-doc #'flycheck-command-checker-print-doc + properties) + + ;; Pre-compile all errors patterns into strings, so that we don't need to do + ;; that on each error parse + (let ((patterns (seq-map (lambda (p) + (cons (flycheck-rx-to-string `(and ,@(cdr p)) + 'no-group) + (car p))) + patterns))) + (pcase-dolist (`(,prop . ,value) + `((command . ,command) + (error-parser . ,parser) + (error-patterns . ,patterns) + (standard-input . ,standard-input))) + (setf (flycheck-checker-get symbol prop) value))))) + +(eval-and-compile + ;; Make this function available during byte-compilation, since we need it + ;; at macro expansion of `flycheck-def-executable-var'. + (defun flycheck-checker-executable-variable (checker) + "Get the executable variable of CHECKER. + +The executable variable is named `flycheck-CHECKER-executable'." + (intern (format "flycheck-%s-executable" checker)))) + +(defun flycheck-checker-default-executable (checker) + "Get the default executable of CHECKER." + (car (flycheck-checker-get checker 'command))) + +(defun flycheck-checker-executable (checker) + "Get the command executable of CHECKER. + +The executable is either the value of the variable +`flycheck-CHECKER-executable', or the default executable given in +the syntax checker definition, if the variable is nil." + (let ((var (flycheck-checker-executable-variable checker))) + (or (and (boundp var) (symbol-value var)) + (flycheck-checker-default-executable checker)))) + +(defun flycheck-find-checker-executable (checker) + "Get the full path of the executable of CHECKER. + +Return the full absolute path to the executable of CHECKER, or +nil if the executable does not exist." + (funcall flycheck-executable-find (flycheck-checker-executable checker))) + +(defun flycheck-call-checker-process + (checker infile destination error &rest args) + "Call CHECKER's executable with ARGS. + +Return nil (or raise an error if ERROR is non-nil) when CHECKER's +executable cannot be found, and return a numeric exit status or a +signal description string otherwise. CHECKER's input is taken +from INFILE, and its output is sent to DESTINATION, as in +`call-process'." + (if-let (executable (flycheck-find-checker-executable checker)) + (condition-case err + (apply #'call-process executable infile destination nil args) + (error (when error (signal (car err) (cdr err))))) + (when error + (user-error "Cannot find `%s' using `flycheck-executable-find'" + (flycheck-checker-executable checker))))) + +(defun flycheck-call-checker-process-for-output + (checker infile error &rest args) + "Call CHECKER's executable with ARGS and return its output. + +Call `flycheck-call-checker-process' with INFILE, ERROR, and +ARGS. If it returns 0, return the process' output. Otherwise, +return nil or throw an error. + +This function is similar to `flycheck-call-checker-process' +called in a `with-output-to-string' block, but it takes care of +the error checking automatically." + (let ((temp (generate-new-buffer " *temp*"))) + (unwind-protect + ;; We need to call the checker process in the right buffer, so that it + ;; uses the right exec-path, checker executable, etc. See URL + ;; `https://github.com/flycheck/flycheck/issues/1770'. + (let ((exit-code (apply #'flycheck-call-checker-process + checker infile temp error args)) + (output (with-current-buffer temp (buffer-string)))) + (if (eql 0 exit-code) output + (when error + (error "Process %s failed with %S (%s)" + checker exit-code output)))) + (kill-buffer temp)))) + +(defun flycheck-checker-arguments (checker) + "Get the command arguments of CHECKER." + (cdr (flycheck-checker-get checker 'command))) + +(defun flycheck-substitute-argument (arg checker) + "Substitute ARG for CHECKER. + +Return a list of real arguments for the executable of CHECKER, +substituted for the symbolic argument ARG. Single arguments, +e.g. if ARG is a literal strings, are wrapped in a list. + +ARG may be one of the following forms: + +STRING + Return ARG unchanged. + +`source', `source-inplace' + Create a temporary file to check and return its path. With + `source-inplace' create the temporary file in the same + directory as the original file. The value of + `flycheck-temp-prefix' is used as prefix of the file name. + + With `source', try to retain the non-directory component of + the buffer's file name in the temporary file. + + `source' is the preferred way to pass the input file to a + syntax checker. `source-inplace' should only be used if the + syntax checker needs other files from the source directory, + such as include files in C. + +`(source SUFFIX)', `(source-inplace SUFFIX)' + Like `source' and `source-inplace', but ensure generated + file names end with the given suffix. Use this when the + checker requires that file names on its command line have a + certain suffix (file extension). + +`source-original' + Return the path of the actual file to check, or an empty + string if the buffer has no file name. + + Note that the contents of the file may not be up to date + with the contents of the buffer to check. Do not use this + as primary input to a checker, unless absolutely necessary. + + When using this symbol as primary input to the syntax + checker, add `flycheck-buffer-saved-p' to the `:predicate'. + +`temporary-directory' + Create a unique temporary directory and return its path. + +`temporary-file-name' + Return a unique temporary filename. The file is *not* + created. + + To ignore the output of syntax checkers, try symbol + `null-device' first. + +symbol `null-device' + Return the value of variable `null-device', i.e the system + null device. + + Use this option to ignore the output of a syntax checker. + If the syntax checker cannot handle the null device, or + won't write to an existing file, try `temporary-file-name' + instead. + +`(config-file OPTION VARIABLE [PREPEND-FN])' + Search the configuration file bound to VARIABLE with + `flycheck-locate-config-file' and return a list of arguments + that pass this configuration file to the syntax checker, or + nil if the configuration file was not found. + + PREPEND-FN is called with the OPTION and the located + configuration file, and should return OPTION prepended + before the file, either a string or as list. If omitted, + PREPEND-FN defaults to `list'. + +`(option OPTION VARIABLE [PREPEND-FN [FILTER]])' + Retrieve the value of VARIABLE and return a list of + arguments that pass this value as value for OPTION to the + syntax checker. + + PREPEND-FN is called with the OPTION and the value of + VARIABLE, and should return OPTION prepended before the + file, either a string or as list. If omitted, PREPEND-FN + defaults to `list'. + + FILTER is an optional function to be applied to the value of + VARIABLE before prepending. This function must return nil + or a string. In the former case, return nil. In the latter + case, return a list of arguments as described above. + +`(option-list OPTION VARIABLE [PREPEND-FN [FILTER]])' + Retrieve the value of VARIABLE, which must be a list, + and prepend OPTION before each item in this list, using + PREPEND-FN. + + PREPEND-FN is called with the OPTION and each item of the + list as second argument, and should return OPTION prepended + before the item, either as string or as list. If omitted, + PREPEND-FN defaults to `list'. + + FILTER is an optional function to be applied to each item in + the list before prepending OPTION. It shall return the + option value for each item as string, or nil, if the item is + to be ignored. + +`(option-flag OPTION VARIABLE)' + Retrieve the value of VARIABLE and return OPTION, if the + value is non-nil. Otherwise return nil. + +`(eval FORM)' + Return the result of evaluating FORM in the buffer to be + checked. FORM must either return a string or a list of + strings, or nil to indicate that nothing should be + substituted for CELL. For all other return types, signal an + error + + _No_ further substitutions are performed, neither in FORM + before it is evaluated, nor in the result of evaluating + FORM. + +In all other cases, signal an error. + +Note that substitution is *not* recursive. No symbols or cells +are substituted within the body of cells!" + (pcase arg + ((pred stringp) (list arg)) + (`source + (list (flycheck-save-buffer-to-temp #'flycheck-temp-file-system))) + (`source-inplace + (list (flycheck-save-buffer-to-temp #'flycheck-temp-file-inplace))) + (`(source ,suffix) + (list (flycheck-save-buffer-to-temp + (lambda (filename) (flycheck-temp-file-system filename suffix))))) + (`(source-inplace ,suffix) + (list (flycheck-save-buffer-to-temp + (lambda (filename) (flycheck-temp-file-inplace filename suffix))))) + (`source-original (list (or (buffer-file-name) ""))) + (`temporary-directory (list (flycheck-temp-dir-system))) + (`temporary-file-name + (let ((directory (flycheck-temp-dir-system))) + (list (make-temp-name (expand-file-name "flycheck" directory))))) + (`null-device (list null-device)) + (`(config-file ,option-name ,file-name-var) + (when-let* ((value (symbol-value file-name-var)) + (file-name (flycheck-locate-config-file value checker))) + (flycheck-prepend-with-option option-name (list file-name)))) + (`(config-file ,option-name ,file-name-var ,prepend-fn) + (when-let* ((value (symbol-value file-name-var)) + (file-name (flycheck-locate-config-file value checker))) + (flycheck-prepend-with-option option-name (list file-name) prepend-fn))) + (`(option ,option-name ,variable) + (when-let (value (symbol-value variable)) + (unless (stringp value) + (error "Value %S of %S for option %s is not a string" + value variable option-name)) + (flycheck-prepend-with-option option-name (list value)))) + (`(option ,option-name ,variable ,prepend-fn) + (when-let (value (symbol-value variable)) + (unless (stringp value) + (error "Value %S of %S for option %s is not a string" + value variable option-name)) + (flycheck-prepend-with-option option-name (list value) prepend-fn))) + (`(option ,option-name ,variable ,prepend-fn ,filter) + (when-let (value (funcall filter (symbol-value variable))) + (unless (stringp value) + (error "Value %S of %S (filter: %S) for option %s is not a string" + value variable filter option-name)) + (flycheck-prepend-with-option option-name (list value) prepend-fn))) + (`(option-list ,option-name ,variable) + (let ((value (symbol-value variable))) + (unless (and (listp value) (seq-every-p #'stringp value)) + (error "Value %S of %S for option %S is not a list of strings" + value variable option-name)) + (flycheck-prepend-with-option option-name value))) + (`(option-list ,option-name ,variable ,prepend-fn) + (let ((value (symbol-value variable))) + (unless (and (listp value) (seq-every-p #'stringp value)) + (error "Value %S of %S for option %S is not a list of strings" + value variable option-name)) + (flycheck-prepend-with-option option-name value prepend-fn))) + (`(option-list ,option-name ,variable ,prepend-fn ,filter) + (let ((value (delq nil (seq-map filter (symbol-value variable))))) + (unless (and (listp value) (seq-every-p #'stringp value)) + (error "Value %S of %S for option %S is not a list of strings" + value variable option-name)) + (flycheck-prepend-with-option option-name value prepend-fn))) + (`(option-flag ,option-name ,variable) + (when (symbol-value variable) + (list option-name))) + (`(eval ,form) + (let ((result (eval form))) + (cond + ((and (listp result) (seq-every-p #'stringp result)) result) + ((stringp result) (list result)) + (t (error "Invalid result from evaluation of %S: %S" form result))))) + (_ (error "Unsupported argument %S" arg)))) + +(defun flycheck-checker-substituted-arguments (checker) + "Get the substituted arguments of a CHECKER. + +Substitute each argument of CHECKER using +`flycheck-substitute-argument'. This replaces any special +symbols in the command." + (apply #'append + (seq-map (lambda (arg) (flycheck-substitute-argument arg checker)) + (flycheck-checker-arguments checker)))) + +(defun flycheck--process-send-buffer-contents-chunked (process) + "Send contents of current buffer to PROCESS in small batches. + +Send the entire buffer to the standard input of PROCESS in chunks +of 4096 characters. Chunking is done in Emacs Lisp, hence this +function is probably far less efficient than +`send-process-region'. Use only when required." + (let ((from (point-min))) + (while (< from (point-max)) + (let ((to (min (+ from 4096) (point-max)))) + (process-send-region process from to) + (setq from to))))) + +(defvar flycheck-chunked-process-input + ;; Chunk process output on Windows to work around + ;; https://github.com/flycheck/flycheck/issues/794 and + ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=22344. The presence of + ;; `w32-pipe-buffer-size' denotes an Emacs version (> Emacs 25.1) where pipe + ;; writes on Windows are fixed. + ;; + ;; TODO: Remove option and chunking when dropping Emacs 24 support, see + ;; https://github.com/flycheck/flycheck/issues/856 + (and (eq system-type 'windows-nt) (not (boundp 'w32-pipe-buffer-size))) + "If non-nil send process input in small chunks. + +If this variable is non-nil `flycheck-process-send-buffer' sends +buffer contents in small chunks. + +Defaults to nil, except on Windows to work around Emacs bug +#22344.") + +(defun flycheck-process-send-buffer (process) + "Send all contents of current buffer to PROCESS. + +Sends all contents of the current buffer to the standard input of +PROCESS, and terminates standard input with EOF. + +If `flycheck-chunked-process-input' is non-nil, send buffer +contents in chunks via +`flycheck--process-send-buffer-contents-chunked', which see. +Otherwise use `process-send-region' to send all contents at once +and rely on Emacs' own buffering and chunking." + (save-restriction + (widen) + (if flycheck-chunked-process-input + (flycheck--process-send-buffer-contents-chunked process) + (process-send-region process (point-min) (point-max)))) + (process-send-eof process)) + +(defun flycheck--wrap-command (prog args) + "Wrap PROG and ARGS using `flycheck-command-wrapper-function'." + ;; We don't call `flycheck-executable-find' on the output of the wrapper + ;; function, since it might not expect it (an executable-find function + ;; designed to find binaries in a sandbox could get confused if we asked it + ;; about the sandboxing program itself). + (funcall flycheck-command-wrapper-function (cons prog args))) + +(defun flycheck-start-command-checker (checker callback) + "Start a command CHECKER with CALLBACK." + (let (process) + (condition-case err + (let* ((program (flycheck-find-checker-executable checker)) + (args (flycheck-checker-substituted-arguments checker)) + (command (flycheck--wrap-command program args)) + (sentinel-events nil) + ;; Use pipes to receive output from the syntax checker. They are + ;; more efficient and more robust than PTYs, which Emacs uses by + ;; default, and since we don't need any job control features, we + ;; can easily use pipes. + (process-connection-type nil)) + ;; We pass do not associate the process with any buffer, by + ;; passing nil for the BUFFER argument of `start-process'. + ;; Instead, we just remember the buffer being checked in a + ;; process property (see below). This neatly avoids all + ;; side-effects implied by attached a process to a buffer, which + ;; may cause conflicts with other packages. + ;; + ;; See https://github.com/flycheck/flycheck/issues/298 for an + ;; example for such a conflict. + (setq process (apply 'start-process (format "flycheck-%s" checker) + nil command)) + ;; Process sentinels can be called while sending input to the process. + ;; We want to record errors raised by process-send before calling + ;; `flycheck-handle-signal', so initially just accumulate events. + (setf (process-sentinel process) + (lambda (_ event) (push event sentinel-events))) + (setf (process-filter process) #'flycheck-receive-checker-output) + (set-process-query-on-exit-flag process nil) + ;; Remember the syntax checker, the buffer and the callback + (process-put process 'flycheck-checker checker) + (process-put process 'flycheck-callback callback) + (process-put process 'flycheck-buffer (current-buffer)) + ;; The default directory is bound in the `flycheck-syntax-check-start' + ;; function. + (process-put process 'flycheck-working-directory default-directory) + ;; Track the temporaries created by argument substitution in the + ;; process itself, to get rid of the global state ASAP. + (process-put process 'flycheck-temporaries flycheck-temporaries) + (setq flycheck-temporaries nil) + ;; Send the buffer to the process on standard input, if enabled. + (when (flycheck-checker-get checker 'standard-input) + (condition-case err + (flycheck-process-send-buffer process) + ;; Some checkers exit before reading all input, causing errors + ;; such as a `file-error' for a closed pipe, or a plain “no longer + ;; connected to pipe; closed it” error for a disconnection. We + ;; report them if needed in `flycheck-finish-checker-process' (see + ;; `https://github.com/flycheck/flycheck/issues/1278'). + (error (process-put process 'flycheck-error err)))) + ;; Set the actual sentinel and process any events that might have + ;; happened while we were sending input. + (setf (process-sentinel process) #'flycheck-handle-signal) + (dolist (event (nreverse sentinel-events)) + (flycheck-handle-signal process event)) + ;; Return the process. + process) + (error + ;; In case of error, clean up our resources, and report the error back to + ;; Flycheck. + (flycheck-safe-delete-temporaries) + (when process + ;; No need to explicitly delete the temporary files of the process, + ;; because deleting runs the sentinel, which will delete them anyway. + (delete-process process)) + (signal (car err) (cdr err)))))) + +(defun flycheck-interrupt-command-checker (_checker process) + "Interrupt a PROCESS." + ;; Deleting the process always triggers the sentinel, which does the cleanup + (when process + (delete-process process))) + +(defun flycheck-command-checker-print-doc (checker) + "Print additional documentation for a command CHECKER." + (let ((executable (flycheck-checker-default-executable checker)) + (config-file-var (flycheck-checker-get checker 'config-file-var)) + (option-vars (seq-sort #'string< + (flycheck-checker-get checker 'option-vars)))) + (princ "\n") + + (let ((doc-start (with-current-buffer standard-output (point-max)))) + ;; Track the start of our documentation so that we can re-indent it + ;; properly + (princ " This syntax checker executes \"") + (princ executable) + (princ "\"") + (when config-file-var + (princ ", using a configuration file from `") + (princ (symbol-name config-file-var)) + (princ "'")) + (princ ". The executable can be overridden with `") + (princ (symbol-name (flycheck-checker-executable-variable checker))) + (princ "'.") + + (with-current-buffer standard-output + (save-excursion + (fill-region-as-paragraph doc-start (point-max))))) + (princ "\n") + (when option-vars + (princ + "\n This syntax checker can be configured with these options:\n\n") + (dolist (var option-vars) + (princ (format " * `%s'\n" var)))))) + +(defun flycheck-verify-command-checker (checker) + "Verify a command CHECKER in the current buffer. + +Return a list of `flycheck-verification-result' objects for +CHECKER." + (let ((executable (flycheck-find-checker-executable checker)) + (config-file-var (flycheck-checker-get checker 'config-file-var))) + `( + ,(flycheck-verification-result-new + :label "executable" + :message (if executable (format "Found at %s" executable) "Not found") + :face (if executable 'success '(bold error))) + ,@(when config-file-var + (let* ((value (symbol-value config-file-var)) + (path (and value (flycheck-locate-config-file value checker)))) + (list (flycheck-verification-result-new + :label "configuration file" + :message (if path (format "Found at %S" path) "Not found") + :face (if path 'success 'warning))))) + ,@(when (not (flycheck-temp-files-writable-p checker)) + (list (flycheck-verification-result-new + :label "temp directory" + :message (format "%s is not writable" + (flycheck-temp-directory checker)) + :face 'error)))))) + + +;;; Process management for command syntax checkers +(defun flycheck-receive-checker-output (process output) + "Receive a syntax checking PROCESS OUTPUT." + (push output (process-get process 'flycheck-pending-output))) + +(defun flycheck-get-output (process) + "Get the complete output of PROCESS." + (with-demoted-errors "Error while retrieving process output: %S" + (let ((pending-output (process-get process 'flycheck-pending-output))) + (apply #'concat (nreverse pending-output))))) + +(defun flycheck-handle-signal (process _event) + "Handle a signal from the syntax checking PROCESS. + +_EVENT is ignored." + (when (memq (process-status process) '(signal exit)) + (let ((files (process-get process 'flycheck-temporaries)) + (buffer (process-get process 'flycheck-buffer)) + (callback (process-get process 'flycheck-callback)) + (cwd (process-get process 'flycheck-working-directory)) + (err (process-get process 'flycheck-error))) + ;; Delete the temporary files + (seq-do #'flycheck-safe-delete files) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (condition-case err + (pcase (process-status process) + (`signal + (funcall callback 'interrupted)) + (`exit + (flycheck-finish-checker-process + (process-get process 'flycheck-checker) + (or err (process-exit-status process)) + files + (flycheck-get-output process) callback cwd))) + ((debug error) + (funcall callback 'errored (error-message-string err))))))))) + +(defun flycheck-finish-checker-process + (checker exit-status files output callback cwd) + "Finish a checker process from CHECKER with EXIT-STATUS. + +EXIT-STATUS can be a number or an arbitrary form (if it is not 0, +a `suspicious' status is reported to CALLBACK). + +FILES is a list of files given as input to the checker. OUTPUT +is the output of the syntax checker. CALLBACK is the status +callback to use for reporting. + +Parse the OUTPUT and report an appropriate error status. + +Resolve all errors in OUTPUT using CWD as working directory." + (let ((errors (flycheck-parse-output output checker (current-buffer)))) + (when (and (not (equal exit-status 0)) (null errors)) + ;; Warn about a suspicious result from the syntax checker. We do right + ;; after parsing the errors, before filtering, because a syntax checker + ;; might report errors from other files (e.g. includes) even if there + ;; are no errors in the file being checked. + (funcall callback 'suspicious + (format "Flycheck checker %S returned %S, but \ +its output contained no errors: %s\nTry installing a more \ +recent version of %S, and please open a bug report if the issue \ +persists in the latest release. Thanks!" checker exit-status +output checker))) + (funcall callback 'finished + ;; Fix error file names, by substituting them backwards from the + ;; temporaries. + (seq-map (lambda (e) (flycheck-fix-error-filename e files cwd)) + errors)))) + + +;;; Executables of command checkers. +(defmacro flycheck-def-executable-var (checker default-executable) + "Define the executable variable for CHECKER. + +DEFAULT-EXECUTABLE is the default executable. It is only used in +the docstring of the variable. + +The variable is defined with `defcustom' in the +`flycheck-executables' group. It's also defined to be risky as +file-local variable, to avoid arbitrary executables being used +for syntax checking." + (let ((executable-var (flycheck-checker-executable-variable checker))) + `(progn + (defcustom ,executable-var nil + ,(format "The executable of the %s syntax checker. + +Either a string containing the name or the path of the +executable, or nil to use the default executable from the syntax +checker declaration. + +The default executable is %S." checker default-executable) + :type '(choice (const :tag "Default executable" nil) + (string :tag "Name or path")) + :group 'flycheck-executables + :risky t)))) + +(defun flycheck-set-checker-executable (checker &optional executable) + "Set the executable of CHECKER in the current buffer. + +CHECKER is a syntax checker symbol. EXECUTABLE is a string with +the name of an executable or the path to an executable file, which +is to be used as executable for CHECKER. If omitted or nil, +reset the executable of CHECKER. + +Interactively, prompt for a syntax checker and an executable +file, and set the executable of the selected syntax checker. +With prefix arg, prompt for a syntax checker only, and reset the +executable of the select checker to the default. + +Set the executable variable of CHECKER, that is, +`flycheck-CHECKER-executable' to EXECUTABLE. Signal +`user-error', if EXECUTABLE does not denote a command or an +executable file. + +This command is intended for interactive use only. In Lisp, just +`let'-bind the corresponding variable, or set it directly. Use +`flycheck-checker-executable-variable' to obtain the executable +variable symbol for a syntax checker." + (declare (interactive-only "Set the executable variable directly instead")) + (interactive + (let* ((checker (flycheck-read-checker "Syntax checker: ")) + (default-executable (flycheck-checker-default-executable checker)) + (executable (if current-prefix-arg + nil + (read-file-name "Executable: " nil default-executable + nil nil flycheck-executable-find)))) + (list checker executable))) + (when (and executable (not (funcall flycheck-executable-find executable))) + (user-error "%s is no executable" executable)) + (let ((variable (flycheck-checker-executable-variable checker))) + (set (make-local-variable variable) executable))) + + +;;; Configuration files and options for command checkers +(defun flycheck-register-config-file-var (var checkers) + "Register VAR as config file var for CHECKERS. + +CHECKERS is a single syntax checker or a list thereof." + (when (symbolp checkers) + (setq checkers (list checkers))) + (dolist (checker checkers) + (setf (flycheck-checker-get checker 'config-file-var) var))) + +;;;###autoload +(defmacro flycheck-def-config-file-var (symbol checker &optional file-name + &rest custom-args) + "Define SYMBOL as config file variable for CHECKER, with default FILE-NAME. + +SYMBOL is declared as customizable variable using `defcustom', to +provide configuration files for the given syntax CHECKER. +CUSTOM-ARGS are forwarded to `defcustom'. + +FILE-NAME is the initial value of the new variable. If omitted, +the default value is nil. It can be either a string or a list of +strings. + +Use this together with the `config-file' form in the `:command' +argument to `flycheck-define-checker'." + (declare (indent 3)) + `(progn + (defcustom ,symbol ,file-name + ,(format "Configuration file for `%s'. + +If set to a string, locate the configuration file using the +functions from `flycheck-locate-config-file-functions'. If the +file is found pass it to the syntax checker as configuration +file. + +If no configuration file is found, or if this variable is set to +nil, invoke the syntax checker without a configuration file. + +Use this variable as file-local variable if you need a specific +configuration file for a buffer." checker) + :type '(choice (const :tag "No configuration file" nil) + (string :tag "File name or path") + (repeat :tag "File names or paths" string)) + :safe #'flycheck-string-or-string-list-p + :group 'flycheck-config-files + ,@custom-args) + (flycheck-register-config-file-var ',symbol ',checker))) + +(defun flycheck-locate-config-file (filenames checker) + "Locate the configuration file for CHECKER, based on FILENAMES. + +FILENAMES can be either a single file, or a list. Each filename +is passed to all `flycheck-locate-config-file-functions', until +one returns non-nil. + +Return the absolute path of the configuration file, or nil if no +configuration file was found." + (when (stringp filenames) + (setq filenames (list filenames))) + (let ((config-file nil)) + (while (and filenames (null config-file)) + (setq config-file (run-hook-with-args-until-success + 'flycheck-locate-config-file-functions + (pop filenames) checker))) + (when (and config-file (file-exists-p config-file)) + config-file))) + +(defun flycheck-locate-config-file-by-path (filepath _checker) + "Locate a configuration file by a FILEPATH. + +If FILEPATH is a contains a path separator, expand it against the +default directory and return it if it points to an existing file. +Otherwise return nil. + +_CHECKER is ignored." + ;; If the path is just a plain file name, skip it. + (unless (string= (file-name-nondirectory filepath) filepath) + (let ((file-name (expand-file-name filepath))) + (and (file-exists-p file-name) file-name)))) + +(defun flycheck-locate-config-file-ancestor-directories (filename _checker) + "Locate a configuration FILENAME in ancestor directories. + +If the current buffer has a file name, search FILENAME in the +directory of the current buffer and all ancestors thereof (see +`locate-dominating-file'). If the file is found, return its +absolute path. Otherwise return nil. + +_CHECKER is ignored." + (when-let* ((basefile (buffer-file-name)) + (directory (locate-dominating-file basefile filename))) + (expand-file-name filename directory))) + +(defun flycheck-locate-config-file-home (filename _checker) + "Locate a configuration FILENAME in the home directory. + +Return the absolute path, if FILENAME exists in the user's home +directory, or nil otherwise." + (let ((path (expand-file-name filename "~"))) + (when (file-exists-p path) + path))) + +(seq-do (apply-partially #'custom-add-frequent-value + 'flycheck-locate-config-file-functions) + '(flycheck-locate-config-file-by-path + flycheck-locate-config-file-ancestor-directories + flycheck-locate-config-file-home)) + +(defun flycheck-register-option-var (var checkers) + "Register an option VAR with CHECKERS. + +VAR is an option symbol, and CHECKERS a syntax checker symbol or +a list thereof. Register VAR with all CHECKERS so that it +appears in the help output." + (when (symbolp checkers) + (setq checkers (list checkers))) + (dolist (checker checkers) + (cl-pushnew var (flycheck-checker-get checker 'option-vars)))) + +;;;###autoload +(defmacro flycheck-def-option-var (symbol init-value checkers docstring + &rest custom-args) + "Define SYMBOL as option variable with INIT-VALUE for CHECKER. + +SYMBOL is declared as customizable variable using `defcustom', to +provide an option for the given syntax CHECKERS (a checker or a +list of checkers). INIT-VALUE is the initial value of the +variable, and DOCSTRING is its docstring. CUSTOM-ARGS are +forwarded to `defcustom'. + +Use this together with the `option', `option-list' and +`option-flag' forms in the `:command' argument to +`flycheck-define-checker'." + (declare (indent 3) + (doc-string 4)) + `(progn + (defcustom ,symbol ,init-value + ,(concat docstring " + +This variable is an option for the following syntax checkers: + +" + (mapconcat (lambda (c) (format " - `%s'" c)) + (if (symbolp checkers) (list checkers) checkers) + "\n")) + :group 'flycheck-options + ,@custom-args) + (flycheck-register-option-var ',symbol ',checkers))) + +(defun flycheck-option-int (value) + "Convert an integral option VALUE to a string. + +If VALUE is nil, return nil. Otherwise return VALUE converted to +a string." + (and value (number-to-string value))) + +(defun flycheck-option-symbol (value) + "Convert a symbol option VALUE to string. + +If VALUE is nil return nil. Otherwise return VALUE converted to +a string." + (and value (symbol-name value))) + +(defun flycheck-option-comma-separated-list (value &optional separator filter) + "Convert VALUE into a list separated by SEPARATOR. + +SEPARATOR is a string to separate items in VALUE, defaulting to +\",\". FILTER is an optional function, which takes a single +argument and returns either a string or nil. + +If VALUE is a list, apply FILTER to each item in VALUE, remove +all nil items, and return a single string of all remaining items +separated by SEPARATOR. + +Otherwise, apply FILTER to VALUE and return the result. +SEPARATOR is ignored in this case." + (let ((filter (or filter #'identity)) + (separator (or separator ","))) + (if (listp value) + (when-let (value (delq nil (seq-map filter value))) + (string-join value separator)) + (funcall filter value)))) + +(defmacro flycheck-def-args-var (symbol checkers &rest custom-args) + "Define SYMBOL as argument variable for CHECKERS. + +SYMBOL is declared as customizable, risky and buffer-local +variable using `defcustom' to provide an option for arbitrary +arguments for the given syntax CHECKERS (either a single checker +or a list of checkers). CUSTOM-ARGS is forwarded to `defcustom'. + +Use the `eval' form to splice this variable into the +`:command'." + (declare (indent 2)) + `(flycheck-def-option-var ,symbol nil ,checkers + "A list of additional command line arguments. + +The value of this variable is a list of strings with additional +command line arguments." + :risky t + :type '(repeat (string :tag "Argument")) + ,@custom-args)) + + +;;; Command syntax checkers as compile commands +(defun flycheck-checker-pattern-to-error-regexp (pattern) + "Convert PATTERN into an error regexp for compile.el. + +Return a list representing PATTERN, suitable as element in +`compilation-error-regexp-alist'." + (let* ((regexp (car pattern)) + (level (cdr pattern)) + (level-no (flycheck-error-level-compilation-level level))) + `(,regexp 1 (2 . 6) (3 . 7) ,level-no))) + +(defun flycheck-checker-compilation-error-regexp-alist (checker) + "Convert error patterns of CHECKER for use with compile.el. + +Return an alist of all error patterns of CHECKER, suitable for +use with `compilation-error-regexp-alist'." + (seq-map #'flycheck-checker-pattern-to-error-regexp + (flycheck-checker-get checker 'error-patterns))) + +(defun flycheck--substitute-shell-command-argument (arg checker) + "Substitute ARG for CHECKER. + +Like `flycheck-substitute-argument', except for source, +source-inplace, and source-original." + (if (memq arg '(source source-inplace source-original)) + (list buffer-file-name) + (flycheck-substitute-argument arg checker))) + +(defun flycheck--checker-substituted-shell-command-arguments (checker) + "Get the substituted arguments of a CHECKER to run as a shell command. + +Substitute each argument of CHECKER using +`flycheck-substitute-shell-command-argument'." + (apply #'append + (seq-map (lambda (arg) + (flycheck--substitute-shell-command-argument arg checker)) + (flycheck-checker-arguments checker)))) + +(defun flycheck-checker-shell-command (checker) + "Get a shell command for CHECKER. + +Perform substitution in the arguments of CHECKER, but with +`flycheck--substitute-shell-command-argument'. + +Return the command of CHECKER as single string, suitable for +shell execution." + ;; Note: Do NOT use `combine-and-quote-strings' here. Despite it's name it + ;; does not properly quote shell arguments, and actually breaks for special + ;; characters. See https://github.com/flycheck/flycheck/pull/522 + (let* ((args (flycheck--checker-substituted-shell-command-arguments checker)) + (program + (or (flycheck-find-checker-executable checker) + (user-error "Cannot find `%s' using `flycheck-executable-find'" + (flycheck-checker-executable checker)))) + (wrapped (flycheck--wrap-command program args)) + (abs-prog + ;; The executable path returned by `flycheck-command-wrapper-function' + ;; may not be absolute, so expand it here. See URL + ;; `https://github.com/flycheck/flycheck/issues/1461'. + (or (executable-find (car wrapped)) + (user-error "Cannot find `%s' using `executable-find'" + (car wrapped)))) + (command (mapconcat #'shell-quote-argument + (cons abs-prog (cdr wrapped)) " "))) + (if (flycheck-checker-get checker 'standard-input) + ;; If the syntax checker expects the source from standard input add an + ;; appropriate shell redirection + (concat command " < " (shell-quote-argument (buffer-file-name))) + command))) + +(defun flycheck-compile-name (_name) + "Get a name for a Flycheck compilation buffer. + +_NAME is ignored." + (format "*Flycheck %s*" (buffer-file-name))) + +(defun flycheck-compile (checker) + "Run CHECKER via `compile'. + +CHECKER must be a valid syntax checker. Interactively, prompt +for a syntax checker to run. + +Instead of highlighting errors in the buffer, this command pops +up a separate buffer with the entire output of the syntax checker +tool, just like `compile' (\\[compile])." + (interactive + (let* ((default (flycheck-get-checker-for-buffer)) + (prompt (concat + "Run syntax checker as compile command" + (when default (concat " [" (format "%S" default) "]")) + ": "))) + (list (flycheck-read-checker prompt + (when (flycheck-checker-get default 'command) + default) + 'command)))) + (unless (flycheck-valid-checker-p checker) + (user-error "%S is not a valid syntax checker" checker)) + (unless (buffer-file-name) + (user-error "Cannot compile a buffer without a backing file")) + (unless (flycheck-may-use-checker checker) + (user-error "Cannot use syntax checker %S in this buffer" checker)) + (unless (flycheck-checker-executable checker) + (user-error "Cannot run checker %S as shell command" checker)) + (save-some-buffers) + (let* ((default-directory (flycheck-compute-working-directory checker)) + (command (flycheck-checker-shell-command checker)) + (buffer (compilation-start command nil #'flycheck-compile-name))) + (with-current-buffer buffer + (setq-local compilation-error-regexp-alist + (flycheck-checker-compilation-error-regexp-alist checker))))) + + +;;; General error parsing for command checkers +(defun flycheck-parse-output (output checker buffer) + "Parse OUTPUT from CHECKER in BUFFER. + +OUTPUT is a string with the output from the checker symbol +CHECKER. BUFFER is the buffer which was checked. + +Return the errors parsed with the error patterns of CHECKER." + (funcall (flycheck-checker-get checker 'error-parser) output checker buffer)) + +(defun flycheck-fix-error-filename (err buffer-files cwd) + "Fix the file name of ERR from BUFFER-FILES. + +Resolves error file names relative to CWD directory. + +Make the file name of ERR absolute. If the absolute file name of +ERR is in BUFFER-FILES, replace it with the value of variable +`buffer-file-name'." + (flycheck-error-with-buffer err + (when-let (filename (flycheck-error-filename err)) + (when (seq-some (apply-partially #'flycheck-same-files-p + (expand-file-name filename cwd)) + buffer-files) + (setf (flycheck-error-filename err) buffer-file-name) + (when (and buffer-file-name (flycheck-error-message err)) + (setf (flycheck-error-message err) + (replace-regexp-in-string + (regexp-quote filename) buffer-file-name + (flycheck-error-message err) 'fixed-case 'literal)))))) + err) + + +;;; Error parsers for command syntax checkers +(defun flycheck-parse-xml-region (beg end) + "Parse the xml region between BEG and END. + +Wrapper around `xml-parse-region' which transforms the return +value of this function into one compatible to +`libxml-parse-xml-region' by simply returning the first element +from the node list." + (ignore-errors (car (xml-parse-region beg end)))) + +(defun flycheck-parse-xml-region-with-fallback (beg end) + "Parse the xml region between BEG and END. + +Try parsing with libxml first; if that fails, revert to +`flycheck-parse-xml-region'. Failures can be caused by incorrect +XML (see URL `https://github.com/flycheck/flycheck/issues/1298'), +or on Windows by a missing libxml DLL with a libxml-enabled Emacs +\(see URL `https://github.com/flycheck/flycheck/issues/1330')." + ;; FIXME use `libxml-available-p' when it gets implemented. + (or (and (fboundp 'libxml-parse-xml-region) + (libxml-parse-xml-region beg end)) + (flycheck-parse-xml-region beg end))) + +(defvar flycheck-xml-parser 'flycheck-parse-xml-region-with-fallback + "Function used to parse an xml string from a region. + +The default uses libxml if available, and falls back to +`flycheck-parse-xml-region' otherwise.") + +(defun flycheck-parse-xml-string (xml) + "Parse an XML string. + +Return the document tree parsed from XML in the form `(ROOT ATTRS +BODY...)'. ROOT is a symbol identifying the name of the root +element. ATTRS is an alist of the attributes of the root node. +BODY is zero or more body elements, either as strings (in case of +text nodes) or as XML nodes, in the same for as the root node." + (with-temp-buffer + (insert xml) + (funcall flycheck-xml-parser (point-min) (point-max)))) + +(defun flycheck-parse-checkstyle (output checker buffer) + "Parse Checkstyle errors from OUTPUT. + +Parse Checkstyle-like XML output. Use this error parser for +checkers that have an option to output errors in this format. + +CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://checkstyle.sourceforge.net/' for information +about Checkstyle." + (pcase (flycheck-parse-xml-string output) + (`(checkstyle ,_ . ,file-nodes) + (let (errors) + (dolist (node file-nodes) + (pcase node + (`(file ,file-attrs . ,error-nodes) + (dolist (node error-nodes) + (pcase node + (`(error ,error-attrs . ,_) + (let-alist error-attrs + (push (flycheck-error-new-at + (flycheck-string-to-number-safe .line) + (flycheck-string-to-number-safe .column) + (pcase .severity + (`"error" 'error) + (`"warning" 'warning) + (`"info" 'info) + ;; Default to error for unknown .severity + (_ 'error)) + .message + :checker checker :id .source + :buffer buffer + :filename (cdr (assq 'name file-attrs))) + errors)))))))) + (nreverse errors))))) + +(defun flycheck-parse-cppcheck (output checker buffer) + "Parse Cppcheck errors from OUTPUT. + +Parse Cppcheck XML v2 output. + +CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://cppcheck.sourceforge.net/' for more information +about Cppcheck." + (pcase (flycheck-parse-xml-string output) + (`(results ,_ . ,body) + (let (errors) + (dolist (node body) + (pcase node + (`(errors ,_ . ,error-nodes) + (dolist (node error-nodes) + (pcase node + (`(error ,error-attrs . ,loc-nodes) + (let ((id (cdr (assq 'id error-attrs))) + (message (cdr (assq 'verbose error-attrs))) + (level (pcase (cdr (assq 'severity error-attrs)) + (`"error" 'error) + (`"style" 'info) + (`"information" 'info) + (_ 'warning)))) + (dolist (node loc-nodes) + (pcase node + (`(location ,loc-attrs . ,_) + (let-alist loc-attrs + (push (flycheck-error-new-at + (flycheck-string-to-number-safe .line) + nil + level + ;; cppcheck return newline characters as "\012" + (replace-regexp-in-string "\\\\012" "\n" + message) + :id id + :checker checker + :buffer buffer + :filename .file) + errors)))))))))))) + (nreverse errors))))) + +(defun flycheck-parse-phpmd (output checker buffer) + "Parse phpmd errors from OUTPUT. + +CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://phpmd.org/' for more information about phpmd." + (pcase (flycheck-parse-xml-string output) + (`(pmd ,_ . ,body) + (let (errors) + (dolist (node body) + (pcase node + (`(file ,file-attrs . ,violation-nodes) + (let ((filename (cdr (assq 'name file-attrs)))) + (dolist (node violation-nodes) + (pcase node + (`(violation ,vio-attrs ,(and message (pred stringp))) + (let-alist vio-attrs + (push + (flycheck-error-new-at + (flycheck-string-to-number-safe .beginline) + nil + 'warning (string-trim message) + ;; Ignore .endline (phpmd marks giant spans as errors) + ;; :end-line (flycheck-string-to-number-safe .endline) + :id .rule + :checker checker + :buffer buffer + :filename filename) + errors))))))))) + (nreverse errors))))) + +(defun flycheck-parse-reek (output checker buffer) + "Parse Reek warnings from JSON OUTPUT. + +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://github.com/troessner/reek' for more information +about Reek." + (let ((errors nil)) + (dolist (message (car (flycheck-parse-json output))) + (let-alist message + (dolist (line (delete-dups .lines)) + (push + (flycheck-error-new-at + line + nil + 'warning (concat .context " " .message) + :id .smell_type + :checker checker + :buffer buffer + :filename .source) + errors)))) + (nreverse errors))) + +(defun flycheck-parse-go-staticcheck (output checker buffer) + "Parse staticheck warnings from JSON OUTPUT. + +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://staticcheck.io/docs/formatters' for more +information about staticheck." + (let ((errors nil)) + (dolist (msg (flycheck-parse-json output)) + (let-alist msg + (push + (flycheck-error-new-at + .location.line + .location.column + (pcase .severity + (`"error" 'error) + (`"warning" 'warning) + (`"ignored" 'info) + ;; Default to warning for unknown .severity + (_ 'warning)) + .message + :id .code + :checker checker + :buffer buffer + :filename .location.file) + errors))) + (nreverse errors))) + +(defun flycheck-parse-tslint (output checker buffer) + "Parse TSLint errors from JSON OUTPUT. + +CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://palantir.github.io/tslint/' for more information +about TSLint." + (seq-map (lambda (message) + (let-alist message + (flycheck-error-new-at + (+ 1 .startPosition.line) + (+ 1 .startPosition.character) + (pcase .ruleSeverity + ("ERROR" 'error) + ("WARNING" 'warning) + (_ 'warning)) + .failure + :id .ruleName + :checker checker + :buffer buffer + :filename .name + :end-line (+ 1 .endPosition.line) + :end-column (+ 1 .endPosition.character)))) + (car (flycheck-parse-json output)))) + +(defun flycheck-parse-rust-collect-spans (span) + "Return a list of spans contained in a SPAN object." + (let ((spans)) + (let-alist span + ;; With macro expansion errors, some spans will point to phony file names + ;; to indicate an error inside the std rust lib. We skip these spans as + ;; they won't appear in flycheck anyway. + (unless (string= .file_name "") + (push span spans)) + + ;; Macro expansion errors will have a span in the 'expansion' field, so we + ;; recursively collect it. + (if .expansion.span + (append (flycheck-parse-rust-collect-spans .expansion.span) + spans) + spans)))) + +(defun flycheck-parse-rustc-diagnostic (diagnostic checker buffer) + "Turn a rustc DIAGNOSTIC into a `flycheck-error'. + +CHECKER and BUFFER denote the CHECKER that returned DIAGNOSTIC +and the BUFFER that was checked respectively. + +DIAGNOSTIC should be a parsed JSON object describing a rustc +diagnostic, following the format described there: + +https://github.com/rust-lang/rust/blob/master/src/librustc_errors/json.rs#L154" + (let ((error-message) + (error-level) + (error-code) + (primary-filename) + (primary-line) + (primary-column) + (primary-end-line) + (primary-end-column) + (group (make-symbol "group")) + (spans) + (children) + (errors)) + ;; The diagnostic format is described in the link above. The gist of it is + ;; that a diagnostic can have several causes in the source text; these + ;; causes are represented by spans. The diagnostic has a message and a + ;; level (error, warning), while the spans have a filename, line, column, + ;; and an optional label. The primary span points to the root cause of the + ;; error in the source text, while non-primary spans point to related + ;; causes. Spans may have an 'expansion' field for macro expansion errors; + ;; these expansion fields will contain another span (and so on). In + ;; addition, a diagnostic can also have children diagnostics that are used + ;; to provide additional information through their message field, but do not + ;; seem to contain any spans (yet). + ;; + ;; We first gather spans in order to turn every span into a flycheck error + ;; object, that we collect into the `errors' list. + + ;; Nested `let-alist' cause compilation warnings, hence we `setq' all + ;; these values here first to avoid nesting. + (let-alist diagnostic + (setq error-message .message + error-level (pcase .level + (`"error" 'error) + (`"warning" 'warning) + (`"note" 'info) + (_ 'error)) + ;; The 'code' field of the diagnostic contains the actual error + ;; code and an optional explanation that we ignore + error-code .code.code + ;; Collect all spans recursively + spans (seq-mapcat #'flycheck-parse-rust-collect-spans .spans) + children .children)) + + ;; Turn each span into a flycheck error + (dolist (span spans) + (let-alist span + ;; Children may not have filename/line/column information, so we use + ;; those from the primary span + (when .is_primary + (setq primary-filename .file_name + primary-line .line_start + primary-column .column_start + primary-end-line .line_end + primary-end-column .column_end)) + (push + (flycheck-error-new-at + .line_start + .column_start + ;; Non-primary spans are used for notes + (if .is_primary error-level 'info) + (if .is_primary + ;; Primary spans may have labels with additional information + (concat error-message (when .label + (format " (%s)" .label))) + ;; If the label is empty, fallback on the error message, + ;; otherwise we won't be able to display anything + (or .label error-message)) + :id error-code + :checker checker + :buffer buffer + :filename .file_name + :group group + :end-line .line_end + :end-column .column_end) + errors))) + + ;; Then we turn children messages into flycheck errors pointing to the + ;; location of the primary span. + (dolist (child children) + (let ((message (let-alist child .message))) + (let-alist (car (let-alist child .spans)) + (push + (flycheck-error-new-at + ;; Use the line/column from the first span if there is one, or + ;; fallback to the line/column information from the primary span of + ;; the diagnostic. + (or .line_start primary-line) + (or .column_start primary-column) + 'info + ;; Messages from `cargo clippy' may suggest replacement code. In + ;; these cases, the `message' field itself is an unhelpful `try' or + ;; `change this to'. We add the `suggested_replacement' field in + ;; these cases. + (if .suggested_replacement + (format "%s: `%s`" message .suggested_replacement) + message) + :id error-code + :checker checker + :buffer buffer + :filename primary-filename + :group group + :end-line (or .line_end primary-end-line) + :end-column (or .column_end primary-end-column)) + errors)))) + + ;; If there are no spans, the error is not associated with a specific + ;; file but with the project as a whole. We still need to report it to + ;; the user by emitting a corresponding flycheck-error object. + ;; Check whether the code is non-nil because Rust≥1.44 includes the + ;; warning count upon completion. + (when (and error-code (not spans)) + (push (flycheck-error-new-at + ;; We have no specific position to attach the error to, so + ;; let's use the top of the file. + 1 1 + error-level + error-message + :id error-code + :checker checker + :buffer buffer + :group group) + errors)) + (nreverse errors))) + +(defconst flycheck--json-parser + (if (and (functionp 'json-parse-buffer) + ;; json-parse-buffer only supports keyword arguments in Emacs 27+ + (>= emacs-major-version 27)) + (lambda () + (json-parse-buffer + :object-type 'alist :array-type 'list + :null-object nil :false-object nil)) + #'json-read) + "Function to use to parse JSON strings.") + +(defun flycheck-parse-json (output) + "Return parsed JSON data from OUTPUT. + +OUTPUT is a string that contains JSON data. Each line of OUTPUT +may be either plain text, a JSON array (starting with `['), or a +JSON object (starting with `{'). + +This function ignores the plain text lines, parses the JSON +lines, and returns the parsed JSON lines in a list." + (let ((objects nil) + (json-array-type 'list) + (json-false nil)) + (with-temp-buffer + (insert output) + (goto-char (point-min)) + (while (not (eobp)) + (when (memq (char-after) '(?\{ ?\[)) + (push (funcall flycheck--json-parser) objects)) + (forward-line))) + (nreverse objects))) + +(defun flycheck-parse-rustc (output checker buffer) + "Parse rustc errors from OUTPUT and return a list of `flycheck-error'. + +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +The expected format for OUTPUT is a mix of plain text lines and +JSON lines. This function ignores the plain text lines and +parses only JSON lines. Each JSON line is expected to be a JSON +object that corresponds to a diagnostic from the compiler. The +expected diagnostic format is described there: + +https://github.com/rust-lang/rust/blob/master/src/libsyntax/json.rs#L67-L139" + (seq-mapcat (lambda (msg) + (flycheck-parse-rustc-diagnostic msg checker buffer)) + (flycheck-parse-json output))) + +(defun flycheck-parse-cargo-rustc (output checker buffer) + "Parse Cargo errors from OUTPUT and return a list of `flycheck-error'. + +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +The expected format for OUTPUT is a mix of plain text lines and +JSON lines. This function ignores the plain text lines and +parses only JSON lines. Each JSON line is expected to be a JSON +object that represents a message from Cargo. The format of +messages emitted by Cargo is described in cargo's +machine_message.rs at URL `https://git.io/vh24R'." + (let ((errors)) + (dolist (msg (flycheck-parse-json output)) + (let-alist msg + ;; Errors and warnings from rustc are wrapped by cargo, so we filter and + ;; unwrap them, and delegate the actual construction of `flycheck-error' + ;; objects to `flycheck-parse-rustc-diagnostic'. + ;; We put the error record with nil code since flycheck regards + ;; the case of nonzero return code without any error report + ;; as abnormal result. + (when (string= .reason "compiler-message") + (push (flycheck-parse-rustc-diagnostic .message checker buffer) + errors)))) + (apply #'nconc errors))) + +;; Some checkers output ANSI terminal colors, which don't match up +;; with :error-patterns, so we strip those color codes from the output +;; here before passing it along to the default behavior. This is +;; originally only used in the rebar3 checker, but the systemd checker +;; now also makes use of it. +;; +;; The relevant discussion can be found at +;; https://github.com/flycheck/flycheck/pull/1144 +(defun flycheck-parse-with-patterns-without-color (output checker buffer) + "Strip color codes from OUTPUT before passing it to the default behavior. + +CHECKER and BUFFER are passed along as well." + (flycheck-parse-with-patterns + (and (fboundp 'ansi-color-filter-apply) (ansi-color-filter-apply output)) + checker buffer)) + + +;;; Error parsing with regular expressions +(defun flycheck-get-regexp (patterns) + "Create a single regular expression from PATTERNS." + (rx-to-string `(or ,@(seq-map (lambda (p) (list 'regexp (car p))) patterns)) + 'no-group)) + +(defun flycheck-tokenize-output-with-patterns (output patterns) + "Tokenize OUTPUT with PATTERNS. + +Split the output into error tokens, using all regular expressions +from the error PATTERNS. An error token is simply a string +containing a single error from OUTPUT. Such a token can then be +parsed into a structured error by applying the PATTERNS again, +see `flycheck-parse-error-with-patterns'. + +Return a list of error tokens." + (let ((regexp (flycheck-get-regexp patterns)) + (last-match 0) + errors) + (while (string-match regexp output last-match) + (push (match-string 0 output) errors) + (setq last-match (match-end 0))) + (reverse errors))) + +(defun flycheck-try-parse-error-with-pattern (err pattern checker) + "Try to parse a single ERR with a PATTERN for CHECKER. + +Return the parsed error if PATTERN matched ERR, or nil +otherwise. + +`end-line' defaults to the value of `line' when `end-column' is +set, since checkers often omit redundant end lines (as in +::-)." + (let ((regexp (car pattern)) + (level (cdr pattern))) + (when (string-match regexp err) + (let ((filename (match-string 1 err)) + (line (flycheck-string-to-number-safe (match-string 2 err))) + (column (flycheck-string-to-number-safe (match-string 3 err))) + (message (match-string 4 err)) + (id (match-string 5 err)) + (end-line (flycheck-string-to-number-safe (match-string 6 err))) + (end-column (flycheck-string-to-number-safe (match-string 7 err)))) + (flycheck-error-new-at + line + column + level + (unless (string-empty-p message) message) + :id (unless (string-empty-p id) id) + :checker checker + :filename (if (or (null filename) (string-empty-p filename)) + (buffer-file-name) + filename) + :end-line (or end-line (and end-column line)) + :end-column end-column))))) + +(defun flycheck-parse-error-with-patterns (err patterns checker) + "Parse a single ERR with error PATTERNS for CHECKER. + +Apply each pattern in PATTERNS to ERR, in the given order, and +return the first parsed error." + ;; Try to parse patterns in the order of declaration to make sure that the + ;; first match wins. + (let (parsed-error) + (while (and patterns + (not (setq parsed-error + (flycheck-try-parse-error-with-pattern + err (car patterns) checker)))) + (setq patterns (cdr patterns))) + parsed-error)) + +(defun flycheck-parse-with-patterns (output checker buffer) + "Parse OUTPUT from CHECKER with error patterns. + +Uses the error patterns of CHECKER to tokenize the output and +tries to parse each error token with all patterns, in the order +of declaration. Hence an error is never matched twice by two +different patterns. The pattern declared first always wins. + +_BUFFER is ignored. + +Return a list of parsed errors and warnings (as `flycheck-error' +objects)." + (with-current-buffer buffer + (let ((patterns (flycheck-checker-get checker 'error-patterns))) + (seq-map (lambda (err) + (flycheck-parse-error-with-patterns err patterns checker)) + (flycheck-tokenize-output-with-patterns output patterns))))) + + +;;; Convenience definition of command-syntax checkers + +;; This macro is autoloaded to prevent `with-eval-after-load' from expanding its +;; arguments. See https://github.com/flycheck/flycheck/issues/1398. +;;;###autoload +(defmacro flycheck-define-checker (symbol docstring &rest properties) + "Define SYMBOL as command syntax checker with DOCSTRING and PROPERTIES. + +Like `flycheck-define-command-checker', but PROPERTIES must not +be quoted. Also, implicitly define the executable variable for +SYMBOL with `flycheck-def-executable-var'." + (declare (indent 1) + (doc-string 2)) + (let ((command (plist-get properties :command)) + (parser (plist-get properties :error-parser)) + (filter (plist-get properties :error-filter)) + (explainer (plist-get properties :error-explainer)) + (predicate (plist-get properties :predicate)) + (enabled-fn (plist-get properties :enabled)) + (verify-fn (plist-get properties :verify))) + + `(progn + (flycheck-def-executable-var ,symbol ,(car command)) + + (flycheck-define-command-checker ',symbol + ,docstring + :command ',command + ,@(when parser + `(:error-parser #',parser)) + :error-patterns ',(plist-get properties :error-patterns) + ,@(when filter + `(:error-filter #',filter)) + ,@(when explainer + `(:error-explainer #',explainer)) + :modes ',(plist-get properties :modes) + ,@(when predicate + `(:predicate #',predicate)) + :next-checkers ',(plist-get properties :next-checkers) + ,@(when enabled-fn + `(:enabled #',enabled-fn)) + ,@(when verify-fn + `(:verify #',verify-fn)) + :standard-input ',(plist-get properties :standard-input) + :working-directory ',(plist-get properties :working-directory))))) + + +;;; Built-in checkers +(flycheck-def-args-var flycheck-gnat-args ada-gnat + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gnat-include-path nil ada-gnat + "A list of include directories for GNAT. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of gcc. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gnat-language-standard "2012" ada-gnat + "The language standard to use in GNAT. + +The value of this variable is either a string denoting a language +standard, or nil, to use the default standard. When non-nil, pass +the language standard via the `-std' option." + :type '(choice (const :tag "Default standard" nil) + (string :tag "Language standard")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gnat-warnings + '("wa") ada-gnat + "A list of additional Ada warnings to enable in GNAT. + +The value of this variable is a list of strings, where each +string is the name of a warning category to enable. By default, +most optional warnings are recommended, as in `-gnata'. + +Refer to Info Node `(gnat_ugn_unw)Warning Message Control' for +more information about GNAT warnings." + :type '(repeat :tag "Warnings" (string :tag "Warning name")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.20")) + +(flycheck-define-checker ada-gnat + "An Ada syntax checker using GNAT. + +Uses the GNAT compiler from GCC. See URL +`https://www.adacore.com/community/'." + :command ("gnatmake" + "-c" ; Just compile, don't bind + "-f" ; Force re-compilation + "-u" ; Compile the main file only + "-gnatf" ; Full error information + "-gnatef" ; Full source file name + "-D" temporary-directory + (option-list "-gnat" flycheck-gnat-warnings concat) + (option-list "-I" flycheck-gnat-include-path concat) + (option "-gnat" flycheck-gnat-language-standard concat) + (eval flycheck-gnat-args) + source) + :error-patterns + ((error line-start + (message "In file included from") " " (file-name) ":" line ":" + column ":" + line-end) + (info line-start (file-name) ":" line ":" column + ": note: " (message) line-end) + (warning line-start (file-name) ":" line ":" column + ": warning: " (message) line-end) + ;; no specific error prefix in Ada + (error line-start (file-name) ":" line ":" column + ": " (message) line-end)) + :modes ada-mode) + +(flycheck-define-checker asciidoc + "A AsciiDoc syntax checker using the AsciiDoc compiler. + +See URL `https://www.methods.co.nz/asciidoc'." + :command ("asciidoc" "-o" null-device "-") + :standard-input t + :error-patterns + ((error line-start + "asciidoc: ERROR: : Line " line ": " (message) + line-end) + (warning line-start + "asciidoc: WARNING: : Line " line ": " (message) + line-end) + (info line-start + "asciidoc: DEPRECATED: : Line " line ": " (message) + line-end)) + :modes adoc-mode) + +(flycheck-define-checker asciidoctor + "An AsciiDoc syntax checker using the Asciidoctor compiler. + +See URL `https://asciidoctor.org'." + :command ("asciidoctor" "-o" null-device "-") + :standard-input t + :error-patterns + ((error line-start + "asciidoctor: ERROR: : Line " line ": " (message) + line-end) + (warning line-start + "asciidoctor: WARNING: : Line " line ": " (message) + line-end)) + :modes adoc-mode) + +(defun flycheck-awk-gawk-fix-message (err) + "Remove the repeated file-name/line from the error message of ERR." + (setf (flycheck-error-message err) + (replace-regexp-in-string + (rx line-start + (group (zero-or-more (any " " "\t"))) + (group (zero-or-more nonl) "\n") + (backref 1)) + "\\2" + (replace-regexp-in-string + (rx "\ngawk: " (zero-or-more (not (any " "))) ":") + "\n" + (flycheck-error-message err)))) + err) + +(defun flycheck-awk-gawk-error-filter (errors) + "Remove repeated file-name/line from ERRORS." + (seq-do #'flycheck-awk-gawk-fix-message errors) + errors) + +(flycheck-define-checker awk-gawk + "GNU awk's built-in --lint checker." + :command ("gawk" + ;; Avoid code execution. See https://github.com/w0rp/ale/pull/1411 + "--source" "'BEGIN{exit} END{exit 1}'" + "-f" source + "--lint" + "/dev/null") + :standard-input nil + :error-patterns + ((warning line-start + "gawk: " + (file-name) ":" line ":" (optional column ":") + (message (one-or-more not-newline) + (optional "\n" + (one-or-more not-newline) + " ^ " + (one-or-more not-newline))) + line-end)) + :error-filter flycheck-awk-gawk-error-filter + :modes awk-mode) + +(flycheck-define-checker bazel-build-buildifier + "A checker for Bazel BUILD and BUILD.bazel files using buildifier. + +See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." + :command ("buildifier" "-lint=warn" "--type=build") + :standard-input t + :error-patterns + ((error line-start + ":" line ":" column ": " (message) + line-end) + (warning line-start + ":" line ": " (id (one-or-more (in word "-"))) ": " (message) + line-end)) + :modes bazel-build-mode) + +(flycheck-define-checker bazel-module-buildifier + "A checker for Bazel MODULE.bazel files using buildifier. + +See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." + :command ("buildifier" "-lint=warn" "--type=default") + :standard-input t + :error-patterns + ((error line-start + ":" line ":" column ": " (message) + line-end) + (warning line-start + ":" line ": " (id (one-or-more (in word "-"))) ": " (message) + line-end)) + :modes bazel-module-mode) + +(flycheck-define-checker bazel-starlark-buildifier + "A checker for Starlark bzl files using buildifier. + +See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." + :command ("buildifier" "-lint=warn" "--type=bzl") + :standard-input t + :error-patterns + ((error line-start + ":" line ":" column ": " (message) + line-end) + (warning line-start + ":" line ": " (id (one-or-more (in word "-"))) ": " (message) + line-end)) + :modes bazel-starlark-mode) + +(flycheck-define-checker bazel-workspace-buildifier + "A checker for Bazel WORKSPACE and WORKSPACE.bazel files using buildifier. + +See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." + :command ("buildifier" "-lint=warn" "--type=workspace") + :standard-input t + :error-patterns + ((error line-start + ":" line ":" column ": " (message) + line-end) + (warning line-start + ":" line ": " (id (one-or-more (in word "-"))) ": " (message) + line-end)) + :modes bazel-workspace-mode) + +(flycheck-def-args-var flycheck-clang-args c/c++-clang + :package-version '(flycheck . "0.22")) + +(flycheck-def-option-var flycheck-clang-blocks nil c/c++-clang + "Enable blocks in Clang. + +When non-nil, enable blocks in Clang with `-fblocks'. See URL +`https://clang.llvm.org/docs/BlockLanguageSpec.html' for more +information about blocks." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-clang-definitions nil c/c++-clang + "Additional preprocessor definitions for Clang. + +The value of this variable is a list of strings, where each +string is an additional definition to pass to Clang, via the `-D' +option." + :type '(repeat (string :tag "Definition")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.15")) + +(flycheck-def-option-var flycheck-clang-include-path nil c/c++-clang + "A list of include directories for Clang. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of Clang. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.14")) + +(flycheck-def-option-var flycheck-clang-includes nil c/c++-clang + "A list of additional include files for Clang. + +The value of this variable is a list of strings, where each +string is a file to include before syntax checking. Relative +paths are relative to the file being checked." + :type '(repeat (file :tag "Include file")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.15")) + +(flycheck-def-option-var flycheck-clang-language-standard nil c/c++-clang + "The language standard to use in Clang. + +The value of this variable is either a string denoting a language +standard, or nil, to use the default standard. When non-nil, +pass the language standard via the `-std' option." + :type '(choice (const :tag "Default standard" nil) + (string :tag "Language standard")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "0.15")) +(make-variable-buffer-local 'flycheck-clang-language-standard) + +(flycheck-def-option-var flycheck-clang-ms-extensions nil c/c++-clang + "Whether to enable Microsoft extensions to C/C++ in Clang. + +When non-nil, enable Microsoft extensions to C/C++ via +`-fms-extensions'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.16")) + +(flycheck-def-option-var flycheck-clang-no-exceptions nil c/c++-clang + "Whether to disable exceptions in Clang. + +When non-nil, disable exceptions for syntax checks, via +`-fno-exceptions'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-clang-no-rtti nil c/c++-clang + "Whether to disable RTTI in Clang. + +When non-nil, disable RTTI for syntax checks, via `-fno-rtti'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.15")) + +(flycheck-def-option-var flycheck-clang-pedantic nil c/c++-clang + "Whether to warn about language extensions in Clang. + +For ISO C, follows the version specified by any -std option used. +When non-nil, disable non-ISO extensions to C/C++ via +`-pedantic'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.23")) + +(flycheck-def-option-var flycheck-clang-pedantic-errors nil c/c++-clang + "Whether to error on language extensions in Clang. + +For ISO C, follows the version specified by any -std option used. +When non-nil, disable non-ISO extensions to C/C++ via +`-pedantic-errors'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.23")) + +(flycheck-def-option-var flycheck-clang-standard-library nil c/c++-clang + "The standard library to use for Clang. + +The value of this variable is the name of a standard library as +string, or nil to use the default standard library. + +Refer to the Clang manual at URL +`https://clang.llvm.org/docs/UsersManual.html' for more +information about the standard library." + :type '(choice (const :tag "Default standard library" nil) + (const "libc++") + (const :tag "GNU libstdc++" "libstdc++") + (string :tag "Library name")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "0.15")) + +(flycheck-def-option-var flycheck-clang-warnings '("all" "extra") c/c++-clang + "A list of additional warnings to enable in Clang. + +The value of this variable is a list of strings, where each string +is the name of a warning category to enable. By default, all +recommended warnings and some extra warnings are enabled (as by +`-Wall' and `-Wextra' respectively). + +Refer to the Clang manual at URL +`https://clang.llvm.org/docs/UsersManual.html' for more +information about warnings." + :type '(choice (const :tag "No additional warnings" nil) + (repeat :tag "Additional warnings" + (string :tag "Warning name"))) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.14")) + +(defun flycheck-c/c++-quoted-include-directory () + "Get the directory for quoted includes. + +C/C++ compilers typically look up includes with quotation marks +in the directory of the file being compiled. However, since +Flycheck uses temporary copies for syntax checking, it needs to +explicitly determine the directory for quoted includes. + +This function determines the directory by looking at function +`buffer-file-name', or if that is nil, at `default-directory'." + (if-let (fn (buffer-file-name)) + (file-name-directory fn) + ;; If the buffer has no file name, fall back to its default directory + default-directory)) + +(flycheck-define-checker c/c++-clang + "A C/C++ syntax checker using Clang. + +See URL `https://clang.llvm.org/'." + :command ("clang" + "-fsyntax-only" + "-fno-color-diagnostics" ; Do not include color codes in output + "-fno-caret-diagnostics" ; Do not visually indicate the source + ; location + "-fno-diagnostics-show-option" ; Do not show the corresponding + ; warning group + "-iquote" (eval (flycheck-c/c++-quoted-include-directory)) + (option "-std=" flycheck-clang-language-standard concat) + (option-flag "-pedantic" flycheck-clang-pedantic) + (option-flag "-pedantic-errors" flycheck-clang-pedantic-errors) + (option "-stdlib=" flycheck-clang-standard-library concat) + (option-flag "-fms-extensions" flycheck-clang-ms-extensions) + (option-flag "-fno-exceptions" flycheck-clang-no-exceptions) + (option-flag "-fno-rtti" flycheck-clang-no-rtti) + (option-flag "-fblocks" flycheck-clang-blocks) + (option-list "-include" flycheck-clang-includes) + (option-list "-W" flycheck-clang-warnings concat) + (option-list "-D" flycheck-clang-definitions concat) + (option-list "-I" flycheck-clang-include-path) + (eval flycheck-clang-args) + "-x" (eval + (pcase major-mode + ((or `c++-mode `c++-ts-mode) "c++") + ((or `c-mode `c-ts-mode) "c"))) + ;; Read from standard input + "-") + :standard-input t + :error-patterns + ((info line-start (or "" (file-name)) ":" line ":" column + ": note: " (optional (message)) line-end) + (warning line-start (or "" (file-name)) ":" line ":" column + ": warning: " (optional (message)) line-end) + (error line-start (or "" (file-name)) ":" line ":" column + ": " (or "fatal error" "error") ": " (optional (message)) line-end)) + :error-filter + (lambda (errors) + (let ((errors (flycheck-sanitize-errors errors))) + (dolist (err errors) + ;; Clang will output empty messages for #error/#warning pragmas without + ;; messages. We fill these empty errors with a dummy message to get + ;; them past our error filtering + (setf (flycheck-error-message err) + (or (flycheck-error-message err) "no message"))) + errors)) + :modes (c-mode c++-mode c-ts-mode c++-ts-mode) + :next-checkers ((warning . c/c++-cppcheck))) + +(flycheck-def-args-var flycheck-gcc-args c/c++-gcc + :package-version '(flycheck . "0.22")) + +(flycheck-def-option-var flycheck-gcc-definitions nil c/c++-gcc + "Additional preprocessor definitions for GCC. + +The value of this variable is a list of strings, where each +string is an additional definition to pass to GCC, via the `-D' +option." + :type '(repeat (string :tag "Definition")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gcc-include-path nil c/c++-gcc + "A list of include directories for GCC. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of gcc. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gcc-includes nil c/c++-gcc + "A list of additional include files for GCC. + +The value of this variable is a list of strings, where each +string is a file to include before syntax checking. Relative +paths are relative to the file being checked." + :type '(repeat (file :tag "Include file")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gcc-language-standard nil c/c++-gcc + "The language standard to use in GCC. + +The value of this variable is either a string denoting a language +standard, or nil, to use the default standard. When non-nil, +pass the language standard via the `-std' option." + :type '(choice (const :tag "Default standard" nil) + (string :tag "Language standard")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "0.20")) +(make-variable-buffer-local 'flycheck-gcc-language-standard) + +(flycheck-def-option-var flycheck-gcc-no-exceptions nil c/c++-gcc + "Whether to disable exceptions in GCC. + +When non-nil, disable exceptions for syntax checks, via +`-fno-exceptions'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gcc-no-rtti nil c/c++-gcc + "Whether to disable RTTI in GCC. + +When non-nil, disable RTTI for syntax checks, via `-fno-rtti'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gcc-openmp nil c/c++-gcc + "Whether to enable OpenMP in GCC. + +When non-nil, enable OpenMP for syntax checkers, via +`-fopenmp'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.21")) + +(flycheck-def-option-var flycheck-gcc-pedantic nil c/c++-gcc + "Whether to warn about language extensions in GCC. + +For ISO C, follows the version specified by any -std option used. +When non-nil, disable non-ISO extensions to C/C++ via +`-pedantic'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.23")) + +(flycheck-def-option-var flycheck-gcc-pedantic-errors nil c/c++-gcc + "Whether to error on language extensions in GCC. + +For ISO C, follows the version specified by any -std option used. +When non-nil, disable non-ISO extensions to C/C++ via +`-pedantic-errors'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.23")) + +(flycheck-def-option-var flycheck-gcc-warnings '("all" "extra") c/c++-gcc + "A list of additional warnings to enable in GCC. + +The value of this variable is a list of strings, where each string +is the name of a warning category to enable. By default, all +recommended warnings and some extra warnings are enabled (as by +`-Wall' and `-Wextra' respectively). + +Refer to the gcc manual at URL +`https://gcc.gnu.org/onlinedocs/gcc/' for more information about +warnings." + :type '(choice (const :tag "No additional warnings" nil) + (repeat :tag "Additional warnings" + (string :tag "Warning name"))) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.20")) + +(flycheck-define-checker c/c++-gcc + "A C/C++ syntax checker using GCC. + +Requires GCC 4.4 or newer. See URL `https://gcc.gnu.org/'." + :command ("gcc" + "-fshow-column" + "-iquote" (eval (flycheck-c/c++-quoted-include-directory)) + (option "-std=" flycheck-gcc-language-standard concat) + (option-flag "-pedantic" flycheck-gcc-pedantic) + (option-flag "-pedantic-errors" flycheck-gcc-pedantic-errors) + (option-flag "-fno-exceptions" flycheck-gcc-no-exceptions) + (option-flag "-fno-rtti" flycheck-gcc-no-rtti) + (option-flag "-fopenmp" flycheck-gcc-openmp) + (option-list "-include" flycheck-gcc-includes) + (option-list "-W" flycheck-gcc-warnings concat) + (option-list "-D" flycheck-gcc-definitions concat) + (option-list "-I" flycheck-gcc-include-path) + (eval flycheck-gcc-args) + "-x" (eval + (pcase major-mode + ((or `c++-mode `c++-ts-mode) "c++") + ((or `c-mode `c-ts-mode) "c"))) + ;; GCC performs full checking only when actually compiling, so + ;; `-fsyntax-only' is not enough. Just let it generate assembly + ;; code. + "-S" "-o" null-device + ;; Read from standard input + "-") + :standard-input t + :error-patterns + ((info line-start (or "" (file-name)) + ":" line (optional ":" column) + ": note: " (message) line-end) + (warning line-start (or "" (file-name)) + ":" line (optional ":" column) + ": warning: " (message (one-or-more (not (any "\n[")))) + (optional "[" (id (one-or-more not-newline)) "]") line-end) + (error line-start (or "" (file-name)) + ":" line (optional ":" column) + ": " (or "fatal error" "error") ": " (message) line-end)) + :modes (c-mode c++-mode c-ts-mode c++-ts-mode) + :next-checkers ((warning . c/c++-cppcheck))) + +(flycheck-def-args-var flycheck-cppcheck-args c/c++-cppcheck + :package-version '(flycheck . "35")) + +(flycheck-def-option-var flycheck-cppcheck-checks '("style") c/c++-cppcheck + "Enabled checks for Cppcheck. + +The value of this variable is a list of strings, where each +string is the name of an additional check to enable. By default, +all coding style checks are enabled. + +See section \"Enable message\" in the Cppcheck manual at URL +`https://cppcheck.sourceforge.net/manual.pdf', and the +documentation of the `--enable' option for more information, +including a list of supported checks." + :type '(repeat :tag "Additional checks" + (string :tag "Check name")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.14")) + +(flycheck-def-option-var flycheck-cppcheck-standards nil c/c++-cppcheck + "The standards to use in cppcheck. + +The value of this variable is either a list of strings denoting +the standards to use, or nil to pass nothing to cppcheck. When +non-nil, pass the standards via one or more `--std=' options." + :type '(choice (const :tag "Default" nil) + (repeat :tag "Custom standards" + (string :tag "Standard name"))) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "28")) +(make-variable-buffer-local 'flycheck-cppcheck-standards) + +(flycheck-def-option-var flycheck-cppcheck-suppressions-file nil c/c++-cppcheck + "The suppressions file to use in cppcheck. + +The value of this variable is a file with the suppressions to +use, or nil to pass nothing to cppcheck. When non-nil, pass the +suppressions file via the `--suppressions-list=' option." + :type '(choice (const :tag "Default" nil) + (file :tag "Suppressions file")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32")) +(make-variable-buffer-local 'flycheck-cppcheck-suppressions-file) + +(flycheck-def-option-var flycheck-cppcheck-suppressions nil c/c++-cppcheck + "The suppressions to use in cppcheck. + +The value of this variable is either a list of strings denoting +the suppressions to use, or nil to pass nothing to cppcheck. +When non-nil, pass the suppressions via one or more `--suppress=' +options." + :type '(choice (const :tag "Default" nil) + (repeat :tag "Additional suppressions" + (string :tag "Suppression"))) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "28")) + +(flycheck-def-option-var flycheck-cppcheck-inconclusive nil c/c++-cppcheck + "Whether to enable Cppcheck inconclusive checks. + +When non-nil, enable Cppcheck inconclusive checks. This allows Cppcheck to +report warnings it's not certain of, but it may result in false positives. + +This will have no effect when using Cppcheck 1.53 and older." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.19")) + +(flycheck-def-option-var flycheck-cppcheck-include-path nil c/c++-cppcheck + "A list of include directories for cppcheck. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of cppcheck. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.24")) + +(flycheck-define-checker c/c++-cppcheck + "A C/C++ checker using cppcheck. + +See URL `https://cppcheck.sourceforge.net/'." + :command ("cppcheck" "--quiet" "--xml-version=2" "--inline-suppr" + (option "--enable=" flycheck-cppcheck-checks concat + flycheck-option-comma-separated-list) + (option-flag "--inconclusive" flycheck-cppcheck-inconclusive) + (option-list "-I" flycheck-cppcheck-include-path) + (option-list "--std=" flycheck-cppcheck-standards concat) + (option-list "--suppress=" flycheck-cppcheck-suppressions concat) + (option "--suppressions-list=" + flycheck-cppcheck-suppressions-file concat) + "-x" (eval + (pcase major-mode + ((or `c++-mode `c++-ts-mode) "c++") + ((or `c-mode `c-ts-mode) "c"))) + (eval flycheck-cppcheck-args) + source) + :error-parser flycheck-parse-cppcheck + :modes (c-mode c++-mode c-ts-mode c++-ts-mode)) + +(flycheck-define-checker cfengine + "A CFEngine syntax checker using cf-promises. + +See URL `https://cfengine.com/'." + :command ("cf-promises" "-Wall" "-f" + ;; We must stay in the same directory to resolve @include + source-inplace) + :error-patterns + ((warning line-start (file-name) ":" line ":" column + ": warning: " (message) line-end) + (error line-start (file-name) ":" line ":" column + ": error: " (message) line-end)) + :modes (cfengine-mode cfengine3-mode)) + +(flycheck-define-checker coffee + "A CoffeeScript syntax checker using coffee. + +See URL `https://coffeescript.org/'." + ;; --print suppresses generation of compiled .js files + :command ("coffee" "--compile" "--print" "--stdio") + :standard-input t + :error-patterns + ((error line-start "[stdin]:" line ":" column + ": error: " (message) line-end)) + :modes coffee-mode + :next-checkers ((warning . coffee-coffeelint))) + +(flycheck-def-config-file-var flycheck-coffeelintrc coffee-coffeelint + ".coffeelint.json") + +(flycheck-define-checker coffee-coffeelint + "A CoffeeScript style checker using coffeelint. + +See URL `https://www.coffeelint.org/'." + :command + ("coffeelint" + (config-file "--file" flycheck-coffeelintrc) + "--stdin" "--reporter" "checkstyle") + :standard-input t + :error-parser flycheck-parse-checkstyle + :error-filter (lambda (errors) + (flycheck-remove-error-file-names + "stdin" (flycheck-remove-error-ids + (flycheck-sanitize-errors errors)))) + :modes coffee-mode) + +(flycheck-define-checker css-csslint + "A CSS syntax and style checker using csslint. + +See URL `https://github.com/CSSLint/csslint'." + :command ("csslint" "--format=checkstyle-xml" source) + :error-parser flycheck-parse-checkstyle + :error-filter flycheck-dequalify-error-ids + :modes (css-mode css-ts-mode)) + +(defconst flycheck-stylelint-args '("--formatter" "json") + "Common arguments to stylelint invocations.") + +;; Limit the length of the generated docstring by including only the first three +;; checker symbols, otherwise emacs will complain about the docstring length +;; and may refuse to compile the package. +(let ((print-length 3)) + (flycheck-def-config-file-var flycheck-stylelintrc + (css-stylelint scss-stylelint sass-stylelint less-stylelint) nil)) + +(flycheck-def-option-var flycheck-stylelint-quiet + nil (css-stylelint scss-stylelint sass-stylelint less-stylelint) + "Whether to run stylelint in quiet mode. + +When non-nil, enable quiet mode, via `--quiet'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . 26)) + +(defconst flycheck-stylelint-error-re + (flycheck-rx-to-string + '(: line-start (id (one-or-more word)) ": " (message) line-end))) + +(defun flycheck-parse-stylelint (output checker buffer) + "Parse stylelint errors from OUTPUT. + +CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +The CHECKER usually returns the errors as JSON. + +If the CHECKER throws an Error it returns an Error message with a stacktrace." + (condition-case nil + (flycheck-parse-stylelint-json output checker buffer) + + ;; The output could not be parsed as JSON + (json-error + + ;; Extract a flycheck error from the output (with a regular expression) + ;; For match-string 4/5 see flycheck-rx-message/flycheck-rx-id + (when (string-match flycheck-stylelint-error-re output) + (list (flycheck-error-new-at + 1 nil 'error + (match-string 4 output) + :id (match-string 5 output) + :checker checker + :buffer buffer + :filename (buffer-file-name buffer))))))) + +(defun flycheck-parse-stylelint-json (output checker buffer) + "Parse stylelint JSON errors from OUTPUT. + +CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://stylelint.io/developer-guide/formatters/' for information +about the JSON format of stylelint." + (let ((json-object-type 'plist)) + + ;; stylelint returns a vector of result objects + ;; Since we only passed one file, the first element is enough + (let* ((stylelint-output (elt (json-read-from-string output) 0)) + (filename (buffer-file-name buffer)) + + ;; Turn all deprecations into warnings + (deprecations + (mapcar (lambda (d) + (flycheck-error-new-at + 1 nil 'warning + (plist-get d :text) + :id "Deprecation Warning" + :checker checker + :buffer buffer + :filename filename)) + (plist-get stylelint-output :deprecations))) + + ;; Turn all invalid options into errors + (invalid-options + (mapcar (lambda (io) + (flycheck-error-new-at + 1 nil 'error + (plist-get io :text) + :id "Invalid Option" + :checker checker + :buffer buffer + :filename filename)) + (plist-get stylelint-output :invalidOptionWarnings))) + + ;; Read all linting warnings + (warnings + (mapcar (lambda (w) + (flycheck-error-new-at + (plist-get w :line) (plist-get w :column) + (pcase (plist-get w :severity) + (`"error" 'error) + (`"warning" 'warning) + ;; Default to info for unknown .severity + (_ 'info)) + (plist-get w :text) + :id (plist-get w :rule) + :checker checker + :buffer buffer + :filename filename)) + (plist-get stylelint-output :warnings)))) + + ;; Return the combined errors (deprecations, invalid options, warnings) + (append deprecations invalid-options warnings)))) + +(defun flycheck--stylelint-config-exists-p (checker) + "Whether there is a valid stylelint CHECKER config for the current buffer." + (eql 0 (flycheck-call-checker-process + checker nil nil nil + "--print-config" (or buffer-file-name "index.js")))) + +(defun flycheck--stylelint-get-major-version (checker) + "Return major version of stylelint CHECKER." + (let ((cb (current-buffer))) + (with-temp-buffer + (let ((temp-buffer (current-buffer))) + (with-current-buffer cb + (flycheck-call-checker-process + checker nil temp-buffer nil "--version")) + (string-to-number (car (split-string (buffer-string) "\\."))))))) + +(defun flycheck--stylelint-verify (checker) + "Verify stylelint setup for CHECKER." + (let ((have-config (flycheck--stylelint-config-exists-p checker))) + (list + (flycheck-verification-result-new + :label "configuration available" + :message (if have-config "yes" "no config file found") + :face (if have-config 'success '(bold error))) + (flycheck-verification-result-new + :label "stylecheck version" + :message (number-to-string (flycheck--stylelint-get-major-version checker)) + :face 'success)))) + +(flycheck-define-checker css-stylelint + "A CSS syntax and style checker using stylelint. + +See URL `https://stylelint.io/'." + :command ("stylelint" + (eval flycheck-stylelint-args) + (option-flag "--quiet" flycheck-stylelint-quiet) + (config-file "--config" flycheck-stylelintrc) + "--stdin-filename" (eval (or (buffer-file-name) "style.css"))) + :standard-input t + :verify (lambda (_) (flycheck--stylelint-verify 'css-stylelint)) + :error-parser flycheck-parse-stylelint + :predicate flycheck-buffer-nonempty-p + :modes (css-mode css-ts-mode) + :error-explainer + (lambda (err) + (let ((error-code (flycheck-error-id err)) + (url "https://stylelint.io/user-guide/rules/%s")) + (and error-code `(url . ,(format url error-code)))))) + +(flycheck-def-option-var flycheck-cuda-language-standard nil cuda-nvcc + "Our CUDA Language Standard." + :type '(choice (const :tag "Default standard" nil) + (string :tag "Language standard")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32")) +(make-variable-buffer-local 'flycheck-cuda-language-standard) + +(flycheck-def-option-var flycheck-cuda-compiler-options '("-Wall" "-Wextra") cuda-nvcc + "Specify options directly to the compiler/preprocessor." + :type '(choice (const :tag "No additional compiler options" nil) + (repeat :tag "Addition compiler options" + (string :tag "Compiler option"))) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "35")) + +(flycheck-def-option-var flycheck-cuda-gencodes nil cuda-nvcc + "Our real and virtual GPU architectures to pass to nvcc." + :type '(repeat (file :tag "GPU architecture")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) + +(flycheck-def-option-var flycheck-cuda-includes nil cuda-nvcc + "Our include directories to pass to nvcc." + :type '(repeat (file :tag "Include file")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) + +(flycheck-def-option-var flycheck-cuda-definitions nil cuda-nvcc + "Additional preprocessor definitions for nvcc. +A list of strings to pass to cuda, a la flycheck-clang" + :type '(repeat (string :tag "Definitions")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) + +(flycheck-def-option-var flycheck-cuda-include-path nil cuda-nvcc + "A list of include directories for nvcc." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) + +(flycheck-def-option-var flycheck-cuda-relaxed-constexpr nil cuda-nvcc + "Enable calling host constexpr from device function for nvcc. + +When non-nil, enable experimental calling of a constexpr __host__ +function from a __device__ function." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "35")) + +(flycheck-def-option-var flycheck-cuda-extended-lambda nil cuda-nvcc + "Enable annotating lambda functions with __host__ or __device__. + +When non-nil, enable experimental compilation of __host__ and +__device__ lambda functions." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "35")) + +(flycheck-define-checker cuda-nvcc + "A CUDA C/C++ syntax checker using nvcc. + +See URL `https://developer.nvidia.com/cuda-llvm-compiler'." + :command ("nvcc" + "-c" ;; Compile Only + "--output-file" "/dev/null" ;; avoid creating output .o + "--x=cu" ;; explicitly specify it's a CUDA language file + "-rdc=true" ;; Allow linking with external cuda funcions + (option "-std=" flycheck-cuda-language-standard concat) + (option-flag "--expt-relaxed-constexpr" flycheck-cuda-relaxed-constexpr) + (option-flag "--expt-extended-lambda" flycheck-cuda-extended-lambda) + (option-list "-include" flycheck-cuda-includes) + (option-list "-gencode" flycheck-cuda-gencodes) + (option-list "-Xcompiler" flycheck-cuda-compiler-options) + (option-list "-D" flycheck-cuda-definitions concat) + (option-list "-I" flycheck-cuda-include-path) + source) + :error-patterns + ((error line-start + (message "In file included from") + " " (or "" (file-name)) + ":" line ":" line-end) + (error line-start (or "" (file-name)) + "(" line "): error" + (optional " #" (id (one-or-more digit) (optional "-D"))) + ": " (message) line-end) + (error line-start (or "" (file-name)) + ":" line ":" column + ": fatal error" + (optional " #" (id (one-or-more digit) (optional "-D"))) + ": " (optional (message)) line-end) + (warning line-start (or "" (file-name)) + "(" line "): warning" + (optional " #" (id (one-or-more digit) (optional "-D"))) + ": " (message) line-end)) + :modes cuda-mode) + + +(flycheck-def-option-var flycheck-cwl-schema-path nil cwl + "A path for the schema file for Common Workflow Language. + +The value of this variable is a string that denotes a path for +the schema file of Common Workflow Language." + :type '(choice (const :tag "None" nil) + (file :tag "Schema file")) + :safe #'flycheck-string-or-nil-p) + +(flycheck-define-checker cwl + "A CWL syntax checker using Schema Salad validator. + +Requires Schema Salad 2.6.20171101113912 or newer. +See URL `https://www.commonwl.org/v1.0/SchemaSalad.html'." + :command ("schema-salad-tool" + "--quiet" + "--print-oneline" + (eval flycheck-cwl-schema-path) + source-inplace) + :error-patterns + ((error line-start + (file-name) ":" line ":" column ":" (zero-or-more blank) + (message (one-or-more not-newline)) + line-end)) + :modes cwl-mode) + +(defconst flycheck-d-module-re + (rx "module" (one-or-more (syntax whitespace)) + (group (one-or-more (not (syntax whitespace)))) + (zero-or-more (syntax whitespace)) + ";") + "Regular expression to match a D module declaration.") + +(defun flycheck-d-base-directory () + "Get the relative base directory path for this module." + (let* ((file-name (buffer-file-name)) + (module-file (if (and file-name + (string= (file-name-nondirectory file-name) + "package.d")) + (directory-file-name (file-name-directory file-name)) + file-name))) + (flycheck-module-root-directory + (flycheck-find-in-buffer flycheck-d-module-re) + module-file))) + +(flycheck-def-option-var flycheck-dmd-include-path nil d-dmd + "A list of include directories for dmd. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of dmd. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.18")) + +(flycheck-def-args-var flycheck-dmd-args d-dmd + :package-version '(flycheck . "0.24")) + +(flycheck-define-checker d-dmd + "A D syntax checker using the DMD compiler. + +Requires DMD 2.066 or newer. See URL `https://dlang.org/'." + :command ("dmd" + "-debug" ; Compile in debug mode + "-o-" ; Don't generate an object file + "-vcolumns" ; Add columns in output + "-wi" ; Compilation will continue even if there are warnings + (eval (concat "-I" (flycheck-d-base-directory))) + (option-list "-I" flycheck-dmd-include-path concat) + (eval flycheck-dmd-args) + (source ".d")) + :error-patterns + ((error line-start + (file-name) "(" line "," column "): Error: " (message) + line-end) + (warning line-start (file-name) "(" line "," column "): " + (or "Warning" "Deprecation") ": " (message) line-end) + (info line-start (file-name) "(" line "," column "): " + (one-or-more " ") (message) line-end)) + :modes d-mode) + +(flycheck-define-checker dockerfile-hadolint + "A Dockerfile syntax checker using the hadolint. + +See URL `https://github.com/hadolint/hadolint/'." + :command ("hadolint" "--no-color" "-") + :standard-input t + :error-patterns + ((error line-start + (file-name) ":" line " " (id (one-or-more alnum)) " error: " (message) + line-end) + (warning line-start + (file-name) ":" line " " (id (one-or-more alnum)) + " warning: " (message) line-end) + (info line-start + (file-name) ":" line " " (id (one-or-more alnum)) " info: " (message) + line-end) + (error line-start + (file-name) ":" line ":" column " " (message) + line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "-" errors))) + :modes (dockerfile-mode dockerfile-ts-mode)) + +(defun flycheck-credo--working-directory (&rest _ignored) + "Check if `credo' is installed as dependency in the application." + (and buffer-file-name + (locate-dominating-file buffer-file-name "deps/credo"))) + +(flycheck-def-option-var flycheck-elixir-credo-strict nil elixir-credo + "Enable strict mode in `credo'. + +When non-nil, pass the `--strict' flag to credo." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "32")) + +(flycheck-define-checker elixir-credo + "An Elixir checker for static code analysis using Credo. + +See `https://credo-ci.org/'." + :command ("mix" "credo" + (option-flag "--strict" flycheck-elixir-credo-strict) + "--format" "flycheck" + "--read-from-stdin" source-original) + :standard-input t + :working-directory flycheck-credo--working-directory + :enabled flycheck-credo--working-directory + :error-patterns + ((info line-start + (file-name) ":" line (optional ":" column) ": " + (or "F" "R" "C") ": " (message) line-end) + (warning line-start + (file-name) ":" line (optional ":" column) ": " + (or "D" "W") ": " (message) line-end)) + :modes elixir-mode) + +(defconst flycheck-this-emacs-executable + (concat invocation-directory invocation-name) + "The path to the currently running Emacs executable.") + +(defconst flycheck-emacs-args '("-Q" "--batch") + "Common arguments to Emacs invocations.") + +(defmacro flycheck-prepare-emacs-lisp-form (&rest body) + "Prepare BODY for use as check form in a subprocess." + (declare (indent 0)) + `(flycheck-sexp-to-string + '(progn + (defvar jka-compr-inhibit) + (unwind-protect + ;; Flycheck inhibits compression of temporary files, thus we + ;; must not attempt to decompress. + (let ((jka-compr-inhibit t)) + ;; Strip option-argument separator from arguments, if present + (when (equal (car command-line-args-left) "--") + (setq command-line-args-left (cdr command-line-args-left))) + ,@body) + ;; Prevent Emacs from processing the arguments on its own, see + ;; https://github.com/flycheck/flycheck/issues/319 + (setq command-line-args-left nil))))) + +(defun flycheck-emacs-lisp-bytecomp-config-form () + "Prepare an Emacs Lisp form to set byte-compiler variables." + (flycheck-sexp-to-string + `(progn + (require 'bytecomp) + (setq byte-compile-root-dir + ,(if buffer-file-name + (file-name-directory buffer-file-name) + default-directory))))) + +(defconst flycheck-emacs-lisp-check-form + (flycheck-prepare-emacs-lisp-form + ;; Keep track of the generated bytecode files, to delete them after byte + ;; compilation. + (require 'bytecomp) + (defvar flycheck-byte-compiled-files nil) + (let ((byte-compile-dest-file-function + (lambda (source) + (let ((temp-file (make-temp-file (file-name-nondirectory source)))) + (push temp-file flycheck-byte-compiled-files) + temp-file)))) + (unwind-protect + (byte-compile-file (car command-line-args-left)) + (mapc (lambda (f) (ignore-errors (delete-file f))) + flycheck-byte-compiled-files)) + (when (bound-and-true-p flycheck-emacs-lisp-check-declare) + (check-declare-file (car command-line-args-left)))))) + +(flycheck-def-option-var flycheck-emacs-lisp-load-path nil emacs-lisp + "Load path to use in the Emacs Lisp syntax checker. + +When set to `inherit', use the `load-path' of the current Emacs +session during syntax checking. + +When set to a list of strings, add each directory in this list to +the `load-path' before invoking the byte compiler. Relative +paths in this list are expanded against the `default-directory' +of the buffer to check. + +When nil, do not explicitly set the `load-path' during syntax +checking. The syntax check only uses the built-in `load-path' of +Emacs in this case. + +Note that changing this variable can lead to wrong results of the +syntax check, e.g. if an unexpected version of a required library +is used." + :type '(choice (const :tag "Inherit current `load-path'" inherit) + (repeat :tag "Load path" directory)) + :risky t + :package-version '(flycheck . "0.14")) + +(flycheck-def-option-var flycheck-emacs-lisp-initialize-packages + 'auto emacs-lisp + "Whether to initialize packages in the Emacs Lisp syntax checker. + +When nil, never initialize packages. When `auto', initialize +packages only when checking `user-init-file' or files from +`user-emacs-directory'. For any other non-nil value, always +initialize packages. + +When initializing packages is enabled the `emacs-lisp' syntax +checker calls `package-initialize' before byte-compiling the file +to be checked. It also sets `package-user-dir' according to +`flycheck-emacs-lisp-package-user-dir'." + :type '(choice (const :tag "Do not initialize packages" nil) + (const :tag "Initialize packages for configuration only" auto) + (const :tag "Always initialize packages" t)) + :risky t + :package-version '(flycheck . "0.14")) + +(defconst flycheck-emacs-lisp-package-initialize-form + (flycheck-sexp-to-string + '(with-demoted-errors "Error during package initialization: %S" + (package-initialize))) + "Form used to initialize packages.") + +(defun flycheck-option-emacs-lisp-package-initialize (value) + "Option VALUE filter for `flycheck-emacs-lisp-initialize-packages'." + (let ((shall-initialize + (if (eq value 'auto) + (or (flycheck-in-user-emacs-directory-p + (or buffer-file-name default-directory)) + ;; `user-init-file' is nil in non-interactive sessions. Now, + ;; no user would possibly use Flycheck in a non-interactive + ;; session, but our unit tests run non-interactively, so we + ;; have to handle this case anyway + (and user-init-file buffer-file-name + (flycheck-same-files-p buffer-file-name user-init-file))) + value))) + (when shall-initialize + ;; If packages shall be initialized, return the corresponding form, + ;; otherwise make Flycheck ignore the option by returning nil. + flycheck-emacs-lisp-package-initialize-form))) + +(flycheck-def-option-var flycheck-emacs-lisp-package-user-dir nil emacs-lisp + "Package directory for the Emacs Lisp syntax checker. + +If set to a string set `package-user-dir' to the value of this +variable before initializing packages. If set to nil just inherit +the value of `package-user-dir' from the running Emacs session. + +This variable has no effect, if +`flycheck-emacs-lisp-initialize-packages' is nil." + :type '(choice (const :tag "Default package directory" nil) + (directory :tag "Custom package directory")) + :risky t + :package-version '(flycheck . "0.14")) + +(defun flycheck-option-emacs-lisp-package-user-dir (value) + "Option VALUE filter for `flycheck-emacs-lisp-package-user-dir'." + ;; Inherit the package directory from our Emacs session + (let ((value (or value (bound-and-true-p package-user-dir)))) + (when value + (flycheck-sexp-to-string `(setq package-user-dir ,value))))) + +(flycheck-def-option-var flycheck-emacs-lisp-check-declare nil emacs-lisp + "If non-nil, check ‘declare-function’ forms using ‘check-declare-file’." + :type '(choice (const :tag "Do not check declare forms" nil) + (const :tag "Check declare forms" t)) + :risky t + :package-version '(flycheck . "31")) + +(defun flycheck-option-emacs-lisp-check-declare (value) + "Option VALUE filter for `flycheck-emacs-lisp-check-declare'." + (when value + (flycheck-sexp-to-string + `(progn + (defvar flycheck-emacs-lisp-check-declare) + (setq flycheck-emacs-lisp-check-declare ,value))))) + +(defun flycheck--emacs-lisp-enabled-p () + "Check whether to enable Emacs Lisp checker in the current buffer." + (not + (or + ;; Do not check buffers used for autoloads generation during package + ;; installation. These buffers are too short-lived for being checked, and + ;; doing so causes spurious errors. See + ;; https://github.com/flycheck/flycheck/issues/45 and + ;; https://github.com/bbatsov/prelude/issues/248. We must also not check + ;; compilation buffers, but as these are ephemeral, Flycheck won't check + ;; them anyway. + (flycheck-autoloads-file-p) + ;; Cask/Carton and dir-locals files contain data, not code, and don't need + ;; to follow Checkdoc conventions either. + (and (buffer-file-name) + (member (file-name-nondirectory (buffer-file-name)) + '("Cask" "Carton" ".dir-locals.el" ".dir-locals-2.el")))))) + +(defun flycheck--emacs-lisp-checkdoc-enabled-p () + "Check whether to enable Emacs Lisp Checkdoc in the current buffer." + (and (flycheck--emacs-lisp-enabled-p) + ;; These files are valid Lisp, but don't contain "standard" comments. + (not (member (buffer-file-name) '("Eldev" "Eldev-local"))))) + +(flycheck-define-checker emacs-lisp + "An Emacs Lisp syntax checker using the Emacs Lisp Byte compiler. + +See Info Node `(elisp)Byte Compilation'." + :command ("emacs" (eval flycheck-emacs-args) + (eval + (let ((path (pcase flycheck-emacs-lisp-load-path + (`inherit load-path) + (p (seq-map #'expand-file-name p))))) + (flycheck-prepend-with-option "--directory" path))) + (option "--eval" flycheck-emacs-lisp-package-user-dir nil + flycheck-option-emacs-lisp-package-user-dir) + (option "--eval" flycheck-emacs-lisp-initialize-packages nil + flycheck-option-emacs-lisp-package-initialize) + (option "--eval" flycheck-emacs-lisp-check-declare nil + flycheck-option-emacs-lisp-check-declare) + "--eval" (eval (flycheck-emacs-lisp-bytecomp-config-form)) + "--eval" (eval flycheck-emacs-lisp-check-form) + "--" + source-inplace) + :error-patterns + ((error line-start (file-name) ":" line ":" column ":" + (zero-or-more whitespace) "Error:" (zero-or-more whitespace) + (message (zero-or-more not-newline) + (zero-or-more "\n " (zero-or-more not-newline))) + line-end) + (warning line-start (file-name) ":" line ":" column ":" + (zero-or-more whitespace) "Warning:" (zero-or-more whitespace) + (message (zero-or-more not-newline) + (zero-or-more "\n " (zero-or-more not-newline))) + line-end) + (warning line-start (file-name) ":" line (optional ":" column) ":" + (zero-or-more whitespace) "Warning (check-declare): said\n" + (message (zero-or-more " " (zero-or-more not-newline)) + (zero-or-more "\n " (zero-or-more not-newline))) + line-end) + ;; The following is for Emacs 24 ‘check-declare-file’, which uses a + ;; less informative format. + (warning line-start "Warning (check-declare): " (file-name) " said " + (message (zero-or-more not-newline)) + line-end)) + :error-filter + (lambda (errors) + (flycheck-fill-empty-line-numbers + (flycheck-collapse-error-message-whitespace + (flycheck-sanitize-errors errors)))) + :modes (emacs-lisp-mode lisp-interaction-mode) + :enabled flycheck--emacs-lisp-enabled-p + :predicate + (lambda () + ;; Do not check buffers that should not be byte-compiled. The checker + ;; process will refuse to compile these, which would confuse Flycheck + (not (bound-and-true-p no-byte-compile))) + :next-checkers (emacs-lisp-checkdoc)) + +(defconst flycheck-emacs-lisp-checkdoc-form + (flycheck-prepare-emacs-lisp-form + (unless (require 'elisp-mode nil 'no-error) + ;; TODO: Fallback for Emacs 24, remove when dropping support for 24 + (require 'lisp-mode)) + (require 'checkdoc) + + (let ((source (car command-line-args-left)) + ;; Remember the default directory of the process + (process-default-directory default-directory)) + ;; Note that we deliberately use our custom approach even despite of + ;; `checkdoc-file' which was added to Emacs 25.1. While it's conceptually + ;; the better thing, its implementation has too many flaws to be of use + ;; for us. + (with-temp-buffer + (insert-file-contents source 'visit) + (setq buffer-file-name source) + ;; And change back to the process default directory to make file-name + ;; back-substutition work + (setq default-directory process-default-directory) + (with-demoted-errors "Error in checkdoc: %S" + ;; Checkdoc needs the Emacs Lisp syntax table and comment syntax to + ;; parse sexps and identify docstrings correctly; see + ;; https://github.com/flycheck/flycheck/issues/833 + (delay-mode-hooks (emacs-lisp-mode)) + (setq delayed-mode-hooks nil) + (checkdoc-current-buffer t) + (with-current-buffer checkdoc-diagnostic-buffer + (princ (buffer-substring-no-properties (point-min) (point-max))) + (kill-buffer))))))) + +(defconst flycheck-emacs-lisp-checkdoc-variables + `(checkdoc-symbol-words + checkdoc-arguments-in-order-flag + checkdoc-force-history-flag + checkdoc-permit-comma-termination-flag + checkdoc-force-docstrings-flag + checkdoc-package-keywords-flag + checkdoc-spellcheck-documentation-flag + checkdoc-verb-check-experimental-flag + checkdoc-max-keyref-before-warn + sentence-end-double-space + ,@(and (>= emacs-major-version 28) + '(checkdoc-column-zero-backslash-before-paren))) + "Variables inherited by the checkdoc subprocess.") + +(defun flycheck-emacs-lisp-checkdoc-variables-form () + "Make a sexp to pass relevant variables to a checkdoc subprocess. + +Variables are taken from `flycheck-emacs-lisp-checkdoc-variables'." + `(progn + ,@(seq-map (lambda (opt) `(setq-default ,opt ',(symbol-value opt))) + (seq-filter #'boundp flycheck-emacs-lisp-checkdoc-variables)))) + +(flycheck-define-checker emacs-lisp-checkdoc + "An Emacs Lisp style checker using CheckDoc. + +The checker runs `checkdoc-current-buffer'." + :command ("emacs" (eval flycheck-emacs-args) + "--eval" (eval (flycheck-sexp-to-string + (flycheck-emacs-lisp-checkdoc-variables-form))) + "--eval" (eval flycheck-emacs-lisp-checkdoc-form) + "--" source) + :error-patterns + ((info line-start (file-name) ":" line ": " (message) line-end)) + :modes (emacs-lisp-mode) + :enabled flycheck--emacs-lisp-checkdoc-enabled-p) + +(dolist (checker '(emacs-lisp emacs-lisp-checkdoc)) + (setf (car (flycheck-checker-get checker 'command)) + flycheck-this-emacs-executable)) + +(defun flycheck-ember-template--check-for-config (&rest _ignored) + "Check the required config file is available up the file system." + (and buffer-file-name + (locate-dominating-file buffer-file-name ".template-lintrc.js"))) + +(defun flycheck-ember-template--parse-error (output checker buffer) + "Parse Ember-template-lint errors/warnings from JSON OUTPUT. +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively." + (mapcar (lambda (err) + (let-alist err + (flycheck-error-new-at + .line + .column + (pcase .severity + (2 'error) + (1 'warning) + (_ 'warning)) + .message + :id .rule + :checker checker + :buffer buffer + :filename (buffer-file-name buffer)))) + (cdr (car (car (flycheck-parse-json output)))))) + +(flycheck-def-config-file-var flycheck-ember-template-lintrc + ember-template + ".template-lintrc.js") + +(flycheck-define-checker ember-template + "An Ember template checker using ember-template-lint." + :command ("ember-template-lint" + (config-file "--config-path" flycheck-ember-template-lintrc) + "--filename" source-original + "--format=json") + :standard-input t + :error-parser flycheck-ember-template--parse-error + :modes web-mode + :enabled flycheck-ember-template--check-for-config + :working-directory flycheck-ember-template--check-for-config) + +(flycheck-def-option-var flycheck-erlang-include-path nil erlang + "A list of include directories for Erlang. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of erlc. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.24")) + +(flycheck-def-option-var flycheck-erlang-library-path nil erlang + "A list of library directories for Erlang. + +The value of this variable is a list of strings, where each +string is a directory to add to the library path of erlc. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Library directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.24")) + +(flycheck-define-checker erlang + "An Erlang syntax checker using the Erlang interpreter. + +See URL `https://www.erlang.org/'." + :command ("erlc" + "-o" temporary-directory + (option-list "-I" flycheck-erlang-include-path) + (option-list "-pa" flycheck-erlang-library-path) + "-Wall" + source) + :error-patterns + ((warning line-start (file-name) ":" line ":" (optional column ":") + " Warning:" (message) line-end) + (error line-start (file-name) ":" line ":" (optional column ":") " " + (message) line-end)) + :modes erlang-mode + :enabled (lambda () (string-suffix-p ".erl" (buffer-file-name)))) + +(defun flycheck--contains-rebar-config (dir-name) + "Return DIR-NAME if rebar config file exists in DIR-NAME, nil otherwise." + (when (or (file-exists-p (expand-file-name "rebar.config" dir-name)) + (file-exists-p (expand-file-name "rebar.config.script" dir-name))) + dir-name)) + +(defun flycheck--locate-rebar3-project-root + (file-name &optional prev-file-name acc) + "Find the top-most rebar project root for source FILE-NAME. + +A project root directory is any directory containing a +rebar.config file. Find the top-most directory to move out of any +nested dependencies. + +FILE-NAME is a source file for which to find the project. + +PREV-FILE-NAME helps us prevent infinite looping + +ACC is an accumulator that keeps the list of results, the first +non-nil of which will be our project root. + +Return the absolute path to the directory" + (if (string= file-name prev-file-name) + (car (remove nil acc)) + (let ((current-dir (file-name-directory file-name))) + (flycheck--locate-rebar3-project-root + (directory-file-name current-dir) + file-name + (cons (flycheck--contains-rebar-config current-dir) acc))))) + +(defun flycheck-rebar3-project-root (&optional _checker) + "Return directory where rebar.config is located." + (flycheck--locate-rebar3-project-root buffer-file-name)) + +(flycheck-def-option-var flycheck-erlang-rebar3-profile nil erlang-rebar3 + "The rebar3 profile to use. + +The profile used when compiling, if VALUE is nil \"test\" will be used +when the file is located in test directory, otherwise \"default\" will be +used as profile." + :type '(choice (const :tag "Automatic" nil) + (string :tag "Profile")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32")) + +(defun flycheck-erlang-rebar3-get-profile () + "Return rebar3 profile. + +Use flycheck-erlang-rebar3-profile if set, otherwise use test or eqc profile if +directory name is \"test\" or \"eqc\", or else \"default\"." + (or + flycheck-erlang-rebar3-profile + (with-no-warnings + ;; `seq-contains-p' is only in seq >= 2.21 + (seq-contains '("test" "eqc") + (and buffer-file-name + (file-name-base + (directory-file-name + (file-name-directory buffer-file-name)))))) + "default")) + +(flycheck-define-checker erlang-rebar3 + "An Erlang syntax checker using the rebar3 build tool." + :command ("rebar3" "as" (eval (flycheck-erlang-rebar3-get-profile)) "compile") + :error-parser flycheck-parse-with-patterns-without-color + :error-patterns + ((warning line-start (file-name) ":" line ":" (optional column ":") + " Warning:" (message) line-end) + (error line-start (file-name) ":" line ":" (optional column ":") " " + (message) line-end)) + :modes erlang-mode + :enabled flycheck-rebar3-project-root + :predicate flycheck-buffer-saved-p + :working-directory flycheck-rebar3-project-root) + +(flycheck-define-checker eruby-erubis + "An eRuby syntax checker using the `erubis' command. + +See URL `https://www.kuwata-lab.com/erubis/'." + :command ("erubis" "-z" source) + :error-patterns + ((error line-start (file-name) ":" line ": " (message) line-end)) + :modes (html-erb-mode rhtml-mode) + :next-checkers ((warning . eruby-ruumba))) + +(flycheck-def-config-file-var flycheck-ruumbarc eruby-ruumba ".ruumba.yml") + +(flycheck-def-option-var flycheck-ruumba-lint-only nil eruby-ruumba + "Whether to only report code issues in Ruumba. + +When non-nil, only report code issues in Ruumba, via `--lint'. +Otherwise report style issues as well." + :safe #'booleanp + :type 'boolean + :package-version '(flycheck . "32")) + +(flycheck-define-checker eruby-ruumba + "An eRuby syntax and style checker using the Ruumba tool. + +You need at least Ruumba 0.1.7 for this syntax checker. + +See URL `https://github.com/ericqweinstein/ruumba'." + :command ("ruumba" + "--display-cop-names" + "--force-exclusion" + "--format" "emacs" + "--cache" "false" + (config-file "--config" flycheck-ruumbarc) + (option-flag "--lint" flycheck-ruumba-lint-only) + ;; Ruumba takes the original file name as argument when reading + ;; from standard input + "--stdin" source-original) + :standard-input t + :working-directory flycheck-ruby--find-project-root + :error-patterns + ((info line-start (file-name) ":" line ":" column ": C: " + (optional (id (one-or-more (not (any ":")))) ": ") (message) line-end) + (warning line-start (file-name) ":" line ":" column ": W: " + (optional (id (one-or-more (not (any ":")))) ": ") (message) + line-end) + (error line-start (file-name) ":" line ":" column ": " (or "E" "F") ": " + (optional (id (one-or-more (not (any ":")))) ": ") (message) + line-end)) + :modes (html-erb-mode rhtml-mode)) + +(flycheck-def-args-var flycheck-gfortran-args fortran-gfortran + :package-version '(flycheck . "0.22")) + +(flycheck-def-option-var flycheck-gfortran-include-path nil fortran-gfortran + "A list of include directories for GCC Fortran. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of gcc. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gfortran-language-standard "f95" + fortran-gfortran + "The language standard to use in GFortran. + +The value of this variable is either a string denoting a language +standard, or nil, to use the default standard. When non-nil, +pass the language standard via the `-std' option." + :type '(choice (const :tag "Default standard" nil) + (string :tag "Language standard")) + :package-version '(flycheck . "0.20")) + +(flycheck-def-option-var flycheck-gfortran-layout nil fortran-gfortran + "The source code layout to use in GFortran. + +The value of this variable is one of the following symbols: + +nil + Let gfortran determine the layout from the extension + +`free' + Use free form layout + + +`fixed' + Use fixed form layout + +In any other case, an error is signaled." + :type '(choice (const :tag "Guess layout from extension" nil) + (const :tag "Free form layout" free) + (const :tag "Fixed form layout" fixed)) + :safe (lambda (value) (or (not value) (memq value '(free fixed)))) + :package-version '(flycheck . "0.20")) + +(defun flycheck-option-gfortran-layout (value) + "Option VALUE filter for `flycheck-gfortran-layout'." + (pcase value + (`nil nil) + (`free "free-form") + (`fixed "fixed-form") + (_ (error "Invalid value for flycheck-gfortran-layout: %S" value)))) + +(flycheck-def-option-var flycheck-gfortran-warnings '("all" "extra") + fortran-gfortran + "A list of warnings for GCC Fortran. + +The value of this variable is a list of strings, where each string +is the name of a warning category to enable. By default, all +recommended warnings and some extra warnings are enabled (as by +`-Wall' and `-Wextra' respectively). + +Refer to the gfortran manual at URL +`https://gcc.gnu.org/onlinedocs/gfortran/' for more information +about warnings" + :type '(choice (const :tag "No additional warnings" nil) + (repeat :tag "Additional warnings" + (string :tag "Warning name"))) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.20")) + +(flycheck-define-checker fortran-gfortran + "An Fortran syntax checker using GCC. + +Uses GCC's Fortran compiler gfortran. See URL +`https://gcc.gnu.org/onlinedocs/gfortran/'." + :command ("gfortran" + "-fsyntax-only" + "-fshow-column" + ;; Do not visually indicate the source location + "-fno-diagnostics-show-caret" + ;; Do not show the corresponding warning group + "-fno-diagnostics-show-option" + ;; Fortran has similar include processing as C/C++ + "-iquote" (eval (flycheck-c/c++-quoted-include-directory)) + (option "-std=" flycheck-gfortran-language-standard concat) + (option "-f" flycheck-gfortran-layout concat + flycheck-option-gfortran-layout) + (option-list "-W" flycheck-gfortran-warnings concat) + (option-list "-I" flycheck-gfortran-include-path concat) + (eval flycheck-gfortran-args) + source) + :error-patterns + ((error line-start (file-name) ":" line (or ":" ".") column (or ": " ":\n") + (or (= 3 (zero-or-more not-newline) "\n") "") + (or "Error" "Fatal Error") ": " + (message) line-end) + (warning line-start (file-name) ":" line (or ":" ".") column (or ": " ":\n") + (or (= 3 (zero-or-more not-newline) "\n") "") + "Warning: " (message) line-end)) + :modes (fortran-mode f90-mode)) + +(flycheck-define-checker yaml-actionlint + "A YAML syntax checker using actionlint. + +See URL https://github.com/rhysd/actionlint/." + :command ("actionlint" "-oneline" source) + :error-patterns ((error line-start (file-name) ":" line ":" column ": " (message) line-end)) + :modes (yaml-mode yaml-ts-mode) + :predicate (lambda () + (string-match-p + (rx (or ".github/workflows" ".github\\workflows")) + (buffer-file-name)))) + +(flycheck-define-checker go-gofmt + "A Go syntax and style checker using the gofmt utility. + +See URL `https://golang.org/cmd/gofmt/'." + :command ("gofmt") + :standard-input t + :error-patterns + ((error line-start ":" line ":" column ": " + (message) line-end)) + :modes (go-mode go-ts-mode) + :next-checkers ((warning . go-vet) + ;; Fall back, if go-vet doesn't exist + (warning . go-build) (warning . go-test) + (warning . go-errcheck) + (warning . go-unconvert) + (warning . go-staticcheck))) + +(flycheck-def-option-var flycheck-go-vet-print-functions nil go-vet + "A list of print-like functions for `go vet'. + +Go vet will check these functions for format string problems and +issues, such as a mismatch between the number of formats used, +and the number of arguments given. + +Each entry is in the form Name:N where N is the zero-based +argument position of the first argument involved in the print: +either the format or the first print argument for non-formatted +prints. For example, if you have Warn and Warnf functions that +take an io.Writer as their first argument, like Fprintf, +-printfuncs=Warn:1,Warnf:1 " + :type '(repeat :tag "print-like functions" + (string :tag "function")) + :safe #'flycheck-string-list-p) + +(flycheck-define-checker go-vet + "A Go syntax checker using the `go vet' command. + +See URL `https://golang.org/cmd/go/' and URL +`https://golang.org/cmd/vet/'." + :command ("go" "vet" + (option "-printf.funcs=" flycheck-go-vet-print-functions concat + flycheck-option-comma-separated-list) + (source ".go")) + :error-patterns + ((warning line-start (file-name) ":" line ": " (message) line-end)) + :modes (go-mode go-ts-mode) + :next-checkers (go-build + go-test + ;; Fall back if `go build' or `go test' can be used + go-errcheck + go-unconvert + go-staticcheck) + :verify (lambda (_) + (let* ((go (flycheck-checker-executable 'go-vet)) + (have-vet (member "vet" (ignore-errors + (process-lines go "tool"))))) + (list + (flycheck-verification-result-new + :label "go tool vet" + :message (if have-vet "present" "missing") + :face (if have-vet 'success '(bold error))))))) + +(flycheck-def-option-var flycheck-go-build-install-deps nil (go-build go-test) + "Whether to install dependencies in `go build' and `go test'. + +If non-nil automatically install dependencies with `go build' +while syntax checking." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.25")) + +(flycheck-def-option-var flycheck-go-build-tags nil + (go-build go-test go-errcheck go-staticcheck) + "A list of tags for `go build'. + +Each item is a string with a tag to be given to `go build'." + :type '(repeat (string :tag "Tag")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.25")) + + +(flycheck-def-option-var flycheck-go-version nil go-staticcheck + "The version of go that should be targeted by `staticcheck'. + +Should be a string representing a version, like 1.6 or 1.11.4. +See `https://staticcheck.io/docs/#targeting-go-versions' for +details." + :type '(choice (const :tag "Unspecified" nil) + (string :tag "Version")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "0.32")) + +(flycheck-define-checker go-build + "A Go syntax and type checker using the `go build' command. + +Requires Go 1.6 or newer. See URL `https://golang.org/cmd/go'." + :command ("go" "build" + (option-flag "-i" flycheck-go-build-install-deps) + ;; multiple tags are listed as "dev debug ..." + (option-list "-tags=" flycheck-go-build-tags concat) + "-o" null-device) + :error-patterns + ((error line-start (file-name) ":" line ":" + (optional column ":") " " + (message (one-or-more not-newline) + (zero-or-more "\n\t" (one-or-more not-newline))) + line-end) + ;; Catch error message about multiple packages in a directory, which doesn't + ;; follow the standard error message format. + (info line-start + (message "can't load package: package " + (one-or-more (not (any ?: ?\n))) + ": found packages " + (one-or-more not-newline)) + line-end)) + :error-filter + (lambda (errors) + (dolist (error errors) + (unless (flycheck-error-line error) + ;; Flycheck ignores errors without line numbers, but the error + ;; message about multiple packages in a directory doesn't come with a + ;; line number, so inject a fake one. + (setf (flycheck-error-line error) 1))) + errors) + :modes (go-mode go-ts-mode) + :predicate (lambda () + (and (flycheck-buffer-saved-p) + (not (string-suffix-p "_test.go" (buffer-file-name))))) + :next-checkers ((warning . go-errcheck) + (warning . go-unconvert) + (warning . go-staticcheck))) + +(flycheck-define-checker go-test + "A Go syntax and type checker using the `go test' command. + +Requires Go 1.6 or newer. See URL `https://golang.org/cmd/go'." + :command ("go" "test" + (option-flag "-i" flycheck-go-build-install-deps) + (option-list "-tags=" flycheck-go-build-tags concat) + "-c" "-o" null-device) + :error-patterns + ((error line-start (file-name) ":" line ":" + (optional column ":") " " + (message (one-or-more not-newline) + (zero-or-more "\n\t" (one-or-more not-newline))) + line-end)) + :modes (go-mode go-ts-mode) + :predicate + (lambda () (and (flycheck-buffer-saved-p) + (string-suffix-p "_test.go" (buffer-file-name)))) + :next-checkers ((warning . go-errcheck) + (warning . go-unconvert) + (warning . go-staticcheck))) + +(flycheck-define-checker go-errcheck + "A Go checker for unchecked errors. + +Requires errcheck newer than commit 8515d34 (Aug 28th, 2015). + +See URL `https://github.com/kisielk/errcheck'." + :command ("errcheck" + "-abspath" + (option-list "-tags=" flycheck-go-build-tags concat) + ".") + :error-patterns + ((warning line-start + (file-name) ":" line ":" column (or (one-or-more "\t") ": " ":\t") + (message) + line-end)) + :error-filter + (lambda (errors) + (let ((errors (flycheck-sanitize-errors errors))) + (dolist (err errors) + (when-let (message (flycheck-error-message err)) + ;; Improve the messages reported by errcheck to make them more clear. + (setf (flycheck-error-message err) + (format "Ignored `error` returned from `%s`" message))))) + errors) + :modes (go-mode go-ts-mode) + :predicate (lambda () (flycheck-buffer-saved-p)) + :next-checkers ((warning . go-unconvert) + (warning . go-staticcheck))) + +(flycheck-define-checker go-unconvert + "A Go checker looking for unnecessary type conversions. + +See URL `https://github.com/mdempsky/unconvert'." + :command ("unconvert" ".") + :error-patterns + ((warning line-start (file-name) ":" line ":" column ": " (message) line-end)) + :modes (go-mode go-ts-mode) + :predicate (lambda () (flycheck-buffer-saved-p))) + +(flycheck-define-checker go-staticcheck + "A Go checker that performs static analysis and linting using +the `staticcheck' command. + +`staticcheck' is explicitly fully compatible with \"the last two +versions of go\". `staticheck' can target earlier versions (with +limited features) if `flycheck-go-version' is set. See URL +`https://staticcheck.io/'." + :command ("staticcheck" "-f" "json" + (option-list "-tags" flycheck-go-build-tags concat) + (option "-go" flycheck-go-version)) + + :error-parser flycheck-parse-go-staticcheck + :modes (go-mode go-ts-mode)) + +(flycheck-define-checker groovy + "A groovy syntax checker using groovy compiler API. + +See URL `https://www.groovy-lang.org'." + :command ("groovy" "-e" + "import org.codehaus.groovy.control.* + +unit = new CompilationUnit() +unit.addSource(\"input\", System.in) + +try { + unit.compile(Phases.CONVERSION) +} catch (MultipleCompilationErrorsException e) { + e.errorCollector.write(new PrintWriter(System.out, true), null) +}") + :standard-input t + :error-patterns + ((error line-start "input: " line ":" (message) + " @ line " line ", column " column "." line-end)) + :modes groovy-mode) + +(flycheck-define-checker haml + "A Haml syntax checker using the Haml compiler. + +See URL `https://haml.info'." + :command ("haml" "-c" "--stdin") + :standard-input t + :error-patterns + ((error line-start "Syntax error on line " line ": " (message) line-end) + (error line-start ":" line ": syntax error, " (message) line-end)) + :modes haml-mode) + +(flycheck-define-checker haml-lint + "HAML-Lint style checker. + +See URL `https://github.com/sds/haml-lint'." + :command ("haml-lint" "--no-color" "--no-summary" source) + :error-patterns + ((error line-start (file-name) ":" line " [E]" (message) line-end) + (warning line-start (file-name) ":" line " [W]" (message) line-end)) + :modes haml-mode) + +(flycheck-define-checker handlebars + "A Handlebars syntax checker using the Handlebars compiler. + +See URL `https://handlebarsjs.com/'." + :command ("handlebars" "-i-") + :standard-input t + :error-patterns + ((error line-start + "Error: Parse error on line " line ":" (optional "\r") "\n" + (zero-or-more not-newline) "\n" (zero-or-more not-newline) "\n" + (message) line-end)) + :modes (handlebars-mode handlebars-sgml-mode web-mode) + :predicate + (lambda () + (if (eq major-mode 'web-mode) + ;; Check if this is a handlebars file since web-mode does not store the + ;; non-canonical engine name + (let* ((regexp-alist (bound-and-true-p web-mode-engine-file-regexps)) + (pattern (cdr (assoc "handlebars" regexp-alist)))) + (and pattern (buffer-file-name) + (string-match-p pattern (buffer-file-name)))) + t))) + +(defconst flycheck-haskell-module-re + (rx line-start (zero-or-more (or "\n" (any space))) + "module" (one-or-more (or "\n" (any space))) + (group (one-or-more (not (any space "(" "\n"))))) + "Regular expression for a Haskell module name.") + +(flycheck-def-args-var flycheck-ghc-args (haskell-stack-ghc haskell-ghc) + :package-version '(flycheck . "0.22")) + +(flycheck-def-option-var flycheck-ghc-stack-use-nix nil haskell-stack-ghc + "Whether to enable nix support in stack. + +When non-nil, stack will append '--nix' flag to any call." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "26")) + +(flycheck-def-option-var flycheck-ghc-stack-project-file nil haskell-stack-ghc + "Override project stack.yaml file. + +The value of this variable is a file path that refers to a yaml +file for the current stack project. Relative file paths are +resolved against the checker's working directory. When non-nil, +stack will get overridden value via `--stack-yaml'." + :type '(choice (const :tag "Unspecified" nil) + (file :tag "Project file")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32")) + +(flycheck-def-option-var flycheck-ghc-no-user-package-database nil haskell-ghc + "Whether to disable the user package database in GHC. + +When non-nil, disable the user package database in GHC, via +`-no-user-package-db'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.16")) + +(flycheck-def-option-var flycheck-ghc-package-databases nil haskell-ghc + "Additional module databases for GHC. + +The value of this variable is a list of strings, where each +string is a directory of a package database. Each package +database is given to GHC via `-package-db'." + :type '(repeat (directory :tag "Package database")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.16")) + +(flycheck-def-option-var flycheck-ghc-search-path nil + (haskell-stack-ghc haskell-ghc) + "Module search path for (Stack) GHC. + +The value of this variable is a list of strings, where each +string is a directory containing Haskell modules. Each directory +is added to the GHC search path via `-i'." + :type '(repeat (directory :tag "Module directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.16")) + +(flycheck-def-option-var flycheck-ghc-language-extensions nil + (haskell-stack-ghc haskell-ghc) + "Language extensions for (Stack) GHC. + +The value of this variable is a list of strings, where each +string is a Haskell language extension, as in the LANGUAGE +pragma. Each extension is enabled via `-X'." + :type '(repeat (string :tag "Language extension")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.19")) + +(defvar flycheck-haskell-ghc-cache-directory nil + "The cache directory for `ghc' output.") + +(defun flycheck-haskell-ghc-cache-directory () + "Get the cache location for `ghc' output. + +If no cache directory exists yet, create one and return it. +Otherwise return the previously used cache directory." + (setq flycheck-haskell-ghc-cache-directory + (or flycheck-haskell-ghc-cache-directory + (make-temp-file "flycheck-haskell-ghc-cache" 'directory)))) + +(defun flycheck--locate-dominating-file-matching (directory regexp) + "Search for a file in directory hierarchy starting at DIRECTORY. + +Look up the directory hierarchy from DIRECTORY for a directory +containing a file that matches REGEXP." + (locate-dominating-file + directory + (lambda (dir) + (directory-files dir nil regexp t)))) + +(defun flycheck-haskell--find-stack-default-directory () + "Find a directory to run haskell-stack-ghc. + +Return a parent directory with a stack*.y[a]ml file, or the +directory returned by \"stack path --project-root\"." + (or + (when (buffer-file-name) + (flycheck--locate-dominating-file-matching + (file-name-directory (buffer-file-name)) + (rx "stack" (* any) "." (or "yml" "yaml") eos))) + (when-let* ((stack (funcall flycheck-executable-find "stack")) + (output (ignore-errors + (process-lines stack + "--no-install-ghc" + "path" "--project-root"))) + (stack-dir (car output))) + (and (file-directory-p stack-dir) stack-dir)))) + +(defun flycheck-haskell--ghc-find-default-directory (_checker) + "Find a parent directory containing a cabal or package.yaml file." + (when (buffer-file-name) + (flycheck--locate-dominating-file-matching + (file-name-directory (buffer-file-name)) + "\\.cabal\\'\\|\\`package\\.yaml\\'"))) + +(flycheck-define-checker haskell-stack-ghc + "A Haskell syntax and type checker using `stack ghc'. + +See URL `https://github.com/commercialhaskell/stack'." + :command ("stack" + "--no-install-ghc" + (option "--stack-yaml" flycheck-ghc-stack-project-file) + (option-flag "--nix" flycheck-ghc-stack-use-nix) + "ghc" "--" "-Wall" "-no-link" + "-outputdir" (eval (flycheck-haskell-ghc-cache-directory)) + (option-list "-X" flycheck-ghc-language-extensions concat) + (option-list "-i" flycheck-ghc-search-path concat) + (eval (concat + "-i" + (flycheck-module-root-directory + (flycheck-find-in-buffer flycheck-haskell-module-re)))) + (eval flycheck-ghc-args) + "-x" (eval + (pcase major-mode + (`haskell-mode "hs") + (`haskell-literate-mode "lhs"))) + source) + :error-patterns + ((warning line-start (file-name) ":" line ":" column ":" + (or " " "\n ") (in "Ww") "arning:" + (optional " " "[" (id (one-or-more not-newline)) "]") + (optional "\n") + (message + (one-or-more " ") (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more (not (any ?\n ?|))))) + line-end) + (error line-start (file-name) ":" line ":" column ":" (optional " error:") + (optional " " "[" (id (one-or-more not-newline)) "]") + (or (message (one-or-more not-newline)) + (and "\n" + (message + (one-or-more " ") (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more (not (any ?\n ?|))))))) + line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors (flycheck-dedent-error-messages errors))) + :modes (haskell-mode haskell-literate-mode) + :next-checkers ((warning . haskell-hlint)) + :working-directory (lambda (_) + (flycheck-haskell--find-stack-default-directory)) + :enabled flycheck-haskell--find-stack-default-directory + :verify (lambda (_) + (let* ((stack (flycheck-haskell--find-stack-default-directory))) + (list + (flycheck-verification-result-new + :label "stack config" + :message (or stack "Not found") + :face (if stack 'success '(bold error))))))) + +(flycheck-define-checker haskell-ghc + "A Haskell syntax and type checker using ghc. + +See URL `https://www.haskell.org/ghc/'." + :command ("ghc" "-Wall" "-no-link" + "-outputdir" (eval (flycheck-haskell-ghc-cache-directory)) + (option-flag "-no-user-package-db" + flycheck-ghc-no-user-package-database) + (option-list "-package-db" flycheck-ghc-package-databases) + (option-list "-i" flycheck-ghc-search-path concat) + ;; Include the parent directory of the current module tree, to + ;; properly resolve local imports + (eval (concat + "-i" + (flycheck-module-root-directory + (flycheck-find-in-buffer flycheck-haskell-module-re)))) + (option-list "-X" flycheck-ghc-language-extensions concat) + (eval flycheck-ghc-args) + "-x" (eval + (pcase major-mode + (`haskell-mode "hs") + (`haskell-literate-mode "lhs"))) + source) + :error-patterns + ((warning line-start (file-name) ":" line ":" column ":" + (or " " "\n ") (in "Ww") "arning:" + (optional " " "[" (id (one-or-more not-newline)) "]") + (optional "\n") + (message + (one-or-more " ") (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more (not (any ?\n ?|))))) + line-end) + (error line-start (file-name) ":" line ":" column ":" (optional " error:") + (optional " " "[" (id (one-or-more not-newline)) "]") + (or (message (one-or-more not-newline)) + (and "\n" + (message + (one-or-more " ") (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more (not (any ?\n ?|))))))) + line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors (flycheck-dedent-error-messages errors))) + :modes (haskell-mode haskell-literate-mode) + :next-checkers ((warning . haskell-hlint)) + :working-directory flycheck-haskell--ghc-find-default-directory) + +(flycheck-def-config-file-var flycheck-hlintrc haskell-hlint ".hlint.yaml") + +(flycheck-def-args-var flycheck-hlint-args haskell-hlint + :package-version '(flycheck . "0.25")) + +(flycheck-def-option-var flycheck-hlint-language-extensions + nil haskell-hlint + "Extensions list to enable for hlint. + +The value of this variable is a list of strings, where each +string is a name of extension to enable in +hlint (e.g. \"QuasiQuotes\")." + :type '(repeat :tag "Extensions" (string :tag "Extension")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.24")) + +(flycheck-def-option-var flycheck-hlint-ignore-rules + nil haskell-hlint + "Ignore rules list for hlint checks. + +The value of this variable is a list of strings, where each +string is an ignore rule (e.g. \"Use fmap\")." + :type '(repeat :tag "Ignore rules" (string :tag "Ignore rule")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.24")) + +(flycheck-def-option-var flycheck-hlint-hint-packages + nil haskell-hlint + "Hint packages to include for hlint checks. + +The value of this variable is a list of strings, where each +string is a default hint package (e.g. (\"Generalise\" +\"Default\" \"Dollar\"))." + :type '(repeat :tag "Hint packages" (string :tag "Hint package")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.24")) + +(flycheck-define-checker haskell-hlint + "A Haskell style checker using hlint. + +See URL `https://github.com/ndmitchell/hlint'." + :command ("hlint" + "--no-exit-code" + (option-list "-X" flycheck-hlint-language-extensions concat) + (option-list "-i=" flycheck-hlint-ignore-rules concat) + (option-list "-h" flycheck-hlint-hint-packages concat) + (config-file "-h" flycheck-hlintrc) + (eval flycheck-hlint-args) + source-inplace) + :error-patterns + ((info line-start + (file-name) ":" + (or (seq line ":" column (optional "-" end-column)) + (seq "(" line "," column ")-(" end-line "," end-column ")")) + ": Suggestion: " + (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n))) + line-end) + (warning line-start + (file-name) ":" + (or (seq line ":" column (optional "-" end-column)) + (seq "(" line "," column ")-(" end-line "," end-column ")")) + ": Warning: " + (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n))) + line-end) + (error line-start + (file-name) ":" + (or (seq line ":" column (optional "-" end-column)) + (seq "(" line "," column ")-(" end-line "," end-column ")")) + ": Error: " + (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n))) + line-end)) + :modes (haskell-mode haskell-literate-mode)) + +(flycheck-def-config-file-var flycheck-tidyrc html-tidy ".tidyrc") + +(flycheck-define-checker html-tidy + "A HTML syntax and style checker using Tidy. + +See URL `https://github.com/htacg/tidy-html5'." + :command ("tidy" (config-file "-config" flycheck-tidyrc) + "-lang" "en" + "-e" "-q") + :standard-input t + :error-patterns + ((error line-start + "line " line + " column " column + " - Error: " (message) line-end) + (warning line-start + "line " line + " column " column + " - Warning: " (message) line-end)) + :modes (html-mode mhtml-mode nxhtml-mode)) + +(flycheck-def-config-file-var flycheck-jshintrc javascript-jshint ".jshintrc") + +(flycheck-def-option-var flycheck-jshint-extract-javascript nil + javascript-jshint + "Whether jshint should extract Javascript from HTML. + +If nil no extract rule is given to jshint. If `auto' only +extract Javascript if a HTML file is detected. If `always' or +`never' extract Javascript always or never respectively. + +Refer to the jshint manual at the URL +`https://jshint.com/docs/cli/#flags' for more information." + :type + '(choice (const :tag "No extraction rule" nil) + (const :tag "Try to extract Javascript when detecting HTML files" + auto) + (const :tag "Always try to extract Javascript" always) + (const :tag "Never try to extract Javascript" never)) + :safe #'symbolp + :package-version '(flycheck . "26")) + +(flycheck-define-checker javascript-jshint + "A Javascript syntax and style checker using jshint. + +See URL `https://www.jshint.com'." + :command ("jshint" "--reporter=checkstyle" + "--filename" source-original + (config-file "--config" flycheck-jshintrc) + (option "--extract=" flycheck-jshint-extract-javascript + concat flycheck-option-symbol) + "-") + :standard-input t + :error-parser flycheck-parse-checkstyle + :error-filter + (lambda (errors) + (flycheck-remove-error-file-names + "stdin" (flycheck-dequalify-error-ids errors))) + :modes (js-mode js2-mode js3-mode rjsx-mode js-ts-mode)) + +(flycheck-def-args-var flycheck-eslint-args javascript-eslint + :package-version '(flycheck . "32")) + +(flycheck-def-option-var flycheck-eslint-rules-directories nil javascript-eslint + "A list of directories with custom rules for ESLint. + +The value of this variable is a list of strings, where each +string is a directory with custom rules for ESLint. + +Refer to the ESLint manual at URL +`https://eslint.org/docs/user-guide/command-line-interface#--rulesdir' +for more information about the custom directories." + :type '(repeat (directory :tag "Custom rules directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "29")) + +(defun flycheck-eslint-config-exists-p () + "Whether there is a valid eslint config for the current buffer." + (eql 0 (flycheck-call-checker-process + 'javascript-eslint nil nil nil + "--print-config" (or buffer-file-name "index.js")))) + +(defun flycheck-parse-eslint (output checker buffer) + "Parse ESLint errors/warnings from JSON OUTPUT. + +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://eslint.org' for more information about ESLint." + (mapcar (lambda (err) + (let-alist err + (flycheck-error-new-at + .line + .column + (pcase .severity + (2 'error) + (1 'warning) + (_ 'warning)) + .message + :id .ruleId + :checker checker + :buffer buffer + :filename (buffer-file-name buffer) + :end-line .endLine + :end-column .endColumn))) + (let-alist (caar (flycheck-parse-json output)) + .messages))) + +(defun flycheck-eslint--find-working-directory (_checker) + "Look for a working directory to run ESLint CHECKER in. + +This will be the directory that contains the `node_modules' +directory. If no such directory is found in the directory +hierarchy, it looks first for `.eslintignore' and then for +`.eslintrc' files to detect the project root." + (let* ((regex-config (concat "\\`\\.eslintrc" + "\\(\\.\\(js\\|ya?ml\\|json\\)\\)?\\'"))) + (when buffer-file-name + (or (locate-dominating-file buffer-file-name "node_modules") + (locate-dominating-file buffer-file-name ".eslintignore") + (locate-dominating-file + (file-name-directory buffer-file-name) + (lambda (directory) + (> (length (directory-files directory nil regex-config t)) 0))))))) + +(flycheck-define-checker javascript-eslint + "A Javascript syntax and style checker using eslint. + +See URL `https://eslint.org/'." + :command ("eslint" "--format=json" + (option-list "--rulesdir" flycheck-eslint-rules-directories) + (eval flycheck-eslint-args) + "--stdin" "--stdin-filename" source-original) + :standard-input t + :error-parser flycheck-parse-eslint + :enabled (lambda () (flycheck-eslint-config-exists-p)) + :modes (js-mode js-jsx-mode js2-mode js2-jsx-mode js3-mode rjsx-mode + typescript-mode js-ts-mode typescript-ts-mode tsx-ts-mode) + :working-directory flycheck-eslint--find-working-directory + :verify + (lambda (_) + (let* ((default-directory + (flycheck-compute-working-directory 'javascript-eslint)) + (have-config (flycheck-eslint-config-exists-p))) + (list + (flycheck-verification-result-new + :label "config file" + :message (if have-config "found" "missing or incorrect") + :face (if have-config 'success '(bold error)))))) + :error-explainer + (lambda (err) + (let ((error-code (flycheck-error-id err)) + (url "https://eslint.org/docs/rules/%s")) + (and error-code + ;; skip non-builtin rules + (not ;; `seq-contains-p' is only in seq >= 2.21 + (with-no-warnings (seq-contains error-code ?/))) + `(url . ,(format url error-code)))))) + +(flycheck-define-checker javascript-standard + "A Javascript code and style checker for the (Semi-)Standard Style. + +This checker works with `standard' and `semistandard', defaulting +to the former. To use it with the latter, set +`flycheck-javascript-standard-executable' to `semistandard'. + +See URL `https://github.com/standard/standard' and URL +`https://github.com/Flet/semistandard'." + :command ("standard" "--stdin") + :standard-input t + :error-patterns + ((error line-start " :" line ":" column ":" (message) line-end)) + :modes (js-mode js-jsx-mode js2-mode js2-jsx-mode js3-mode rjsx-mode + js-ts-mode)) + +(flycheck-define-checker json-jsonlint + "A JSON syntax and style checker using jsonlint. + +See URL `https://github.com/zaach/jsonlint'." + ;; We can't use standard input for jsonlint, because it doesn't output errors + ;; anymore when using -c -q with standard input :/ + :command ("jsonlint" "-c" "-q" source) + :error-patterns + ((error line-start + (file-name) + ": line " line + ", col " column ", " + (message) line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors (flycheck-increment-error-columns errors))) + :modes (json-mode js-json-mode json-ts-mode)) + +(flycheck-define-checker json-python-json + "A JSON syntax checker using Python json.tool module. + +See URL `https://docs.python.org/3.5/library/json.html#command-line-interface'." + :command ("python3" "-m" "json.tool" source + ;; Send the pretty-printed output to the null device + null-device) + :error-patterns + ((error line-start + (message) ": line " line " column " column + ;; Ignore the rest of the line which shows the char position. + (one-or-more not-newline) + line-end)) + :modes (json-mode js-json-mode json-ts-mode) + ;; The JSON parser chokes if the buffer is empty and has no JSON inside + :predicate flycheck-buffer-nonempty-p) + +(flycheck-define-checker json-jq + "JSON checker using the jq tool. + +This checker accepts multiple consecutive JSON values in a +single input, which is useful for jsonlines data. + +See URL `https://stedolan.github.io/jq/'." + :command ("jq" "." source null-device) + ;; Example error message: + ;; parse error: Expected another key-value pair at line 3, column 1 + :error-patterns + ((error line-start + (optional "parse error: ") + (message) "at line " line ", column " column + (zero-or-more not-newline) line-end)) + :modes (json-mode js-json-mode json-ts-mode)) + +(flycheck-def-option-var flycheck-jsonnet-include-paths nil jsonnet + "a list of include paths to specify to the jsonnet binary, via -J . + +For example (\"./lib\") ." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "35.0")) + +(flycheck-def-args-var flycheck-jsonnet-command-args jsonnet + :package-version '(flycheck . "35.0")) + +(flycheck-define-checker jsonnet + "A Jsonnet syntax checker using the jsonnet binary. + +See URL `https://jsonnet.org'." + :command + ("jsonnet" + (option-list "-J" flycheck-jsonnet-include-paths) + (eval flycheck-jsonnet-command-args) + source-inplace) + :error-patterns + ((error line-start "STATIC ERROR: " (file-name) ":" + (or (seq line ":" column (zero-or-one (seq "-" end-column))) + (seq "(" line ":" column ")" "-" + "(" end-line ":" end-column ")")) + ": " (message) line-end) + (error line-start "RUNTIME ERROR: " (message) "\n" + (? "\t" (file-name) ":" ;; first line of the backtrace + (or (seq line ":" column (zero-or-one (seq "-" end-column))) + (seq "(" line ":" column ")" "-" + "(" end-line ":" end-column ")"))))) + :error-filter + (lambda (errs) + ;; Some errors are missing line numbers. See URL + ;; `https://github.com/google/jsonnet/issues/786'. + (dolist (err errs) + (unless (flycheck-error-line err) + (setf (flycheck-error-line err) 1))) + (flycheck-sanitize-errors errs)) + :modes jsonnet-mode) + +(flycheck-define-checker less + "A LESS syntax checker using lessc. + +Requires lessc 1.4 or newer. + +See URL `https://lesscss.org'." + :command ("lessc" "--lint" "--no-color" + "-") + :standard-input t + :error-patterns + ((error line-start (one-or-more word) ":" + (message) + " in - on line " line + ", column " column ":" + line-end)) + :modes less-css-mode) + +(flycheck-define-checker less-stylelint + "A LESS syntax and style checker using stylelint. + +See URL `https://stylelint.io/'." + :command ("stylelint" + (eval flycheck-stylelint-args) + (option-flag "--quiet" flycheck-stylelint-quiet) + (config-file "--config" flycheck-stylelintrc)) + :standard-input t + :verify (lambda (_) (flycheck--stylelint-verify 'less-stylelint)) + :error-parser flycheck-parse-stylelint + :predicate flycheck-buffer-nonempty-p + :modes (less-css-mode)) + +(flycheck-define-checker llvm-llc + "Flycheck LLVM IR checker using llc. + +See URL `https://llvm.org/docs/CommandGuide/llc.html'." + :command ("llc" "-o" null-device source) + :error-patterns + ((error line-start + ;; llc prints the executable path + (zero-or-one (minimal-match (one-or-more not-newline)) ": ") + (file-name) ":" line ":" column ": error: " (message) + line-end)) + :error-filter + (lambda (errors) + ;; sanitize errors occurring in inline assembly + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "" errors))) + :modes llvm-mode) + +(flycheck-def-config-file-var flycheck-luacheckrc lua-luacheck ".luacheckrc") + +(flycheck-def-option-var flycheck-luacheck-standards nil lua-luacheck + "The standards to use in luacheck. + +The value of this variable is either a list of strings denoting +the standards to use, or nil to pass nothing to luacheck. When +non-nil, pass the standards via one or more `--std' options." + :type '(choice (const :tag "Default" nil) + (repeat :tag "Custom standards" + (string :tag "Standard name"))) + :safe #'flycheck-string-list-p) +(make-variable-buffer-local 'flycheck-luacheck-standards) + +(flycheck-define-checker lua-luacheck + "A Lua syntax checker using luacheck. + +See URL `https://github.com/mpeterv/luacheck'." + :command ("luacheck" + "--formatter" "plain" + "--codes" ; Show warning codes + "--no-color" + (option-list "--std" flycheck-luacheck-standards) + (config-file "--config" flycheck-luacheckrc) + "--filename" source-original + ;; Read from standard input + "-") + :standard-input t + :error-patterns + ((warning line-start + (optional (file-name)) + ":" line ":" column + ": (" (id "W" (one-or-more digit)) ") " + (message) line-end) + (error line-start + (optional (file-name)) + ":" line ":" column ":" + ;; `luacheck' before 0.11.0 did not output codes for errors, hence + ;; the ID is optional here + (optional " (" (id "E" (one-or-more digit)) ") ") + (message) line-end)) + :modes (lua-mode lua-ts-mode)) + +(flycheck-define-checker lua + "A Lua syntax checker using the Lua compiler. + +See URL `https://www.lua.org/'." + :command ("luac" "-p" "-") + :standard-input t + :error-patterns + ((error line-start + ;; Skip the name of the luac executable. + (minimal-match (zero-or-more not-newline)) + ": stdin:" line ": " (message) line-end)) + :modes (lua-mode lua-ts-mode)) + +(flycheck-define-checker opam + "A Opam syntax and style checker using opam lint. + +See URL `https://opam.ocaml.org/doc/man/opam-lint.html'." + :command ("opam" "lint" "-") + :standard-input t + :error-patterns + ((error line-start ; syntax error + (one-or-more space) "error " (id ?2) + ": File format error" + (or (and " at line " line ", column " column ": " (message)) + (and ": " (message))) + line-end) + (error line-start + (one-or-more space) "error " (id ?3) + (minimal-match (zero-or-more not-newline)) + "at line " line ", column " column ": " (message) + line-end) + (error line-start + (one-or-more space) "error " (id (one-or-more num)) + ": " (message (one-or-more not-newline)) + line-end) + (warning line-start + (one-or-more space) "warning " (id (one-or-more num)) + ": " (message) + line-end)) + :error-filter + (lambda (errors) + (flycheck-increment-error-columns + (flycheck-fill-empty-line-numbers errors))) + :modes tuareg-opam-mode) + +(flycheck-def-option-var flycheck-perl-include-path nil perl + "A list of include directories for Perl. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of Perl. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.24")) + +(flycheck-def-option-var flycheck-perl-module-list nil perl + "A list of modules to use for Perl. + +The value of this variable is a list of strings, where each +string is a module to `use' in Perl." + :type '(repeat :tag "Module") + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) + +(flycheck-define-checker perl + "A Perl syntax checker using the Perl interpreter. + +See URL `https://www.perl.org'." + :command ("perl" "-w" "-c" + (option-list "-I" flycheck-perl-include-path) + (option-list "-M" flycheck-perl-module-list concat)) + :standard-input t + :error-patterns + ((error line-start (minimal-match (message)) + " at - line " line + (or "." (and ", " (zero-or-more not-newline))) line-end)) + :modes (perl-mode cperl-mode) + :next-checkers (perl-perlcritic)) + +(flycheck-def-option-var flycheck-perlcritic-severity nil perl-perlcritic + "The message severity for Perl Critic. + +The value of this variable is a severity level as integer, for +the `--severity' option to Perl Critic." + :type '(integer :tag "Severity level") + :safe #'integerp + :package-version '(flycheck . "0.18")) + +(flycheck-def-option-var flycheck-perlcritic-theme nil perl-perlcritic + "The theme expression for Perl Critic. + +The value of this variable is passed as the `--theme' option to +`Perl::Critic'. See the documentation of `Perl::Critic' for +details." + :type '(choice (const :tag "None" nil) + (string :tag "Theme expression")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32-csv")) + +(flycheck-def-config-file-var flycheck-perlcriticrc perl-perlcritic + ".perlcriticrc" + :package-version '(flycheck . "26")) + +(flycheck-define-checker perl-perlcritic + "A Perl syntax checker using Perl::Critic. + +See URL `https://metacpan.org/pod/Perl::Critic'." + :command ("perlcritic" "--no-color" "--verbose" "%f/%l/%c/%s/%p/%m (%e)\n" + (config-file "--profile" flycheck-perlcriticrc) + (option "--severity" flycheck-perlcritic-severity nil + flycheck-option-int) + (option "--theme" flycheck-perlcritic-theme)) + :standard-input t + :error-patterns + ((info line-start + "STDIN/" line "/" column "/" (any "1") "/" + (id (one-or-more (not (any "/")))) "/" (message) + line-end) + (warning line-start + "STDIN/" line "/" column "/" (any "234") "/" + (id (one-or-more (not (any "/")))) "/" (message) + line-end) + (error line-start + "STDIN/" line "/" column "/" (any "5") "/" + (id (one-or-more (not (any "/")))) "/" (message) + line-end)) + :modes (cperl-mode perl-mode) + :next-checkers (perl-perlimports) + + :error-explainer + (lambda (err) + (let ((error-code (flycheck-error-id err)) + (url "https://metacpan.org/pod/Perl::Critic::Policy::%s")) + (and error-code `(url . ,(format url error-code)))))) + +(defun flycheck-perl-perlimports-parse-errors (output checker buffer) + "Parse perlimports json output errors from OUTPUT. + +CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://metacpan.org/dist/App-perlimports/view/script/perlimports' +for more information about perlimports." + (mapcar (lambda (err) + (let-alist err + (flycheck-error-new-at + .location.start.line + .location.start.column + 'info + (concat .module " " .reason ":" + (with-temp-buffer + (insert (substring .diff (string-match-p "\n" .diff))) + (diff-mode) + (font-lock-ensure) + (buffer-string))) + :end-line .location.end.line + :end-column .location.end.column + :checker checker + :buffer buffer))) + (flycheck-parse-json output))) + +(flycheck-define-checker perl-perlimports + "A checker for cleaning up Perl import statements. + +See URL `https://metacpan.org/dist/App-perlimports/view/script/perlimports'." + :command ("perlimports" + "--filename" source + "--json" + "--lint" + "--no-preserve-duplicates" + "--no-preserve-unused" + "--no-tidy-whitespace" + "--read-stdin") + :standard-input t + :error-parser flycheck-perl-perlimports-parse-errors + :modes (cperl-mode perl-mode)) + +(flycheck-define-checker php + "A PHP syntax checker using the PHP command line interpreter. + +See URL `https://php.net/manual/en/features.commandline.php'." + :command ("php" "-l" "-d" "error_reporting=E_ALL" "-d" "display_errors=1" + "-d" "log_errors=0" source) + :error-patterns + ((error line-start (or "Parse" "Fatal" "syntax") " error" (any ":" ",") " " + (message) " in " (file-name) " on line " line line-end)) + :modes (php-mode php-ts-mode php+-mode) + :next-checkers ((warning . php-phpmd) + (warning . php-phpcs))) + +(flycheck-def-option-var flycheck-phpmd-rulesets + '("cleancode" "codesize" "controversial" "design" "naming" "unusedcode") + php-phpmd + "The rule sets for PHP Mess Detector. + +Set default rule sets and custom rule set files. + +See section \"Using multiple rule sets\" in the PHP Mess Detector +manual at URL `https://phpmd.org/documentation/index.html'." + :type '(repeat :tag "rule sets" + (string :tag "A filename or rule set")) + :safe #'flycheck-string-list-p) + +(flycheck-define-checker php-phpmd + "A PHP style checker using PHP Mess Detector. + +See URL `https://phpmd.org/'." + :command ("phpmd" source "xml" + (eval (flycheck-option-comma-separated-list + flycheck-phpmd-rulesets))) + :error-parser flycheck-parse-phpmd + :modes (php-mode php-ts-mode php+-mode) + :next-checkers (php-phpcs)) + +(flycheck-def-option-var flycheck-phpcs-standard nil php-phpcs + "The coding standard for PHP CodeSniffer. + +When nil, use the default standard from the global PHP +CodeSniffer configuration. When set to a string, pass the string +to PHP CodeSniffer which will interpret it as name as a standard, +or as path to a standard specification." + :type '(choice (const :tag "Default standard" nil) + (string :tag "Standard name or file")) + :safe #'flycheck-string-or-nil-p) + +(flycheck-define-checker php-phpcs + "A PHP style checker using PHP Code Sniffer. + +Needs PHP Code Sniffer 2.6 or newer. + +See URL `https://pear.php.net/package/PHP_CodeSniffer/'." + :command ("phpcs" "--report=checkstyle" + ;; Use -q flag to force quiet mode + ;; Quiet mode prevents errors from extra output when phpcs has + ;; been configured with show_progress enabled + "-q" + (option "--standard=" flycheck-phpcs-standard concat) + ;; Some files are not detected correctly + ;; so it is necessary to pass the extension. + (eval + (when-let* ((fname buffer-file-name) + (ext (file-name-extension fname))) + (concat "--extensions=" ext))) + + ;; Pass original file name to phpcs. We need to concat explicitly + ;; here, because phpcs really insists to get option and argument as + ;; a single command line argument :| + (eval (when (buffer-file-name) + (concat "--stdin-path=" (buffer-file-name)))) + ;; Read from standard input + "-") + :standard-input t + :error-parser flycheck-parse-checkstyle + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "STDIN" errors))) + :modes (php-mode php-ts-mode php+-mode) + ;; phpcs seems to choke on empty standard input, hence skip phpcs if the + ;; buffer is empty, see https://github.com/flycheck/flycheck/issues/907 + :predicate flycheck-buffer-nonempty-p) + +(flycheck-define-checker php-phpcs-changed + "A PHP style checker using PHPCS-Changed. + Needs PHP Code Sniffer 2.6 or newer. + See `https://github.com/sirbrillig/phpcs-changed'." + :command ("phpcs-changed" + "--git" + "--git-base trunk" + "--git-unstaged" + (option "--standard=" flycheck-phpcs-standard concat) + (eval (buffer-file-name)) + ) + :standard-input t + :error-parser flycheck-parse-checkstyle + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "STDIN" errors))) + :modes (php-mode php+-mode) + ;; phpcs seems to choke on empty standard input, hence skip phpcs if the + ;; buffer is empty, see https://github.com/flycheck/flycheck/issues/907 + :predicate flycheck-buffer-nonempty-p) + +(flycheck-define-checker processing + "Processing command line tool. + +See https://github.com/processing/processing/wiki/Command-Line" + :command ("processing-java" "--force" + ;; Don't change the order of these arguments, processing is pretty + ;; picky + (eval (concat "--sketch=" (file-name-directory (buffer-file-name)))) + (eval (concat "--output=" (flycheck-temp-dir-system))) + "--build") + :error-patterns + ((error line-start (file-name) ":" line ":" column + (zero-or-more (or digit ":")) (message) line-end)) + :modes processing-mode + ;; This syntax checker needs a file name + :predicate (lambda () (buffer-file-name))) + +(defun flycheck-proselint-parse-errors (output checker buffer) + "Parse proselint json output errors from OUTPUT. + +CHECKER and BUFFER denoted the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://proselint.com/' for more information about proselint." + (mapcar (lambda (err) + (let-alist err + (flycheck-error-new-at-pos + .start + (pcase .severity + (`"suggestion" 'info) + (`"warning" 'warning) + (`"error" 'error) + ;; Default to error + (_ 'error)) + .message + :id .check + :buffer buffer + :checker checker + ;; See https://github.com/amperser/proselint/issues/1048 + :end-pos .end))) + (let-alist (car (flycheck-parse-json output)) + .data.errors))) + +(flycheck-define-checker proselint + "Flycheck checker using Proselint. + +See URL `https://proselint.com/'." + :command ("proselint" "--json" "-") + :standard-input t + :error-parser flycheck-proselint-parse-errors + :modes (text-mode markdown-mode gfm-mode message-mode org-mode)) + +(flycheck-def-option-var flycheck-protoc-import-path nil protobuf-protoc + "A list of directories to resolve import directives. + +The value of this variable is a list of strings, where each +string is a directory to add to the import path. Relative paths +are relative to the file being checked." + :type '(repeat (directory :tag "Import directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) + +(flycheck-define-checker protobuf-protoc + "A protobuf syntax checker using the protoc compiler. + +See URL `https://developers.google.com/protocol-buffers/'." + :command ("protoc" "--error_format" "gcc" + (eval (concat "--java_out=" (flycheck-temp-dir-system))) + ;; Add the current directory to resolve imports + (eval (concat "--proto_path=" + (file-name-directory (buffer-file-name)))) + ;; Add other import paths; this needs to be after the current + ;; directory to produce the right output. See URL + ;; `https://github.com/flycheck/flycheck/pull/1655' + (option-list "--proto_path=" flycheck-protoc-import-path concat) + source-inplace) + :error-patterns + ((info line-start (file-name) ":" line ":" column + ": note: " (message) line-end) + (error line-start (file-name) ":" line ":" column + ": " (message) line-end) + (error line-start + (message "In file included from") " " (file-name) ":" line ":" + column ":" line-end)) + :modes protobuf-mode + :predicate (lambda () (buffer-file-name))) + +(defun flycheck-prototool-project-root (&optional _checker) + "Return the nearest directory holding the prototool.yaml configuration." + (and buffer-file-name + (locate-dominating-file buffer-file-name "prototool.yaml"))) + +(flycheck-define-checker protobuf-prototool + "A protobuf syntax checker using prototool. + +See URL `https://github.com/uber/prototool'." + :command ("prototool" "lint" source-original) + :error-patterns + ((warning line-start (file-name) ":" line ":" column ":" (message) line-end)) + :modes protobuf-mode + :enabled flycheck-prototool-project-root + :predicate flycheck-buffer-saved-p) + +(flycheck-define-checker pug + "A Pug syntax checker using the pug compiler. + +See URL `https://pugjs.org/'." + :command ("pug" "-p" (eval (expand-file-name (buffer-file-name)))) + :standard-input t + :error-patterns + ;; errors with includes/extends (e.g. missing files) + ((error "Error: " (message) (zero-or-more not-newline) "\n" + (zero-or-more not-newline) "at " + (zero-or-more not-newline) " line " line) + ;; error when placing anything other than a mixin or + ;; block at the top-level of an extended template + ;; also unknown filters + (error line-start "Error: " (file-name) ":" + line ":" column "\n\n" (message) line-end) + ;; syntax/runtime errors (e.g. type errors, bad indentation, etc.) + (error line-start + (optional "Type") "Error: " (file-name) ":" + line (optional ":" column) + (zero-or-more not-newline) "\n" + (one-or-more (or (zero-or-more not-newline) "|" + (zero-or-more not-newline) "\n") + (zero-or-more "-") (zero-or-more not-newline) "|" + (zero-or-more not-newline) "\n") + (zero-or-more not-newline) "\n" + (one-or-more + (zero-or-more not-newline) "|" + (zero-or-more not-newline) "\n") + (zero-or-more not-newline) "\n" + (message) + line-end)) + :modes pug-mode) + +(flycheck-define-checker puppet-parser + "A Puppet DSL syntax checker using puppet's own parser. + +See URL `https://puppet.com/'." + :command ("puppet" "parser" "validate" "--color=false") + :standard-input t + :error-patterns + ( + ;; Patterns for Puppet 4 + (error line-start "Error: Could not parse for environment " + (one-or-more (in "a-z" "0-9" "_")) ":" + (message) "(line: " line ", column: " column ")" line-end) + ;; Errors from Puppet < 4 + (error line-start "Error: Could not parse for environment " + (one-or-more (in "a-z" "0-9" "_")) ":" + (message (minimal-match (one-or-more anything))) + " at line " line line-end) + (error line-start + ;; Skip over the path of the Puppet executable + (minimal-match (zero-or-more not-newline)) + ": Could not parse for environment " (one-or-more word) + ": " (message (minimal-match (zero-or-more anything))) + " at " (file-name "/" (zero-or-more not-newline)) ":" line line-end)) + :modes (puppet-mode puppet-ts-mode) + :next-checkers ((warning . puppet-lint))) + +(flycheck-def-config-file-var flycheck-puppet-lint-rc puppet-lint + ".puppet-lint.rc" + :package-version '(flycheck . "26")) + +(flycheck-def-option-var flycheck-puppet-lint-disabled-checks nil puppet-lint + "Disabled checkers for `puppet-lint'. + +The value of this variable is a list of strings, where each +string is the name of a check to disable (e.g. \"80chars\" or +\"double_quoted_strings\"). + +See URL `https://puppet-lint.com/checks/' for a list of all checks +and their names." + :type '(repeat (string :tag "Check Name")) + :package-version '(flycheck . "26")) + +(defun flycheck-puppet-lint-disabled-arg-name (check) + "Create an argument to disable a puppetlint CHECK." + (concat "--no-" check "-check")) + +(flycheck-define-checker puppet-lint + "A Puppet DSL style checker using puppet-lint. + +See URL `https://puppet-lint.com/'." + ;; We must check the original file, because Puppetlint is quite picky on the + ;; names of files and there place in the directory structure, to comply with + ;; Puppet's autoload directory layout. For instance, a class foo::bar is + ;; required to be in a file foo/bar.pp. Any other place, such as a Flycheck + ;; temporary file will cause an error. + :command ("puppet-lint" + (config-file "--config" flycheck-puppet-lint-rc) + "--log-format" + "%{path}:%{line}:%{kind}: %{message} (%{check})" + (option-list "" flycheck-puppet-lint-disabled-checks concat + flycheck-puppet-lint-disabled-arg-name) + source-original) + :error-patterns + ((warning line-start (file-name) ":" line ":warning: " (message) line-end) + (error line-start (file-name) ":" line ":error: " (message) line-end)) + :modes (puppet-mode puppet-ts-mode) + ;; Since we check the original file, we can only use this syntax checker if + ;; the buffer is actually linked to a file, and if it is not modified. + :predicate flycheck-buffer-saved-p) + +(defun flycheck-python-run-snippet (checker snippet) + "Run a python SNIPPET and return the output. + +CHECKER's executable is assumed to be a Python REPL." + (when-let (output (flycheck-call-checker-process-for-output + checker nil nil "-c" snippet)) + (string-trim output))) + +(defun flycheck-python-get-path (checker) + "Compute the current Python path (CHECKER is a Python REPL) ." + (flycheck-python-run-snippet checker "import sys; print(sys.path[1:])")) + +(defun flycheck-python-find-module (checker module) + "Check if a Python MODULE is available (CHECKER is a Python REPL)." + (flycheck-python-run-snippet + checker (concat "import sys; sys.path.pop(0);" + (format "import %s; print(%s.__file__)" module module)))) + +(defun flycheck-python-needs-module-p (checker) + "Determine whether CHECKER needs to be invoked through Python. + +Previous versions of Flycheck called pylint and flake8 directly, +while new version call them through `python -c'. This check +ensures that we don't break existing code; it also allows people +who use virtualenvs to run globally-installed checkers." + (not (string-match-p (rx (or "pylint" "pylint3" "flake8") + (or "-script.pyw" ".exe" ".bat" "") + eos) + (flycheck-checker-executable checker)))) + +(defun flycheck-python-verify-module (checker module) + "Verify that a Python MODULE is available. + +Return nil if CHECKER's executable is not a Python REPL. This +function's is suitable for a checker's :verify." + (when (flycheck-python-needs-module-p checker) + (let ((mod-path (flycheck-python-find-module checker module))) + (list (flycheck-verification-result-new + :label (format "`%s' module" module) + :message (if mod-path (format "Found at %S" mod-path) + (format "Missing; sys.path is %s" + (flycheck-python-get-path checker))) + :face (if mod-path 'success '(bold error))))))) + +(defun flycheck-python-module-args (checker module-name) + "Compute arguments to pass to CHECKER's executable to run MODULE-NAME. + +Return nil if CHECKER's executable is not a Python REPL. +Otherwise, return a list starting with -c (-m is not enough +because it adds the current directory to Python's path)." + (when (flycheck-python-needs-module-p checker) + `("-c" ,(concat "import sys;sys.path.pop(0);import runpy;" + (format "runpy.run_module(%S, run_name='__main__')" module-name ))))) + +(defcustom flycheck-python-project-files + '("pyproject.toml" "setup.cfg" "mypy.ini" "pyrightconfig.json") + "Files used to find where to run Python checkers from. +Currently used for pylint, flake8, and pyright. + +The presence of one in these files indicates the root of the +current project; `.pylintrc' is not part of the list because it +is commonly found in ~/." + :group 'flycheck + :type '(repeat (string :tag "File name")) + :package-version '(flycheck . "33") + :safe #'flycheck-string-list-p) + +(defun flycheck-python-find-project-root (_checker) + "Find the root directory of a Python project. + +The root directory is assumed to be the nearest parent directory +that contains one of `flycheck-python-project-files'. If no such +file is found, we use the same heuristic as epylint: the nearest +parent directory that doesn't have a __init__.py file." + (let ((start (if buffer-file-name + (file-name-directory buffer-file-name) + default-directory))) + (or (flycheck--locate-dominating-file-matching + start (regexp-opt flycheck-python-project-files)) + (locate-dominating-file + start (lambda (dir) + (not (file-exists-p (expand-file-name "__init__.py" dir)))))))) + +(flycheck-def-config-file-var flycheck-flake8rc python-flake8 + '(".flake8" "setup.cfg" "tox.ini")) + +(flycheck-def-option-var flycheck-flake8-error-level-alist + '(("^E9.*$" . error) ; Syntax errors from pep8 + ("^F82.*$" . error) ; undefined variables from pyflakes + ("^F83.*$" . error) ; Duplicate arguments from flake8 + ("^D.*$" . info) ; Docstring issues from flake8-pep257 + ("^N.*$" . info) ; Naming issues from pep8-naming + ) + python-flake8 + "An alist mapping flake8 error IDs to Flycheck error levels. + +Each item in this list is a cons cell `(PATTERN . LEVEL)' where +PATTERN is a regular expression matched against the error ID, and +LEVEL is a Flycheck error level symbol. + +Each PATTERN is matched in the order of appearance in this list +against the error ID. If it matches the ID, the level of the +corresponding error is set to LEVEL. An error that is not +matched by any PATTERN defaults to warning level. + +The default value of this option matches errors from flake8 +itself and from the following flake8 plugins: + +- pep8-naming +- flake8-pep257 + +You may add your own mappings to this option in order to support +further flake8 plugins." + :type '(repeat (cons (regexp :tag "Error ID pattern") + (symbol :tag "Error level"))) + :package-version '(flycheck . "0.22")) + +(flycheck-def-option-var flycheck-flake8-maximum-complexity nil python-flake8 + "The maximum McCabe complexity of methods. + +If nil, do not check the complexity of methods. If set to an +integer, report any complexity greater than the value of this +variable as warning. + +If set to an integer, this variable overrules any similar setting +in the configuration file denoted by `flycheck-flake8rc'." + :type '(choice (const :tag "Do not check McCabe complexity" nil) + (integer :tag "Maximum complexity")) + :safe #'integerp) + +(flycheck-def-option-var flycheck-flake8-maximum-line-length nil python-flake8 + "The maximum length of lines. + +If set to an integer, the value of this variable denotes the +maximum length of lines, overruling any similar setting in the +configuration file denoted by `flycheck-flake8rc'. An error will +be reported for any line longer than the value of this variable. + +If set to nil, use the maximum line length from the configuration +file denoted by `flycheck-flake8rc', or the PEP 8 recommendation +of 79 characters if there is no configuration with this setting." + :type '(choice (const :tag "Default value") + (integer :tag "Maximum line length in characters")) + :safe #'integerp) + +(defun flycheck-flake8-fix-error-level (err) + "Fix the error level of ERR. + +Update the error level of ERR according to +`flycheck-flake8-error-level-alist'." + (pcase-dolist (`(,pattern . ,level) flycheck-flake8-error-level-alist) + (when (string-match-p pattern (flycheck-error-id err)) + (setf (flycheck-error-level err) level))) + err) + +(defun flycheck-flake8--find-project-root (_checker) + "Find setup.cfg in a parent directory of the current buffer." + ;; This is a workaround for `https://gitlab.com/pycqa/flake8/issues/517'; see + ;; also `https://github.com/flycheck/flycheck/issues/1722' + (locate-dominating-file (or buffer-file-name default-directory) "setup.cfg")) + +(flycheck-define-checker python-flake8 + "A Python syntax and style checker using Flake8. + +Requires Flake8 3.0 or newer. See URL +`https://flake8.readthedocs.io/'." + ;; Not calling flake8 directly makes it easier to switch between different + ;; Python versions; see https://github.com/flycheck/flycheck/issues/1055. + :command ("python3" + (eval (flycheck-python-module-args 'python-flake8 "flake8")) + "--format=default" + (config-file "--append-config" flycheck-flake8rc) + (option "--max-complexity" flycheck-flake8-maximum-complexity nil + flycheck-option-int) + (option "--max-line-length" flycheck-flake8-maximum-line-length nil + flycheck-option-int) + (eval (when buffer-file-name + (concat "--stdin-display-name=" buffer-file-name))) + "-") + :standard-input t + :working-directory flycheck-python-find-project-root + :error-filter (lambda (errors) + (let ((errors (flycheck-sanitize-errors errors))) + (seq-map #'flycheck-flake8-fix-error-level errors))) + :error-patterns + ((warning line-start + (file-name) ":" line ":" (optional column ":") " " + (id (one-or-more (any alpha)) (one-or-more digit)) " " + (message (one-or-more not-newline)) + line-end)) + :enabled (lambda () + (or (not (flycheck-python-needs-module-p 'python-flake8)) + (flycheck-python-find-module 'python-flake8 "flake8"))) + :verify (lambda (_) (flycheck-python-verify-module 'python-flake8 "flake8")) + :modes (python-mode python-ts-mode) + :next-checkers ((warning . python-pylint) + (warning . python-mypy))) + +(flycheck-def-config-file-var flycheck-python-ruff-config python-ruff + '("pyproject.toml" "ruff.toml" ".ruff.toml")) + +(flycheck-define-checker python-ruff + "A Python syntax and style checker using Ruff. + +See URL `https://docs.astral.sh/ruff/'." + :command ("ruff" + "check" + (config-file "--config" flycheck-python-ruff-config) + "--output-format=concise" + (option "--stdin-filename" buffer-file-name) + "-") + :standard-input t + :error-filter (lambda (errors) + (let* ((errors (flycheck-sanitize-errors errors)) + (errors-with-ids (seq-filter #'flycheck-error-id errors))) + (seq-union + (seq-difference errors errors-with-ids) + (seq-map #'flycheck-flake8-fix-error-level errors-with-ids)))) + :error-patterns + ((error line-start + (or "-" (file-name)) ":" line ":" (optional column ":") " " + "SyntaxError: " + (message (one-or-more not-newline)) + line-end) + (warning line-start + (or "-" (file-name)) ":" line ":" (optional column ":") " " + (id (one-or-more (any alpha)) (one-or-more digit) " ") + (message (one-or-more not-newline)) + line-end)) + :working-directory flycheck-python-find-project-root + :modes (python-mode python-ts-mode) + :next-checkers ((warning . python-mypy))) + +(flycheck-def-config-file-var + flycheck-pylintrc python-pylint + '("pylintrc" ".pylintrc" "pyproject.toml" "setup.cfg")) + +(flycheck-def-option-var flycheck-pylint-use-symbolic-id t python-pylint + "Whether to use pylint message symbols or message codes. + +A pylint message has both an opaque identifying code (such as `F0401') and a +more meaningful symbolic code (such as `import-error'). This option governs +which should be used and reported to the user." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.25")) + +(defun flycheck-parse-pylint (output checker buffer) + "Parse JSON OUTPUT of CHECKER on BUFFER as Pylint errors." + (mapcar (lambda (err) + (let-alist err + ;; Pylint can return -1 as a line or a column, hence the call to + ;; `max'. See `https://github.com/flycheck/flycheck/issues/1383'. + (flycheck-error-new-at + (and .line (max .line 1)) + (and .column (max (1+ .column) 1)) + (pcase .type + ;; See "pylint/utils.py" + ((or "fatal" "error") 'error) + ((or "info" "convention") 'info) + ((or "warning" "refactor" _) 'warning)) + ;; Drop lines showing the error in context + (and (string-match (rx (*? nonl) eol) .message) + (match-string 0 .message)) + :id (if flycheck-pylint-use-symbolic-id .symbol .message-id) + :checker checker + :buffer buffer + :filename .path))) + (car (flycheck-parse-json output)))) + +(flycheck-define-checker python-pylint + "A Python syntax and style checker using Pylint. + +This syntax checker requires Pylint 1.0 or newer. + +See URL `https://www.pylint.org/'." + ;; --reports=n disables the scoring report. + ;; Not calling pylint directly makes it easier to switch between different + ;; Python versions; see https://github.com/flycheck/flycheck/issues/1055. + :command ("python3" + (eval (flycheck-python-module-args 'python-pylint "pylint")) + "--reports=n" + "--output-format=json" + (config-file "--rcfile=" flycheck-pylintrc concat) + ;; Need `source-inplace' for relative imports (e.g. `from .foo + ;; import bar'), see https://github.com/flycheck/flycheck/issues/280 + source-inplace) + :error-parser flycheck-parse-pylint + :working-directory flycheck-python-find-project-root + :enabled (lambda () + (or (not (flycheck-python-needs-module-p 'python-pylint)) + (flycheck-python-find-module 'python-pylint "pylint"))) + :verify (lambda (_) (flycheck-python-verify-module 'python-pylint "pylint")) + :error-explainer (lambda (err) + (when-let (id (flycheck-error-id err)) + (apply + #'flycheck-call-checker-process-for-output + 'python-pylint nil t + (append + (flycheck-python-module-args 'python-pylint "pylint") + (list (format "--help-msg=%s" id)))))) + :modes (python-mode python-ts-mode) + :next-checkers ((warning . python-mypy))) + +(flycheck-define-checker python-pycompile + "A Python syntax checker using Python's builtin compiler. + +See URL `https://docs.python.org/3.4/library/py_compile.html'." + :command ("python3" "-m" "py_compile" source) + :error-patterns + ;; Python 2.7 + ((error line-start " File \"" (file-name) "\", line " line "\n" + (>= 2 (zero-or-more not-newline) "\n") + "SyntaxError: " (message) line-end) + (error line-start "Sorry: IndentationError: " + (message) "(" (file-name) ", line " line ")" + line-end) + ;; 2.6 + (error line-start "SyntaxError: ('" (message (one-or-more (not (any "'")))) + "', ('" (file-name (one-or-more (not (any "'")))) "', " + line ", " column ", " (one-or-more not-newline) line-end)) + :working-directory flycheck-python-find-project-root + :modes (python-mode python-ts-mode) + :next-checkers ((warning . python-mypy))) + +(defun flycheck-pyright--parse-error (output checker buffer) + "Parse pyright errors/warnings from JSON OUTPUT. +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively." + (seq-map + (lambda (err) + (let-alist err + (flycheck-error-new-at + (+ 1 .range.start.line) + (+ 1 .range.start.character) + (pcase .severity + ("error" 'error) + ("warning" 'warning) + (_ 'warning)) + .message + :end-line (+ 1 .range.end.line) + :end-column (+ 1 .range.end.character) + :checker checker + :buffer buffer + :filename (buffer-file-name buffer)))) + (cdr (nth 2 (car (flycheck-parse-json output)))))) + +(flycheck-define-checker python-pyright + "Static type checker for Python + +See URL https://github.com/microsoft/pyright." + :command ("pyright" + "--outputjson" + source-inplace) + :working-directory flycheck-python-find-project-root + :error-parser flycheck-pyright--parse-error + :modes (python-mode python-ts-mode)) + +(define-obsolete-variable-alias 'flycheck-python-mypy-ini + 'flycheck-python-mypy-config "32") + +(flycheck-def-config-file-var flycheck-python-mypy-config python-mypy + '("mypy.ini" "pyproject.toml" "setup.cfg")) + +(flycheck-def-option-var flycheck-python-mypy-cache-dir nil python-mypy + "Directory used to write .mypy_cache directories." + :type '(choice + (const :tag "Write to the working directory" nil) + (const :tag "Never write .mypy_cache directories" null-device) + (string :tag "Path")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32")) + +(flycheck-def-option-var flycheck-python-mypy-python-executable nil python-mypy + "Python executable to find the installed PEP 561 packages." + :type '(choice (const :tag "Same as mypy's" nil) + (string :tag "Path")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "33")) + +(flycheck-define-checker python-mypy + "Mypy syntax and type checker. Requires mypy>=0.730. + +See URL `https://mypy-lang.org/'." + :command ("mypy" + "--show-column-numbers" + "--no-pretty" + (config-file "--config-file" flycheck-python-mypy-config) + (option "--cache-dir" flycheck-python-mypy-cache-dir) + (option "--python-executable" flycheck-python-mypy-python-executable) + source-original) + :error-patterns + ((error line-start (file-name) ":" line (optional ":" column) + ": error:" (message) line-end) + (warning line-start (file-name) ":" line (optional ":" column) + ": warning:" (message) line-end) + (info line-start (file-name) ":" line (optional ":" column) + ": note:" (message) line-end)) + :working-directory flycheck-python-find-project-root + :modes (python-mode python-ts-mode) + ;; Ensure the file is saved, to work around + ;; https://github.com/python/mypy/issues/4746. + :predicate flycheck-buffer-saved-p) + +(flycheck-def-option-var flycheck-lintr-caching t r-lintr + "Whether to enable caching in lintr. + +By default, lintr caches all expressions in a file and re-checks +only those that have changed. Setting this option to nil +disables caching in case there are problems." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.23")) + +(flycheck-def-option-var flycheck-lintr-linters "default_linters" r-lintr + "Linters to use with lintr. + +The value of this variable is a string containing an R +expression, which selects linters for lintr." + :type 'string + :risky t + :package-version '(flycheck . "0.23")) + +(defun flycheck-r-has-lintr (checker) + "Whether CHECKER (R) has installed the `lintr' library." + (eql 0 (flycheck-call-checker-process + checker nil nil nil + "--slave" "--no-restore" "--no-save" "-e" + "library('lintr')"))) + +(flycheck-define-checker r-lintr + "An R style and syntax checker using the lintr package. + +See URL `https://github.com/jimhester/lintr'." + :command ("R" "--slave" "--no-restore" "--no-save" "-e" + (eval (concat + "library(lintr);" + "try(lint(commandArgs(TRUE)" + ", cache=" (if flycheck-lintr-caching "TRUE" "FALSE") + ", " flycheck-lintr-linters + "))")) + "--args" source) + :error-patterns + ((info line-start (file-name) ":" line ":" column ": style: " (message) + line-end) + (warning line-start (file-name) ":" line ":" column ": warning: " (message) + line-end) + (error line-start (file-name) ":" line ":" column ": error: " (message) + line-end)) + :modes (ess-mode ess-r-mode) + :predicate + ;; Don't check ESS files which do not contain R, and make sure that lintr is + ;; actually available + (lambda () + (and (equal ess-language "S") + (flycheck-r-has-lintr 'r-lintr))) + :verify (lambda (checker) + (let ((has-lintr (flycheck-r-has-lintr checker))) + (list + (flycheck-verification-result-new + :label "lintr library" + :message (if has-lintr "present" "missing") + :face (if has-lintr 'success '(bold error))))))) + +(flycheck-define-checker r + "An R syntax checker using the builtin `parse' function. + +See URL: `https://www.r-project.org/'." + :command ("R" "--slave" "--no-restore" "--no-save" "-e" + "parse(file=file('stdin'), srcfile='')") + :standard-input t + :error-patterns + ((error line-start (zero-or-more space) ":" line ":" column ": " + (message) line-end)) + :modes (ess-mode ess-r-mode) + :predicate + ;; Don't check ESS files which do not contain R + (lambda () (equal ess-language "S"))) + +(defun flycheck-racket-has-expand-p (checker) + "Whether the executable of CHECKER provides the `expand' command." + (eql 0 (flycheck-call-checker-process checker nil nil nil "expand"))) + +(flycheck-define-checker racket + "A Racket syntax checker with `raco expand'. + +The `compiler-lib' racket package is required for this syntax +checker. + +See URL `https://racket-lang.org/'." + :command ("raco" "expand" source-inplace) + :predicate + (lambda () + (and (or (not (eq major-mode 'scheme-mode)) + ;; In `scheme-mode' we must check the current Scheme implementation + ;; being used + (and (boundp 'geiser-impl--implementation) + (eq geiser-impl--implementation 'racket))) + (flycheck-racket-has-expand-p 'racket))) + :verify + (lambda (checker) + (let ((has-expand (flycheck-racket-has-expand-p checker)) + (in-scheme-mode (eq major-mode 'scheme-mode)) + (geiser-impl (bound-and-true-p geiser-impl--implementation))) + (list + (flycheck-verification-result-new + :label "compiler-lib package" + :message (if has-expand "present" "missing") + :face (if has-expand 'success '(bold error))) + (flycheck-verification-result-new + :label "Geiser Implementation" + :message (cond + ((not in-scheme-mode) "Using Racket Mode") + ((eq geiser-impl 'racket) "Racket") + (geiser-impl (format "Other: %s" geiser-impl)) + (t "Geiser not active")) + :face (cond + ((or (not in-scheme-mode) (eq geiser-impl 'racket)) 'success) + (t '(bold error))))))) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-increment-error-columns + (seq-remove + (lambda (err) + (string-suffix-p + "/share/racket/pkgs/compiler-lib/compiler/commands/expand.rkt" + (flycheck-error-filename err))) + errors)))) + :error-patterns + ((error line-start (zero-or-more space) + (file-name) ":" line ":" column ":" (message) line-end)) + :modes (racket-mode scheme-mode)) + +(flycheck-define-checker rpm-rpmlint + "A RPM SPEC file syntax checker using rpmlint. + +See URL `https://github.com/rpm-software-management/rpmlint'." + :command ("rpmlint" source) + :error-patterns + ((error line-start + (file-name) ":" (optional line ":") " E: " (message) + line-end) + (warning line-start + (file-name) ":" (optional line ":") " W: " (message) + line-end)) + :error-filter + ;; rpmlint 1.1 outputs a spurious error for the temp file created by flycheck + (lambda (errors) + (dolist (err (seq-remove + (lambda (err) + (string-suffix-p "(none)" (flycheck-error-filename err))) + errors)) + ;; Add fake line numbers if they are missing in the lint output + (unless (flycheck-error-line err) + (setf (flycheck-error-line err) 1))) + errors) + :error-explainer + (lambda (error) + (when-let* ((error-message (flycheck-error-message error)) + (message-id (save-match-data + (string-match "\\([^ ]+\\)" error-message) + (match-string 1 error-message)))) + (flycheck-call-checker-process-for-output + 'rpm-rpmlint nil t "-I" message-id))) + :modes (sh-mode rpm-spec-mode) + :predicate (lambda () (or (not (eq major-mode 'sh-mode)) + ;; In `sh-mode', we need the proper shell + (eq sh-shell 'rpm)))) + +(flycheck-def-config-file-var flycheck-markdown-markdownlint-cli-config + markdown-markdownlint-cli + '(".markdownlint.json" ".markdownlint.jsonc" ".markdownlint.yaml") + :package-version '(flycheck . "33")) + +(flycheck-def-option-var flycheck-markdown-markdownlint-cli-disable-rules + nil markdown-markdownlint-cli + "Rules to disable for markdownlint-cli." + :type '(repeat :tag "Disabled rule" + (string :tag "Rule name")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "33")) + +(flycheck-def-option-var flycheck-markdown-markdownlint-cli-enable-rules + nil markdown-markdownlint-cli + "Rules to enable for markdownlint-cli." + :type '(repeat :tag "Enabled rule" + (string :tag "Rule name")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "33")) + +(flycheck-define-checker markdown-markdownlint-cli + "Markdown checker using markdownlint-cli. + +See URL `https://github.com/igorshubovych/markdownlint-cli'." + :command ("markdownlint" + (config-file "--config" flycheck-markdown-markdownlint-cli-config) + (option-list "--disable" flycheck-markdown-markdownlint-cli-disable-rules) + (option-list "--enable" flycheck-markdown-markdownlint-cli-enable-rules) + "--" + source) + :error-patterns + ((error line-start + (file-name) ":" line + (? ":" column) " " (id (one-or-more (not (any space)))) + " " (message) line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "(string)" errors))) + :modes (markdown-mode gfm-mode) + :error-explainer + (lambda (err) + (let ((error-code (substring (flycheck-error-id err) 0 5)) + (url "https://github.com/DavidAnson/markdownlint/blob/main/doc/Rules.md#%s")) + (and error-code `(url . ,(format url error-code)))))) + +(flycheck-def-config-file-var flycheck-markdown-markdownlint-cli2-config + markdown-markdownlint-cli2 + '(".markdownlint-cli2.json" ".markdownlint-cli2.jsonc" ".markdownlint-cli2.yaml") + :package-version '(flycheck . "35")) + +(flycheck-define-checker markdown-markdownlint-cli2 + "Markdown checker using markdownlint-cli2. + +See URL `https://github.com/DavidAnson/markdownlint-cli2'." + :command ("markdownlint-cli2" + (config-file "--config" flycheck-markdown-markdownlint-cli2-config) + "--" + source) + :error-patterns + ((error line-start + (file-name) ":" line + (? ":" column) " " (id (one-or-more (not (any space)))) + " " (message) line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "(string)" errors))) + :modes (markdown-mode gfm-mode) + :error-explainer + (lambda (err) + (let ((error-code (substring (flycheck-error-id err) 0 5)) + (url "https://github.com/DavidAnson/markdownlint/blob/main/doc/Rules.md#%s")) + (and error-code `(url . ,(format url error-code)))))) + +(flycheck-def-option-var flycheck-markdown-mdl-rules nil markdown-mdl + "Rules to enable for mdl. + +The value of this variable is a list of strings each of which is +the name of a rule to enable. + +By default all rules are enabled. + +See URL `https://git.io/vhi2t'." + :type '(repeat :tag "Enabled rules" + (string :tag "rule name")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "27")) + +(flycheck-def-option-var flycheck-markdown-mdl-tags nil markdown-mdl + "Rule tags to enable for mdl. + +The value of this variable is a list of strings each of which is +the name of a rule tag. Only rules with these tags are enabled. + +By default all rules are enabled. + +See URL `https://git.io/vhi2t'." + :type '(repeat :tag "Enabled tags" + (string :tag "tag name")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "27")) + +(flycheck-def-config-file-var flycheck-markdown-mdl-style markdown-mdl nil + :package-version '(flycheck . "27")) + +(flycheck-define-checker markdown-mdl + "Markdown checker using mdl. + +See URL `https://github.com/markdownlint/markdownlint'." + :command ("mdl" + (config-file "--style" flycheck-markdown-mdl-style) + (option "--tags=" flycheck-markdown-mdl-tags concat + flycheck-option-comma-separated-list) + (option "--rules=" flycheck-markdown-mdl-rules concat + flycheck-option-comma-separated-list)) + :standard-input t + :error-patterns + ((error line-start + (file-name) ":" line ": " (id (one-or-more alnum)) " " (message) + line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "(stdin)" errors))) + :modes (markdown-mode gfm-mode)) + +(flycheck-def-config-file-var flycheck-markdown-pymarkdown-config + markdown-pymarkdown nil + :package-version '(flycheck . "34")) + +(flycheck-define-checker markdown-pymarkdown + "Markdown checker using PyMarkdown. + +See URL `https://pypi.org/project/pymarkdownlnt/'." + :command ("pymarkdown" + (config-file "--config" flycheck-markdown-markdownlint-cli-config) + "scan" + source) + :error-patterns + ((error line-start + (file-name) ":" line + (? ":" column) ": " (id (one-or-more alnum)) + ": " (message) line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "(string)" errors))) + :modes (markdown-mode gfm-mode)) + +(flycheck-define-checker nix + "Nix checker using nix-instantiate. + +See URL `https://nixos.org/nix/manual/#sec-nix-instantiate'." + :command ("nix-instantiate" "--parse" "-") + :standard-input t + :error-patterns + ((error line-start + "error: " (message) + (one-or-more "\n") + (zero-or-more space) "at «stdin»:" line ":" column ":" line-end) + (error line-start + "at: (" line ":" column ") from stdin" + (one-or-more "\n" (zero-or-more space (one-or-more not-newline))) + (message) line-end) + (error line-start + "error: " (message) " at " (file-name) ":" line ":" column + line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors + (flycheck-remove-error-file-names "(string)" errors))) + :next-checkers ((warning . nix-linter)) + :modes (nix-mode nix-ts-mode)) + +(defun flycheck-parse-nix-linter (output checker buffer) + "Parse nix-linter warnings from JSON OUTPUT. + +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://github.com/Synthetica9/nix-linter' for more +information about nix-linter." + (mapcar (lambda (err) + (let-alist err + (flycheck-error-new-at + .pos.spanBegin.sourceLine + .pos.spanBegin.sourceColumn + 'warning + .description + :id .offense + :checker checker + :buffer buffer + :filename (buffer-file-name buffer) + :end-line .pos.spanEnd.sourceLine + :end-column .pos.spanEnd.sourceColumn))) + (flycheck-parse-json output))) + +(flycheck-define-checker nix-linter + "Nix checker using nix-linter. + +See URL `https://github.com/Synthetica9/nix-linter'." + :command ("nix-linter" "--json-stream" "-") + :standard-input t + :error-parser flycheck-parse-nix-linter + :error-explainer + (lambda (error) + (when-let (error-code (flycheck-error-id error)) + (flycheck-call-checker-process-for-output + 'nix-linter nil t "--help-for" error-code))) + :modes (nix-mode nix-ts-mode)) + +(defun flycheck-parse-statix (output checker buffer) + "Parse statix warnings from JSON OUTPUT. + +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://github.com/nerdypepper/statix' for more +information about statix." + (mapcar (lambda (err) + ;; Diagnostic information is a (seemingly always) 1 element array. + (let-alist (car (alist-get 'diagnostics err)) + (let ((message .message) + (start-line .at.from.line) + (start-column .at.from.column) + (end-line .at.to.line) + (end-column .at.to.column)) + + (let-alist err + (flycheck-error-new-at + start-line + start-column + (pcase .severity ("Error" 'error) + ("Warn" 'warning) + (_ 'warning)) + (format "%s: %s" .note message) + :id (format "%s%02d" (pcase .severity + ("Error" "E") + ("Warn" "W") + (_ "")) .code) + :checker checker + :buffer buffer + :filename (buffer-file-name buffer) + :end-line end-line + :end-column end-column))))) + (alist-get 'report (car (flycheck-parse-json output))))) + +(flycheck-define-checker statix + "Nix checker using statix. + +See URL `https://github.com/nerdypepper/statix'." + :command ("statix" "check" "-o=json" source) + :error-parser flycheck-parse-statix + :modes nix-mode) + +(defun flycheck-locate-sphinx-source-directory () + "Locate the Sphinx source directory for the current buffer. + +Return the source directory, or nil, if the current buffer is not +part of a Sphinx project." + (when-let* ((filename (buffer-file-name)) + (dir (locate-dominating-file filename "conf.py"))) + (expand-file-name dir))) + +(flycheck-define-checker rst + "A ReStructuredText (RST) syntax checker using Docutils. + +See URL `https://docutils.sourceforge.net/'." + ;; include:: directives + :command ("rst2pseudoxml.py" "--report=2" "--halt=5" + ;; Read from standard input and throw output away + "-" null-device) + :standard-input t + :error-patterns + ((warning line-start ":" line ": (WARNING/2) " (message) line-end) + (error line-start ":" line + ": (" (or "ERROR/3" "SEVERE/4") ") " + (message) line-end)) + :modes rst-mode) + +(flycheck-def-option-var flycheck-sphinx-warn-on-missing-references t rst-sphinx + "Whether to warn about missing references in Sphinx. + +When non-nil (the default), warn about all missing references in +Sphinx via `-n'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.17")) + +(flycheck-define-checker rst-sphinx + "A ReStructuredText (RST) syntax checker using Sphinx. + +Requires Sphinx 1.2 or newer. See URL `https://sphinx-doc.org'." + :command ("sphinx-build" "-b" "pseudoxml" + "-q" "-N" ; Reduced output and no colors + (option-flag "-n" flycheck-sphinx-warn-on-missing-references) + (eval (flycheck-locate-sphinx-source-directory)) + temporary-directory ; Redirect the output to a temporary + ; directory + source-original) ; Sphinx needs the original document + :error-patterns + ((warning line-start (file-name) ":" line ": WARNING: " (message) line-end) + (error line-start + (file-name) ":" line + ": " (or "ERROR" "SEVERE") ": " + (message) line-end)) + :modes rst-mode + :predicate (lambda () (and (flycheck-buffer-saved-p) + (flycheck-locate-sphinx-source-directory)))) + +(defun flycheck-ruby--find-project-root (_checker) + "Compute an appropriate working-directory for flycheck-ruby. + +This is either a parent directory containing a Gemfile, or nil." + (and + buffer-file-name + (locate-dominating-file buffer-file-name "Gemfile"))) + +(defun flycheck-ruby--filter-rubocop-errors (errors) + "Filter RuboCop ERRORS attributed to dummy stdin filename." + (flycheck-remove-error-file-names + (flycheck--file-truename (expand-file-name "stdin")) + errors)) + +(flycheck-def-config-file-var flycheck-rubocoprc ruby-rubocop ".rubocop.yml") + +(flycheck-def-option-var flycheck-rubocop-lint-only nil + (ruby-rubocop ruby-standard ruby-chef-cookstyle) + "Whether to only report code issues in Rubocop, Cookstyle and Standard. + +When non-nil, only report code issues, via `--lint'. Otherwise +report style issues as well." + :safe #'booleanp + :type 'boolean + :package-version '(flycheck . "0.16")) + +(defconst flycheck-ruby-rubocop-error-patterns + '((info line-start (file-name) ":" line ":" column ": C: " + (optional (id (one-or-more (not (any ":")))) ": ") (message) line-end) + (warning line-start (file-name) ":" line ":" column ": W: " + (optional (id (one-or-more (not (any ":")))) ": ") (message) + line-end) + (error line-start (file-name) ":" line ":" column ": " (or "E" "F") ": " + (optional (id (one-or-more (not (any ":")))) ": ") (message) + line-end))) + +(flycheck-def-executable-var ruby-rubocop "rubocop") +(flycheck-define-command-checker 'ruby-rubocop + "A Ruby syntax and style checker using the RuboCop tool. + +You need at least RuboCop 0.34 for this syntax checker. + +See URL `https://rubocop.org/'." + ;; ruby-standard is defined based on this checker + :command '("rubocop" + "--display-cop-names" + "--force-exclusion" + "--format" "emacs" + (config-file "--config" flycheck-rubocoprc) + (option-flag "--lint" flycheck-rubocop-lint-only) + ;; RuboCop takes the original file name as argument when reading + ;; from standard input, but it chokes when that name is the empty + ;; string, so fall back to "stdin" in order to handle buffers with + ;; no backing file (e.g. org-mode snippet buffers) + "--stdin" (eval (or (buffer-file-name) "stdin"))) + :standard-input t + :working-directory #'flycheck-ruby--find-project-root + :error-patterns flycheck-ruby-rubocop-error-patterns + :error-filter #'flycheck-ruby--filter-rubocop-errors + :modes '(enh-ruby-mode ruby-mode ruby-ts-mode) + :next-checkers '((warning . ruby-reek) + (warning . ruby-chef-cookstyle))) + +(flycheck-def-executable-var ruby-chef-cookstyle "cookstyle") +(flycheck-define-command-checker 'ruby-chef-cookstyle + "A Chef (Ruby) syntax and style checker using the Cookstyle tool. +Basically Cookstyle is a thin wrapper around RuboCop, so this +checker is essentially the same. + +See URL `https://github.com/chef/cookstyle'." + :command '("cookstyle" + "--display-cop-names" + "--force-exclusion" + "--format" "emacs" + (config-file "--config" flycheck-rubocoprc) + (option-flag "--lint" flycheck-rubocop-lint-only) + ;; RuboCop takes the original file name as argument when reading + ;; from standard input, but it chokes when that name is the empty + ;; string, so fall back to "stdin" in order to handle buffers with + ;; no backing file (e.g. org-mode snippet buffers) + "--stdin" (eval (or (buffer-file-name) "stdin"))) + :standard-input t + :working-directory #'flycheck-ruby--find-project-root + :error-patterns flycheck-ruby-rubocop-error-patterns + :error-filter #'flycheck-ruby--filter-rubocop-errors + :modes '(enh-ruby-mode ruby-mode ruby-ts-mode) + :predicate + (lambda () + (let ((parent-dir (file-name-directory + (directory-file-name + (expand-file-name default-directory))))) + (or + ;; Chef CookBook + ;; https://docs.opscode.com/chef/knife.html#id38 + (locate-dominating-file parent-dir "recipes") + ;; Knife Solo + ;; https://matschaffer.github.io/knife-solo/#label-Init+command + (locate-dominating-file parent-dir "cookbooks")))) + :next-checkers '((warning . ruby-reek))) + +(flycheck-def-config-file-var flycheck-ruby-standardrc ruby-standard + ".standard.yml") + +(flycheck-def-executable-var ruby-standard "standardrb") +(flycheck-define-command-checker 'ruby-standard + "A Ruby syntax and style checker using the StandardRB gem. + +See URL `https://github.com/testdouble/standard' for more information." + ;; This checker is derived from ruby-rubocop; see above + :command '("standardrb" + "--display-cop-names" + "--force-exclusion" + "--format" "emacs" + "--cache" "false" + (config-file "--config" flycheck-ruby-standardrc) + (option-flag "--lint" flycheck-rubocop-lint-only) + "--stdin" source-original) + :standard-input t + :working-directory #'flycheck-ruby--find-project-root + :error-patterns flycheck-ruby-rubocop-error-patterns + :error-filter #'flycheck-ruby--filter-rubocop-errors + :modes '(enh-ruby-mode ruby-mode ruby-ts-mode) + :next-checkers '((warning . ruby-reek) + (warning . ruby-chef-cookstyle))) + +(flycheck-def-config-file-var flycheck-reekrc ruby-reek ".reek.yml" + :safe #'string-or-null-p + :package-version '(flycheck . "30")) + +(flycheck-define-checker ruby-reek + "A Ruby smell checker using reek. + +See URL `https://github.com/troessner/reek'." + :command ("reek" "--format" "json" + (config-file "--config" flycheck-reekrc) + source) + :error-parser flycheck-parse-reek + :modes (enh-ruby-mode ruby-mode ruby-ts-mode)) + +(flycheck-define-checker ruby + "A Ruby syntax checker using the standard Ruby interpreter. + +Please note that the output of different Ruby versions and +implementations varies wildly. This syntax checker supports +current versions of MRI and JRuby, but may break when used with +other implementations or future versions of these +implementations. + +Please consider using `ruby-rubocop' or `ruby-reek' instead. + +See URL `https://www.ruby-lang.org/'." + :command ("ruby" "-w" "-c") + :standard-input t + :error-patterns + ;; These patterns support output from JRuby, too, to deal with RVM or Rbenv + ((error line-start "SyntaxError in -:" line ": " (message) line-end) + (warning line-start "-:" line ":" (optional column ":") + " warning: " (message) line-end) + ;; Ruby 3.4 includes the interpreter path when emitting syntax errors + (error line-start (optional (one-or-more (not (any ":"))) ": ") "-:" line ": " (message) line-end)) + :modes (enh-ruby-mode ruby-mode ruby-ts-mode) + :next-checkers ((warning . ruby-chef-cookstyle))) + +(flycheck-define-checker ruby-jruby + "A Ruby syntax checker using the JRuby interpreter. + +This syntax checker is very primitive, and may break on future +versions of JRuby. + +Please consider using `ruby-rubocop' instead. + +See URL `https://jruby.org/'." + :command ("jruby" "-w" "-c") + :standard-input t + :error-patterns + ((error line-start "SyntaxError in -:" line ": " (message) line-end) + (warning line-start "-:" line ": warning: " (message) line-end) + (error line-start "-:" line ": " (message) line-end)) + :modes (enh-ruby-mode ruby-mode ruby-ts-mode)) + +(flycheck-def-args-var flycheck-cargo-check-args (rust-cargo) + :package-version '(flycheck . "32")) + +(flycheck-def-args-var flycheck-rust-args (rust) + :package-version '(flycheck . "0.24")) + +(flycheck-def-option-var flycheck-rust-check-tests t (rust-cargo rust) + "Whether to check test code in Rust. + +For the `rust' checker: When non-nil, `rustc' is passed the +`--test' flag, which will check any code marked with the +`#[cfg(test)]' attribute and any functions marked with +`#[test]'. Otherwise, `rustc' is not passed `--test' and test +code will not be checked. Skipping `--test' is necessary when +using `#![no_std]', because compiling the test runner requires +`std'. + +For the `rust-cargo' checker: When non-nil, calls `cargo test +--no-run' instead of `cargo check'." + :type 'boolean + :safe #'booleanp + :package-version '("flycheck" . "0.19")) + +(flycheck-def-option-var flycheck-rust-crate-root nil rust + "A path to the crate root for the current buffer. + +The value of this variable is either a string with the path to +the crate root for the current buffer, or nil if the current buffer +is a crate. A relative path is relative to the current buffer. + +If this variable is non nil the current buffer will only be checked +if it is not modified, i.e. after it has been saved." + :type '(choice (const :tag "Unspecified" nil) + (file :tag "Root")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "0.20")) +(make-variable-buffer-local 'flycheck-rust-crate-root) + +(flycheck-def-option-var flycheck-rust-crate-type "lib" (rust-cargo rust) + "The type of the Rust Crate to check. + +For `rust-cargo', the value should be a string denoting the +target type passed to Cargo. See +`flycheck-rust-valid-crate-type-p' for the list of allowed +values. + +For `rust', the value should be a string denoting the crate type +for the `--crate-type' flag of rustc." + :type '(choice (const :tag "nil (rust/rust-cargo)" nil) + (const :tag "lib (rust/rust-cargo)" "lib") + (const :tag "bin (rust/rust-cargo)" "bin") + (const :tag "example (rust-cargo)" "example") + (const :tag "test (rust-cargo)" "test") + (const :tag "bench (rust-cargo)" "bench") + (const :tag "rlib (rust)" "rlib") + (const :tag "dylib (rust)" "dylib") + (const :tag "cdylib (rust)" "cdylib") + (const :tag "staticlib (rust)" "staticlib") + (const :tag "metadata (rust)" "metadata")) + :safe #'stringp + :package-version '(flycheck . "0.20")) +(make-variable-buffer-local 'flycheck-rust-crate-type) + +(flycheck-def-option-var flycheck-rust-binary-name nil rust-cargo + "The name of the binary to pass to `cargo check --CRATE-TYPE'. + +The value of this variable is a string denoting the name of the +target to check: usually the name of the crate, or the name of +one of the files under `src/bin', `tests', `examples' or +`benches'. + +This always requires a non-nil value, unless +`flycheck-rust-crate-type' is `lib' or nil, in which case it is +ignored." + :type '(choice (const :tag "Unspecified" nil) + (string :tag "Binary name")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "28")) +(make-variable-buffer-local 'flycheck-rust-binary-name) + +(flycheck-def-option-var flycheck-rust-features nil rust-cargo + "List of features to activate during build or check. + +The value of this variable is a list of strings denoting features +that will be activated to build the target to check. Features will +be passed to `cargo check --features=FEATURES'." + :type '(repeat :tag "Features to activate" + (string :tag "Feature")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) +(make-variable-buffer-local 'flycheck-rust-features) + +(flycheck-def-option-var flycheck-rust-library-path nil rust + "A list of library directories for Rust. + +The value of this variable is a list of strings, where each +string is a directory to add to the library path of Rust. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Library directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.18")) + +(defun flycheck--fontify-as-markdown () + "Place current buffer in `markdown-view-mode' and fontify it." + (when (fboundp 'markdown-view-mode) + (let ((markdown-fontify-code-block-default-mode 'rust-mode) + (markdown-fontify-code-blocks-natively t) + (markdown-hide-markup t)) + (markdown-view-mode) + (font-lock-flush) + (font-lock-ensure)))) + +(defun flycheck-rust-error-explainer (error) + "Return an explanation for the given `flycheck-error' ERROR." + (when-let (error-code (flycheck-error-id error)) + (lambda () + (flycheck-call-checker-process + 'rust nil standard-output t "--explain" error-code) + (with-current-buffer standard-output + (flycheck--fontify-as-markdown))))) + +(defun flycheck-rust-error-filter (errors) + "Filter ERRORS from rustc output that have no explanatory value." + (seq-remove + (lambda (err) + (or + ;; Macro errors emit a diagnostic in a phony file, + ;; e.g. "". + (when-let (filename (flycheck-error-filename err)) + (string-match-p (rx "macros>" line-end) filename)) + ;; Redundant message giving the number of failed errors + (when-let (msg (flycheck-error-message err)) + (string-match-p + (rx + (or (: "aborting due to " (optional (one-or-more num) " ") + "previous error") + (: "For more information about this error, try `rustc --explain " + (one-or-more alnum) "`."))) + msg)))) + errors)) + +(defun flycheck-rust-manifest-directory () + "Return the nearest directory holding the Cargo manifest. + +Return the nearest directory containing the `Cargo.toml' manifest +file, starting from the current buffer and using +`locate-dominating-file'. Return nil if there is no such file, +or if the current buffer has no file name." + (and buffer-file-name + (locate-dominating-file buffer-file-name "Cargo.toml"))) + +(defun flycheck-rust-cargo-metadata () + "Run `cargo metadata' and return the result as parsed JSON object." + (car (flycheck-parse-json + (flycheck-call-checker-process-for-output + 'rust-cargo nil t + "metadata" "--no-deps" "--format-version" "1")))) + +(defun flycheck-rust-cargo-workspace-root () + "Return the path to the workspace root of a Rust Cargo project. + +Return nil if the workspace root does not exist (for Rust +versions inferior to 1.25)." + (let-alist (flycheck-rust-cargo-metadata) + .workspace_root)) + +(defun flycheck-rust-cargo-has-command-p (command) + "Whether Cargo has COMMAND in its list of commands. + +Execute `cargo --list' to find out whether COMMAND is present." + (let ((cargo (funcall flycheck-executable-find "cargo"))) + (member command + (mapcar (lambda (line) + (replace-regexp-in-string "\\s-*\\(\\S-+\\).*\\'" "\\1" line)) + (ignore-errors (process-lines cargo "--list")))))) + +(defun flycheck-rust-valid-crate-type-p (crate-type) + "Whether CRATE-TYPE is a valid target type for Cargo. + +A valid Cargo target type is one of `lib', `bin', `example', +`test' or `bench'." + (member crate-type '(nil "lib" "bin" "example" "test" "bench"))) + +(flycheck-define-checker rust-cargo + "A Rust syntax checker using Cargo. + +This syntax checker requires Rust 1.17 or newer. See URL +`https://www.rust-lang.org'." + :command ("cargo" + (eval (if flycheck-rust-check-tests + "test" + "check")) + (eval (when flycheck-rust-check-tests + "--no-run")) + (eval (when flycheck-rust-crate-type + (concat "--" flycheck-rust-crate-type))) + ;; All crate targets except "lib" need a binary name + (eval (when (and flycheck-rust-crate-type + (not (string= flycheck-rust-crate-type "lib"))) + flycheck-rust-binary-name)) + (option "--features=" flycheck-rust-features concat + flycheck-option-comma-separated-list) + (eval flycheck-cargo-check-args) + "--message-format=json") + :error-parser flycheck-parse-cargo-rustc + :error-filter (lambda (errors) + ;; In Rust 1.25+, filenames are relative to the workspace + ;; root. + (let ((root (flycheck-rust-cargo-workspace-root))) + (seq-do (lambda (err) + ;; Some errors are crate level and do not have a + ;; filename + (when (flycheck-error-filename err) + (setf (flycheck-error-filename err) + (expand-file-name + (flycheck-error-filename err) root)))) + (flycheck-rust-error-filter errors)))) + :error-explainer flycheck-rust-error-explainer + :modes (rust-mode rust-ts-mode) + :predicate flycheck-buffer-saved-p + :enabled flycheck-rust-manifest-directory + :working-directory (lambda (_) (flycheck-rust-manifest-directory)) + :verify + (lambda (_) + (and buffer-file-name + (let* ((has-toml (flycheck-rust-manifest-directory)) + (valid-crate-type (flycheck-rust-valid-crate-type-p + flycheck-rust-crate-type)) + (need-binary-name + (and flycheck-rust-crate-type + (not (string= flycheck-rust-crate-type "lib"))))) + (list + (flycheck-verification-result-new + :label "Cargo.toml" + :message (if has-toml "Found" "Missing") + :face (if has-toml 'success '(bold warning))) + (flycheck-verification-result-new + :label "Crate type" + :message (if valid-crate-type + (format "%s" flycheck-rust-crate-type) + (format "%s (invalid, should be one of 'lib', 'bin', \ +'test', 'example' or 'bench')" + flycheck-rust-crate-type)) + :face (if valid-crate-type 'success '(bold error))) + (flycheck-verification-result-new + :label "Binary name" + :message (cond + ((not need-binary-name) "Not required") + ((not flycheck-rust-binary-name) "Required") + (t (format "%s" flycheck-rust-binary-name))) + :face (cond + ((not need-binary-name) 'success) + ((not flycheck-rust-binary-name) '(bold error)) + (t 'success)))))))) + +(flycheck-define-checker rust + "A Rust syntax checker using Rust compiler. + +This syntax checker needs Rust 1.18 or newer. See URL +`https://www.rust-lang.org'." + :command ("rustc" + (option "--crate-type" flycheck-rust-crate-type) + "--emit=mir" "-o" "/dev/null" ; avoid creating binaries + "--error-format=json" + (option-flag "--test" flycheck-rust-check-tests) + (option-list "-L" flycheck-rust-library-path concat) + (eval flycheck-rust-args) + (eval (or flycheck-rust-crate-root + (flycheck-substitute-argument 'source-original 'rust)))) + :error-parser flycheck-parse-rustc + :error-filter flycheck-rust-error-filter + :error-explainer flycheck-rust-error-explainer + :modes (rust-mode rust-ts-mode) + :predicate flycheck-buffer-saved-p) + +(flycheck-define-checker rust-clippy + "A Rust syntax checker using clippy. + +See URL `https://github.com/rust-lang-nursery/rust-clippy'." + :command ("cargo" "clippy" "--message-format=json") + :error-parser flycheck-parse-cargo-rustc + :error-filter flycheck-rust-error-filter + :error-explainer flycheck-rust-error-explainer + :modes (rust-mode rust-ts-mode) + :predicate flycheck-buffer-saved-p + :enabled (lambda () + (and (flycheck-rust-cargo-has-command-p "clippy") + (flycheck-rust-manifest-directory))) + :working-directory (lambda (_) (flycheck-rust-manifest-directory)) + :verify + (lambda (_) + (and buffer-file-name + (let ((has-toml (flycheck-rust-manifest-directory)) + (has-clippy (flycheck-rust-cargo-has-command-p "clippy"))) + (list + (flycheck-verification-result-new + :label "Clippy" + :message (if has-clippy "Found" + "Cannot find the `cargo clippy' command") + :face (if has-clippy 'success '(bold warning))) + (flycheck-verification-result-new + :label "Cargo.toml" + :message (if has-toml "Found" "Missing") + :face (if has-toml 'success '(bold warning)))))))) + +(flycheck-define-checker salt-lint + "A salt linter which apply common best practices for SaltStack. + +See URL `https://salt-lint.readthedocs.io/en/latest/'." + :command ("python" "-m" "saltlint" "--json") + :standard-input t + :error-parser flycheck-salt-lint-parser + :error-filter (lambda (errors) (flycheck-sanitize-errors errors)) + :modes salt-mode) + +(defun flycheck-salt-lint-parser (output checker buffer) + "Parse salt lint JSON errors from OUTPUT. + +The arguments CHECKER and BUFFER are only passed through." + (condition-case nil + (let* ((json-array-type 'list) + (json-object-type 'plist) + (filename (buffer-file-name buffer)) + (errors (json-read-from-string output))) + (mapcar (lambda (e) + (flycheck-error-new + :checker checker + :buffer buffer + :filename filename + :level (pcase (plist-get e :severity) + ("HIGH" 'error) + ("MEDIUM" 'warning) + ("LOW" 'warning) + ("INFO" 'info) + (_ 'info)) + :line (plist-get e :linenumber) + :column 0 + :message (concat (plist-get e :message) (plist-get e :line)) + :id (plist-get e :id))) errors)) + (json-error nil))) + +(defvar flycheck-sass-scss-cache-directory nil + "The cache directory for `sass' and `scss'.") + +(defun flycheck-sass-scss-cache-location () + "Get the cache location for `sass' and `scss'. + +If no cache directory exists yet, create one and return it. +Otherwise return the previously used cache directory." + (setq flycheck-sass-scss-cache-directory + (or flycheck-sass-scss-cache-directory + (make-temp-file "flycheck-sass-scss-cache" 'directory)))) + +(flycheck-def-option-var flycheck-sass-compass nil sass + "Whether to enable the Compass CSS framework. + +When non-nil, enable the Compass CSS framework, via `--compass'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.16")) + +(flycheck-define-checker sass + "A Sass syntax checker using the Sass compiler. + +See URL `https://sass-lang.com'." + :command ("sass" + "--cache-location" (eval (flycheck-sass-scss-cache-location)) + (option-flag "--compass" flycheck-sass-compass) + "--check" "--stdin") + :standard-input t + :error-patterns + ((error line-start + (or "Syntax error: " "Error: ") + (message (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more not-newline))) + (optional "\r") "\n" (one-or-more " ") "on line " line + " of standard input" + line-end) + (warning line-start + "WARNING: " + (message (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more not-newline))) + (optional "\r") "\n" (one-or-more " ") "on line " line + " of " (one-or-more not-newline) + line-end)) + :modes sass-mode) + +(flycheck-def-config-file-var flycheck-sass-lintrc sass/scss-sass-lint + ".sass-lint.yml" + :package-version '(flycheck . "30")) + +(flycheck-define-checker sass/scss-sass-lint + "A SASS/SCSS syntax checker using sass-Lint. + +See URL `https://github.com/sasstools/sass-lint'." + :command ("sass-lint" + "--verbose" + "--no-exit" + "--format" "Checkstyle" + (config-file "--config" flycheck-sass-lintrc) + source) + :error-parser flycheck-parse-checkstyle + :modes (sass-mode scss-mode)) + +(flycheck-define-checker scala + "A Scala syntax checker using the Scala compiler. + +See URL `https://www.scala-lang.org/'." + :command ("scalac" "-Ystop-after:parser" source) + :error-patterns + ((error line-start (file-name) ":" line ": error: " (message) line-end)) + :modes scala-mode + :next-checkers ((warning . scala-scalastyle))) + +(flycheck-def-config-file-var flycheck-scalastylerc scala-scalastyle nil + :package-version '(flycheck . "0.20")) + +(flycheck-define-checker scala-scalastyle + "A Scala style checker using scalastyle. + +Note that this syntax checker is not used if +`flycheck-scalastylerc' is nil or refers to a non-existing file. + +See URL `https://www.scalastyle.org'." + :command ("scalastyle" + (config-file "-c" flycheck-scalastylerc) + source) + :error-patterns + ((error line-start "error file=" (file-name) " message=" + (message) " line=" line (optional " column=" column) line-end) + (warning line-start "warning file=" (file-name) " message=" + (message) " line=" line (optional " column=" column) line-end)) + :error-filter (lambda (errors) + (flycheck-sanitize-errors + (flycheck-increment-error-columns errors))) + :modes scala-mode + :predicate + ;; Inhibit this syntax checker if the JAR or the configuration are unset or + ;; missing + (lambda () (and flycheck-scalastylerc + (flycheck-locate-config-file flycheck-scalastylerc + 'scala-scalastyle))) + :verify (lambda (checker) + (let ((config-file (and flycheck-scalastylerc + (flycheck-locate-config-file + flycheck-scalastylerc checker)))) + (list + (flycheck-verification-result-new + :label "Configuration file" + :message (cond + ((not flycheck-scalastylerc) + "`flycheck-scalastyletrc' not set") + ((not config-file) + (format "file %s not found" flycheck-scalastylerc)) + (t (format "found at %s" config-file))) + :face (cond + ((not flycheck-scalastylerc) '(bold warning)) + ((not config-file) '(bold error)) + (t 'success))))))) + +(flycheck-def-args-var flycheck-scheme-chicken-args scheme-chicken + :package-version '(flycheck . "32")) + +(flycheck-define-checker scheme-chicken + "A CHICKEN Scheme syntax checker using the CHICKEN compiler `csc'. + +See URL `https://call-cc.org/'." + :command ("csc" "-analyze-only" "-local" + (eval flycheck-scheme-chicken-args) + source) + :error-patterns + ((info line-start + "Note: " (zero-or-more not-newline) ":\n" + (one-or-more (any space)) "(" (file-name) ":" line ") " (message) + line-end) + (warning line-start + "Warning: " (zero-or-more not-newline) ",\n" + (one-or-more (any space)) (zero-or-more not-newline) ":\n" + (one-or-more (any space)) "(" (file-name) ":" line ") " (message) + line-end) + (warning line-start + "Warning: " (zero-or-more not-newline) ":\n" + (one-or-more (any space)) "(" (file-name) ":" line ") " (message) + line-end) + (error line-start "Error: (line " line ") " (message) line-end) + (error line-start "Syntax error: (" (file-name) ":" line ")" + (zero-or-more not-newline) " - " + (message (one-or-more not-newline) + (zero-or-more "\n" + (zero-or-more space) + (zero-or-more not-newline)) + (one-or-more space) "<--") + line-end) + ;; A of version 4.12.0, the chicken compiler doesn't provide a + ;; line number for this error. + (error line-start "Syntax error: " + (message (one-or-more not-newline) + (zero-or-more "\n" + (zero-or-more space) + (zero-or-more not-newline)) + (one-or-more space) "<--") + line-end) + (error line-start + "Error: " (zero-or-more not-newline) ":\n" + (one-or-more (any space)) "(" (file-name) ":" line ") " (message) + line-end) + ;; A of version 4.12.0, the chicken compiler doesn't provide a + ;; line number for this error. + (error line-start "Error: " + (message (one-or-more not-newline) + (zero-or-more "\n" + (zero-or-more space) + (zero-or-more not-newline)) + (one-or-more space) "<--"))) + :error-filter flycheck-fill-empty-line-numbers + :predicate + (lambda () + ;; In `scheme-mode' we must check the current Scheme implementation + ;; being used + (and (boundp 'geiser-impl--implementation) + (eq geiser-impl--implementation 'chicken))) + :verify + (lambda (_checker) + (let ((geiser-impl (bound-and-true-p geiser-impl--implementation))) + (list + (flycheck-verification-result-new + :label "Geiser Implementation" + :message (cond + ((eq geiser-impl 'chicken) "Chicken Scheme") + (geiser-impl (format "Other: %s" geiser-impl)) + (t "Geiser not active")) + :face (cond + ((eq geiser-impl 'chicken) 'success) + (t '(bold error))))))) + :modes scheme-mode) + +(defconst flycheck-scss-lint-checkstyle-re + (rx "cannot load such file" (1+ not-newline) "scss_lint_reporter_checkstyle") + "Regular expression to parse missing checkstyle error.") + +(defun flycheck-parse-scss-lint (output checker buffer) + "Parse SCSS-Lint OUTPUT from CHECKER and BUFFER. + +Like `flycheck-parse-checkstyle', but catches errors about +missing checkstyle reporter from SCSS-Lint." + (if (string-match-p flycheck-scss-lint-checkstyle-re output) + (list (flycheck-error-new-at + 1 nil 'error "Checkstyle reporter for SCSS-Lint missing. +Please run gem install scss_lint_reporter_checkstyle" + :checker checker + :buffer buffer + :filename (buffer-file-name buffer))) + (flycheck-parse-checkstyle output checker buffer))) + +(flycheck-def-config-file-var flycheck-scss-lintrc scss-lint ".scss-lint.yml" + :package-version '(flycheck . "0.23")) + +(flycheck-define-checker scss-lint + "A SCSS syntax checker using SCSS-Lint. + +Needs SCSS-Lint 0.43.2 or newer. + +See URL `https://github.com/brigade/scss-lint'." + :command ("scss-lint" + "--require=scss_lint_reporter_checkstyle" + "--format=Checkstyle" + (config-file "--config" flycheck-scss-lintrc) + "--stdin-file-path" source-original "-") + :standard-input t + ;; We cannot directly parse Checkstyle XML, since for some mysterious reason + ;; SCSS-Lint doesn't have a built-in Checkstyle reporter, and instead ships it + ;; as an addon which might not be installed. We use a custom error parser to + ;; check whether the addon is missing and turn that into a special kind of + ;; Flycheck error. + :error-parser flycheck-parse-scss-lint + :modes scss-mode + :verify + (lambda (checker) + (when-let + (output (flycheck-call-checker-process-for-output + checker nil nil "--require=scss_lint_reporter_checkstyle")) + (let ((reporter-missing + (string-match-p flycheck-scss-lint-checkstyle-re output))) + (list + (flycheck-verification-result-new + :label "checkstyle reporter" + :message (if reporter-missing + "scss_lint_reporter_checkstyle plugin missing" + "present") + :face (if reporter-missing + '(bold error) + 'success))))))) + +(flycheck-define-checker scss-stylelint + "A SCSS syntax and style checker using stylelint. + +See URL `https://stylelint.io/'." + :command ("stylelint" + (eval flycheck-stylelint-args) + (option-flag "--quiet" flycheck-stylelint-quiet) + (config-file "--config" flycheck-stylelintrc)) + :standard-input t + :verify (lambda (_) (flycheck--stylelint-verify 'scss-stylelint)) + :error-parser flycheck-parse-stylelint + :predicate flycheck-buffer-nonempty-p + :modes (scss-mode)) + +(flycheck-define-checker sass-stylelint + "A Sass syntax and style checker using stylelint. + +See URL `https://stylelint.io/'." + :command ("stylelint" + (eval flycheck-stylelint-args) + (option-flag "--quiet" flycheck-stylelint-quiet) + (config-file "--config" flycheck-stylelintrc)) + :standard-input t + :verify (lambda (_) (flycheck--stylelint-verify 'sass-stylelint)) + :error-parser flycheck-parse-stylelint + :predicate flycheck-buffer-nonempty-p + :modes (sass-mode)) + +(flycheck-def-option-var flycheck-scss-compass nil scss + "Whether to enable the Compass CSS framework. + +When non-nil, enable the Compass CSS framework, via `--compass'." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "0.16")) + +(flycheck-define-checker scss + "A SCSS syntax checker using the SCSS compiler. + +See URL `https://sass-lang.com'." + :command ("scss" + "--cache-location" (eval (flycheck-sass-scss-cache-location)) + (option-flag "--compass" flycheck-scss-compass) + "--check" "--stdin") + :standard-input t + :error-patterns + ((error line-start + (or "Syntax error: " "Error: ") + (message (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more not-newline))) + (optional "\r") "\n" (one-or-more " ") "on line " line + " of standard input" + line-end) + (warning line-start + "WARNING: " + (message (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more not-newline))) + (optional "\r") "\n" (one-or-more " ") "on line " line + " of an unknown file" + line-end)) + :modes scss-mode) + +(flycheck-def-args-var flycheck-sh-bash-args (sh-bash) + :package-version '(flycheck . "32")) + +(flycheck-define-checker sh-bash + "A Bash syntax checker using the Bash shell. + +See URL `https://www.gnu.org/software/bash/'." + :command ("bash" "--norc" "-n" + (eval flycheck-sh-bash-args) + "--") + :standard-input t + :error-patterns + ((error line-start + ;; The name/path of the bash executable + (one-or-more (not (any ":"))) ":" + ;; A label "line", possibly localized + (one-or-more (not (any digit))) + line (zero-or-more " ") ":" (zero-or-more " ") + (message) line-end)) + :modes (sh-mode bash-ts-mode) + :predicate (lambda () (eq sh-shell 'bash)) + :next-checkers ((warning . sh-shellcheck))) + +(flycheck-define-checker sh-posix-dash + "A POSIX Shell syntax checker using the Dash shell. + +See URL `https://gondor.apana.org.au/~herbert/dash/'." + :command ("dash" "-n") + :standard-input t + :error-patterns + ((error line-start (one-or-more (not (any ":"))) ": " line ": " (message))) + :modes sh-mode + :predicate (lambda () (eq sh-shell 'sh)) + :next-checkers ((warning . sh-shellcheck))) + +(flycheck-define-checker sh-posix-bash + "A POSIX Shell syntax checker using the Bash shell. + +See URL `https://www.gnu.org/software/bash/'." + :command ("bash" "--posix" "--norc" "-n" "--") + :standard-input t + :error-patterns + ((error line-start + ;; The name/path of the bash executable + (one-or-more (not (any ":"))) ":" + ;; A label "line", possibly localized + (one-or-more (not (any digit))) + line (zero-or-more " ") ":" (zero-or-more " ") + (message) line-end)) + :modes sh-mode + :predicate (lambda () (eq sh-shell 'sh)) + :next-checkers ((warning . sh-shellcheck))) + +(flycheck-define-checker sh-zsh + "A Zsh syntax checker using the Zsh shell. + +See URL `https://www.zsh.org/'." + :command ("zsh" "--no-exec" "--no-globalrcs" "--no-rcs" source) + :error-patterns + ((error line-start (file-name) ":" line ": " (message) line-end)) + :modes sh-mode + :predicate (lambda () (eq sh-shell 'zsh)) + :next-checkers ((warning . sh-shellcheck))) + +(defconst flycheck-shellcheck-supported-shells '(bash ksh88 sh) + "Shells supported by ShellCheck.") + +(flycheck-def-option-var flycheck-shellcheck-excluded-warnings nil sh-shellcheck + "A list of excluded warnings for ShellCheck. + +The value of this variable is a list of strings, where each +string is a warning code to be excluded from ShellCheck reports. +By default, no warnings are excluded." + :type '(repeat :tag "Excluded warnings" + (string :tag "Warning code")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.21")) + +(flycheck-def-option-var flycheck-shellcheck-follow-sources t sh-shellcheck + "Whether to follow external sourced files in scripts. + +Shellcheck will follow and parse sourced files so long as a +pre-runtime resolvable path to the file is present. This can +either be part of the source command itself: + source /full/path/to/file.txt +or added as a shellcheck directive before the source command: + # shellcheck source=/full/path/to/file.txt." + :type 'boolean + :safe #'booleanp + :package-version '(flycheck . "31")) + +(flycheck-define-checker sh-shellcheck + "A shell script syntax and style checker using Shellcheck. + +See URL `https://github.com/koalaman/shellcheck/'." + :command ("shellcheck" + "--format" "checkstyle" + "--shell" (eval (symbol-name sh-shell)) + (option-flag "--external-sources" + flycheck-shellcheck-follow-sources) + (option "--exclude" flycheck-shellcheck-excluded-warnings list + flycheck-option-comma-separated-list) + "-") + :standard-input t + :error-parser flycheck-parse-checkstyle + :error-filter + (lambda (errors) + (flycheck-remove-error-file-names + "-" (flycheck-dequalify-error-ids errors))) + :modes (sh-mode bash-ts-mode) + :predicate (lambda () (memq sh-shell flycheck-shellcheck-supported-shells)) + :verify (lambda (_) + (let ((supports-shell (memq sh-shell + flycheck-shellcheck-supported-shells))) + (list + (flycheck-verification-result-new + :label (format "Shell %s supported" sh-shell) + :message (if supports-shell "yes" "no") + :face (if supports-shell 'success '(bold warning)))))) + :error-explainer + (lambda (err) + (let ((error-code (flycheck-error-id err)) + (url "https://github.com/koalaman/shellcheck/wiki/%s")) + (and error-code `(url . ,(format url error-code)))))) + +(flycheck-define-checker slim + "A Slim syntax checker using the Slim compiler. + +See URL `https://slim-lang.com'." + :command ("slimrb" "--compile") + :standard-input t + :error-patterns + ((error line-start + "Slim::Parser::SyntaxError:" (message) (optional "\r") "\n " + "STDIN, Line " line (optional ", Column " column) + line-end)) + :modes slim-mode + :next-checkers ((warning . slim-lint))) + +(flycheck-define-checker slim-lint + "A Slim linter. + +See URL `https://github.com/sds/slim-lint'." + :command ("slim-lint" "--reporter=checkstyle" source) + :error-parser flycheck-parse-checkstyle + :modes slim-mode) + +(flycheck-define-checker sql-sqlint + "A SQL syntax checker using the sqlint tool. + +See URL `https://github.com/purcell/sqlint'." + :command ("sqlint") + :standard-input t + :error-patterns + ((warning line-start "stdin:" line ":" column ":WARNING " + (message (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more not-newline))) + line-end) + (error line-start "stdin:" line ":" column ":ERROR " + (message (one-or-more not-newline) + (zero-or-more "\n" + (one-or-more " ") + (one-or-more not-newline))) + line-end)) + :modes (sql-mode)) + +(flycheck-define-checker systemd-analyze + "A systemd unit checker using systemd-analyze(1). + +See URL +`https://www.freedesktop.org/software/systemd/man/systemd-analyze.html'." + :command ("systemd-analyze" "verify" source) + :error-parser flycheck-parse-with-patterns-without-color + :error-patterns + ((error line-start (file-name) ":" (optional line ":") (message) line-end) + (error line-start "[" (file-name) ":" line "]" (message) line-end)) + :error-filter (lambda (errors) + (flycheck-sanitize-errors + (flycheck-fill-empty-line-numbers errors))) + :modes (systemd-mode)) + +(flycheck-def-config-file-var flycheck-chktexrc tex-chktex ".chktexrc") + +(flycheck-define-checker tcl-nagelfar + "An extensible tcl syntax checker + +See URL `https://nagelfar.sourceforge.net/'." + :command ("nagelfar" "-H" source) + :error-patterns + ;; foo.tcl: 29: E Wrong number of arguments (4) to "set" + ;; foo.tcl: 29: W Expr without braces + ((info line-start (file-name) ": " line ": N " (message) line-end) + (warning line-start (file-name) ": " line ": W " (message) line-end) + (error line-start (file-name) ": " line ": E " (message) line-end)) + :modes tcl-mode) + +(flycheck-define-checker terraform + "A Terraform syntax checker with `terraform fmt'. + +See URL `https://www.terraform.io/docs/commands/fmt.html'." + :command ("terraform" "fmt" "-no-color" "-") + :standard-input t + :error-patterns + ((error line-start "Error: " (one-or-more not-newline) + "\n\n on line " line ", in " (one-or-more not-newline) ":" + (one-or-more "\n" (zero-or-more space (one-or-more not-newline))) + (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n))) + line-end) + (error line-start "Error: " (one-or-more not-newline) + "\n\n on line " line ":\n (source code not available)\n\n" + (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n))) + line-end)) + :next-checkers ((warning . terraform-tflint)) + :modes terraform-mode) + +(flycheck-def-option-var flycheck-tflint-variable-files nil terraform-tflint + "A list of files to resolve terraform variables. + +The value of this variable is a list of strings, where each +string is a file to add to the terraform variables files. +Relative files are relative to the file being checked." + :type '(repeat (directory :tag "Variable file")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) + +(defun flycheck-parse-tflint-linter (output checker buffer) + "Parse tflint warnings from JSON OUTPUT. + +CHECKER and BUFFER denote the CHECKER that returned OUTPUT and +the BUFFER that was checked respectively. + +See URL `https://github.com/terraform-linters/tflint' for more +information about tflint." + (mapcar (lambda (err) + (let-alist err + (flycheck-error-new-at + .range.start.line + .range.start.column + (pcase .rule.severity + ("error" 'error) + ("warning" 'warning) + (_ 'error)) + .message + :end-line .range.end.line + :end-column .range.end.column + :id .rule.name + :checker checker + :buffer buffer + :filename (buffer-file-name buffer)))) + (cdr (assq 'issues (car (flycheck-parse-json output)))))) + +(flycheck-define-checker terraform-tflint + "A Terraform checker using tflint. + +See URL `https://github.com/terraform-linters/tflint'." + :command ("tflint" "--format=json" "--force" + (option-list "--var-file=" flycheck-tflint-variable-files concat)) + :error-parser flycheck-parse-tflint-linter + :predicate flycheck-buffer-saved-p + :modes terraform-mode) + +(flycheck-def-option-var flycheck-chktex-extra-flags nil tex-chktex + "A list of extra arguments to give to chktex. +This variable works the same way as `tex-chktex-extra-flags': its value +is a list of strings, where each string is an argument added to chktex. + +For example, to ignore warnings 8 and 18, you would set this option to + + \\='(\"-n8\" \"-n18\")." + :type '(repeat string) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "35")) + +(flycheck-define-checker tex-chktex + "A TeX and LaTeX syntax and style checker using chktex. + +See URL `https://www.nongnu.org/chktex/'." + :command ("chktex" + (config-file "--localrc" flycheck-chktexrc) + (option-list "" flycheck-chktex-extra-flags concat) + ;; Compact error messages, and no version information, and execute + ;; \input statements + "--verbosity=0" "--quiet" "--inputfiles") + :standard-input t + :error-patterns + ((warning line-start "stdin:" line ":" column ":" + (id (one-or-more digit)) ":" (message) line-end)) + :error-filter + (lambda (errors) + (flycheck-sanitize-errors (flycheck-increment-error-columns errors))) + :modes (latex-mode LaTeX-mode plain-tex-mode plain-TeX-mode)) + +(flycheck-define-checker tex-lacheck + "A LaTeX syntax and style checker using lacheck. + +See URL `https://www.ctan.org/pkg/lacheck'." + :command ("lacheck" source-inplace) + :error-patterns + ((warning line-start + "\"" (file-name) "\", line " line ": " (message) + line-end)) + :modes (latex-mode LaTeX-mode)) + +(flycheck-define-checker texinfo + "A Texinfo syntax checker using makeinfo. + +See URL `https://www.gnu.org/software/texinfo/'." + :command ("makeinfo" "-o" null-device "-") + :standard-input t + :error-patterns + ((warning line-start + "-:" line (optional ":" column) ": " "warning: " (message) + line-end) + (error line-start + "-:" line (optional ":" column) ": " (message) + line-end)) + :modes (texinfo-mode Texinfo-mode)) + +(flycheck-def-config-file-var flycheck-textlint-config + textlint "textlintrc.json") + +;; This needs to be set because textlint plugins are installed separately, +;; and there is no way to check their installation status -- textlint simply +;; prints a backtrace. +(flycheck-def-option-var flycheck-textlint-plugin-alist + '((markdown-mode . "@textlint/markdown") + (gfm-mode . "@textlint/markdown") + (t . "@textlint/text")) + textlint + "An alist mapping major modes to textlint plugins. + +Each item is a cons cell `(MAJOR-MODE . PLUGIN)', where MAJOR-MODE is a mode +`flycheck-textlint' supports and PLUGIN is a textlint plugin. As a catch-all, +when MAJOR-MODE is t, that PLUGIN will be used for any supported mode that +isn't specified. + +See URL `https://npms.io/search?q=textlint-plugin' for all textlint plugins +published on NPM." + :type '(repeat (choice (cons symbol string) + (cons (const t) string)))) + +(defun flycheck--textlint-get-plugin () + "Return the textlint plugin for the current mode." + (cdr (seq-find + (lambda (arg) + (pcase-let ((`(,mode . _) arg)) + (or (and (booleanp mode) mode) ; mode is t + (derived-mode-p mode)))) + flycheck-textlint-plugin-alist))) + +(flycheck-define-checker textlint + "A text prose linter using textlint. + +See URL `https://textlint.github.io/'." + :command ("textlint" + (config-file "--config" flycheck-textlint-config) + "--format" "json" + ;; get the first matching plugin from plugin-alist + "--plugin" + (eval (flycheck--textlint-get-plugin)) + source) + ;; textlint seems to say that its json output is compatible with ESLint. + ;; https://textlint.github.io/docs/formatter.html + :error-parser flycheck-parse-eslint + ;; textlint can support different formats with textlint plugins, but + ;; only text and markdown formats are installed by default. Ask the + ;; user to add mode->plugin mappings manually in + ;; `flycheck-textlint-plugin-alist'. + :modes + (text-mode markdown-mode gfm-mode message-mode adoc-mode + mhtml-mode latex-mode LaTeX-mode org-mode rst-mode) + :enabled + (lambda () (flycheck--textlint-get-plugin)) + :verify + (lambda (_) + (let ((plugin (flycheck--textlint-get-plugin))) + (list + (flycheck-verification-result-new + :label "textlint plugin" + :message plugin + :face 'success))))) + +(flycheck-def-config-file-var flycheck-typescript-tslint-config + typescript-tslint "tslint.json" + :package-version '(flycheck . "27")) + +(flycheck-def-option-var flycheck-typescript-tslint-rulesdir + nil typescript-tslint + "The directory of custom rules for TSLint. + +The value of this variable is either a string containing the path +to a directory with custom rules, or nil, to not give any custom +rules to TSLint. + +Refer to the TSLint manual at URL +`https://palantir.github.io/tslint/usage/cli/' +for more information about the custom directory." + :type '(choice (const :tag "No custom rules directory" nil) + (directory :tag "Custom rules directory")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "27")) + +(flycheck-def-args-var flycheck-tslint-args (typescript-tslint) + :package-version '(flycheck . "31")) + +(flycheck-define-checker typescript-tslint + "TypeScript style checker using TSLint. + +Note that this syntax checker is not used if +`flycheck-typescript-tslint-config' is nil or refers to a +non-existing file. + +See URL `https://github.com/palantir/tslint'." + :command ("tslint" "--format" "json" + (config-file "--config" flycheck-typescript-tslint-config) + (option "--rules-dir" flycheck-typescript-tslint-rulesdir) + (eval flycheck-tslint-args) + source-inplace) + :error-parser flycheck-parse-tslint + :modes (typescript-mode typescript-ts-mode tsx-ts-mode)) + +(flycheck-def-option-var flycheck-verilator-include-path nil verilog-verilator + "A list of include directories for Verilator. + +The value of this variable is a list of strings, where each +string is a directory to add to the include path of Verilator. +Relative paths are relative to the file being checked." + :type '(repeat (directory :tag "Include directory")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "0.24")) + +(flycheck-define-checker verilog-verilator + "A Verilog syntax checker using the Verilator Verilog HDL simulator. + +See URL `https://www.veripool.org/wiki/verilator'." + :command ("verilator" "--lint-only" "-Wall" "--quiet-exit" + (option-list "-I" flycheck-verilator-include-path concat) + source) + :error-patterns + ((warning line-start "%Warning" + (? "-" (id (+ (any "0-9A-Z_")))) ": " + (? (file-name) ":" line ":" (? column ":") " ") + (message) line-end) + (error line-start "%Error" + (? "-" (id (+ (any "0-9A-Z_")))) ": " + (? (file-name) ":" line ":" (? column ":") " ") + (message) line-end)) + :modes verilog-mode) + +(flycheck-def-option-var flycheck-ghdl-language-standard nil vhdl-ghdl + "The language standard to use in GHDL. + +The value of this variable is either a string denoting a language +standard, or nil, to use the default standard. When non-nil, +pass the language standard via the `--std' option." + :type '(choice (const :tag "Default standard" nil) + (string :tag "Language standard")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32")) +(make-variable-buffer-local 'flycheck-ghdl-language-standard) + +(flycheck-def-option-var flycheck-ghdl-workdir nil vhdl-ghdl + "The directory to use for the file library. + +The value of this variable is either a string with the directory +to use for the file library, or nil, to use the default value. +When non-nil, pass the directory via the `--workdir' option." + :type '(choice (const :tag "Default directory" nil) + (string :tag "Directory for the file library")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32")) +(make-variable-buffer-local 'flycheck-ghdl-workdir) + +(flycheck-def-option-var flycheck-ghdl-ieee-library nil vhdl-ghdl + "The standard to use for the IEEE library. + +The value of this variable is either a string denoting an ieee library +standard, or nil, to use the default standard. When non-nil, +pass the ieee library standard via the `--ieee' option." + :type '(choice (const :tag "Default standard" nil) + (const :tag "No IEEE Library" "none") + (const :tag "IEEE standard" "standard") + (const :tag "Synopsys standard" "synopsys") + (const :tag "Mentor standard" "mentor")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "32")) +(make-variable-buffer-local 'flycheck-ghdl-ieee-library) + +(flycheck-define-checker vhdl-ghdl + "A VHDL syntax checker using GHDL. + +See URL `https://github.com/ghdl/ghdl'." + :command ("ghdl" + "-s" ; only do the syntax checking + (option "--std=" flycheck-ghdl-language-standard concat) + (option "--workdir=" flycheck-ghdl-workdir concat) + (option "--ieee=" flycheck-ghdl-ieee-library concat) + source) + :error-patterns + ((warning line-start (file-name) ":" line ":" column ":warning: " (message) line-end) + (error line-start (file-name) ":" line ":" column ":error: " (message) line-end)) + :modes vhdl-mode) + +(flycheck-def-option-var flycheck-xml-xmlstarlet-xsd-path nil xml-xmlstarlet + "An XSD schema to validate against." + :type '(choice (const :tag "None" nil) + (file :tag "XSD schema")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "31")) + +(flycheck-define-checker xml-xmlstarlet + "A XML syntax checker and validator using the xmlstarlet utility. + +See URL `https://xmlstar.sourceforge.net/'." + ;; Validate standard input with verbose error messages, and do not dump + ;; contents to standard output + :command ("xmlstarlet" "val" "--err" "--quiet" + (option "--xsd" flycheck-xml-xmlstarlet-xsd-path) + "-") + :standard-input t + :error-patterns + ((error line-start "-:" line "." column ": " (message) line-end)) + :modes (xml-mode nxml-mode)) + +(flycheck-def-option-var flycheck-xml-xmllint-xsd-path nil xml-xmllint + "An XSD schema to validate against." + :type '(choice (const :tag "None" nil) + (file :tag "XSD schema")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "31")) + +(flycheck-def-option-var flycheck-xml-xmllint-relaxng-path nil xml-xmllint + "An RELAX NG schema to validate against." + :type '(choice (const :tag "None" nil) + (file :tag "RELAX NG schema")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "34")) + +(flycheck-define-checker xml-xmllint + "A XML syntax checker and validator using the xmllint utility. + +The xmllint is part of libxml2, see URL +`https://gitlab.gnome.org/GNOME/libxml2/-/wikis/home'." + :command ("xmllint" "--noout" + (option "--schema" flycheck-xml-xmllint-xsd-path) + (option "--relaxng" flycheck-xml-xmllint-relaxng-path) + "-") + :standard-input t + :error-patterns + ((error line-start "-:" line ": " (message) line-end)) + :modes (xml-mode nxml-mode)) + +(flycheck-define-checker yaml-jsyaml + "A YAML syntax checker using JS-YAML. + +See URL `https://github.com/nodeca/js-yaml'." + :command ("js-yaml") + :standard-input t + :error-patterns + ((error line-start + (or "JS-YAML" "YAMLException") ": " + (message) " at line " line ", column " column ":" + line-end) + (error line-start + (or "JS-YAML" "YAMLException") ": " + (message) " (" line ":" column ")" + line-end)) + :modes (yaml-mode yaml-ts-mode) + :next-checkers ((warning . yaml-yamllint) + (warning . cwl))) + +(flycheck-define-checker yaml-ruby + "A YAML syntax checker using Ruby's YAML parser. + +This syntax checker uses the YAML parser from Ruby's standard +library. + +See URL `https://www.ruby-doc.org/stdlib-2.0.0/libdoc/yaml/rdoc/YAML.html'." + :command ("ruby" "-ryaml" "-e" "begin; + YAML.load(STDIN); \ + rescue Exception => e; \ + STDERR.puts \"stdin:#{e}\"; \ + end") + :standard-input t + :error-patterns + ((error line-start "stdin:" (zero-or-more not-newline) ":" (message) + "at line " line " column " column line-end)) + :modes (yaml-mode yaml-ts-mode) + :next-checkers ((warning . yaml-yamllint) + (warning . cwl))) + +(flycheck-def-config-file-var flycheck-yamllintrc + yaml-yamllint + '(".yamllint" + ".yamllint.yaml" + ".yamllint.yml" + "~/.config/yamllint/config")) + +(flycheck-define-checker yaml-yamllint + "A YAML syntax checker using YAMLLint. +See URL `https://github.com/adrienverge/yamllint'." + :standard-input t + :command ("yamllint" "-f" "parsable" "-" + (config-file "-c" flycheck-yamllintrc)) + :error-patterns + ((error line-start + "stdin:" line ":" column ": [error] " (message) line-end) + (warning line-start + "stdin:" line ":" column ": [warning] " (message) line-end)) + :modes (yaml-mode yaml-ts-mode) + :next-checkers ((warning . cwl))) + +(provide 'flycheck) + +;; Local Variables: +;; coding: utf-8 +;; indent-tabs-mode: nil +;; End: + +;;; flycheck.el ends here diff --git a/elpa/gnupg/pubring.kbx b/elpa/gnupg/pubring.kbx new file mode 100644 index 0000000000000000000000000000000000000000..ad2d35b5f706e0335d5b5b60976a12bfc915ba39 GIT binary patch literal 4169 zcma);2|SeD+sE%&j4k_?ee8@SYqn9zE@R)5?1StKJ(fs?p^WTAvdfZPBt!_2h`;P9 zOOg;-vdlY^$NT=D_wE0@&-r}rd#?N3=l;yOuJikS&jA1c4gvw-OBXF&07AQh4A&%H z#Q3<8c!5E`A};`deg!}PN1wVFu*VXx5pFeJrDZ^JE4*dx0bvCEcsu|GP5}U)W)bu`^S%`#GPG5O zGpRPWtw(%Nz5Pi|-UD`Fs&&wp&i6U+%R4nio;G@xd+FL%a<&a*nN53H1(ID>zB?Ti zo+$^bl^59pi|ikpOS8^Mjx=Spg69J_u>?_+|lJuVyi<_gNzx{*$A^T8-x_$KU7 z37S8->4!7G-qKgUqse8|of>_=Z0Jf&qDxv1ni0hreqPQ0Zsc6bh;mSf)Lw@4XmiOo z->Q&?9pSuDHpV!bre!|wu6<=hT7)&}tCd3s3lK2(*0Zq^HEI=4g3LZLu)9(^pMuj(nnMi#UMFC^e6#t$DyBKG%0*o7Lj z4?{e>W-fD^+V7An9c-Q{PPBIW8nswrK4yVRI<-7Ip*_qcDkzzU*}KcjepA-kHLCpD zfXOC}_)M;mDkGV$a%Z?d2bt6SlxPQW&ZGn z{Bz^ZIlAm3in%FybfIlg3#PH&46g-qyAHx{rNTc*o-j|PzHkWgh{|e3xe4pB;@2Spa>WxITt%TV0GC{j(Y%&fK88uh*PZE|Ol)e(bRg0#XZr zh2FC4rCqu6k1`nE7@Qj z=NvN+^mo7_0o$};-2OXD5@MFbBndf!|3i{@mjS%7BeDrIxkyH&3tLt9t0ycI6saBbNyS`zZM^V;8^{*FV$>E)m?VIX2 zr1r|Z$fuA#2O7!62N#l}g+HuL_;@I8-F!yDP%?dW0qJ@aQD~#OnQHy$`h|2+wq53i zdAlV$YR_EcOM&-lb3Y+`z9nq6kHu?+`zXnpqkZqy{}bV3PDJ&O($9 zx@ZnAnf;Ir+Ni~l$a`%H4(G^3^_uTGGraX}wWNDuU;6ZZ^5?R>LhAMLerAO&`&4Tb zT?yINLvBP`@+zl;!N=6vLp_CBoZZO0yt*sibwG6{d`!8QTeK!?^GeXi_oMb>038Sb z{VxOmo$wX^q42Sw5hw$Q3?M51cj6%`Kj7M*%0DIhcgjD}TQ)7_k-QUoTH?#3$GoXr zc2^ecbgiS>&(>s-+VBY|%m+jkkBUO$9MeqfPOZ}JDSg+7L=5XC)CJJ72^1wNO|`qr z7O3M<`uqxHDo8PAt?YZtr%Z&BjjEw^`V?X+mS#f3p8eUfjzd_Nlzy$ATha!UqK((K z=ep$f8tdt!BwlcLD~MY2a4LE;TaNS1f!92tlAUKH979;;(LUy?;>=^W)z}Nt%9y`P z+simR7rEOg@Cnvo>tchY%$aV}FO}w9{MVGPl@l(3)!2giqY-4i3Y(cJ))KECcF>E( zvX#$}^4PaRv+wAgJ%bW$bFE;QL$lfDc?ED0&J;$VSypEwy{hxWpRu|iHge~_`z$-{ zA^z{zp+@EQ1k;&X0{c5N)Epd#9! z+-bx&SIan_KT~t$-cJS(Wbk@@DUM!;e0+`LQ{$&gfn*VkG_{OD%MagCVJw_};v<(T zCVHH{Gd;{|zI4Kk7z~t_fN9RZ;aWhX8Ev>|OFs9d`G|5{XLil^)P6KFM z^3maBa?SEdmPSBS7!If?=hguL2K^ITc>qA74?qBpa-GJ)!&Nt_E$XGXy`&fNQ8PFC z2>gK)Ap{X>b^RAAlg;H$4wI9K#c+%gIq~p`B))@LeMH&l-8pYsEv{abNCSv#b5;?$ zEs5_4?HBHVB|>zJJLvBZl)uIjZf*g*)WkSl2I^Q=ahjQ26b6EVCbVckAkqt+M^e1? zm8w}c4XZi6E6Vxy&v&bZH9DQPELb(NHx-Qd=iZc-`G?+&A#6&_$JYE^fk?o_S%TR? zB;@q{5a7g`6y#+8XHz<0;TO`zFe%*ez=1xXSe<)k@Q8i^lpafca_O=y<$65#`4@t790+s=&M5o@y-FF`sY{^-CO&4VADHB zAItz*dqF8DwiUseP-VY`x1IR7=^-ro&98ryJthUnlyyOmP^Vc(d`B%H98}a?n}Jim6wJl;t66 zfm_qb`cm6ix$2$}=c%_OI$l3=`C@)RPZK052xbQpkn(#~qFH+LiIRL>1l$aSLs<#q ziTwGUkAF$nov4r#XGeul^`1Qvlrgt0{7g>5$6isBefRd&X@6O)B=Z$ zyR2?=Z`}N@mv&oboVEWNrABVN^{GyZFAUT2cE}n`PJ5#G?iS#Xduk&$-fwRW@pSG$ zbKts3uw%iKYhtM(>y|bV8OoY2ARztO!;KxK_80v>#@Gf*_vl?=sa$U&W1j`M6>0s% z0>Fvl2{l8rylVYx&GehhYU%BHJG47ci9wXs8a1iPGExl`DCF?GziiT^Of9Dh0@^5j#(T6B zr`STJJcU&FDOgciW;!i4r>ffaQgJi4q5*v1KEAPufu;me6I=udmT!IOvb;;RoJ`$z ienNL%+lb_(W(BS%mD&X#D)%Y(qc#m-a literal 0 HcmV?d00001 diff --git a/elpa/gnupg/trustdb.gpg b/elpa/gnupg/trustdb.gpg new file mode 100644 index 0000000000000000000000000000000000000000..a82143f075b574c38ba5963d645a0ced0ae2950f GIT binary patch literal 1200 zcmZQfFGy!*W@Ke#VqnNDQQ~934j8$xi(`n6s>28pu)t`zjD`y+1V+;VW$6F_tK +;; Homepage: https://github.com/tarsius/llama +;; Keywords: extensions + +;; Package-Version: 1.0.3 +;; Package-Revision: v1.0.3-0-g2a89ba755b04 +;; Package-Requires: ( +;; (emacs "26.1") +;; (compat "30.1")) + +;; SPDX-License-Identifier: GPL-3.0-or-later + +;; 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 of the License, +;; 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 this file. If not, see . + +;;; Commentary: + +;; This package implements a macro named `##', which provides a compact way +;; to write short `lambda' expressions. + +;; The signature of the macro is (## FN &rest BODY) and it expands to a +;; `lambda' expression, which calls the function FN with the arguments BODY +;; and returns the value of that. The arguments of the `lambda' expression +;; are derived from symbols found in BODY. + +;; Each symbol from `%1' through `%9', which appears in an unquoted part +;; of BODY, specifies a mandatory argument. Each symbol from `&1' through +;; `&9', which appears in an unquoted part of BODY, specifies an optional +;; argument. The symbol `&*' specifies extra (`&rest') arguments. + +;; The shorter symbol `%' can be used instead of `%1', but using both in +;; the same expression is not allowed. Likewise `&' can be used instead +;; of `&1'. These shorthands are not recognized in function position. + +;; To support binding forms that use a vector as VARLIST (such as `-let' +;; from the `dash' package), argument symbols are also detected inside of +;; vectors. + +;; The space between `##' and FN can be omitted because `##' is read-syntax +;; for the symbol whose name is the empty string. If you prefer you can +;; place a space there anyway, and if you prefer to not use this somewhat +;; magical symbol at all, you can instead use the alternative name `llama'. + +;; Instead of: +;; +;; (lambda (a &optional _ c &rest d) +;; (foo a (bar c) d)) +;; +;; you can use this macro and write: +;; +;; (##foo %1 (bar &3) &*) +;; +;; which expands to: +;; +;; (lambda (%1 &optional _&2 &3 &rest &*) +;; (foo %1 (bar &3) &*)) + +;; Unused trailing arguments and mandatory unused arguments at the border +;; between mandatory and optional arguments are also supported: +;; +;; (##list %1 _%3 &5 _&6) +;; +;; becomes: +;; +;; (lambda (%1 _%2 _%3 &optional _&4 &5 _&6) +;; (list %1 &5)) +;; +;; Note how `_%3' and `_&6' are removed from the body, because their names +;; begin with an underscore. Also note that `_&4' is optional, unlike the +;; explicitly specified `_%3'. + +;; Consider enabling `llama-fontify-mode' to highlight `##' and its +;; special arguments. + +;;; Code: + +(require 'compat) + +;;;###autoload +(defmacro llama (fn &rest body) + "Expand to a `lambda' expression that wraps around FN and BODY. + +This macro provides a compact way to write short `lambda' expressions. +It expands to a `lambda' expression, which calls the function FN with +arguments BODY and returns its value. The arguments of the `lambda' +expression are derived from symbols found in BODY. + +Each symbol from `%1' through `%9', which appears in an unquoted part +of BODY, specifies a mandatory argument. Each symbol from `&1' through +`&9', which appears in an unquoted part of BODY, specifies an optional +argument. The symbol `&*' specifies extra (`&rest') arguments. + +The shorter symbol `%' can be used instead of `%1', but using both in +the same expression is not allowed. Likewise `&' can be used instead +of `&1'. These shorthands are not recognized in function position. + +To support binding forms that use a vector as VARLIST (such as `-let' +from the `dash' package), argument symbols are also detected inside of +vectors. + +The space between `##' and FN can be omitted because `##' is read-syntax +for the symbol whose name is the empty string. If you prefer you can +place a space there anyway, and if you prefer to not use this somewhat +magical symbol at all, you can instead use the alternative name `llama'. + +Instead of: + + (lambda (a &optional _ c &rest d) + (foo a (bar c) d)) + +you can use this macro and write: + + (##foo %1 (bar &3) &*) + +which expands to: + + (lambda (%1 &optional _&2 &3 &rest &*) + (foo %1 (bar &3) &*)) + +Unused trailing arguments and mandatory unused arguments at the border +between mandatory and optional arguments are also supported: + + (##list %1 _%3 &5 _&6) + +becomes: + + (lambda (%1 _%2 _%3 &optional _&4 &5 _&6) + (list %1 &5)) + +Note how `_%3' and `_&6' are removed from the body, because their names +begin with an underscore. Also note that `_&4' is optional, unlike the +explicitly specified `_%3'. + +Consider enabling `llama-fontify-mode' to highlight `##' and its +special arguments." + (cond ((symbolp fn)) + ((and (eq (car-safe fn) backquote-backquote-symbol) + (not body)) + (setq body (cdr fn)) + (setq fn backquote-backquote-symbol)) + ((signal 'wrong-type-argument + (list 'symbolp backquote-backquote-symbol fn)))) + (let* ((args (make-vector 10 nil)) + (body (cdr (llama--collect (cons fn body) args))) + (rest (aref args 0)) + (args (nreverse (cdr (append args nil)))) + (args (progn (while (and args (null (car args))) + (setq args (cdr args))) + args)) + (pos (length args)) + (opt nil) + (args (mapcar + (lambda (arg) + (if arg + (setq opt (string-match-p "\\`_?&" (symbol-name arg))) + (setq arg (intern (format "_%c%s" (if opt ?& ?%) pos)))) + (setq pos (1- pos)) + arg) + args)) + (opt nil) + (args (mapcar + (lambda (symbol) + (cond + ((string-match-p "\\`_?%" (symbol-name symbol)) + (when opt + (error "`%s' cannot follow optional arguments" symbol)) + (list symbol)) + (opt + (list symbol)) + ((setq opt t) + (list '&optional symbol)))) + (nreverse args)))) + `(lambda + (,@(apply #'nconc args) + ,@(and rest (list '&rest rest))) + (,fn ,@body)))) + +(defalias (intern "") 'llama) +(defalias '\#\# 'llama) + +(defconst llama--unused-argument (make-symbol "llama--unused-argument")) + +(defun llama--collect (expr args &optional fnpos backquoted unquote) + (cond + ((memq (car-safe expr) (list (intern "") 'llama 'quote)) expr) + ((and backquoted (symbolp expr)) expr) + ((and backquoted + (memq (car-safe expr) + (list backquote-unquote-symbol + backquote-splice-symbol))) + (list (car expr) + (llama--collect (cadr expr) args nil nil t))) + ((memq (car-safe expr) + (list backquote-backquote-symbol + backquote-splice-symbol)) + (list (car expr) + (llama--collect (cadr expr) args nil t))) + ((symbolp expr) + (let ((name (symbol-name expr))) + (save-match-data + (cond + ((string-match "\\`\\(_\\)?[%&]\\([1-9*]\\)?\\'" name) + (let* ((pos (match-string 2 name)) + (pos (cond ((equal pos "*") 0) + ((not pos) 1) + ((string-to-number pos)))) + (sym (aref args pos))) + (unless (and fnpos (not unquote) (memq expr '(% &))) + (when (and sym (not (equal expr sym))) + (error "`%s' and `%s' are mutually exclusive" sym expr)) + (aset args pos expr))) + (if (match-string 1 name) + llama--unused-argument + expr)) + (expr))))) + ((or (listp expr) + (vectorp expr)) + (let* ((vectorp (vectorp expr)) + (expr (if vectorp (append expr ()) expr)) + (fnpos (and (not vectorp) + (not backquoted) + (ignore-errors (length expr)))) ;proper-list-p + (ret ())) + (catch t + (while t + (let ((elt (llama--collect (car expr) args fnpos backquoted))) + (unless (eq elt llama--unused-argument) + (push elt ret))) + (setq fnpos nil) + (setq expr (cdr expr)) + (unless (and expr + (listp expr) + (not (eq (car expr) backquote-unquote-symbol))) + (throw t nil)))) + (setq ret (nreverse ret)) + (when expr + (setcdr (last ret) (llama--collect expr args nil backquoted))) + (if vectorp (vconcat ret) ret))) + (expr))) + +;;; Completion + +(define-advice elisp--expect-function-p (:around (fn pos) llama) + "Support function completion directly following `##'." + (or (and (eq (char-before pos) ?#) + (eq (char-before (- pos 1)) ?#)) + (and (eq (char-before pos) ?\s) + (eq (char-before (- pos 1)) ?#) + (eq (char-before (- pos 2)) ?#)) + (funcall fn pos))) + +(define-advice all-completions (:around (fn str table &rest rest) llama) + "Remove empty symbol from completion results if originating from `llama'. + +`##' is the notation for the symbol whose name is the empty string. + (intern \"\") => ## + (symbol-name \\='##) => \"\" + +The `llama' package uses `##' as the name of a macro, which allows +it to be used akin to syntax, without actually being new syntax. +\(`describe-function' won't let you select `##', but because that is an +alias for `llama', you can access the documentation under that name.) + +This advice prevents the empty string from being offered as a completion +candidate when `obarray' or a completion table that internally uses +that is used as TABLE." + (let ((result (apply fn str table rest))) + (if (and (eq obarray table) (equal str "")) + (delete "" result) + result))) + +;;; Fontification + +(defgroup llama () + "Compact syntax for short lambda." + :group 'extensions + :group 'faces + :group 'lisp) + +(defface llama-\#\#-macro '((t :inherit font-lock-function-call-face)) + "Face used for the name of the `##' macro.") + +(defface llama-llama-macro '((t :inherit font-lock-keyword-face)) + "Face used for the name of the `llama' macro.") + +(defface llama-mandatory-argument '((t :inherit font-lock-variable-use-face)) + "Face used for mandatory arguments `%1' through `%9' and `%'.") + +(defface llama-optional-argument '((t :inherit font-lock-type-face)) + "Face used for optional arguments `&1' through `&9', `&' and `&*'.") + +(defface llama-deleted-argument + `((((supports :box t)) + :box ( :line-width ,(if (>= emacs-major-version 28) (cons -1 -1) -1) + :color "red" + :style nil)) + (((supports :underline t)) + :underline "red") + (t + :inherit font-lock-warning-face)) + "Face used for deleted arguments `_%1'...`_%9', `_&1'...`_&9' and `_&*'. +This face is used in addition to one of llama's other argument faces. +Unlike implicit unused arguments (which do not appear in the function +body), these arguments are deleted from the function body during macro +expansion, and the looks of this face should hint at that.") + +(defconst llama-font-lock-keywords-28 + '(("(\\(##\\)" 1 'llama-\#\#-macro) + ("(\\(llama\\)\\_>" 1 'llama-llama-macro) + ("\\_<\\(?:_?%[1-9]?\\)\\_>" + 0 (llama--maybe-face 'llama-mandatory-argument)) + ("\\_<\\(?:_?&[1-9*]?\\)\\_>" + 0 (llama--maybe-face 'llama-optional-argument)) + ("\\_<\\(?:_\\(?:%[1-9]?\\|&[1-9*]?\\)\\)\\_>" + 0 'llama-deleted-argument prepend))) + +(defconst llama-font-lock-keywords-29 + `(("\\_<\\(&[1-9*]?\\)\\_>" 1 'default) + (,(apply-partially #'llama--match-and-fontify "(\\(##\\)") + 1 'llama-\#\#-macro) + (,(apply-partially #'llama--match-and-fontify "(\\(llama\\_>\\)") + 1 'llama-llama-macro))) + +(defvar llama-font-lock-keywords + (if (fboundp 'read-positioning-symbols) + llama-font-lock-keywords-29 + llama-font-lock-keywords-28)) + +(defun llama--maybe-face (face) + (and (not (and (member (match-string 0) '("%" "&")) + (and-let* ((beg (ignore-errors + (scan-lists (match-beginning 0) -1 1)))) + (string-match-p "\\`\\(##\\|llama\\_>\\)?[\s\t\n\r]*\\'" + (buffer-substring-no-properties + (1+ beg) (match-beginning 0)))))) + face)) + +(defun llama--match-and-fontify (re end) + (static-if (fboundp 'bare-symbol) + (and (re-search-forward re end t) + (prog1 t + (save-excursion + (goto-char (match-beginning 0)) + (when-let ((_(save-match-data (not (nth 8 (syntax-ppss))))) + (expr (ignore-errors + (read-positioning-symbols (current-buffer))))) + (put-text-property (match-beginning 0) (point) + 'font-lock-multiline t) + (llama--fontify (cdr expr) nil nil t))))) + (list re end))) ; Silence compiler. + +(defun llama--fontify (expr &optional fnpos backquoted top) + (static-if (fboundp 'bare-symbol) + (cond + ((null expr) expr) + ((eq (car-safe expr) 'quote)) + ((eq (ignore-errors (bare-symbol (car-safe expr))) 'quote)) + ((and (memq (ignore-errors (bare-symbol (car-safe expr))) + (list (intern "") 'llama)) + (not top))) + ((and backquoted (symbol-with-pos-p expr))) + ((and backquoted + (memq (car-safe expr) + (list backquote-unquote-symbol + backquote-splice-symbol))) + (llama--fontify expr)) + ((symbol-with-pos-p expr) + (save-match-data + (when-let* + ((name (symbol-name (bare-symbol expr))) + (face (cond + ((and (string-match + "\\_<\\(?:\\(_\\)?%\\([1-9]\\)?\\)\\_>" name) + (or (not fnpos) (match-end 2))) + 'llama-mandatory-argument) + ((and (string-match + "\\_<\\(?:\\(_\\)?&\\([1-9*]\\)?\\)\\_>" name) + (or (not fnpos) (match-end 2))) + 'llama-optional-argument)))) + (when (match-end 1) + (setq face (list 'llama-deleted-argument face))) + (let ((beg (symbol-with-pos-pos expr))) + (put-text-property + beg (save-excursion (goto-char beg) (forward-symbol 1)) + 'face face))))) + ((or (listp expr) + (vectorp expr)) + (let* ((vectorp (vectorp expr)) + (expr (if vectorp (append expr ()) expr)) + (fnpos (and (not vectorp) + (not backquoted) + (ignore-errors (length expr))))) + (catch t + (while t + (cond ((eq (car expr) backquote-backquote-symbol) + (setq expr (cdr expr)) + (llama--fontify (car expr) t t)) + ((llama--fontify (car expr) fnpos backquoted))) + (setq fnpos nil) + (setq expr (cdr expr)) + (unless (and expr + (listp expr) + (not (eq (car expr) backquote-unquote-symbol))) + (throw t nil)))) + (when expr + (llama--fontify expr fnpos)))))) + (list expr fnpos backquoted top)) ; Silence compiler. + +(defvar llama-fontify-mode-lighter nil) + +;;;###autoload +(define-minor-mode llama-fontify-mode + "In Emacs Lisp mode, highlight the `##' macro and its special arguments." + :lighter llama-fontify-mode-lighter + :global t + (cond + (llama-fontify-mode + (advice-add 'lisp--el-match-keyword :override + #'lisp--el-match-keyword@llama '((depth . -80))) + (advice-add 'elisp-mode-syntax-propertize :override + #'elisp-mode-syntax-propertize@llama) + (add-hook 'emacs-lisp-mode-hook #'llama--add-font-lock-keywords)) + (t + (advice-remove 'lisp--el-match-keyword + #'lisp--el-match-keyword@llama) + (advice-remove 'elisp-mode-syntax-propertize + #'elisp-mode-syntax-propertize@llama) + (remove-hook 'emacs-lisp-mode-hook #'llama--add-font-lock-keywords))) + (dolist (buffer (buffer-list)) + (with-current-buffer buffer + (when (derived-mode-p 'emacs-lisp-mode) + (if llama-fontify-mode + (font-lock-add-keywords nil llama-font-lock-keywords) + (font-lock-remove-keywords nil llama-font-lock-keywords)) + (font-lock-flush))))) + +(defun llama--add-font-lock-keywords () + (font-lock-add-keywords nil llama-font-lock-keywords)) + +(defun lisp--el-match-keyword@llama (limit) + "Highlight symbols following \"(##\" the same as if they followed \"(\"." + (catch 'found + (while (re-search-forward + (concat "(\\(?:## ?\\)?\\(" + (static-if (get 'lisp-mode-symbol 'rx-definition) ;>= 29.1 + (rx lisp-mode-symbol) + lisp-mode-symbol-regexp) + "\\)\\_>") + limit t) + (let ((sym (intern-soft (match-string 1)))) + (when (and (or (special-form-p sym) + (macrop sym) + (and (bound-and-true-p morlock-mode) + ;; Same as in advice of `morlock' package. + (get sym 'morlock-font-lock-keyword))) + (not (get sym 'no-font-lock-keyword)) + (static-if (fboundp 'lisp--el-funcall-position-p) ;>= 28.1 + (lisp--el-funcall-position-p (match-beginning 0)) + (not (lisp--el-non-funcall-position-p + (match-beginning 0))))) + (throw 'found t)))))) + +(defun elisp-mode-syntax-propertize@llama (start end) + ;; Synced with Emacs up to 6b9510d94f814cacf43793dce76250b5f7e6f64a. + "Highlight `##' as the symbol which it is." + (goto-char start) + (let ((case-fold-search nil)) + (funcall + (syntax-propertize-rules + ;; Empty symbol. + ;; {{ Comment out to prevent the `##' from becoming part of + ;; the following symbol when there is no space in between. + ;; ("##" (0 (unless (nth 8 (syntax-ppss)) + ;; (string-to-syntax "_")))) + ;; }} + ;; {{ As for other symbols, use `font-lock-constant-face' in + ;; docstrings and comments. + ("##" (0 (when (nth 8 (syntax-ppss)) + (string-to-syntax "_")))) + ;; }} + ;; {{ Preserve this part, even though it is absent from + ;; this function in 29.1; backporting it by association. + ;; Prevent the @ from becoming part of a following symbol. + (",@" (0 (unless (nth 8 (syntax-ppss)) + (string-to-syntax "'")))) + ;; }} + ;; Unicode character names. (The longest name is 88 characters + ;; long.) + ("\\?\\\\N{[-A-Za-z0-9 ]\\{,100\\}}" + (0 (unless (nth 8 (syntax-ppss)) + (string-to-syntax "_")))) + ((rx "#" (or (seq (group-n 1 "&" (+ digit)) ?\") ; Bool-vector. + (seq (group-n 1 "s") "(") ; Record. + (seq (group-n 1 (+ "^")) "["))) ; Char-table. + (1 (unless (save-excursion (nth 8 (syntax-ppss (match-beginning 0)))) + (string-to-syntax "'"))))) + start end))) + +;;; Partial applications + +(defun llama--left-apply-partially (fn &rest args) + "Return a function that is a partial application of FN to ARGS. + +ARGS is a list of the first N arguments to pass to FN. The result +is a new function which does the same as FN, except that the first N +arguments are fixed at the values with which this function was called. + +See also `llama--right-apply-partially', which instead fixes the last +N arguments. + +These functions are intended to be used using the names `partial' and +`rpartial'. To be able to use these shorthands in a file, you must set +the file-local value of `read-symbols-shorthands', which was added in +Emacs 28.1. For an example see the end of file \"llama.el\". + +This is an alternative to `apply-partially', whose name is too long." + (declare (pure t) (side-effect-free error-free)) + (lambda (&rest args2) + (apply fn (append args args2)))) + +(defun llama--right-apply-partially (fn &rest args) + "Return a function that is a right partial application of FN to ARGS. + +ARGS is a list of the last N arguments to pass to FN. The result +is a new function which does the same as FN, except that the last N +arguments are fixed at the values with which this function was called. + +See also `llama--left-apply-partially', which instead fixes the first +N arguments. + +These functions are intended to be used using the names `rpartial' and +`partial'. To be able to use these shorthands in a file, you must set +the file-local value of `read-symbols-shorthands', which was added in +Emacs 28.1. For an example see the end of file \"llama.el\"." + (declare (pure t) (side-effect-free error-free)) + (lambda (&rest args2) + (apply fn (append args2 args)))) + +;; An example of how one would use these functions: +;; +;; (list (funcall (partial (lambda (a b) (list a b)) 'fixed) 'after) +;; (funcall (rpartial (lambda (a b) (list a b)) 'fixed) 'before)) + +;; An example of the configuration that is necessary to enable this: +;; +;; Local Variables: +;; indent-tabs-mode: nil +;; read-symbol-shorthands: ( +;; ("partial" . "llama--left-apply-partially") +;; ("rpartial" . "llama--right-apply-partially")) +;; End: +;; +;; Do not set `read-symbol-shorthands' in the ".dir-locals.el" +;; file, because that does not work for uncompiled libraries. + +(provide 'llama) + +;;; llama.el ends here diff --git a/elpa/mmm-mode-0.5.11/dir b/elpa/mmm-mode-0.5.11/dir new file mode 100644 index 0000000..c3d4b47 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/dir @@ -0,0 +1,18 @@ +This is the file .../info/dir, which contains the +topmost node of the Info hierarchy, called (dir)Top. +The first time you invoke Info you start off looking at this node. + +File: dir, Node: Top This is the top of the INFO tree + + This (the Directory node) gives a menu of major topics. + Typing "q" exits, "H" lists all Info commands, "d" returns here, + "h" gives a primer for first-timers, + "mEmacs" visits the Emacs manual, etc. + + In Emacs, you can click mouse button 2 on a menu item or cross reference + to select it. + +* Menu: + +GNU Emacs Lisp +* MMM-Mode: (mmm). Multiple Major Modes for Emacs diff --git a/elpa/mmm-mode-0.5.11/mmm-auto.el b/elpa/mmm-mode-0.5.11/mmm-auto.el new file mode 100644 index 0000000..7a42d99 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-auto.el @@ -0,0 +1,178 @@ +;;; mmm-auto.el --- loading and enabling MMM Mode automatically -*- lexical-binding: t; -*- + +;; Copyright (C) 2000-2004, 2012, 2013, 2018, 2022 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains functions and hooks to load and enable MMM Mode +;; automatically. It sets up autoloads for the main MMM Mode functions +;; and interactive commands, and also sets up MMM Global Mode. + +;;{{{ Comments on MMM Global Mode + +;; This is a kludge borrowed from `global-font-lock-mode'. The idea +;; is the same: we have a function (here `mmm-mode-on-maybe') that we +;; want to be run whenever a major mode starts. Unfortunately, there +;; is no hook (like, say `major-mode-hook') that all major modes run +;; when they are finished. `post-command-hook', however, is run after +;; *every* command, so we do our work in there. (Actually, using +;; `post-command-hook' is even better than being run by major mode +;; functions, since it is run after all local variables and text are +;; loaded, which may not be true in certain cases for the other.) + +;; FIXME: There's now after-change-major-mode-hook which should DTRT. + +;; In order to do this magic, we rely on the fact that there *is* a +;; hook that all major modes run when *beginning* their work. They +;; call `kill-all-local-variables' (unless they are broken), which in +;; turn runs `change-major-mode-hook'. So we add a function to *that* +;; hook which saves the current buffer and temporarily adds a function +;; to `post-command-hook' which processes that buffer. + +;; Actually, in the interests of generality, what that function does +;; is run the hook `mmm-major-mode-hook'. Our desired function +;; `mmm-mode-on-maybe' is then added to that hook. This way, if the +;; user wants to run something else on every major mode, they can just +;; add it to `mmm-major-mode-hook' and take advantage of this hack. + +;;}}} + +;;; Code: + +(require 'mmm-vars) + +;;{{{ Autoload Submode Classes + +(defvar mmm-autoloaded-classes + '((mason "mmm-mason" nil) + (myghty "mmm-myghty" nil) + (html-css "mmm-sample" nil) + (html-js "mmm-sample" nil) + (here-doc "mmm-sample" nil) + (sh-here-doc "mmm-sample" nil) + (embperl "mmm-sample" nil) + (eperl "mmm-sample" nil) + (jsp "mmm-sample" nil) + (file-variables "mmm-sample" nil) + (rpm-sh "mmm-rpm" t) + (rpm "mmm-rpm" nil) + (cweb "mmm-cweb" nil) + (sgml-dtd "mmm-sample" nil) + (noweb "mmm-noweb" nil) + (html-php "mmm-sample" nil) + ) + "Alist of submode classes autoloaded from files. +Elements look like \(CLASS FILE PRIVATE) where CLASS is a submode +class symbol, FILE is a string suitable for passing to `load', and +PRIVATE is non-nil if the class is invisible to the user. Classes can +be added to this list with `mmm-autoload-class'.") + +(defun mmm-autoload-class (class file &optional private) + "Autoload submode class CLASS from file FILE. +PRIVATE, if non-nil, means the class is user-invisible. In general, +private classes need not be autoloaded, since they will usually be +invoked by a public class in the same file." + ;; Don't autoload already defined classes + (unless (assq class mmm-classes-alist) + (add-to-list 'mmm-autoloaded-classes + (list class file private)))) + +(defun mmm-autoload-class-private-p (autoload-class-entry) + "Return t if AUTOLOAD-CLASS-ENTRY is marked as private. +AUTOLOAD-CLASS-ENTRY shall be an entry of the variable +`mmm-autoloaded-classes'." + (nth 2 autoload-class-entry)) + +;;}}} +;;{{{ Autoload Functions + +;; To shut up the byte compiler. +(eval-and-compile + (autoload 'mmm-mode-on "mmm-mode" "Turn on MMM Mode. See `mmm-mode'.") + (autoload 'mmm-mode-off "mmm-mode" "Turn off MMM Mode. See `mmm-mode'.") + (autoload 'mmm-update-font-lock-buffer "mmm-region") + (autoload 'mmm-ensure-fboundp "mmm-utils") + (autoload 'mmm-mode "mmm-mode" + "Minor mode to allow multiple major modes in one buffer. +Without ARG, toggle MMM Mode. With ARG, turn MMM Mode on iff ARG is +positive and off otherwise." t)) + +;; These may actually be used. +(autoload 'mmm-ify-by-class "mmm-cmds" "" t) +(autoload 'mmm-ify-by-regexp "mmm-cmds" "" t) +(autoload 'mmm-ify-region "mmm-cmds" "" t) +(autoload 'mmm-parse-buffer "mmm-cmds" "" t) +(autoload 'mmm-parse-region "mmm-cmds" "" t) +(autoload 'mmm-parse-block "mmm-cmds" "" t) +(autoload 'mmm-clear-current-region "mmm-cmds" "" t) +(autoload 'mmm-reparse-current-region "mmm-cmds" "" t) +(autoload 'mmm-end-current-region "mmm-cmds" "" t) +(autoload 'mmm-insertion-help "mmm-cmds" "" t) +(autoload 'mmm-insert-region "mmm-cmds" "" t) + +;;}}} +;;{{{ MMM Global Mode + +(defvar mmm-changed-buffers-list () + "Buffers that need to be checked for running the major mode hook.") + +(defun mmm-major-mode-change () + "Add this buffer to `mmm-changed-buffers-list' for checking. +When the current command is over, MMM Mode will be turned on in this +buffer depending on the value of `mmm-global-mode'. Actually, +everything in `mmm-major-mode-hook' will be run." + (and (boundp 'mmm-mode) + mmm-mode + (mmm-mode-off)) + (add-to-list 'mmm-changed-buffers-list (current-buffer)) + (add-hook 'post-command-hook #'mmm-check-changed-buffers)) + +(add-hook 'change-major-mode-hook #'mmm-major-mode-change) + +(defun mmm-check-changed-buffers () + "Run major mode hook for the buffers in `mmm-changed-buffers-list'." + (remove-hook 'post-command-hook #'mmm-check-changed-buffers) + (dolist (buffer mmm-changed-buffers-list) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (mmm-run-major-mode-hook)))) + (setq mmm-changed-buffers-list '())) + +(defun mmm-mode-on-maybe () + "Conditionally turn on MMM Mode. +Turn on MMM Mode if `mmm-global-mode' is non-nil and there are classes +to apply, or always if `mmm-global-mode' is t." + (cond ((eq mmm-global-mode t) (mmm-mode-on)) + ((not mmm-global-mode)) + ((mmm-get-all-classes nil) (mmm-mode-on))) + (when mmm-mode + (mmm-update-font-lock-buffer))) + +(add-hook 'mmm-major-mode-hook #'mmm-mode-on-maybe) + +;;}}} + +(provide 'mmm-auto) + +;;; mmm-auto.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-class.el b/elpa/mmm-mode-0.5.11/mmm-class.el new file mode 100644 index 0000000..f2fb14f --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-class.el @@ -0,0 +1,339 @@ +;;; mmm-class.el --- MMM submode class variables and functions -*- lexical-binding: t; -*- + +;; Copyright (C) 2000-2004, 2011-2015, 2018 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains variable and function definitions for +;; manipulating and applying MMM submode classes. See `mmm-vars.el' +;; for variables that list classes. + +;;; Code: + +(require 'cl-lib) +(require 'mmm-vars) +(require 'mmm-region) + +;;; CLASS SPECIFICATIONS +;;{{{ Get Class Specifications + +(defun mmm-get-class-spec (class) + "Get the class specification for CLASS. +CLASS can be either a symbol to look up in `mmm-classes-alist' or a +class specifier itself." + (cond ((symbolp class) ; A symbol must be looked up + (or (cdr (assq class mmm-classes-alist)) + (and (cadr (assq class mmm-autoloaded-classes)) + (load (cadr (assq class mmm-autoloaded-classes))) + (cdr (assq class mmm-classes-alist))) + (signal 'mmm-invalid-submode-class (list class)))) + ((listp class) ; A list must be a class spec + class) + (t (signal 'mmm-invalid-submode-class (list class))))) + +;;}}} +;;{{{ Get and Set Class Parameters + +(defun mmm-get-class-parameter (class param) + "Get the value of the parameter PARAM for CLASS, or nil if none." + (cadr (member param (mmm-get-class-spec class)))) + +(defun mmm-set-class-parameter (class param value) + "Set the value of the parameter PARAM for CLASS to VALUE. +Creates a new parameter if one is not present." + (let* ((spec (mmm-get-class-spec class)) + (current (member param spec))) + (if current + (setcar (cdr current) value) + (nconc spec (list param value))))) + +;;}}} +;;{{{ Apply Classes + +(cl-defun mmm-apply-class + (class &optional (start (point-min)) (stop (point-max)) face) + "Apply the submode class CLASS from START to STOP in FACE. +If FACE is nil, the face for CLASS is used, or the default face if +none is specified by CLASS." + ;; The "special" class t means do nothing. It is used to turn on + ;; MMM Mode without applying any classes. + (unless (eq class t) + (apply #'mmm-ify :start start :stop stop + (append (mmm-get-class-spec class) + (list :face face))) + (mmm-run-class-hook class) + ;; Hack in case class hook sets mmm-buffer-mode-display-name etc. + (mmm-set-mode-line))) + +(cl-defun mmm-apply-classes + (classes &key (start (point-min)) (stop (point-max)) face) + "Apply all submode classes in CLASSES, in order. +All classes are applied regardless of any errors that may occur in +other classes. If any errors occur, `mmm-apply-classes' exits with an +error once all classes have been applied. +START, STOP, and FACE is passed to `mmm-apply-class' for each class." + (let (invalid-classes) + (dolist (class classes) + (condition-case err + (mmm-apply-class class start stop face) + (mmm-invalid-submode-class + ;; Save the name of the invalid class, so we can report them + ;; all together at the end. + (cl-pushnew (cl-second err) invalid-classes :test #'equal)))) + (when invalid-classes + (signal 'mmm-invalid-submode-class invalid-classes)))) + +;;}}} +;;{{{ Apply All Classes + +;; FIXME: This should be called by syntax-propertize-function, +;; not vice versa. +(cl-defun mmm-apply-all (&key (start (point-min)) (stop (point-max))) + "MMM-ify from START to STOP by all submode classes. +The classes come from mode/ext, `mmm-classes', `mmm-global-classes', +and interactive history." + (mmm-clear-overlays start stop 'strict) + (mmm-apply-classes (mmm-get-all-classes t) :start start :stop stop) + (mmm-update-submode-region) + ;; Try to continue supporting XEmacs for a while. + (when (fboundp 'syntax-propertize) + (syntax-ppss-flush-cache start) + (syntax-propertize stop)) + (mmm-refontify-maybe start stop)) + +;;}}} + +;;; BUFFER SCANNING +;;{{{ Scan for Regions + +(cl-defun mmm-ify + (&rest all &key classes handler + ;; Many args are marked as "unused" below, but that's only + ;; because they're used via `all'. + submode _match-submode + (start (point-min)) (stop (point-max)) + front back _save-matches + ((case-fold-search case-fold-search-arg) t) + (beg-sticky (not (number-or-marker-p front))) + (end-sticky (not (number-or-marker-p back))) + _include-front _include-back + (front-offset 0) (back-offset 0) + (front-delim nil) (back-delim nil) + (delimiter-mode mmm-delimiter-mode) + front-face back-face + _front-verify _back-verify + _front-form _back-form + creation-hook + face _match-face + _save-name _match-name + ;; FIXME: Since those args's arent' used directly (only passed down + ;; via `all'), these default values aren't obeyed! + (_front-match 0) (_back-match 0) + _end-not-begin + ;;insert private + &allow-other-keys + ) + "Create submode regions from START to STOP according to arguments. +If CLASSES is supplied, it must be a list of valid CLASSes. Otherwise, +the rest of the arguments are for an actual class being applied. See +`mmm-classes-alist' for information on what they all mean." + (let ((case-fold-search case-fold-search-arg)) + ;; Make sure we get the default values in the `all' list. + (setq all (append + all + (list :start start :stop stop + :beg-sticky beg-sticky :end-sticky end-sticky + :front-offset front-offset :back-offset back-offset + :front-delim front-delim :back-delim back-delim + :front-match 0 :back-match 0 + ))) + (cond + ;; If we have a class list, apply them all. + (classes + (mmm-apply-classes classes :start start :stop stop :face face)) + ;; Otherwise, apply this class. + ;; If we have a handler, call it. + (handler + (apply handler all)) + ;; Otherwise, we search from START to STOP for submode regions, + ;; continuining over errors, until we don't find any more. If FRONT + ;; and BACK are number-or-markers, this should only execute once. + (t + (mmm-save-all + (goto-char start) + (cl-loop for (beg end front-pos back-pos matched-front matched-back + matched-submode matched-face matched-name + invalid-resume ok-resume) = + (apply #'mmm-match-region :start (point) all) + while beg + if end ; match-submode, if present, succeeded. + do + (condition-case nil + (progn + (mmm-make-region + (or matched-submode submode) beg end + :face (or matched-face face) + :front front-pos :back back-pos + :evaporation 'front + :match-front matched-front :match-back matched-back + :beg-sticky beg-sticky :end-sticky end-sticky + :name matched-name + :delimiter-mode delimiter-mode + :front-face front-face :back-face back-face + :creation-hook creation-hook + ) + (goto-char ok-resume)) + ;; If our region is invalid, go back to the end of the + ;; front match and continue on. + (mmm-error (goto-char invalid-resume))) + ;; If match-submode was unable to find a match, go back to + ;; the end of the front match and continue on. + else do (goto-char invalid-resume) + )))))) + +;;}}} +;;{{{ Match Regions + +(cl-defun mmm-match-region + (&key start stop front back front-verify back-verify + front-delim back-delim + include-front include-back front-offset back-offset + front-form back-form save-matches match-submode match-face + front-match back-match end-not-begin + save-name match-name + &allow-other-keys) + "Find the first valid region between point and STOP. +Return \(BEG END FRONT-POS BACK-POS FRONT-FORM BACK-FORM SUBMODE FACE +NAME INVALID-RESUME OK-RESUME) specifying the region. See +`mmm-match-and-verify' for the valid values of FRONT and BACK +\(markers, regexps, or functions). A nil value for END means that +MATCH-SUBMODE failed to find a valid submode. INVALID-RESUME is the +point at which the search should continue if the region is invalid, +and OK-RESUME if the region is valid." + (when (mmm-match-and-verify front start stop front-verify) + (let ((beg (mmm-match->point include-front front-offset front-match)) + (front-pos (if front-delim + (mmm-match->point t front-delim front-match) + nil)) + (invalid-resume (match-end front-match)) + (front-form (mmm-get-form front-form))) + (let ((submode (if match-submode + (condition-case nil + (mmm-save-all + (funcall match-submode front-form)) + (mmm-no-matching-submode + (cl-return-from + mmm-match-region + (cl-values beg nil nil nil nil nil nil nil nil + invalid-resume nil)))) + nil)) + (name (cond ((functionp match-name) + (mmm-save-all (funcall match-name front-form))) + ((stringp match-name) + (if save-name + (mmm-format-matches match-name) + match-name)))) + (face (cond ((functionp match-face) + (mmm-save-all + (funcall match-face front-form))) + (match-face + (cdr (assoc front-form match-face)))))) + (when (mmm-match-and-verify + (if save-matches + (mmm-format-matches back) + back) + beg stop back-verify) + (let* ((end (mmm-match->point (not include-back) + back-offset back-match)) + (back-pos (if back-delim + (mmm-match->point nil back-delim back-match) + nil)) + (back-form (mmm-get-form back-form)) + (ok-resume (if end-not-begin + (match-end back-match) + end))) + (cl-values beg end front-pos back-pos front-form back-form + submode face name + invalid-resume ok-resume))))))) + +(defun mmm-match->point (beginp offset match) + "Find a point of starting or stopping from the match data. +If BEGINP, start at \(match-beginning MATCH), else \(match-end MATCH), +and move OFFSET. Handles all values of OFFSET--see `mmm-classes-alist'." + (save-excursion + (goto-char (if beginp + (match-beginning match) + (match-end match))) + (dolist (spec (if (listp offset) offset (list offset))) + (if (numberp spec) + (forward-char (or spec 0)) + (funcall spec))) + (point))) + +(defun mmm-match-and-verify (pos start stop &optional verify) + "Find first match for POS between point and STOP satisfying VERIFY. +Return non-nil if a match was found, and set match data. POS can be a +number-or-marker, a regexp, or a function. + +If POS is a number-or-marker between START and STOP, it is used as-is. +If it is a string, it is searched for as a regexp until VERIFY returns +non-nil. If it is a function, it is called with argument STOP and must +return non-nil if a match is found, and set the match data. Note that +VERIFY is ignored unless POS is a regexp." + (cond + ;; A marker can be used as-is, but only if it's in bounds. + ((and (number-or-marker-p pos) (>= pos start) (<= pos stop)) + (goto-char pos) + (looking-at "")) ; Set the match data + ;; Strings are searched for as regexps. + ((stringp pos) + (cl-loop always (re-search-forward pos stop 'limit) + until (or (not verify) (mmm-save-all (funcall verify))))) + ;; Otherwise it must be a function. + ((functionp pos) + (funcall pos stop)))) + +;;}}} +;;{{{ Get Delimiter Forms + +(defun mmm-get-form (form) + "Return the delimiter form specified by FORM. +If FORM is nil, call `mmm-default-get-form'. If FORM is a string, +return it. If FORM is a function, call it. If FORM is a list, return +its `car' \(usually in this case, FORM is a one-element list +containing a function to be used as the delimiter form." + (cond ((stringp form) form) + ((not form) (mmm-default-get-form)) + ((functionp form) (mmm-save-all (funcall form))) + ((listp form) (car form)))) + +(defun mmm-default-get-form () + "Get the default delimiter form." + (regexp-quote (match-string 0))) + +;;}}} + +(provide 'mmm-class) + +;;; mmm-class.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-cmds.el b/elpa/mmm-mode-0.5.11/mmm-cmds.el new file mode 100644 index 0000000..894e6cd --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-cmds.el @@ -0,0 +1,442 @@ +;;; mmm-cmds.el --- MMM Mode interactive commands and keymap -*- lexical-binding: t; -*- + +;; Copyright (C) 2000-2003, 2011-2013, 2018 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains the interactive commands for MMM Mode. + +;;; Code: + +(require 'cl-lib) +(require 'font-lock) +(require 'mmm-compat) +(require 'mmm-vars) +(require 'mmm-class) + +;; APPLYING CLASSES +;;{{{ Applying Predefined Classes + +(defun mmm-ify-by-class (class) + "Add submode regions according to an existing submode CLASS." + (interactive + (list (intern + (completing-read + "Submode Class: " + (cl-remove-duplicates + (mapcar (lambda (spec) (list (symbol-name (car spec)))) + (append + (cl-remove-if (lambda (spec) (plist-get (cdr spec) :private)) + mmm-classes-alist) + (cl-remove-if #'mmm-autoload-class-private-p + mmm-autoloaded-classes))) + :test #'equal) + nil t)))) + (unless (eq class (intern "")) + (mmm-apply-class class) + (mmm-add-to-history class) + (mmm-update-font-lock-buffer))) + +;;}}} +;;{{{ Applying by the Region + +(defun mmm-ify-region (submode front back) + "Add a submode region for SUBMODE coinciding with current region. +FRONT and BACK should be MMM delimiters." + (interactive "aSubmode: \nr") + (mmm-ify :submode submode :front front :back back) + (setq front (mmm-make-marker front t nil) + back (mmm-make-marker back nil nil)) + (mmm-add-to-history `(:submode ,submode :front ,front :back ,back)) + (mmm-enable-font-lock submode)) + +;;}}} +;;{{{ Applying Simple Regexps + +(defun mmm-ify-by-regexp + (submode front front-offset back back-offset save-matches) + "Add SUBMODE regions to the buffer delimited by FRONT and BACK. +With prefix argument, prompts for all additional keywords arguments. +See `mmm-classes-alist'." + (interactive "aSubmode: +sFront Regexp: +nOffset from Front Regexp: +sBack Regexp: +nOffset from Back Regexp: +nNumber of matched substrings to save: ") + (let ((args (mmm-save-keywords submode front back front-offset + back-offset save-matches))) + (apply #'mmm-ify args) + (mmm-add-to-history args)) + (mmm-enable-font-lock submode)) + +;;}}} + +;; EDITING WITH REGIONS +;;{{{ Re-parsing Areas + +(defun mmm-parse-buffer () + "Re-apply all applicable submode classes to current buffer. +Clears all current submode regions, reapplies all past interactive +mmm-ification, and applies `mmm-classes' and mode-extension classes." + (interactive) + (message "MMM-ifying buffer...") + (mmm-apply-all) + (message "MMM-ifying buffer...done")) + +(defun mmm-parse-region (start stop) + "Re-apply all applicable submode classes between START and STOP. +Clears all current submode regions, reapplies all past interactive +mmm-ification, and applies `mmm-classes' and mode-extension classes." + (interactive "r") + (message "MMM-ifying region...") + (mmm-apply-all :start start :stop stop) + (message "MMM-ifying region...done")) + +(defun mmm-parse-block (&optional lines) + "Re-parse LINES lines before and after point \(default 1). +Clears all current submode regions, reapplies all past interactive +mmm-ification, and applies `mmm-classes' and mode-extension classes. + +This command is intended for use when you have just typed what should +be the delimiters of a submode region and you want to create the +region. However, you may want to look into the various types of +delimiter auto-insertion that MMM Mode provides. See, for example, +`mmm-insert-region'." + (interactive "p") + (message "MMM-ifying block...") + (cl-destructuring-bind (start stop) (mmm-get-block lines) + (when (< start stop) + (mmm-apply-all :start start :stop stop))) + (message "MMM-ifying block...done")) + +(defun mmm-get-block (lines) + "Return a region spanning LINES before and after point." + (list (pos-bol (- 1 lines)) + (pos-eol (1+ lines)))) + +;;}}} +;;{{{ Reparse Current Region + +(defun mmm-reparse-current-region () + "Clear and reparse the area of the current submode region. +Use this command if a submode region's boundaries have become wrong." + (interactive) + (let ((ovl (mmm-overlay-at (point) 'all))) + (when ovl + (let ((beg (save-excursion + (goto-char (mmm-front-start ovl)) + (forward-line -1) + (point))) + (end (save-excursion + (goto-char (mmm-back-end ovl)) + (forward-line 1) + (point)))) + (mmm-parse-region beg end))))) + +;;}}} +;;{{{ Clear Submode Regions + +;; See also `mmm-clear-history' which is interactive. + +(defun mmm-clear-current-region () + "Deletes the submode region point is currently in, if any." + (interactive) + (delete-overlay (mmm-overlay-at (point) 'all))) + +(defun mmm-clear-regions (start stop) + "Deletes all submode regions from START to STOP." + (interactive "r") + (mmm-clear-overlays start stop)) + +(defun mmm-clear-all-regions () + "Deletes all submode regions in the current buffer." + (interactive) + (mmm-clear-overlays)) + +;;}}} +;;{{{ End Current Region + +(cl-defun mmm-end-current-region (&optional arg) + "End current submode region. +If ARG is nil, end it at the most appropriate place, usually its +current back boundary. If ARG is non-nil, end it at point. If the +current region is correctly bounded, the first does nothing, but the +second deletes that delimiter as well. + +If the region's BACK property is a string, it is inserted as above and +the overlay moved if necessary. If it is a function, it is called with +two arguments -- the overlay, and \(if ARG \\='middle t) -- and must do the +entire job of this function." + (interactive "P") + (let ((ovl (mmm-overlay-at))) + (when ovl + (combine-after-change-calls + (save-match-data + (save-excursion + (when (mmm-match-back ovl) + (if arg + (replace-match "") + (cl-return-from mmm-end-current-region))))) + (let ((back (overlay-get ovl 'back))) + (cond ((stringp back) + (save-excursion + (unless arg (goto-char (overlay-end ovl))) + (save-excursion (insert back)) + (move-overlay ovl (overlay-start ovl) (point)))) + ((functionp back) + (funcall back ovl (if arg 'middle t)))))) + (mmm-refontify-maybe (save-excursion (forward-line -1) (point)) + (save-excursion (forward-line 1) (point)))))) + +;;}}} +;;{{{ Narrow to Region + +(defun mmm-narrow-to-submode-region (&optional pos) + "Narrow to the submode region at POS. +When called interactive, use the submode at point." + (interactive) + ;; Probably don't use mmm-current-overlay here, because this is + ;; sometimes called from inside messy functions. + (let ((ovl (mmm-overlay-at pos))) + (when ovl + (narrow-to-region (overlay-start ovl) (overlay-end ovl))))) + +;; The inverse command is `widen', usually on `C-x n w' + +;;}}} + +;; INSERTING REGIONS +;;{{{ Insert regions by keystroke + +;; This is the "default" binding in the MMM Mode keymap. Keys defined +;; by classes should be control keys, to avoid conflicts with MMM +;; commands. +(defun mmm-insert-region (arg) + "Insert a submode region based on last character in invoking keys. +Keystrokes after `mmm-mode-prefix-key' which are not bound to an MMM +Mode command \(see `mmm-command-modifiers') are passed on to this +function. If they have the modifiers `mmm-insert-modifiers', then they +are looked up, sans those modifiers, in all current submode classes to +find an insert skeleton. For example, in Mason, `p' \(with appropriate +prefix and modifiers) will insert a <%perl>... region." + (interactive "P") + (let* ((seq (this-command-keys)) + (event (aref seq (1- (length seq)))) + (mods (event-modifiers event)) + (key (mmm-event-key event))) + (if (cl-subsetp mmm-insert-modifiers mods) + (mmm-insert-by-key + (append (cl-set-difference mods mmm-insert-modifiers) + key) + arg)))) + +(defvar skeleton-positions) ; Mark as special + +(defun mmm-insert-by-key (key &optional arg) + "Insert a submode region based on event KEY. +Inspects all the classes of the current buffer to find a matching +:insert key sequence. See `mmm-classes-alist'. ARG, if present, is +passed on to `skeleton-proxy-new' to control wrapping. + +KEY must be a list \(MODIFIERS... . BASIC-KEY) where MODIFIERS are +symbols such as shift, control, etc. and BASIC-KEY is a character code +or a symbol such as tab, return, etc. Note that if there are no +MODIFIERS, the dotted list becomes simply BASIC-KEY." + (cl-multiple-value-bind (class skel str) (mmm-get-insertion-spec key) + (when skel + (let ((after-change-functions nil) + (old-undo buffer-undo-list) undo) + ;; XEmacs' skeleton doesn't manage positions by itself, so we + ;; have to do it. + (if mmm-xemacs (setq skeleton-positions nil)) + (skeleton-proxy-new skel str arg) + (cl-destructuring-bind (back end beg front) skeleton-positions + ;; TODO: Find a way to trap invalid-parent signals from + ;; make-region and undo the skeleton insertion. + (let ((match-submode (plist-get class :match-submode)) + (match-face (plist-get class :match-face)) + (match-name (plist-get class :match-name)) + (front-form (regexp-quote (buffer-substring front beg))) + (back-form (regexp-quote (buffer-substring end back))) + submode face name) + (setq submode + (mmm-modename->function + (if match-submode + (mmm-save-all (funcall match-submode front-form)) + (plist-get class :submode)))) + (setq face + (cond ((functionp match-face) + (mmm-save-all + (funcall match-face front-form))) + (match-face + (cdr (assoc front-form match-face))) + (t + (plist-get class :face)))) + (setq name + (cond ((plist-get class :skel-name) + ;; Optimize the name to the user-supplied str + ;; if we are so instructed. + str) + ;; Call it if it is a function + ((functionp match-name) + (mmm-save-all (funcall match-name front-form))) + ;; Now we know it's a string, does it need to + ;; be formatted? + ((plist-get class :save-name) + ;; Yes. Haven't done a match before, so + ;; match the front regexp against the given + ;; form to format the string + (string-match (plist-get class :front) + front-form) + (mmm-format-matches match-name front-form)) + (t + ;; No, just use it as-is + match-name))) + (mmm-make-region + submode beg end + :face face + :name name + :front front :back back + :match-front front-form :match-back back-form + :evaporation 'front +;;; :beg-sticky (plist-get class :beg-sticky) +;;; :end-sticky (plist-get class :end-sticky) + :beg-sticky t :end-sticky t + :creation-hook (plist-get class :creation-hook)) + (mmm-enable-font-lock submode))) + ;; Now get rid of intermediate undo boundaries, so that the entire + ;; insertion can be undone as one action. This should really be + ;; skeleton's job, but it doesn't do it. + (setq undo buffer-undo-list) + (while (not (eq (cdr undo) old-undo)) + (when (eq (cadr undo) nil) + (setcdr undo (cddr undo))) + (setq undo (cdr undo))))))) + +(defun mmm-get-insertion-spec (key &optional classlist) + "Get the insertion info for KEY from all classes in CLASSLIST. +Return \(CLASS SKEL STR) where CLASS is the class spec a match was +found in, SKEL is the skeleton to insert, and STR is the argument. +CLASSLIST defaults to the return value of `mmm-get-all-classes', +including global classes." + (cl-loop for classname in (or classlist (mmm-get-all-classes t)) + for class = (mmm-get-class-spec classname) + for inserts = (plist-get class :insert) + for skel = (cddr (assoc key inserts)) + with str + ;; If SKEL is a dotted pair, it means call another key's + ;; insertion spec with an argument. + unless (consp (cdr skel)) + do (setq str (cdr skel) + skel (cddr (assoc (car skel) inserts))) + if skel return (list class skel str) + ;; If we have a group class, recurse. + if (plist-get class :classes) + if (mmm-get-insertion-spec key it) + return it)) + +;;}}} +;;{{{ Help on Insertion + +(defun mmm-insertion-help () + "Display help on currently available MMM insertion commands." + (interactive) + (with-output-to-temp-buffer "*Help*" + (princ "Available MMM Mode Insertion Commands:\n") + (princ "Key Inserts\n") + (princ "--- -------\n\n") + (mapcar #'mmm-display-insertion-key + (mmm-get-all-insertion-keys)))) + +(defun mmm-display-insertion-key (spec) + "Print an insertion binding to standard output. +SPEC should be \(KEY NAME ...) where KEY is an insertion key and NAME +is a symbol naming the insertion." + (let* ((str (make-string 16 ?\ )) + ;; This gets us a dotted list, because of the way insertion + ;; keys are specified. + (key (append mmm-insert-modifiers (car spec))) + (lastkey (nthcdr (max (1- (safe-length key)) 0) key))) + ;; Now we make it a true list + (if (consp key) + (setcdr lastkey (list (cdr lastkey))) + (setq key (list key))) + ;; Get the spacing right + (store-substring str 0 + (key-description + (apply #'vector (append mmm-mode-prefix-key (list key))))) + (princ str) + ;; Now print the binding symbol + (princ (cadr spec)) + (princ "\n"))) + +(defun mmm-get-all-insertion-keys (&optional classlist) + "Return an alist of all currently available insertion keys. +Elements look like \(KEY NAME ...) where KEY is an insertion key and +NAME is a symbol naming the insertion." + (cl-remove-duplicates + (cl-loop for classname in (or classlist (mmm-get-all-classes t)) + for class = (mmm-get-class-spec classname) + append (plist-get class :insert) into keys + ;; If we have a group class, recurse. + if (plist-get class :classes) + do (setq keys (append keys (mmm-get-all-insertion-keys it))) + finally return keys) + :test #'equal + :key (lambda (x) (cons (car x) (cadr x))) + :from-end t)) + +;;}}} + +;;{{{ Auto Insertion (copied from interactive session);-COM- +;-COM- +;-COM-;; Don't use `mmm-ify-region' of course. And rather than having +;-COM-;; classes define their own functions, we should have them pass a +;-COM-;; skeleton as an attribute. Then our insert function can turn off +;-COM-;; after-change hooks and add the submode region afterward. +;-COM- +;-COM-(define-skeleton mmm-see-inline +;-COM- "" nil +;-COM- -1 @ " " _ " " @ "%>" +;-COM- '(apply #'mmm-ify-region 'cperl-mode (reverse skeleton-positions))) +;-COM- +;-COM-(define-skeleton mmm-see-other +;-COM- "" nil +;-COM- @ ";\n" _ "\n" @ "<%/" str ">" +;-COM- '(apply #'mmm-ify-region 'cperl-mode (reverse skeleton-positions))) +;-COM- +;-COM-(add-hook 'after-change-functions 'mmm-detect t) +;-COM- +;-COM-(defun mmm-detect (beg end length) +;-COM- (when (mmm-looking-back-at "<% ") +;-COM- (mmm-see-inline)) +;-COM- (when (mmm-looking-back-at "<%\\(\\w+\\)>") +;-COM- (mmm-see-other (match-string 1)))) +;-COM- +;;}}} + +(provide 'mmm-cmds) + +;;; mmm-cmds.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-compat.el b/elpa/mmm-mode-0.5.11/mmm-compat.el new file mode 100644 index 0000000..cfc5582 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-compat.el @@ -0,0 +1,130 @@ +;;; mmm-compat.el --- MMM Hacks for compatibility with other Emacsen -*- lexical-binding: t; -*- + +;; Copyright (C) 2000, 2003, 2011, 2013 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file provides a number of hacks that are necessary for MMM +;; Mode to function in different Emacsen. MMM Mode is designed for +;; FSF Emacs, but these hacks usually enable it to work +;; almost perfectly in XEmacs 21. + +;;; Code: + +;;{{{ Emacsen Detection + +(defvar mmm-xemacs (featurep 'xemacs) + "Whether we are running XEmacs.") + +;;}}} +;;{{{ Regexp-Opt (XEmacs) + +;; As of XEmacs' xemacs-base package version 1.82, +;; the regexp-opt API is compatible with GNU Emacs. +(defalias 'mmm-regexp-opt 'regexp-opt) + +;;}}} +;;{{{ Overlays (XEmacs) + +;; The main thing we use from FSF Emacs that XEmacs doesn't support +;; are overlays. XEmacs uses extents instead, but comes with a package +;; to emulate overlays. +(when mmm-xemacs + ;; This does almost everything we need. + (require 'overlay)) + +;; We also use a couple "special" overlay properties which have +;; different names for XEmacs extents. +(defvar mmm-evaporate-property + (if (featurep 'xemacs) 'detachable 'evaporate) + "The name of the overlay property controlling evaporation.") + +;; We don't use this any more, since its behavior is different in FSF +;; and XEmacs: in the one it replaces the buffer's local map, but in +;; the other it gets stacked on top of it. Instead we just set the +;; buffer's local map temporarily. +;;;(defvar mmm-keymap-property +;;; (if (featurep 'xemacs) 'keymap 'local-map) +;;; "The name of the overlay property controlling keymaps.") + +;;}}} +;;{{{ Keymaps and Events (XEmacs) + +;; In XEmacs, keymaps are a primitive type, while in FSF Emacs, they +;; are a list whose car is the symbol `keymap'. Among other things, +;; this means that they handle default bindings differently. +(defmacro mmm-set-keymap-default (keymap binding) + (if (featurep 'xemacs) + `(set-keymap-default-binding ,keymap ,binding) + `(define-key ,keymap [t] ,binding))) + +;; In XEmacs, events are a primitive type, while in FSF Emacs, they +;; are represented by characters or vectors. We treat them as vectors. +;; We can use `event-modifiers' in both Emacsen to extract the +;; modifiers, but the function to extract the basic key is different. +(defmacro mmm-event-key (event) + (if (featurep 'xemacs) + `(event-key ,event) + `(event-basic-type ,event))) + +;;}}} +;;{{{ Skeleton (XEmacs) + +;; XEmacs' `skeleton' package doesn't provide `@' to record positions. +(defvar skeleton-positions ()) +(defun mmm-fixup-skeleton () + "Add `@' to `skeleton-further-elements' if XEmacs and not there. +This makes `@' in skeletons act approximately like it does in FSF." + (and (featurep 'xemacs) + (defvar skeleton-further-elements ()) + (not (assoc '@ skeleton-further-elements)) + (add-to-list 'skeleton-further-elements + '(@ ''(push (point) skeleton-positions))))) + +;;}}} +;;{{{ Make Temp Buffers (XEmacs) + +(defmacro mmm-make-temp-buffer (buffer name) + "Return a buffer with name based on NAME including the text of BUFFER. +This text should not be modified." + (if (fboundp 'make-indirect-buffer) + `(make-indirect-buffer ,buffer (generate-new-buffer-name ,name)) + `(save-excursion + (set-buffer (generate-new-buffer ,name)) + (insert-buffer ,buffer) + (current-buffer)))) + +;;}}} +;;{{{ Emacs < 26 requires namespaced CL functions + +(if (>= emacs-major-version 26) + (defalias 'mmm-mapcan 'mapcan) + (require 'cl-lib) + (defalias 'mmm-mapcan 'cl-mapcan)) + +;;}}} + +(provide 'mmm-compat) + +;;; mmm-compat.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-cweb.el b/elpa/mmm-mode-0.5.11/mmm-cweb.el new file mode 100644 index 0000000..3f56618 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-cweb.el @@ -0,0 +1,100 @@ +;;; mmm-cweb.el --- MMM submode class for CWeb programs -*- lexical-binding: t; -*- + +;; Copyright (C) 2001, 2002, 2013 Free Software Foundation, Inc. + +;; Author: Alan Shutko + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains the definition of an MMM Mode submode class for +;; editing CWeb programs. + +;;; Code: + +(require 'mmm-compat) +(require 'mmm-vars) +(require 'mmm-auto) + +(defvar mmm-cweb-section-tags + '("@ " "@*")) + +(defvar mmm-cweb-section-regexp + (concat "^" (mmm-regexp-opt mmm-cweb-section-tags t))) + +(defvar mmm-cweb-c-part-tags + '("@c" "@>=" "@>+=" "@p")) + +(defvar mmm-cweb-c-part-regexp + (concat (mmm-regexp-opt mmm-cweb-c-part-tags t))) + +(defun mmm-cweb-in-limbo (pos) + "Check to see if POS is in limbo, ie before any cweb sections." + (save-match-data + (save-excursion + (goto-char pos) + (not (re-search-backward mmm-cweb-section-regexp nil t))))) + +(defun mmm-cweb-verify-brief-c () + "Verify function for cweb-brief-c class. +Checks whether the match is in limbo." + (not (mmm-cweb-in-limbo (match-beginning 0)))) + +(mmm-add-group + 'cweb + `( + (cweb-c-part + :submode c-mode + :front ,mmm-cweb-c-part-regexp + :back ,mmm-cweb-section-regexp) + (cweb-label + :submode tex-mode + :front "@<" + :back "@>" + :face mmm-comment-submode-face + :insert ((?l cweb-label nil @ "@<" @ "@>"))) + (cweb-brief-c + :submode c-mode + :front "[^\\|]\\(|\\)[^|]" + :front-match 1 + :front-verify mmm-cweb-verify-brief-c +; :front-offset -1 + :back "[^\\|]\\(|\\)" + :back-match 1 +; :back-offset 1 + :end-not-begin t + :insert ((?| cweb-c-in-tex nil "|" @ "|"))) + (cweb-comment + :submode tex-mode + :front "/[*]" + :back "[*]/" + :face mmm-comment-submode-face) +)) + +;; (add-to-list 'mmm-mode-ext-classes-alist +;; '(plain-tex-mode "\\.w\\'" cweb)) +;; (add-to-list 'mmm-mode-ext-classes-alist +;; '(latex-mode "\\.w\\'" cweb)) +;; (add-to-list 'auto-mode-alist '("\\.w\\'" . tex-mode)) + +(provide 'mmm-cweb) + +;;; mmm-cweb.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-defaults.el b/elpa/mmm-mode-0.5.11/mmm-defaults.el new file mode 100644 index 0000000..b2cd574 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-defaults.el @@ -0,0 +1,62 @@ +;;; mmm-defaults.el --- Friendly defaults for MMM Mode -*- lexical-binding: t; -*- + +;; Copyright (C) 2013 Free Software Foundation, Inc. + +;; Author: Dmitry Gutov + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;; To enable multiple mode support in ERB, EJS and PHP files, just add the +;; following line to your init file: +;; +;; (require 'mmm-defaults) +;; +;; Note that for PHP you still need to have php-mode (installed separately). +;; +;; TODO: Add more file types and classes here. Mention this file in README. + +;;; Code: + +(require 'mmm-auto) + +(setq mmm-global-mode 'auto) + +;;; ERB and EJS + +(mmm-add-mode-ext-class 'html-erb-mode "\\.erb\\'" 'erb) +(mmm-add-mode-ext-class 'html-erb-mode "\\.ejs\\'" 'ejs) +(mmm-add-mode-ext-class 'html-erb-mode nil 'html-js) +(mmm-add-mode-ext-class 'html-erb-mode nil 'html-css) + +(add-to-list 'auto-mode-alist '("\\.html\\.erb\\'" . html-erb-mode)) +(add-to-list 'auto-mode-alist '("/[^.]+\\.erb\\'" . html-erb-mode)) +(add-to-list 'auto-mode-alist '("\\.jst\\.ejs\\'" . html-erb-mode)) + +;;; PHP + +(mmm-add-mode-ext-class 'html-mode nil 'html-js) +(mmm-add-mode-ext-class 'html-mode nil 'html-css) +(mmm-add-mode-ext-class 'html-mode "\\.php\\'" 'html-php) +(add-to-list 'auto-mode-alist '("\\.html\\.php\\'" . html-mode)) +(add-to-list 'auto-mode-alist '("/[^.]+\\.php\\'" . html-mode)) + +(provide 'mmm-defaults) + +;;; mmm-defaults.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-erb.el b/elpa/mmm-mode-0.5.11/mmm-erb.el new file mode 100644 index 0000000..3aebaf1 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-erb.el @@ -0,0 +1,243 @@ +;;; mmm-erb.el --- ERB templates editing support -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2013, 2018 Free Software Foundation, Inc. + +;; Author: Dmitry Gutov + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains definitions of ERB and EJS submode classes, and well as +;; support functions for proper indentation. + +;; Usage: + +;; (require 'mmm-auto) + +;; (setq mmm-global-mode 'auto) + +;; (mmm-add-mode-ext-class 'html-erb-mode "\\.html\\.erb\\'" 'erb) +;; (mmm-add-mode-ext-class 'html-erb-mode "\\.jst\\.ejs\\'" 'ejs) +;; (mmm-add-mode-ext-class 'html-erb-mode nil 'html-js) +;; (mmm-add-mode-ext-class 'html-erb-mode nil 'html-css) + +;; (add-to-list 'auto-mode-alist '("\\.html\\.erb\\'" . html-erb-mode)) +;; (add-to-list 'auto-mode-alist '("\\.jst\\.ejs\\'" . html-erb-mode)) + +;; Optional settings: + +;; (setq mmm-submode-decoration-level 2 +;; mmm-parse-when-idle t) + +;; nXML as primary mode (supports only JS and CSS subregions): + +;; (mmm-add-mode-ext-class 'nxml-web-mode nil 'html-js) +;; (mmm-add-mode-ext-class 'nxml-web-mode nil 'html-css) + +;; (add-to-list 'auto-mode-alist '("\\.xhtml\\'" . nxml-web-mode)) + +;;; Code: + +(require 'sgml-mode) +(require 'cl-lib) +(require 'mmm-vars) +(require 'mmm-region) + +(mmm-add-classes + '((erb :submode ruby-mode :front "<%[#=]?" :back "-?%>" + :match-face (("<%#" . mmm-comment-submode-face) + ("<%=" . mmm-output-submode-face) + ("<%" . mmm-code-submode-face)) + :insert ((?% erb-code nil @ "<%" @ " " _ " " @ "%>" @) + (?# erb-comment nil @ "<%#" @ " " _ " " @ "%>" @) + (?= erb-expression nil @ "<%=" @ " " _ " " @ "%>" @)) + :creation-hook mmm-erb-mark-as-special) + (ejs :submode js-mode :front "<%[#=]?" :back "-?%>" + :match-face (("<%#" . mmm-comment-submode-face) + ("<%=" . mmm-output-submode-face) + ("<%" . mmm-code-submode-face)) + :insert ((?% ejs-code nil @ "<%" @ " " _ " " @ "%>" @) + (?# ejs-comment nil @ "<%#" @ " " _ " " @ "%>" @) + (?= ejs-expression nil @ "<%=" @ " " _ " " @ "%>" @)) + :creation-hook mmm-erb-mark-as-special))) + +(defun mmm-erb-mark-as-special () + "Hook function to run in ERB and EJS tag regions." + (overlay-put mmm-current-overlay 'mmm-special-tag t)) + +;;;###autoload +(define-derived-mode html-erb-mode html-mode "ERB-HTML" + (setq sgml-unclosed-tags nil) ; Simplifies indentation logic. + (set (make-local-variable 'mmm-indent-line-function) #'mmm-erb-indent-line) + (add-hook 'mmm-after-syntax-propertize-functions + #'html-erb-after-syntax-propertize nil t)) + +(defun html-erb-after-syntax-propertize (overlay _mode beg end) + (when overlay + (with-silent-modifications + (funcall + (syntax-propertize-rules ("<\\|>" (0 "."))) + beg end)))) + +(defun mmm-erb-indent-line () + "Indent the current line intelligently." + (interactive) + (let ((offset (- (current-column) (current-indentation)))) + (back-to-indentation) + (mmm-update-submode-region) + (if (and mmm-current-overlay mmm-current-submode + (< (overlay-start mmm-current-overlay) (line-beginning-position))) + ;; Region starts before the current line (and contains indentation). + ;; If it starts on the current line, then either first part of the line + ;; is in primary mode, or we're on the first line of a script or style + ;; tag contents. In the latter case, better to also indent it according + ;; to the primary mode (as text): `js-indent-line' ignores narrowing, + ;; gets confused by the angle bracket on the previous line and thus + ;; breaks our "top level" heuristic. + (mmm-erb-indent-line-submode) + (mmm-erb-indent-line-primary)) + (when (> offset 0) (forward-char offset)))) + +(defun mmm-erb-indent-line-submode () + "Indent line within a submode." + (let (added-whitespace) + (if (<= (overlay-end mmm-current-overlay) + (save-excursion (back-to-indentation) (point))) + ;; We're at a closing tag. + (mmm-erb-indent-to-region-start) + (save-restriction + (save-excursion + (goto-char (overlay-start mmm-current-overlay)) + (when (not (looking-at "^\\|\\s-*$")) + ;; Submode region has text on the same line as the opening tag, + ;; pad it with whitespace to make the following lines line up. + (setq added-whitespace (current-column)) + (insert-char ?\s added-whitespace))) + (narrow-to-region (overlay-start mmm-current-overlay) + (overlay-end mmm-current-overlay)) + (funcall (mmm-erb-orig-indent-function mmm-current-submode)) + (when added-whitespace + ;; Remove the padding. + (save-excursion + (goto-char (overlay-start mmm-current-overlay)) + (delete-char added-whitespace)))) + ;; If submode indent function moved us to bol, + ;; we're on the top level, indent according to the primary mode. + (when (zerop (current-indentation)) + (mmm-erb-indent-to-region-start + (mmm-erb-indent-offset mmm-primary-mode)))))) + +(defun mmm-erb-indent-to-region-start (&optional additional-offset) + "Indent line to match start of region, possibly adding ADDITIONAL-OFFSET." + (indent-line-to + (save-excursion + (goto-char (1- (overlay-start mmm-current-overlay))) + (+ (current-indentation) + (or additional-offset 0))))) + +(defun mmm-erb-indent-line-primary () + "Indent line in primary mode." + (let* ((here (point)) + ;; Go before previous line's tag. + (start (progn (forward-line -1) + (back-to-indentation) + (let ((lcon (sgml-lexical-context))) + (when (eq (car lcon) 'tag) + ;; Tag spreads several lines. + (goto-char (cdr lcon)) + (back-to-indentation))) + (point))) + (regions (mmm-regions-in start here)) + (n 0)) + ;; Collect indent modifier depending on type of tags. + (cl-loop for region in regions + for type = (mmm-erb-scan-region region) + when type do + (if (eq type 'close) + (when (cl-plusp n) (cl-decf n)) + (cl-incf n (if (eq type 'close) 0 1)))) + (let ((eol (progn (goto-char here) (end-of-line 1) (point)))) + ;; Look for "else" and "end" instructions to adjust modifier. + ;; If a block start instruction comes first, abort. + (cl-loop for region in (mmm-regions-in here eol) + for type = (mmm-erb-scan-region region) + until (eq type 'open) + when (memq type '(middle close)) do (cl-decf n))) + (goto-char here) + (funcall (mmm-erb-orig-indent-function mmm-primary-mode)) + (let* ((indent (current-indentation)) + (indent-step (mmm-erb-indent-offset mmm-primary-mode))) + (indent-line-to (+ indent (if n (* indent-step n) 0)))))) + +(defun mmm-erb-scan-region (region) + (when region ; Can be nil if a line is empty, for example. + (cl-destructuring-bind (submode beg end ovl) region + (let ((scan-fn (plist-get '(ruby-mode mmm-erb-scan-erb + js-mode mmm-erb-scan-ejs) + submode))) + (and scan-fn + (overlay-get ovl 'mmm-special-tag) + (save-excursion + (goto-char beg) + (skip-syntax-forward "-") + (funcall scan-fn end))))))) + +(defconst mmm-erb-ruby-close-re "\\\\|}" + "Regexp to match the end of a Ruby block.") + +(defun mmm-erb-scan-erb (limit) + (cond ((looking-at "\\(?:if\\|unless\\|for\\|while\\)\\b") 'open) + ((looking-at "\\(?:else\\|elsif\\)\\b") 'middle) + ((looking-at mmm-erb-ruby-close-re) 'close) + ((and (re-search-forward (concat "\\(?: +do +\\| *{ *\\)" + "\\(?:|[A-Za-z0-9_, ]*|\\)? *") + limit t) + (let ((pt (point))) + (not (when (< pt limit) + (goto-char limit) + (skip-syntax-backward "-") + (looking-back mmm-erb-ruby-close-re pt))))) + 'open))) + +(defun mmm-erb-scan-ejs (limit) + (cond ((looking-at "\\(?:if\\|for\\|while\\)\\b") 'open) + ((looking-at "} *else\\b") 'middle) + ((looking-at "}") 'close) + ((re-search-forward " *{ *" limit t) 'open))) + +(defun mmm-erb-orig-indent-function (mode) + (get mode 'mmm-indent-line-function)) + +(defvar mmm-erb-offset-var-alist + '((html-erb-mode . sgml-basic-offset) + (nxml-web-mode . nxml-child-indent))) + +(defun mmm-erb-indent-offset (mode) + (let ((name (cdr (assoc mode mmm-erb-offset-var-alist)))) + (when name (symbol-value name)))) + +;;;###autoload +(define-derived-mode nxml-web-mode nxml-mode "nXML-Web" + (set (make-local-variable 'mmm-indent-line-function) #'mmm-erb-indent-line)) + +(provide 'mmm-erb) + +;;; mmm-erb.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-mason.el b/elpa/mmm-mode-0.5.11/mmm-mason.el new file mode 100644 index 0000000..fde0665 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-mason.el @@ -0,0 +1,175 @@ +;;; mmm-mason.el --- MMM submode class for Mason components -*- lexical-binding: t; -*- + +;; Copyright (C) 2000-2003, 2013, 2018 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains the definition of an MMM Mode submode class for +;; editing Mason components. See the file README.Mason for more +;; details. + +;;; Code: + +(require 'mmm-compat) +(require 'mmm-vars) +(require 'mmm-auto) + +;;{{{ Perl Tags + +(defvar mmm-mason-perl-tags + '("perl" "init" "cleanup" "once" "filter" "shared" + "perl_init" "perl_cleanup" "perl_once" "perl_filter")) + +(defvar mmm-mason-pseudo-perl-tags + '("args" "perl_args" "attr" "flags")) + +(defvar mmm-mason-non-perl-tags + '("doc" "perl_doc" "text" "perl_text" "def" "perl_def" "method")) + +(defvar mmm-mason-perl-tags-regexp + (concat "<%" (mmm-regexp-opt mmm-mason-perl-tags t) ">") + "Matches tags beginning Mason sections containing Perl code. +Saves the name of the tag matched.") + +(defvar mmm-mason-pseudo-perl-tags-regexp + (concat "<%" (mmm-regexp-opt mmm-mason-pseudo-perl-tags t) ">") + "Match tags beginning Mason sections that look like Perl but aren't. +Saves the name of the tag matched.") + +(defvar mmm-mason-tag-names-regexp + (regexp-opt (append mmm-mason-perl-tags mmm-mason-non-perl-tags) t) + "Matches any Mason tag name after the \"<%\". +Used to verify that a \"<%\" sequence starts an inline section.") + +(defun mmm-mason-verify-inline () + (not (looking-at mmm-mason-tag-names-regexp))) + +;;}}} +;;{{{ Add Classes + +(mmm-add-group + 'mason + `((mason-text + :submode nil + :front "<%text>" + :back "" + :insert ((?t mason-<%text> nil @ "<%text>" @ "\n" + _ "\n" @ "" @))) + (mason-doc + :submode text-mode + :face mmm-comment-submode-face + :front "<%doc>" + :back "" + :face nil + :insert ((?d mason-<%doc> nil @ "<%doc>" @ "\n" + _ "\n" @ "" @))) + (mason-perl + :submode perl + :match-face (("<%perl>" . mmm-code-submode-face) + ("<%init>" . mmm-init-submode-face) + ("<%cleanup>" . mmm-cleanup-submode-face) + ("<%once>" . mmm-init-submode-face) + ("<%filter>" . mmm-special-submode-face) + ("<%shared>" . mmm-init-submode-face)) + :front ,mmm-mason-perl-tags-regexp + :back "" + :save-matches 1 + :match-name "~1" + :save-name 1 + :insert ((?, mason-<%TAG> "Perl section: " @ "<%" str ">" @ + ";\n" _ "\n" @ "" @) + (?< mason-<%TAG> ?, . nil) + (?p mason-<%perl> ?, . "perl") + (?i mason-<%init> ?, . "init") + (?c mason-<%cleanup> ?, . "cleanup") + (?o mason-<%once> ?, . "once") + (?l mason-<%filter> ?, . "filter") + (?s mason-<%shared> ?, . "shared"))) + (mason-pseudo-perl + :submode perl + :face mmm-declaration-submode-face + :front ,mmm-mason-pseudo-perl-tags-regexp + :back "" + :save-matches 1 + :insert ((?. mason-pseudo-<%TAG> "Pseudo-perl section: " @ "<%" str ">" @ + "\n" _ "\n" @ "" @) + (?> mason-pseudo-<%TAG> ?, . nil) + (?a mason-<%args> ?. . "args") + (?f mason-<%flags> ?. . "flags") + (?r mason-<%attr> ?. . "attr"))) + (mason-one-line-comment + :submode text-mode + :face mmm-comment-submode-face + :front "^%#" + :back "\n" + :insert ((?# mason-%-comment nil (mmm-mason-start-line) + @ "%" @ "# " _ @ '(mmm-mason-end-line) "\n" @) + (?3 mason-%-comment ?# . nil))) + (mason-inline + :submode perl + :face mmm-output-submode-face + :front "<%" + :front-verify mmm-mason-verify-inline + :back "%>" + :insert ((?% mason-<%-%> nil @ "<%" @ " " _ " " @ "%>" @) + (?5 mason-<%-%> ?% . nil))) + (mason-call + :submode perl + :face mmm-special-submode-face + :front "<&" + :back "&>" + :insert ((?& mason-<&-&> nil @ "<&" @ " " _ " " @ "&>" @) + (?7 mason-<&-&> ?% . nil))) + (mason-one-line + :submode perl + :face mmm-code-submode-face + :front "^%" + :back "\n" + :insert ((return mason-%-line nil (mmm-mason-start-line) + @ "%" @ " " _ @ '(mmm-mason-end-line) "\n" @))))) + +;;}}} +;;{{{ One-line Sections + +(defun mmm-mason-start-line () + (if (bolp) + "" + "\n")) + +(defun mmm-mason-end-line () + (if (eolp) + (delete-char 1))) + +;;}}} +;;{{{ Set Mode Line + +(defun mmm-mason-set-mode-line () + (setq mmm-buffer-mode-display-name "Mason")) +(add-hook 'mmm-mason-class-hook #'mmm-mason-set-mode-line) + +;;}}} + +(provide 'mmm-mason) + +;;; mmm-mason.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-mode-autoloads.el b/elpa/mmm-mode-0.5.11/mmm-mode-autoloads.el new file mode 100644 index 0000000..e4bee17 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-mode-autoloads.el @@ -0,0 +1,115 @@ +;;; mmm-mode-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + +;;; Code: + +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + + + +;;; Generated autoloads from mmm-auto.el + +(register-definition-prefixes "mmm-auto" '("mmm-")) + + +;;; Generated autoloads from mmm-class.el + +(register-definition-prefixes "mmm-class" '("mmm-")) + + +;;; Generated autoloads from mmm-cmds.el + +(register-definition-prefixes "mmm-cmds" '("mmm-")) + + +;;; Generated autoloads from mmm-compat.el + +(register-definition-prefixes "mmm-compat" '("mmm-" "skeleton-positions")) + + +;;; Generated autoloads from mmm-cweb.el + +(register-definition-prefixes "mmm-cweb" '("mmm-cweb-")) + + +;;; Generated autoloads from mmm-erb.el + +(autoload 'html-erb-mode "mmm-erb" "\ + + +(fn)" t) +(autoload 'nxml-web-mode "mmm-erb" "\ + + +(fn)" t) +(register-definition-prefixes "mmm-erb" '("html-erb-after-syntax-propertize" "mmm-erb-")) + + +;;; Generated autoloads from mmm-mason.el + +(register-definition-prefixes "mmm-mason" '("mmm-mason-")) + + +;;; Generated autoloads from mmm-mode.el + +(register-definition-prefixes "mmm-mode" '("mmm-")) + + +;;; Generated autoloads from mmm-myghty.el + +(register-definition-prefixes "mmm-myghty" '("mmm-myghty-")) + + +;;; Generated autoloads from mmm-noweb.el + +(register-definition-prefixes "mmm-noweb" '("mmm-")) + + +;;; Generated autoloads from mmm-region.el + +(register-definition-prefixes "mmm-region" '("mmm-")) + + +;;; Generated autoloads from mmm-rpm.el + +(register-definition-prefixes "mmm-rpm" '("mmm-rpm-sh-")) + + +;;; Generated autoloads from mmm-sample.el + +(register-definition-prefixes "mmm-sample" '("mmm-")) + + +;;; Generated autoloads from mmm-univ.el + +(register-definition-prefixes "mmm-univ" '("mmm-univ-get-mode")) + + +;;; Generated autoloads from mmm-utils.el + +(register-definition-prefixes "mmm-utils" '("mmm-")) + + +;;; Generated autoloads from mmm-vars.el + +(autoload 'mmm-add-classes "mmm-vars" "\ +Add the submode classes CLASSES to `mmm-classes-alist'. + +(fn CLASSES)") +(register-definition-prefixes "mmm-vars" '("mmm-")) + +;;; End of scraped data + +(provide 'mmm-mode-autoloads) + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; no-native-compile: t +;; coding: utf-8-emacs-unix +;; End: + +;;; mmm-mode-autoloads.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-mode-pkg.el b/elpa/mmm-mode-0.5.11/mmm-mode-pkg.el new file mode 100644 index 0000000..034ca16 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-mode-pkg.el @@ -0,0 +1,11 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "mmm-mode" "0.5.11" + "Allow Multiple Major Modes in a buffer." + '((emacs "25.1") + (cl-lib "0.2")) + :url "https://github.com/dgutov/mmm-mode" + :commit "b1f5c7dbdc405e6e10d9ddd99a43a6b2ad61b176" + :revdesc "b1f5c7dbdc40" + :keywords '("convenience" "faces" "languages" "tools") + :authors '(("Michael Abraham Shulman" . "viritrilbia@gmail.com")) + :maintainers '(("Dmitry Gutov" . "dmitry@gutov.dev"))) diff --git a/elpa/mmm-mode-0.5.11/mmm-mode.el b/elpa/mmm-mode-0.5.11/mmm-mode.el new file mode 100644 index 0000000..3cae68f --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-mode.el @@ -0,0 +1,310 @@ +;;; mmm-mode.el --- Allow Multiple Major Modes in a buffer -*- lexical-binding: t; -*- + +;; Copyright (C) 1999-2004, 2012-2015, 2018, 2020 Free Software Foundation, Inc. + +;; Emacs Lisp Archive Entry +;; Package: mmm-mode +;; Author: Michael Abraham Shulman +;; Maintainer: Dmitry Gutov +;; URL: https://github.com/dgutov/mmm-mode +;; Keywords: convenience, faces, languages, tools +;; Package-Version: 0.5.11 +;; Package-Revision: b1f5c7dbdc40 +;; Package-Requires: ((emacs "25.1") (cl-lib "0.2")) + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published +;; by the Free Software Foundation; either version 2, or (at your +;; option) any later version. + +;; This file is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; MMM Mode is a minor mode that allows multiple major modes to +;; coexist in a single buffer. Refer to the documentation of the +;; function `mmm-mode' for more detailed information. This file +;; contains mode on/off functions and the mode keymap, but mostly +;; just loads all the subsidiary files. + +;{{{ Parameter Naming + +;; Since version 0.3.7, I've tried to use a uniform scheme for naming +;; parameters. Here's a brief summary. + +;; BEG and END refer to the beginning and end of a region. +;; FRONT and BACK refer to the respective delimiters of a region. +;; FRONT- and BACK-OFFSET are the offsets from delimiter matches. +;; FRONT-BEG through BACK-END are the endings of the delimiters. +;; START and STOP bound actions, like searching, fontification, etc. + +;}}} +;{{{ CL and Parameters + +;; Keyword parameters can be nice because it makes it easier to see +;; what's getting passed as what. But I try not to use them in user +;; functions, because CL doesn't make good documentation strings. +;; Similarly, any hook or callback function can't take keywords, +;; since Emacs as a whole doesn't use them. And for small parameter +;; lists, they are overkill. So I use them only for a large number of +;; optional parameters, such as `mmm-make-region'. + +;; An exception is the various submode class application functions, +;; which all take all their arguments as keywords, for consistency +;; and so the classes alist looks nice. + +;; When using keyword arguments, defaults should *always* be supplied +;; in all arglists. (This pertains mostly to :start and :stop +;; arguments, usually defaulting to (point-min) and (point-max) +;; respectively.) `mmm-save-keywords' should only be used for lists +;; with more than four arguments, such as in `mmm-ify-by-regexp'. + +;; In general, while I have no qualms about using things from CL like +;; `cl-mapl', `cl-loop' and `cl-destructuring-bind', I try not to use `cl-defun' +;; more than I have to. For one, it sometimes makes bad documentation +;; strings. Furthermore, to a `defun'ned function, a nil argument is +;; the same as no argument, so it will use its (manual) default, but +;; to a `cl-defun'ned function, a nil argument *is* the argument, so +;; any default specified in the arglist will be ignored. Confusion of +;; this type should be avoided when at all possible. + +;;}}} + +;;; Code: + +(require 'cl-lib) +;; If we don't load font-lock now, but it is loaded later, the +;; necessary mmm-font-lock-* properties may not be there. +(require 'font-lock) +(require 'mmm-compat) +(require 'mmm-utils) +(require 'mmm-vars) +(require 'mmm-auto) +(require 'mmm-region) +(require 'mmm-class) +;; This file is set up to autoload by `mmm-auto.el'. +;; (require 'mmm-cmds) +(require 'mmm-univ) + +;;{{{ Toggle Function + +(defun mmm-mode (&optional arg) + "Minor mode to allow multiple major modes in one buffer. +Without ARG, toggle MMM Mode. With ARG, turn MMM Mode on if ARG is +positive and off otherwise. + +Commands Available: +\\ +\\{mmm-mode-map} + +BASIC CONCEPTS + +The idea of MMM Mode is to allow multiple major modes to coexist in +the same buffer. There is one `primary' major mode that controls +most of the buffer, and a number of `submodes' that each hold sway +over certain regions. The submode regions are usually highlighted by +a background color for ease of recognition. While the point is in a +submode region, the following changes \(are supposed to) occur: + +1. The local keymap and the syntax table are that of the submode. +2. The mode line changes to show what submode region is active. +3. The major mode menu and mouse popup menu are that of the submode. +4. Some local variables of the submode shadow the default mode's. +5. Font-lock fontifies correctly for the submode. +6. Indentation function dispatches to the appropriate submode. +7. User-specified hooks run when the point enters or exits a submode. + +The user may specify a number of hooks which may run when the point +transitions between submodes, or between the primary mode and a +submode. When a major mode is entered, the hook `mmm-x-enter-hook' is +run, where x is the name of the major mode. When a major mode is +left, the hook `mmm-y-exit-hook' is run, where y is the name of the +major mode. Users may also specify hooks with names of the form +`mmm-x-y-hook' which are run when the point leaves a mode named x, +and enters a mode named y. + +For further information, including installation and configuration +instructions, see the info node `(mmm)Top' which is included with the +distribution of MMM Mode. Many of MMM's configuration variables are +available in customization group `mmm'." + (interactive "P") + (if (if arg (> (prefix-numeric-value arg) 0) (not mmm-mode)) + (mmm-mode-on) + (mmm-mode-off))) + +(add-to-list 'minor-mode-alist (list 'mmm-mode mmm-mode-string)) + +;;}}} +;;{{{ Mode On + +(defun mmm-mode-on () + "Turn on MMM Mode. See `mmm-mode'." + (interactive) + ;; This function is called from mode hooks, so we need to make sure + ;; we're not in a temporary buffer. We don't need to worry about + ;; recursively ending up in ourself, however, since by that time the + ;; variable `mmm-mode' will already be set. + (mmm-valid-buffer + (unless mmm-mode + (setq mmm-primary-mode major-mode) + (when (fboundp 'c-make-styles-buffer-local) + (c-make-styles-buffer-local t)) + (mmm-update-mode-info major-mode) + (setq mmm-region-saved-locals-for-dominant + ;; FIXME: Neither is defined in recent Emacs. + (cl-list* (list 'font-lock-cache-state nil) + (list 'font-lock-cache-position (make-marker)) + (copy-tree (cdr (assq major-mode mmm-region-saved-locals-defaults))))) + ;; Without the next line, the (make-marker) above gets replaced + ;; with the starting value of nil, and all comes to naught. + (mmm-set-local-variables major-mode nil) + (mmm-add-hooks) + (mmm-fixup-skeleton) + (set (make-local-variable 'font-lock-fontify-region-function) + #'mmm-fontify-region) + (when (boundp 'syntax-begin-function) + (set (make-local-variable 'syntax-begin-function) nil)) + (set (make-local-variable 'syntax-propertize-function) + #'mmm-syntax-propertize-function) + (set (make-local-variable 'indent-line-function) mmm-indent-line-function) + (setq mmm-mode t) + (condition-case err + (mmm-apply-all) + (mmm-error + ;; Complain, but don't die, since we want files to go ahead + ;; and be opened anyway, and the mode to go ahead and be + ;; turned on. Should we delete all previously made submode + ;; regions when we find an invalid one? + (message "%s" (error-message-string err)))) + (run-hooks 'mmm-mode-hook) + (mmm-run-major-hook)))) + +;;}}} +;;{{{ Mode Off + +(defun mmm-mode-off () + "Turn off MMM Mode. See `mmm-mode'." + (interactive) + (when mmm-mode + (mmm-remove-hooks) + (mmm-clear-overlays) + (mmm-clear-history) + (mmm-clear-mode-ext-classes) + (mmm-clear-local-variables) + (mmm-update-submode-region) + (setq font-lock-fontify-region-function + (get mmm-primary-mode 'mmm-fontify-region-function)) + (mmm-update-font-lock-buffer) + (mmm-refontify-maybe) + (setq mmm-mode nil) + ;; Restore the mode line + (setq mmm-primary-mode-display-name nil + mmm-buffer-mode-display-name nil) + (mmm-set-mode-line))) + +;;}}} +;;{{{ Mode Keymap + +(defvar mmm-mode-map (make-sparse-keymap) + "Keymap for MMM Minor Mode.") + +(defvar mmm-mode-prefix-map (make-sparse-keymap) + "Keymap for MMM Minor Mode after `mmm-mode-prefix-key'.") + +(defvar mmm-mode-menu-map (make-sparse-keymap "MMM") + "Keymap for MMM Minor Mode menu.") + +(defun mmm-define-key (key binding &optional keymap) + (define-key (or keymap mmm-mode-prefix-map) + (vector (append mmm-command-modifiers (list key))) + binding)) + +(when mmm-use-old-command-keys + (mmm-use-old-command-keys)) + +(mmm-define-key ?c 'mmm-ify-by-class) +(mmm-define-key ?x 'mmm-ify-by-regexp) +(mmm-define-key ?r 'mmm-ify-region) + +(mmm-define-key ?b 'mmm-parse-buffer) +(mmm-define-key ?g 'mmm-parse-region) +(mmm-define-key ?% 'mmm-parse-block) +(mmm-define-key ?5 'mmm-parse-block) + +(mmm-define-key ?k 'mmm-clear-current-region) +(mmm-define-key ?\ 'mmm-reparse-current-region) +(mmm-define-key ?e 'mmm-end-current-region) + +(mmm-define-key ?z 'mmm-narrow-to-submode-region) + +;; This one is exact, since C-h is (usually) already used for help. +(define-key mmm-mode-prefix-map [?h] 'mmm-insertion-help) + +;; Default bindings to do insertion (dynamic) +(mmm-set-keymap-default mmm-mode-prefix-map 'mmm-insert-region) + +;; Set up the prefix help command, since otherwise the default binding +;; overrides it. +(define-key mmm-mode-prefix-map (vector help-char) prefix-help-command) + +;; And put it all onto the prefix key +(define-key mmm-mode-map mmm-mode-prefix-key mmm-mode-prefix-map) + +;; Order matters for the menu bar. +(define-key mmm-mode-menu-map [off] + '("MMM Mode Off" . mmm-mode-off)) +(define-key mmm-mode-menu-map [sep0] '(menu-item "----")) + +(define-key mmm-mode-menu-map [clhist] + '("Clear History" . mmm-clear-history)) +(define-key mmm-mode-menu-map [end] + '("End Current" . mmm-end-current-region)) +(define-key mmm-mode-menu-map [clear] + '("Clear Current" . mmm-clear-current-region)) +(define-key mmm-mode-menu-map [reparse] + '("Reparse Current" . mmm-reparse-current-region)) + +(define-key mmm-mode-menu-map [sep10] '(menu-item "----")) + +(define-key mmm-mode-menu-map [ins-help] + '("List Insertion Keys" . mmm-insertion-help)) + +(define-key mmm-mode-menu-map [sep20] '(menu-item "----")) + +(define-key mmm-mode-menu-map [region] + '(menu-item "MMM-ify Region" mmm-ify-region :enable mark-active)) +(define-key mmm-mode-menu-map [regexp] + '("MMM-ify by Regexp" . mmm-ify-by-regexp)) +(define-key mmm-mode-menu-map [class] + '("Apply Submode Class" . mmm-ify-by-class)) + +(define-key mmm-mode-menu-map [sep30] '(menu-item "----")) + +(define-key mmm-mode-menu-map [parse-region] + '(menu-item "Parse Region" mmm-parse-region :enable mark-active)) +(define-key mmm-mode-menu-map [parse-buffer] + '("Parse Buffer" . mmm-parse-buffer)) +(define-key mmm-mode-menu-map [parse-block] + '("Parse Block" . mmm-parse-block)) + +(define-key mmm-mode-map [menu-bar mmm] (cons "MMM" mmm-mode-menu-map)) + +(add-to-list 'minor-mode-map-alist (cons 'mmm-mode mmm-mode-map)) + +;;}}} + +(provide 'mmm-mode) + +;;; mmm-mode.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-myghty.el b/elpa/mmm-mode-0.5.11/mmm-myghty.el new file mode 100644 index 0000000..4da271f --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-myghty.el @@ -0,0 +1,187 @@ +;;; mmm-myghty.el --- MMM submode class for Myghty components -*- lexical-binding: t; -*- + +;; Copyright (C) 2000, 2004, 2013, 2018 Free Software Foundation, Inc. + +;; Author: Ben Bangert +;; Original Author: Michael Abraham Shulman + +;; Based on mmm-mason.el, trivial changes by Ben Bangert + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; I went to the hard (sarcasm) effort of applying two global +;; search/replaces, and adding a few keywords for additional +;; blocks that Myghty introduced. Many thanks to Michael for writing +;; the mmm-mason without which I would never have found the time +;; to patch up for Myghty. + +;;; Code: + +(require 'mmm-compat) +(require 'mmm-vars) +(require 'mmm-auto) + +;;{{{ Python Tags + +(defvar mmm-myghty-python-tags + '("python" "init" "cleanup" "once" "filter" "shared" "global" + "threadlocal" "requestlocal" + "python_init" "python_cleanup" "python_once" "python_filter")) + +(defvar mmm-myghty-pseudo-python-tags + '("args" "python_args" "attr" "flags")) + +(defvar mmm-myghty-non-python-tags + '("doc" "python_doc" "text" "python_text" "def" "python_def" "method")) + +(defvar mmm-myghty-python-tags-regexp + (concat "<%" (mmm-regexp-opt mmm-myghty-python-tags t) ">") + "Matches tags beginning Myghty sections containing Python code. +Saves the name of the tag matched.") + +(defvar mmm-myghty-pseudo-python-tags-regexp + (concat "<%" (mmm-regexp-opt mmm-myghty-pseudo-python-tags t) ">") + "Match tags beginning Myghty sections that look like Python but aren't. +Saves the name of the tag matched.") + +(defvar mmm-myghty-tag-names-regexp + (regexp-opt (append mmm-myghty-python-tags mmm-myghty-non-python-tags) t) + "Matches any Myghty tag name after the \"<%\". +Used to verify that a \"<%\" sequence starts an inline section.") + +(defun mmm-myghty-verify-inline () + (not (looking-at mmm-myghty-tag-names-regexp))) + +;;}}} +;;{{{ Add Classes + +(mmm-add-group + 'myghty + `((myghty-text + :submode nil + :front "<%text>" + :back "" + :insert ((?t myghty-<%text> nil @ "<%text>" @ "\n" + _ "\n" @ "" @))) + (myghty-doc + :submode text-mode + :face mmm-comment-submode-face + :front "<%doc>" + :back "" + :face nil + :insert ((?d myghty-<%doc> nil @ "<%doc>" @ "\n" + _ "\n" @ "" @))) + (myghty-python + :submode python + :match-face (("<%python>" . mmm-code-submode-face) + ("<%init>" . mmm-init-submode-face) + ("<%cleanup>" . mmm-cleanup-submode-face) + ("<%once>" . mmm-init-submode-face) + ("<%global>" . mmm-init-submode-face) + ("<%filter>" . mmm-special-submode-face) + ("<%shared>" . mmm-init-submode-face) + ("<%threadlocal>" . mmm-init-submode-face) + ("<%requestlocal>" . mmm-init-submode-face)) + :front ,mmm-myghty-python-tags-regexp + :back "" + :save-matches 1 + :match-name "~1" + :save-name 1 + :insert ((?, myghty-<%TAG> "Python section: " @ "<%" str ">" @ + ";\n" _ "\n" @ "" @) + (?< myghty-<%TAG> ?, . nil) + (?p myghty-<%python> ?, . "python") + (?i myghty-<%init> ?, . "init") + (?c myghty-<%cleanup> ?, . "cleanup") + (?o myghty-<%once> ?, . "once") + (?g myghty-<%global> ?, . "global") + (?t myghty-<%threadlocal> ?, . "threadlocal") + (?e myghty-<%requestlocal> ?, . "requestlocal") + (?l myghty-<%filter> ?, . "filter") + (?s myghty-<%shared> ?, . "shared"))) + (myghty-pseudo-python + :submode python + :face mmm-declaration-submode-face + :front ,mmm-myghty-pseudo-python-tags-regexp + :back "" + :save-matches 1 + :insert ((?. myghty-pseudo-<%TAG> "Pseudo-python section: " @ "<%" str ">" @ + "\n" _ "\n" @ "" @) + (?> myghty-pseudo-<%TAG> ?, . nil) + (?a myghty-<%args> ?. . "args") + (?f myghty-<%flags> ?. . "flags") + (?r myghty-<%attr> ?. . "attr"))) + (myghty-inline + :submode python + :face mmm-output-submode-face + :front "<%" + :front-verify mmm-myghty-verify-inline + :back "%>" + :insert ((?% myghty-<%-%> nil @ "<%" @ " " _ " " @ "%>" @) + (?5 myghty-<%-%> ?% . nil))) + (myghty-call + :submode python + :face mmm-special-submode-face + :front "<&" + :back "&>" + :insert ((?& myghty-<&-&> nil @ "<&" @ " " _ " " @ "&>" @) + (?7 myghty-<&-&> ?% . nil))) + (myghty-one-line-comment + :submode text-mode + :face mmm-comment-submode-face + :front "^%#" + :back "\n" + :insert ((?# myghty-%-comment nil (mmm-myghty-start-line) + @ "%" @ "# " _ @ '(mmm-myghty-end-line) "\n" @) + (?3 myghty-%-comment ?# . nil))) + (myghty-one-line + :submode python + :face mmm-code-submode-face + :front "^%" + :back "\n" + :insert ((return myghty-%-line nil (mmm-myghty-start-line) + @ "%" @ " " _ @ '(mmm-myghty-end-line) "\n" @))))) + +;;}}} +;;{{{ One-line Sections + +(defun mmm-myghty-start-line () + (if (bolp) + "" + "\n")) + +(defun mmm-myghty-end-line () + (if (eolp) + (delete-char 1))) + +;;}}} +;;{{{ Set Mode Line + +(defun mmm-myghty-set-mode-line () + (setq mmm-buffer-mode-display-name "Myghty")) +(add-hook 'mmm-myghty-class-hook #'mmm-myghty-set-mode-line) + +;;}}} + +(provide 'mmm-myghty) + +;;; mmm-myghty.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-noweb.el b/elpa/mmm-mode-0.5.11/mmm-noweb.el new file mode 100644 index 0000000..3bbe0fa --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-noweb.el @@ -0,0 +1,421 @@ +;;; mmm-noweb.el --- MMM submode class for Noweb programs -*- lexical-binding: t; -*- +;; +;; Copyright 2003, 2004 Joe Kelsey +;; Copyright 2018 Free Software Foundation, Inc. +;; +;; The filling, completion and chunk motion commands either taken +;; directly from or inspired by code in: +;; noweb-mode.el - edit noweb files with GNU Emacs +;; Copyright 1995 by Thorsten.Ohl @ Physik.TH-Darmstadt.de +;; with a little help from Norman Ramsey +;; + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains the definition of an MMM Mode submode class for +;; editing Noweb programs. +;; +;; FIXME: The more advanced features don't work: `mmm-name-at' and +;; `mmm-syntax-region' are undefined. Need to dig around in the bug reports +;; and/or discussions, wherever the code using them was submitted. + +;;; Code: + +(require 'cl-lib) +(require 'mmm-region) +(require 'mmm-vars) +(require 'mmm-mode) + +;;{{{ Variables + +(defvar mmm-noweb-code-mode 'fundamental-mode + "*Major mode for editing code chunks. +This is set to FUNDAMENTAL-MODE by default, but you might want to change +this in the Local Variables section of your file to something more +appropriate, like C-MODE, FORTRAN-MODE, or even INDENTED-TEXT-MODE." + ;; FIXME: Any of CC Mode modes aren't really appropriate: + ;; https://github.com/dgutov/mmm-mode/issues/57 + ) + +(defvar mmm-noweb-quote-mode nil + "*Major mode for quoted code chunks within documentation chunks. +If nil, defaults to `mmm-noweb-code-mode', which see.") + +(defvar mmm-noweb-quote-string "quote" + "*String used to form quoted code submode region names. +See `mmm-noweb-quote'.") + +(defvar mmm-noweb-quote-number 0 + "*Starting value appended to `mmm-noweb-quote-string'. +See `mmm-noweb-quote'.") + +(defvar mmm-noweb-narrowing nil + "*Narrow the region to the current pair of chunks.") + +;;}}} +;;{{{ Support for mmm submode stuff + +(defun mmm-noweb-chunk (_form) + "Return the noweb code mode chosen by the user. +If the next 100 characters of the buffer contain a string of the form +\"-*- MODE -*-\", then return MODE as the chosen mode, otherwise +return the value of `mmm-noweb-code-mode'." + ;; Look for -*- mode -*- in the first two lines. + ;; 120 chars = 40 chars for #! + 80 chars for following line... + (if (re-search-forward "-\\*-\\s +\\(\\S-+\\)\\s +-\\*-" (+ (point) 120) t) + (let* ((string (match-string-no-properties 1)) + (modestr (intern (if (string-match "mode\\'" string) + string + (concat string "-mode"))))) + (or (mmm-ensure-modename modestr) + mmm-noweb-code-mode)) + mmm-noweb-code-mode)) + +(defun mmm-noweb-quote (_form) + "Create a unique name for a quoted code region within a documentation chunk." + (or mmm-noweb-quote-mode + mmm-noweb-code-mode)) + +(defun mmm-noweb-quote-name (_form) + "Create a unique name for a quoted code region within a documentation chunk." + (setq mmm-noweb-quote-number (1+ mmm-noweb-quote-number)) + (concat mmm-noweb-quote-string "-" + (number-to-string mmm-noweb-quote-number))) + +(defun mmm-noweb-chunk-name (form) + "Get the chunk name from FORM." + (string-match "<<\\(.*\\)>>=" form) + (match-string-no-properties 1 form)) + +;;}}} +;;{{{ mmm noweb submode group + +;; We assume that the global document mode is latex or whatever, the +;; user wants. This class controls the code chunk submodes. We use +;; match-submode to either return the value in mmm-noweb-code-mode or to +;; look at the first line of the chunk for a submode setting. We reset +;; case-fold-search because chunk names are case sensitive. The front +;; string identifies the chunk name between the <<>>. Since this is +;; done, name-match can use the same functions as save-matches for back. +;; Our insert skeleton places a new code chunk and the skel-name lets us +;; optimize the skelton naming to use the inserted string. + +(mmm-add-group + 'noweb + '((noweb-chunk + :match-submode mmm-noweb-chunk + :case-fold-search nil + :front "^<<\\(.*\\)>>=" + :match-name "~1" + :save-name 1 + :front-offset (end-of-line 1) + :back "^@\\( \\|$\\|\\( %def .*$\\)\\)" + :insert ((?c noweb-code "Code Chunk Name: " + "\n" @ "<<" str ">>=" @ "\n" _ "\n" @ "@ " @ "\n")) + :skel-name t + ) + (noweb-quote + :match-submode mmm-noweb-quote + :face mmm-special-submode-face + :front "\\[\\[" +; :name-match mmm-noweb-quote-name + :back "\\]\\]" + :insert ((?q noweb-quote nil @ "[[" @ _ @ "]]" @)) + ) + )) + +;;}}} +;;{{{ Noweb regions + +(defun mmm-noweb-regions (start stop regexp) + "Return a list of regions of the form (NAME BEG END) that exclude +names which match REGEXP." + (let* ((remove-next nil) + (regions + (cl-maplist (lambda (pos-list) + (if (cdr pos-list) + (if remove-next + (setq remove-next nil) + (let ((name (or (mmm-name-at (car pos-list) 'beg) + (symbol-name mmm-primary-mode)))) + (if (and regexp (string-match regexp name) ) + (progn + (setq remove-next t) + nil) + (list name + (car pos-list) (cadr pos-list))))))) + (mmm-submode-changes-in start stop)))) + ;; The above loop leaves lots of nils in the list... + ;; Removing them saves us from having to do the (last x 2) + ;; trick that mmm-regions-in does. + (setq regions (delq nil regions)))) + +;;}}} +;;{{{ Filling, etc + +(defun mmm-noweb-narrow-to-doc-chunk () + "Narrow to the current doc chunk. +The current chunk includes all quoted code chunks (i.e., \[\[...\]\]). +This function is only valid when called with point in a doc chunk or +quoted code chunk." + (interactive) + (let ((name (mmm-name-at (point)))) + (if (or (null name) (string-match "^quote" name)) + (let ((prev (cond + ((= (point) (point-min)) (point)) + (t (cadar (last (mmm-noweb-regions (point-min) (point) + "^quote")))))) + (next (cond + ((= (point) (point-max)) (point)) + (t (save-excursion + (goto-char (cadr + (cadr (mmm-noweb-regions (point) + (point-max) + "^quote")))) + (forward-line -1) + (point)))))) + (narrow-to-region prev next))))) + +(defun mmm-noweb-fill-chunk (&optional justify) + "Fill the current chunk according to mode. +Run `fill-paragraph' with JUSTIFY on documentation chunks and +`indent-region' on code chunks." + (interactive "P") + (save-restriction + (let ((name (mmm-name-at (point)))) + (if (and name (not (string-match "^quote" name))) + (if (or indent-region-function indent-line-function) + (progn + (mmm-space-other-regions) + (indent-region (overlay-start mmm-current-overlay) + (overlay-end mmm-current-overlay) nil)) + (error "No indentation functions defined in %s!" major-mode)) + (progn + (mmm-word-other-regions) + (fill-paragraph justify))) + (mmm-undo-syntax-other-regions)))) + +(defun mmm-noweb-fill-paragraph-chunk (&optional justify) + "Fill a paragraph according to JUSTIFY in the current chunk." + (interactive "P") + (save-restriction + (let ((name (mmm-name-at (point)))) + (if (and name (not (string-match "^quote" name))) + (progn + (mmm-space-other-regions) + (fill-paragraph justify)) + (progn + (mmm-word-other-regions) + (fill-paragraph justify))) + (mmm-undo-syntax-other-regions)))) + +(defun mmm-noweb-fill-named-chunk (&optional _justify) + "Fill the region containing the named chunk." + (interactive "P") + (save-restriction + (let* ((name (or (mmm-name-at) (symbol-name mmm-primary-mode))) + (list (cdr (assoc name (mmm-names-alist (point-min) (point-max)))))) + (if (or (string= name (symbol-name mmm-primary-mode)) + (string-match "^quote" name)) + (progn + (mmm-word-other-regions) + (do-auto-fill)) + (progn + (mmm-space-other-regions) + (indent-region (caar list) (cadar (last list)) nil))) + (mmm-undo-syntax-other-regions)))) + +(defun mmm-noweb-auto-fill-doc-chunk () + "Replacement for `do-auto-fill'." + (save-restriction + (mmm-noweb-narrow-to-doc-chunk) + (mmm-word-other-regions) + (do-auto-fill) + (mmm-undo-syntax-other-regions))) + +(defun mmm-noweb-auto-fill-doc-mode () + "Install the improved auto fill function, iff necessary." + (if auto-fill-function + ;; FIXME: Use add-function? + (setq auto-fill-function #'mmm-noweb-auto-fill-doc-chunk))) + +(defun mmm-noweb-auto-fill-code-mode () + "Install the default auto fill function, iff necessary." + (if auto-fill-function + ;; FIXME: Use remove-function? + (setq auto-fill-function #'do-auto-fill))) + +;;}}} +;;{{{ Functions on named chunks + +(defun mmm-noweb-complete-chunk () + "Try to complete the chunk name." + (interactive) + (let ((end (point)) + (beg (save-excursion + (if (re-search-backward "<<" + (save-excursion + (beginning-of-line) + (point)) + t) + (match-end 0) + nil)))) + (if beg + (let* ((pattern (buffer-substring beg end)) + (alist (mmm-names-alist (point-min) (point-max))) + (completion (try-completion pattern alist))) + (cond ((eq completion t)) + ((null completion) + (message "Can't find completion for \"%s\"" pattern) + (ding)) + ((not (string= pattern completion)) + (delete-region beg end) + (insert completion) + (if (not (looking-at ">>")) + (insert ">>"))) + (t + (message "Making completion list...") + (with-output-to-temp-buffer "*Completions*" + (display-completion-list + (all-completions pattern alist))) + (message "Making completion list...%s" "done")))) + (message "Not at chunk name...")))) + +(defvar mmm-noweb-chunk-history nil + "History for `mmm-noweb-goto-chunk'.") + +(defun mmm-noweb-goto-chunk () + "Goto the named chunk." + (interactive) + (widen) + (let* ((completion-ignore-case t) + (alist (mmm-names-alist (point-min) (point-max))) + (chunk (completing-read + "Chunk: " alist nil t + (mmm-name-at (point)) + mmm-noweb-chunk-history))) + (goto-char (caadr (assoc chunk alist))))) + +(defun mmm-noweb-goto-next (&optional cnt) + "Goto the continuation of the current chunk." + (interactive "p") + (widen) + (let ((name (mmm-name-at (point)))) + (if name + (let ((list (cdr (assoc name (mmm-names-alist + (overlay-end mmm-current-overlay) + (point-max)))))) + (if list + (goto-char (caar (nthcdr (1- cnt) list)))))))) + +(defun mmm-noweb-goto-previous (&optional cnt) + "Goto the continuation of the current chunk." + (interactive "p") + (widen) + (let ((name (mmm-name-at (point)))) + (if name + (let ((list (reverse + (cdr (assoc name + (mmm-names-alist (point-min) + (overlay-start + mmm-current-overlay))))))) + (if list + (goto-char (cadar (nthcdr cnt list)))))))) + +;;}}} +;;{{{ Key mappings + +(defvar mmm-noweb-map (make-sparse-keymap)) +(defvar mmm-noweb-prefix-map (make-sparse-keymap)) +(define-key mmm-noweb-map mmm-mode-prefix-key mmm-noweb-prefix-map) + +(mmm-define-key ?d 'mmm-noweb-narrow-to-doc-chunk mmm-noweb-prefix-map) +(mmm-define-key ?n 'mmm-noweb-goto-next mmm-noweb-prefix-map) +(mmm-define-key ?p 'mmm-noweb-goto-previous mmm-noweb-prefix-map) +(mmm-define-key ?q 'mmm-noweb-fill-chunk mmm-noweb-prefix-map) +;; Cannot use C-g as goto command, so use C-s. +(mmm-define-key ?s 'mmm-noweb-goto-chunk mmm-noweb-prefix-map) + +(define-key mmm-noweb-prefix-map "\t" 'mmm-noweb-complete-chunk) + +;; Don't want to add to either the mmm mode map (used in other mmm +;; buffers) or the local map (used in other major mode buffers), so we +;; make a full-buffer spanning overlay and add the map there. +(defun mmm-noweb-bind-keys () + (save-restriction + (widen) + (let ((ovl (make-overlay (point-min) (point-max) nil nil t))) + ;; 'keymap', not 'local-map' + (overlay-put ovl 'keymap mmm-noweb-map)))) + +(add-hook 'mmm-noweb-class-hook #'mmm-noweb-bind-keys) + +;; TODO: make this overlay go away if mmm is turned off + +;;}}} + +;; These functions below living here temporarily until a real place is +;; found. + +(defun mmm-syntax-region-list (syntax regions) + "Apply SYNTAX to a list of REGIONS of the form (BEG END). +If SYNTAX is not nil, set the syntax-table property of each region. +If SYNTAX is nil, remove the region syntax-table property. +See `mmm-syntax-region'." + (mapcar (lambda (reg) + (mmm-syntax-region (car reg) (cadr reg) syntax)) + regions)) + +(defun mmm-syntax-other-regions (syntax &optional name) + "Apply SYNTAX cell to other regions. +Regions are separated by name, using either `mmm-name-at' or the +optional NAME to determine the current region name." + (if (null name) + (setq name (or (mmm-name-at) + (symbol-name mmm-primary-mode)))) + (mapcar (lambda (reg) + (if (not (string= (car reg) name)) + (mmm-syntax-region-list syntax (cdr reg)))) + (mmm-names-alist (point-min) (point-max)))) + +(defun mmm-word-other-regions () + "Give all other regions word syntax." + (interactive) + (mmm-syntax-other-regions '(2 . 0)) + (setq parse-sexp-lookup-properties t)) + +(defun mmm-space-other-regions () + "Give all other regions space syntax." + (interactive) + (mmm-syntax-other-regions '(0 . 0)) + (setq parse-sexp-lookup-properties t)) + +(defun mmm-undo-syntax-other-regions () + "Remove syntax-table property from other regions." + (interactive) + (mmm-syntax-other-regions nil) + (setq parse-sexp-lookup-properties nil)) + + +(provide 'mmm-noweb) + +;;; mmm-noweb.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-region.el b/elpa/mmm-mode-0.5.11/mmm-region.el new file mode 100644 index 0000000..0542c90 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-region.el @@ -0,0 +1,932 @@ +;;; mmm-region.el --- Manipulating and behavior of MMM submode regions -*- lexical-binding: t; -*- + +;; Copyright (C) 2000-2003, 2010-2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file provides the functions and variables to create, delete, +;; and inspect submode regions, as well as functions that make them +;; behave like the submode with respect to syntax tables, local maps, +;; font lock, etc. + +;; See mmm-class.el for functions which scan the buffer and decide +;; where to create regions. + +;;; Code: + +(require 'cl-lib) +(require 'font-lock) +(require 'mmm-compat) +(require 'mmm-utils) +(require 'mmm-auto) +(require 'mmm-vars) + +;; INSPECTION +;;{{{ Current Overlays + +;; Emacs counts an overlay starting at POS as "at" POS, but not an +;; overlay ending at POS. XEmacs is more sensible and uses beg- and +;; end-stickiness to determine whether an endpoint is within an +;; extent. Here we want to act like XEmacs does. + +(defsubst mmm-overlay-at (&optional pos type) + "Return the highest-priority MMM Mode overlay at POS. +See `mmm-included-p' for the values of TYPE." + (car (mmm-overlays-at pos type))) + +(defun mmm-overlays-at (&optional pos type) + "Return a list of the MMM overlays at POS, in decreasing priority. +See `mmm-included-p' for the values of TYPE." + (or pos (setq pos (point))) + (mmm-sort-overlays + (cl-remove-if-not + (lambda (ovl) + (and (overlay-get ovl 'mmm) + (mmm-included-p ovl pos type))) + ;; XEmacs complains about positions outside the buffer + (overlays-in (max (1- pos) (point-min)) + (min (1+ pos) (point-max)))))) + +(defun mmm-included-p (ovl pos &optional type) + "Return true if the overlay OVL contain POS. + +If OVL strictly contains POS, always return true. If OVL starts or +ends at POS, return true or false based on the value of TYPE, which +should be one of nil, `beg', `end', `none', or `all'. +* If TYPE is nil, return true for an overlay starting at POS only if + it is beg-sticky, and for one ending at POS only if it is end-sticky. +* If TYPE is `beg', return true for any overlay starting at POS but + false for any ending at POS. +* If TYPE is `end', return true for any overlay ending at POS but + false for any starting at POS. +* If TYPE is `all', return true for any overlay starting or ending at POS. +* If TYPE is `none' (or any other value), return false for any + overlay starting or ending at POS." + (let ((beg (overlay-start ovl)) + (end (overlay-end ovl))) + (cond ((and (= beg pos) (= end pos)) + ;; Do the Right Thing for zero-width overlays + (cl-case type + ((nil) (and (overlay-get ovl 'beg-sticky) + (overlay-get ovl 'end-sticky))) + ((none) nil) + (t t))) + ((= beg pos) + (cl-case type + ((nil) (overlay-get ovl 'beg-sticky)) + ((beg all) t) + (t nil))) + ((= end pos) + (cl-case type + ((nil) (overlay-get ovl 'end-sticky)) + ((end all) t) + (t nil))) + ((and (> end pos) (< beg pos)) + t)))) + +;; `mmm-overlays-in' has been retired as altogether too confusing a +;; name, when what is really meant is one of the following three: + +(defun mmm-overlays-containing (start stop) + "Return all MMM overlays containing the region START to STOP. +The overlays are returned in order of decreasing priority. No +attention is paid to stickiness." + (mmm-sort-overlays + (cl-remove-if-not + (lambda (ovl) + (and (overlay-get ovl 'mmm) + (<= (overlay-start ovl) start) + (>= (overlay-end ovl) stop))) + (overlays-in (max start (point-min)) + (min stop (point-max)))))) + +(defun mmm-overlays-contained-in (start stop) + "Return all MMM overlays entirely contained in START to STOP. +The overlays are returned in order of decreasing priority. No +attention is paid to stickiness." + (mmm-sort-overlays + (cl-remove-if-not + (lambda (ovl) + (and (overlay-get ovl 'mmm) + (>= (overlay-start ovl) start) + (<= (overlay-end ovl) stop))) + (overlays-in (max start (point-min)) + (min stop (point-max)))))) + +(defun mmm-overlays-overlapping (start stop) + "Return all MMM overlays overlapping the region START to STOP. +The overlays are returned in order of decreasing priority. No +attention is paid to stickiness." + (mmm-sort-overlays + (cl-remove-if-not + (lambda (ovl) + (overlay-get ovl 'mmm)) + (overlays-in (max start (point-min)) + (min stop (point-max)))))) + +(defun mmm-sort-overlays (overlays) + "Sort OVERLAYS in order of decreasing priority or nesting." + (sort (copy-sequence overlays) + (lambda (x y) + (let ((prio-x (overlay-get x 'priority)) + (prio-y (overlay-get y 'priority))) + (if (or prio-x prio-y) + (> (or prio-x 0) + (or prio-y 0)) + (> (overlay-start x) + (overlay-start y))))))) + +;;}}} +;;{{{ Current Submode + +(defvar mmm-current-overlay nil + "What submode region overlay we think we are currently in. +May be out of date; call `mmm-update-current-submode' to correct it.") +(make-variable-buffer-local 'mmm-current-overlay) + +(defvar mmm-previous-overlay nil + "What submode region overlay we were in just before this one. +Set by `mmm-update-current-submode'.") +(make-variable-buffer-local 'mmm-previous-overlay) + +(defvar mmm-current-submode nil + "What submode we think we are currently in. +May be out of date; call `mmm-update-current-submode' to correct it.") +(make-variable-buffer-local 'mmm-current-submode) + +(defvar mmm-previous-submode nil + "What submode we were in just before this one. +Set by `mmm-update-current-submode'.") +(make-variable-buffer-local 'mmm-previous-submode) + +(defun mmm-update-current-submode (&optional pos) + "Update current and previous position variables to POS, or point. +Return non-nil if the current region changed. + +Also deletes overlays that ought to evaporate because their delimiters +have disappeared." + (mapc #'delete-overlay + (cl-remove-if (lambda (ovl) + (or (not (eq (overlay-get ovl 'mmm-evap) 'front)) + (overlay-buffer (overlay-get ovl 'front)))) + (mmm-overlays-at pos))) + (let ((ovl (mmm-overlay-at pos))) + (if (eq ovl mmm-current-overlay) + nil + (mmm-set-current-pair (if ovl (overlay-get ovl 'mmm-mode)) ovl) + t))) + +(defun mmm-set-current-pair (mode ovl) + "Set the current submode to MODE, the current overlay to OVL +and update the saved previous values." + (setq mmm-previous-overlay mmm-current-overlay + mmm-previous-submode mmm-current-submode) + (setq mmm-current-submode mode + mmm-current-overlay ovl)) + +(defun mmm-submode-at (&optional pos type) + "Return the submode at POS \(or point), or NIL if none. +See `mmm-included-p' for values of TYPE." + (let ((ovl (mmm-overlay-at pos type))) + (if ovl (overlay-get ovl 'mmm-mode)))) + +;;}}} +;;{{{ Delimiter Matching and Boundaries + +(defun mmm-match-front (ovl) + "Return non-nil if the front delimiter of OVL matches as it should. +Sets the match data to the front delimiter, if it is a regexp. +Otherwise, calls it as a function with point at the beginning of the +front delimiter overlay \(i.e. where the front delimiter ought to +start) and one argument being the region overlay. The function should +return non-nil if the front delimiter matches correctly, and set the +match data appropriately." + (let* ((front-ovl (overlay-get ovl 'front)) + (front (if front-ovl (overlay-get front-ovl 'match)))) + (when front + (save-excursion + (goto-char (overlay-start front-ovl)) + (if (stringp front) + ;; It's a regexp + (looking-at front) + ;; It's a function + (funcall front ovl)))))) + +(defun mmm-match-back (ovl) + "Return non-nil if the back delimiter of OVL matches as it should. +Sets the match data to the back delimiter, if it is a regexp. +Otherwise, calls it as a function with point at the beginning of the +back delimiter overlay \(i.e. where the back delimiter ought to start) +and one argument being the region overlay. The function should return +non-nil if the back delimiter matches correctly, and set the match +data appropriately." + (let* ((back-ovl (overlay-get ovl 'back)) + (back (if back-ovl (overlay-get back-ovl 'match)))) + (when back + (save-excursion + (goto-char (overlay-start back-ovl)) + (if (stringp back) + ;; It's a regexp + (looking-at back) + ;; It's a function + (funcall back ovl)))))) + +(defun mmm-front-start (ovl) + "Return the position at which the front delimiter of OVL start." + (let ((front (overlay-get ovl 'front))) + ;; Overlays which have evaporated become "overlays in no buffer" + (if (and front (overlay-buffer front)) + (overlay-start front) + (overlay-start ovl)))) + +(defun mmm-back-end (ovl) + "Return the position at which the back delimiter of OVL ends." + (let ((back (overlay-get ovl 'back))) + ;; Overlays which have evaporated become "overlays in no buffer" + (if (and back (overlay-buffer back)) + (overlay-end back) + (overlay-end ovl)))) + +;;}}} + +;; CREATION & DELETION +;;{{{ Make Submode Regions + +(defun mmm-valid-submode-region (submode beg end) + "Check if the region between BEG and END is valid for SUBMODE. +This region must be entirely contained within zero or more existing +submode regions, none of which start or end inside it, and it must be +a valid child of the highest-priority of those regions, if any. +Signals errors, returns t if no error." + ;; First check if the placement is valid. Every existing region + ;; that overlaps this one must contain it in its entirety. + (let ((violators (cl-set-difference + (mmm-overlays-overlapping beg end) + (mmm-overlays-containing beg end)))) + (if violators + (signal 'mmm-subregion-invalid-placement + violators))) + ;; Now check if it is inside a valid parent + (let ((parent-mode (mmm-submode-at beg 'beg))) + (and parent-mode + ;; TODO: Actually check parents here. For present purposes, + ;; we just make sure we aren't putting a submode inside one + ;; of the same type. Actually, what we should really be + ;; doing is checking classes/names of regions, not just the + ;; submodes. + (eq submode parent-mode) + (signal 'mmm-subregion-invalid-parent + (list parent-mode)))) + t) + +(cl-defun mmm-make-region + (submode beg end &key face + front back (evaporation 'front) + delimiter-mode front-face back-face + display-name + (match-front "") (match-back "") + (beg-sticky t) (end-sticky t) + name creation-hook + ) + "Make a submode region from BEG to END of SUBMODE. + +BEG and END are buffer positions or markers with BEG <= END \(although +see EVAPORATION below). SUBMODE is a major mode function or a valid +argument to `mmm-modename->function'. FACE is a valid display face. + +FRONT and BACK specify the positions of the front and back delimiters +for this region, if any. If FRONT is a buffer position or marker, the +front delimiter runs from it to BEG. FRONT can also be a two-element +list \(FRONT-BEG FRONT-END) specifying the exact position of the front +delimiter. One must have FRONT-BEG < FRONT-END <= BEG. + +Similarly, BACK may be a buffer position or marker, in which case the +back delimiter runs from END to BACK. BACK can also be a two-element +list \(BACK-BEG BACK-END) specifying the exact position, in which case +we must have END <= BACK-BEG < BACK-END. + +EVAPORATION specifies under what conditions this submode region should +disappear. +* If nil, the region never disappears. This can cause serious + problems when using cut-and-paste and is not recommended. +* If the value is t, the region disappears whenever it has zero + length. This is recommended for manually created regions used for + temporary editing convenience. +* If the value is `front', the region will disappear whenever the text + in its front delimiter disappears, that is, whenever the overlay + which marks its front delimiter has zero width. +The default value is `front'. However, if the parameter FRONT is nil, +then this makes no sense, so the default becomes t. Note that if +EVAPORATION is t, then an error is signalled if BEG = END. + +MATCH-FRONT \(resp. MATCH-BACK) is a regexp or function to match the +correct delimiters, see `mmm-match-front' \(resp. `mmm-match-back'). +It is ignored if FRONT \(resp. BACK) is nil. At present these are not +used much. + +DELIMITER-MODE specifies the major mode to use for delimiter regions. +A nil value means they remain in the primary mode. + +FACE, FRONT-FACE, and BACK-FACE, are faces to use for the region, the +front delimiter, and the back delimiter, respectively, under high +decoration \(see `mmm-submode-decoration-level'). + +BEG-STICKY and END-STICKY determine whether the front and back of the +region, respectively, are sticky with respect to new insertion. The +default is yes. + +NAME is a string giving the \"name\" of this submode region. Submode +regions with the same name are considered part of the same code +fragment and formatted accordingly. + +DISPLAY-NAME is a string to display in the mode line when point is in +this submode region. If nil or not given, the name associated with +SUBMODE is used. In delimiter regions, \"--\" is shown. + +CREATION-HOOK should be a function to run after the region is created, +with point at the start of the new region." + ;; Check placement of region and delimiters + (unless (if (eq evaporation t) + (< beg end) + (<= beg end)) + (signal 'mmm-subregion-invalid-placement (list beg end))) + (when front + (unless (listp front) + (setq front (list front beg))) + (unless (and (< (car front) (cadr front)) + (<= (cadr front) beg)) + (signal 'mmm-subregion-invalid-placement front))) + (when back + (unless (listp back) + (setq back (list end back))) + (unless (and (< (car back) (cadr back)) + (<= end (car back))) + (signal 'mmm-subregion-invalid-placement back))) + (setq submode (mmm-modename->function submode)) + ;; Check embedding in existing regions + (mmm-valid-submode-region submode beg end) + (mmm-mode-on) + (when submode + (mmm-update-mode-info submode)) + (and (not front) (eq evaporation 'front) (setq evaporation t)) + (let ((region-ovl + (mmm-make-overlay submode beg end name face beg-sticky end-sticky + (or (eq evaporation t) nil) display-name))) + ;; Save evaporation type for checking later + (overlay-put region-ovl 'mmm-evap evaporation) + ;; Calculate priority to supersede anything already there. + ;; XXX: Actually, don't, in order not to hide the region highlighting. + ;; Let's try omitting the priorities and see if any problems crop up. + ;; (overlay-put region-ovl 'priority (length (mmm-overlays-at beg))) + ;; Make overlays for the delimiters, with appropriate pointers. + (when front + (let ((front-ovl + (mmm-make-overlay delimiter-mode (car front) (cadr front) + nil front-face nil nil t "--" t))) + (overlay-put region-ovl 'front front-ovl) + (overlay-put front-ovl 'region region-ovl) + (overlay-put front-ovl 'match match-front))) + (when back + (let ((back-ovl + (mmm-make-overlay delimiter-mode (car back) (cadr back) + nil back-face nil nil t "--" t))) + (overlay-put region-ovl 'back back-ovl) + (overlay-put back-ovl 'region region-ovl) + (overlay-put back-ovl 'match match-back))) + ;; Update everything and run all the hooks + (mmm-save-all + ;; Can be nil when a zero-width region is immediately evaporated + (when (overlay-start region-ovl) + (goto-char (overlay-start region-ovl))) + (mmm-set-current-pair submode region-ovl) + (mmm-set-local-variables submode region-ovl) + (mmm-run-submode-hook submode) + (when creation-hook + (funcall creation-hook))) + (mmm-update-submode-region) + region-ovl)) + +(defun mmm-make-overlay (submode beg end name face beg-sticky end-sticky evap + &optional display-name delim) + "Internal function to make submode overlays. +Does not handle delimiters. Use `mmm-make-region'." + (let ((ovl (make-overlay beg end nil (not beg-sticky) end-sticky))) + (mapc + (lambda (pair) (overlay-put ovl (car pair) (cadr pair))) + `((mmm t) ; Mark all submode overlays + (mmm-mode ,submode) + ,@(if delim '((delim t)) nil) + (mmm-local-variables + ;; Have to be careful to make new list structure here + ,(cl-list* (list 'font-lock-cache-state nil) + (list 'font-lock-cache-position (make-marker)) + (copy-tree + (cdr (assq submode mmm-region-saved-locals-defaults))))) + (name ,name) + (display-name ,display-name) + ;; Need to save these, because there's no way of accessing an + ;; overlay's official "front-advance" parameter once it's created. + (beg-sticky ,beg-sticky) + (end-sticky ,end-sticky) + ;; These have special meaning to Emacs + (,mmm-evaporate-property ,evap) + (face ,(mmm-get-face face submode delim)) + )) + ovl)) + +(defun mmm-get-face (face submode &optional delim) + (cond ((= mmm-submode-decoration-level 0) nil) + ((and (= mmm-submode-decoration-level 2) face) face) + (delim 'mmm-delimiter-face) + (submode 'mmm-default-submode-face))) + +;;}}} +;;{{{ Clear Overlays + +;; See also `mmm-clear-current-region'. + +(defun mmm-clear-overlays (&optional start stop strict) + "Clears all MMM overlays overlapping START and STOP. +If STRICT, only clear those entirely included in that region." + (mapc #'delete-overlay + (if strict + (mmm-overlays-contained-in (or start (point-min)) + (or stop (point-max))) + (mmm-overlays-overlapping (or start (point-min)) + (or stop (point-max))))) + (mmm-update-submode-region)) + +;;}}} + +;; BASIC UPDATING +;;{{{ Submode Info + +(defun mmm-update-mode-info (mode &optional force) + "Save the global-saved and buffer-saved variables for MODE. +Global saving is done on properties of the symbol MODE and buffer +saving in `mmm-buffer-saved-locals'. This function must be called for +both the dominant mode and all submodes, in each file. Region-saved +variables are initialized from `mmm-region-saved-locals-defaults', +which is set here as well. See `mmm-save-local-variables'. If FORCE +is non-nil, don't quit if the info is already there." + (let ((buffer-entry (assq mode mmm-buffer-saved-locals)) + (region-entry (assq mode mmm-region-saved-locals-defaults)) + global-vars buffer-vars region-vars + ;; http://debbugs.gnu.org/13836 + buffer-file-truename) + (unless (and (not force) + (get mode 'mmm-local-variables) + buffer-entry + region-entry) + (let ((temp-buffer (mmm-make-temp-buffer (current-buffer) + mmm-temp-buffer-name)) + (filename (buffer-file-name)) + (mmm-in-temp-buffer t) + ;; Don't try to use jit-lock, it's automatically disabled + ;; starting with 24.4 anyway. + font-lock-support-mode) + (unwind-protect + (with-current-buffer temp-buffer + ;; Handle stupid modes that need the file name set. + (when (memq mode mmm-set-file-name-for-modes) + (setq buffer-file-name filename)) + (funcall mode) + (when (featurep 'font-lock) + (put mode 'mmm-font-lock-mode font-lock-mode) + (font-lock-set-defaults) + ;; These can't be in the local variables list, because we + ;; replace their actual values, but we want to use their + ;; original values elsewhere. + (put mode 'mmm-fontify-region-function + font-lock-fontify-region-function) + (put mode 'mmm-syntax-propertize-function + (and (boundp 'syntax-propertize-function) + syntax-propertize-function)) + (put mode 'mmm-indent-line-function indent-line-function)) + ;; Get variables + (setq global-vars (mmm-get-locals 'global) + buffer-vars (mmm-get-locals 'buffer) + region-vars (mmm-get-locals 'region)) + (put mode 'mmm-mode-name mode-name)) + (kill-buffer temp-buffer))) + (put mode 'mmm-local-variables global-vars) + (if buffer-entry + (setcdr buffer-entry buffer-vars) + (push (cons mode buffer-vars) mmm-buffer-saved-locals)) + (if region-entry + (setcdr region-entry region-vars) + (push (cons mode region-vars) + mmm-region-saved-locals-defaults))))) + +;;}}} +;;{{{ Updating Hooks + +(defun mmm-update-submode-region () + "Update all MMM properties correctly for the current position. +This function and those it calls do the actual work of setting the +different keymaps, syntax tables, local variables, etc. for submodes." + (when (mmm-update-current-submode) + (mmm-save-changed-local-variables mmm-previous-submode + mmm-previous-overlay) + (let ((new-mode (or mmm-current-submode mmm-primary-mode)) + (old-mode (or mmm-previous-submode mmm-primary-mode))) + (mmm-run-constructed-hook old-mode new-mode) + (mmm-run-constructed-hook old-mode "exit") + (mmm-run-constructed-hook new-mode "enter") + (mmm-update-mode-info new-mode) + (mmm-set-local-variables new-mode mmm-current-overlay) + (mmm-enable-font-lock new-mode)) + (mmm-set-mode-line) + (dolist (func (if mmm-current-overlay + (overlay-get mmm-current-overlay 'entry-hook) + mmm-primary-mode-entry-hook)) + (ignore-errors (funcall func))))) + +(defun mmm-add-hooks () + (if (featurep 'xemacs) + (make-local-hook 'post-command-hook)) + (add-hook 'post-command-hook #'mmm-update-submode-region nil t) + (when mmm-parse-when-idle + (add-hook 'pre-command-hook #'mmm-mode-reset-timer nil t) + (add-hook 'after-change-functions #'mmm-mode-edit nil t))) + +(defun mmm-remove-hooks () + (remove-hook 'post-command-hook #'mmm-update-submode-region t) + (remove-hook 'pre-command-hook #'mmm-mode-reset-timer t) + (remove-hook 'after-change-functions #'mmm-mode-edit t)) + +;;}}} +;;{{{ Local Variables + +(defun mmm-get-local-variables-list (type mode) + "Filter `mmm-save-local-variables' to match TYPE and MODE. +Return a list \(VAR ...). In some cases, VAR will be a cons cell +\(GETTER . SETTER) -- see `mmm-save-local-variables'." + (mmm-mapcan (lambda (element) + (and (if (and (consp element) + (cdr element) + (cadr element)) + (eq (cadr element) type) + (eq type 'global)) + (if (and (consp element) + (cddr element) + (not (eq (nth 2 element) t))) + (if (functionp (nth 2 element)) + (funcall (nth 2 element)) + (member mode (nth 2 element))) + t) + (list (if (consp element) (car element) element)))) + mmm-save-local-variables)) + +(defun mmm-get-locals (type) + "Get the local variables and values for TYPE from this buffer. +Return \((VAR VALUE) ...). In some cases, VAR will be of the form +\(GETTER . SETTER) -- see `mmm-save-local-variables'." + (mmm-mapcan (lambda (var) + (if (consp var) + `((,var ,(funcall (car var)))) + (and (boundp var) + ;; This seems logical, but screws things up. + ;;(local-variable-p var) + `((,var ,(symbol-value var)))))) + (mmm-get-local-variables-list type major-mode))) + +;; FIXME: Has no callers. Used for debugging? +(defun mmm-get-saved-local (mode ovl var) + "Get the value of the local variable VAR saved for MODE and OVL, if any." + (cadr (assq var (mmm-get-saved-local-variables ovl mode)))) + +;; FIXME: It's too easy to accidentally pass nil as MODE here. +;; We probably should call this from `mmm-set-current-pair', and not +;; rely on its callers to default to the primary mode when appropriate. +;; Also, incorporate the opmimization from `mmm-fontify-region-list'. +(defun mmm-set-local-variables (mode ovl) + "Set all the local variables saved for MODE and OVL. +Looks up global, buffer and region saves. When MODE is nil, just +the region ones." + (mapcar (lambda (var) + ;; (car VAR) may be (GETTER . SETTER) + (if (consp (car var)) + (funcall (cdar var) (cadr var)) + (make-local-variable (car var)) + (set (car var) (cadr var)))) + (mmm-get-saved-local-variables mode ovl))) + +;; Used for debugging. +(defun mmm-diff-local-variables (mode ovl) + (let (res) + (mapc (lambda (var) + (let ((current-value (if (consp (car var)) + (funcall (caar var)) + (symbol-value (car var))))) + (unless (equal current-value (cadr var)) + (push + (message "var: %s, current: %s, saved: %s" (car var) + current-value (cadr var)) + res)))) + (mmm-get-saved-local-variables mode ovl)) + res)) + +(defun mmm-get-saved-local-variables (mode ovl) + (append (get mode 'mmm-local-variables) + (cdr (assq mode mmm-buffer-saved-locals)) + (if ovl + (overlay-get ovl 'mmm-local-variables) + mmm-region-saved-locals-for-dominant))) + +(defun mmm-save-changed-local-variables (mode ovl) + "Save by-buffer and by-region variables for MODE and OVL. +Called when we move to a new submode region, with MODE and OVL the +region and mode for the previous position." + (let ((buffer-vars (cdr (assq (or mode mmm-primary-mode) + mmm-buffer-saved-locals))) + (region-vars (if ovl + (overlay-get ovl 'mmm-local-variables) + mmm-region-saved-locals-for-dominant)) + (set-local-value + (lambda (var) + (setcar (cdr var) + ;; (car VAR) may be (GETTER . SETTER) + (if (consp (car var)) + (funcall (caar var)) + (symbol-value (car var))))))) + (mapc set-local-value buffer-vars) + (mapc set-local-value region-vars))) + +(defun mmm-clear-local-variables () + "Clear all buffer- and region-saved variables for current buffer." + (setq mmm-buffer-saved-locals () + mmm-region-saved-locals-defaults () + mmm-region-saved-locals-for-dominant ())) + +;;}}} + +;; FONT LOCK +;;{{{ Enable Font Lock + +(defun mmm-enable-font-lock (mode) + "Turn on font lock if it is not already on and MODE enables it." + (mmm-update-mode-info mode) + (and (not font-lock-mode) + (get mode 'mmm-font-lock-mode) + (font-lock-mode 1))) + +(defun mmm-update-font-lock-buffer () + "Turn on font lock if any mode in the buffer enables it." + (if (cl-some (lambda (mode) + (get mode 'mmm-font-lock-mode)) + (cons mmm-primary-mode + (mapcar (lambda (ovl) + (overlay-get ovl 'mmm-mode)) + (mmm-overlays-overlapping + (point-min) (point-max))))) + (font-lock-mode 1) + (font-lock-mode 0))) + +;; FIXME: Most uses of this function happen when the buffer is parsed +;; into regions manually. That should go away after +;; syntax-propertize-function does this. +(defun mmm-refontify-maybe (&optional start stop) + "Re-fontify from START to STOP, or entire buffer, if enabled." + (when font-lock-mode + (if (fboundp 'font-lock-flush) + (font-lock-flush start stop) + (if (or start stop) + (font-lock-fontify-region (or start (point-min)) + (or stop (point-max))) + (with-no-warnings (font-lock-fontify-buffer)))))) + +;;}}} +;;{{{ Get Submode Regions + +;; In theory, these are general functions that have nothing to do +;; with font-lock, but they aren't used anywhere else, so we might as +;; well have them close. + +(defun mmm-submode-changes-in (start stop) + "Return a list of all submode-change positions from START to STOP. +The list is sorted in order of increasing buffer position." + (let ((changes (sort (cl-remove-duplicates + (mmm-mapcan (lambda (ovl) + `(,(overlay-start ovl) + ,(overlay-end ovl))) + (mmm-overlays-overlapping start stop))) + #'<))) + (when (or (not changes) (< start (car changes))) + (push start changes)) + (let ((last (last changes))) + (when (> stop (car last)) + (setcdr last (list stop)))) + changes)) + +(defun mmm-regions-in (start stop) + "Return a list of regions of the form (MODE BEG END OVL) whose disjoint +union covers the region from START to STOP, including delimiters." + (when (> stop start) + (let ((regions + (cl-maplist (lambda (pos-list) + (when (cdr pos-list) + (let ((ovl (mmm-overlay-at (car pos-list) 'beg))) + (list (if ovl + (overlay-get ovl 'mmm-mode) + mmm-primary-mode) + (car pos-list) (cadr pos-list) + ovl)))) + (mmm-submode-changes-in start stop)))) + (setcdr (last regions 2) nil) + regions))) + +(defun mmm-regions-alist (start stop) + "Return a list of lists of the form \(MODE . REGIONS) where REGIONS +is a list of elements of the form \(BEG END OVL). The disjoint union all +of the REGIONS covers START to STOP." + (let ((regions (mmm-regions-in start stop)) + alist) + (mapc (lambda (region) + (let* ((mode (car region)) + (elem (cdr region)) + (kv (assoc mode alist))) + (if kv + (push elem (cdr kv)) + (push (cons mode (list elem)) alist)))) + regions) + (mapcar (lambda (kv) + (cons (car kv) (nreverse (cdr kv)))) + alist))) + +;;}}} +;;{{{ Fontify Regions + +(defun mmm-fontify-region (start stop &optional loudly) + "Fontify from START to STOP keeping track of submodes correctly." + (let ((saved-mode mmm-current-submode) + (saved-ovl mmm-current-overlay)) + (unwind-protect + (progn + (when loudly + (message "Fontifying %s with submode regions..." (buffer-name))) + ;; Necessary to catch changes in font-lock cache state and position. + (mmm-save-changed-local-variables + mmm-current-submode mmm-current-overlay) + (mapc (lambda (elt) + (when (get (car elt) 'mmm-font-lock-mode) + (mmm-fontify-region-list (car elt) (cdr elt) + start stop))) + (mmm-regions-alist start stop))) + ;; `post-command-hook' contains `mmm-update-submode-region', + ;; but jit-lock runs later, so we need to restore local vars now. + (mmm-set-current-pair saved-mode saved-ovl) + (mmm-set-local-variables (or saved-mode mmm-primary-mode) saved-ovl))) + (when loudly (message nil))) + +(defvar syntax-ppss-cache) +(defvar syntax-ppss-last) + +(defun mmm-fontify-region-list (mode regions start stop) + "Fontify REGIONS, each like (BEG END), in mode MODE. +START and STOP are the boundaries of the area to fontify." + (save-excursion + (let ((func (get mode 'mmm-fontify-region-function)) + font-lock-extend-region-functions) + (mapc (lambda (reg) + (cl-destructuring-bind (beg end ovl) reg + (goto-char beg) + ;; Here we do the same sort of thing that + ;; `mmm-update-submode-region' does, but we force it + ;; to use a specific mode, and don't save anything, + ;; fontify, or change the mode line. + (mmm-set-current-pair mode ovl) + (mmm-set-local-variables (unless (eq mmm-previous-submode mode) + mode) + mmm-current-overlay) + (save-restriction + (let ((font-lock-dont-widen t) + ;; FIXME: Messing with syntax-ppss-* vars should not + ;; be needed any more in Emacs≥26. + syntax-ppss-last syntax-ppss-cache) + ;; TODO: Remove this conditional when cc-mode + ;; respects submode boundaries. + (when (and ovl (not (memq mode mmm-c-derived-modes))) + (narrow-to-region beg end)) + (funcall func + (max beg start) + (min end stop) + nil))) + ;; Catch changes in font-lock cache. + (mmm-save-changed-local-variables + mmm-current-submode mmm-current-overlay))) + regions)))) + +;;}}} +;;{{{ Syntax + +(defvar mmm-after-syntax-propertize-functions nil + "List of functions to call after applying `syntax-table' text +properties to a submode region. It is passed four arguments: the +region overlay, the submode and the bounds of the region.") + +(defun mmm-syntax-propertize-function (start stop) + "Composite function that applies `syntax-table' text properties. +It iterates over all submode regions between START and STOP and +calls each respective submode's `syntax-propertize-function'." + (let ((saved-mode mmm-current-submode) + (saved-ovl mmm-current-overlay)) + (mmm-save-changed-local-variables + mmm-current-submode mmm-current-overlay) + (unwind-protect + (mapc (lambda (elt) + (let* ((mode (car elt)) + (func (get mode 'mmm-syntax-propertize-function)) + (beg (cadr elt)) (end (nth 2 elt)) + (ovl (nth 3 elt)) + ;; FIXME: Messing with syntax-ppss-* vars should not + ;; be needed any more in Emacs≥26. + syntax-ppss-cache + syntax-ppss-last) + (goto-char beg) + (mmm-set-current-pair mode ovl) + (mmm-set-local-variables mode mmm-current-overlay) + (save-restriction + (when mmm-current-overlay + (narrow-to-region (overlay-start mmm-current-overlay) + (overlay-end mmm-current-overlay))) + (cond + (func + (funcall func beg end)) + ((bound-and-true-p font-lock-syntactic-keywords) + (let ((syntax-propertize-function nil)) + (font-lock-fontify-syntactic-keywords-region beg end)))) + (run-hook-with-args 'mmm-after-syntax-propertize-functions + mmm-current-overlay mode beg end)))) + (mmm-regions-in start stop)) + (mmm-set-current-pair saved-mode saved-ovl) + (mmm-set-local-variables (or saved-mode mmm-primary-mode) saved-ovl)))) + +;;}}} +;;{{{ Indentation + +(defvar mmm-indent-line-function #'mmm-indent-line + "The function to call to indent a line. +This will be the value of `indent-line-function' for the whole +buffer. It's supposed to delegate to the appropriate submode's +indentation function. See `mmm-indent-line' as the starting point.") + +(defun mmm-indent-line-narrowed () + "An indent function which works on some modes where `mmm-indent-line' doesn't. +Works like `mmm-indent-line', but narrows the buffer before indenting to +appease modes which rely on constructs like (point-min) to indent." + (interactive) + (save-excursion + (back-to-indentation) + (mmm-update-submode-region) + (let ((indent-function (get + (if (and mmm-current-overlay + (> (overlay-end mmm-current-overlay) (point))) + mmm-current-submode + mmm-primary-mode) + 'mmm-indent-line-function))) + (if mmm-current-overlay + (save-restriction + (narrow-to-region (overlay-start mmm-current-overlay) + (overlay-end mmm-current-overlay)) + (funcall indent-function)) + (funcall indent-function))))) + +(defun mmm-indent-line () + (interactive) + (funcall + (save-excursion + (back-to-indentation) + (mmm-update-submode-region) + (get + (if (and mmm-current-overlay + (> (overlay-end mmm-current-overlay) (point))) + mmm-current-submode + mmm-primary-mode) + 'mmm-indent-line-function)))) + +;;}}} +(provide 'mmm-region) + +;;; mmm-region.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-rpm.el b/elpa/mmm-mode-0.5.11/mmm-rpm.el new file mode 100644 index 0000000..aa0fc1e --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-rpm.el @@ -0,0 +1,80 @@ +;;; mmm-rpm.el --- MMM submode class for RPM spec files -*- lexical-binding: t; -*- + +;; Copyright (C) 2000 by Marcus Harnisch + +;; Author: Marcus Harnisch + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains the definition of an MMM Mode submode class for +;; editing shell script sections within RPM (Redhat Package Manager) +;; spec files. I recommend to use it in combination with +;; rpm-spec-mode.el by Stig Bjrlykke and Steve +;; Sanbeg (https://github.com/stigbjorlykke/rpm-spec-mode) + +;;; Installation: + +;; 1. Copy this file where Emacs can find it. +;; +;; 2. Add the following lines to one of your startup files (e.g. ~/.emacs): +;; +;; (add-to-list 'mmm-mode-ext-classes-alist +;; '(rpm-spec-mode "\\.spec\\'" rpm-sh)) + +;;; Code: + +(require 'mmm-auto) + +(defconst mmm-rpm-sh-start-tags + '("prep" "build" "install" "clean" "preun" "postun" "pre" + "post" "triggerin" "triggerun" "triggerpostun") + "List containing RPM tags that start a shell-script section in a spec file.") + +(defvar mmm-rpm-sh-end-tags + (append '("files" "description" "package") mmm-rpm-sh-start-tags) + "List containing RPM tags that end a shell-script section in a spec file.") + +(defvar mmm-rpm-sh-start-regexp + (concat "^%" (mmm-regexp-opt mmm-rpm-sh-start-tags t) "\\b.*$") + "Regexp matching RPM tags that start a shell-script section in a spec file.") + +(defvar mmm-rpm-sh-end-regexp + (concat "\\'\\|^%" (mmm-regexp-opt mmm-rpm-sh-end-tags t) "\\b.*$") + "Regexp matching RPM tags that end a shell-script section in a spec file.") + +(mmm-add-group + 'rpm + `((rpm-sh + :submode sh-mode + :face mmm-code-submode-face + ;; match tags that starts sh-script region + :front ,mmm-rpm-sh-start-regexp + ;; match end of buffer or next tag that ends sh-script region + :back ,mmm-rpm-sh-end-regexp + :front-offset 1 + :back-offset 0 + :save-matches 0 + ))) + +(provide 'mmm-rpm) + +;;; mmm-rpm.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-sample.el b/elpa/mmm-mode-0.5.11/mmm-sample.el new file mode 100644 index 0000000..d6cb2d9 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-sample.el @@ -0,0 +1,440 @@ +;;; mmm-sample.el --- Sample MMM submode classes -*- lexical-binding: t; -*- + +;; Copyright (C) 2000-2004, 2012-2015, 2018, 2022 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file contains several sample submode classes for use with MMM +;; Mode. For a more detailed, advanced example, see `mmm-mason.el'. + +;; In order to use any of classes defined here, just require `mmm-auto' and +;; add the respective (major mode -> class <- file extension) associations +;; with `mmm-add-mode-ext-class'. + +;;; Code: + +(require 'cl-lib) +(require 'mmm-auto) +(require 'mmm-vars) + +;;{{{ in httpd.conf + +;; This is the simplest example. Many applications will need no more +;; than a simple regexp. +;; +;; Usage: (mmm-add-mode-ext-class 'apache-generic-mode nil 'httpd-conf-perl) + +(mmm-add-classes + '((httpd-conf-perl + :submode perl + :delimiter-mode nil + :front "" + :back ""))) + +;;}}} +;;{{{ JavaScript in HTML + +;; We use two classes here, both for code in a ") + (js-script + :submode js-mode + :face mmm-code-submode-face + :front "]*>[ \t]*\n?" + :back "[ \t]*" + :insert ((?j js-tag nil @ "" @))))) + +;;}}} +;;{{{ CSS in HTML + +(mmm-add-group + 'html-css + '((css-cdata + :submode css + :face mmm-code-submode-face + :front "]*>[ \t\n]*\\(//\\)?[ \t\n]*") + (css + :submode css + :face mmm-code-submode-face + :front "]*>[ \t]*\n?" + :back "[ \t]*" + :insert ((?c css-tag nil @ "" @))))) + +;;}}} +;;{{{ Here-documents + +;; Here we match the here-document syntax used by Perl and shell +;; scripts. We try to be automagic about recognizing what mode the +;; here-document should be in. To make sure that it is recognized +;; correctly, the name of the mode, perhaps minus `-mode', in upper +;; case, and/or with hyphens converted to underscores, should be +;; separated from the rest of the here-document name by hyphens or +;; underscores. + +(defvar mmm-here-doc-mode-alist '() + "Alist associating here-document name regexps to submodes. +Normally, this variable is unnecessary, as the `here-doc' submode +class tries to automagically recognize the right submode. If you use +here-document names that it doesn't recognize, however, then you can +add elements to this alist. Each element is \(REGEXP . MODE) where +REGEXP is a regular expression matched against the here-document name +and MODE is a major mode function symbol.") + +(defun mmm-get-lang-mode (string regex group) + "Find a suitable submode for STRING. +If REGEX matches STRING, The matching is based on the match +GROUP. + +The following ways to find a matching submode are tried in order: + +* Search `mmm-here-doc-mode-alist' for a mode. +* Try the whole name, stopping at `mode' if present. +* Try each word by itself (preference list) +* Try each word with -mode tacked on +* Try each pair of words with -mode tacked on + (w1 w2 w3) -> (w1w2-mode w2w3-mode w3-mode)" + (string-match regex string) + (setq string (match-string group string)) + (or (mmm-ensure-modename + ;; First try the user override variable. + (cl-some (lambda (pair) + (if (string-match (car pair) string) (cdr pair) nil)) + mmm-here-doc-mode-alist)) + (let ((words (split-string (downcase string) "[_-]+"))) + (or (mmm-ensure-modename + ;; Try the whole name, stopping at "mode" if present. + (intern + (mapconcat #'identity + (nconc (cl-ldiff words (member "mode" words)) + (list "mode")) + "-"))) + ;; Try each word by itself (preference list) + (cl-some (lambda (word) + (mmm-ensure-modename (intern word))) + words) + ;; Try each word with -mode tacked on + (cl-some (lambda (word) + (mmm-ensure-modename + (intern (concat word "-mode")))) + words) + ;; Try each pair of words with -mode tacked on + (cl-loop for (one two) on words + if (mmm-ensure-modename + (intern (concat one two "-mode"))) + return it) + ;; I'm unaware of any modes whose names, minus `-mode', + ;; are more than two words long, and if the entire mode + ;; name (perhaps minus `-mode') doesn't occur in the + ;; here-document name, we can give up. + (signal 'mmm-no-matching-submode nil))))) + +(defun mmm-here-doc-get-mode (string) + "Find a submode for STRING. +First match of [a-zA-Z_-]+ is used as the submode marker." + (mmm-get-lang-mode string "\\([a-zA-Z_-]+\\)" 1)) + +(mmm-add-classes + '((here-doc + :front "<<[\"\'\`]?\\([a-zA-Z0-9_-]+\\)" + :front-offset (end-of-line 1) + :back "^~1$" + :save-matches 1 + :delimiter-mode nil + :match-submode mmm-here-doc-get-mode + :insert ((?d here-doc "Here-document Name: " @ "<<" str _ "\n" + @ "\n" @ str "\n" @)) + ))) + +(defun mmm-sh-here-doc-get-mode (front-string) + "Find the mode for a shell here-doc starting with FRONT-STRING. +The matching is based on the word used as the here-document +delimiter, the word following <<. +Use `mmm-get-lang-mode' to find the submode." + (mmm-get-lang-mode front-string "<<-?\\(['\"]?\\)\\([-a-zA-Z0-9_]+\\)\\1" 2)) + +;; HEREDOC for shell scripts following the POSIX definition. It is +;; defined in two private classes that are then grouped into the class +;; sh-here-doc +;; Define some regex-parts that are reused a lot. +;; START is the '<<' sequence +(let ((start '(sequence (or line-start (not "<")) "<<")) + ;; DELIM is supposed to be a WORD, which is a complicated definition. + ;; It may be quoted with ', ", or ` + (delim '(sequence (group-n 2 (optional (any ?' ?\" ?`))) + (group-n 1 + (char "_a-zA-Z0-9") + (one-or-more (char "-" "_a-zA-Z0-9"))) + (backref 2))) + (common-props '(:front-offset (end-of-line 1) + :save-matches t + :delimiter-mode nil + :match-submode mmm-sh-here-doc-get-mode))) + (mmm-add-group + 'sh-here-doc + `((sh-here-doc-unindented + :front ,(rx-to-string `(sequence ,start ,delim)) + :back ,(rx line-start "~1" line-end) + ,@common-props + :insert ((?d here-doc "Here-document Name: " @ "<<" str _ "\n" + @ "\n" @ str "\n" @))) + (sh-here-doc-indented + :front ,(rx-to-string `(sequence ,start "-" ,delim)) + :back ,(rx line-start (zero-or-more "\t") "~1" line-end) + ,@common-props + :insert ((?D here-doc "Here-document Name: " @ "<<-" str _ "\n" + @ "\n" @ str "\n" @)))))) + +;;}}} +;;{{{ Embperl + +(mmm-add-group + 'embperl + '((embperl-perl + :submode perl + :front "\\[\\([-\\+!\\*\\$]\\)" + :back "~1\\]" + :save-matches 1 + :match-name "embperl" + :match-face (("[+" . mmm-output-submode-face) + ("[-" . mmm-code-submode-face) + ("[!" . mmm-init-submode-face) + ("[*" . mmm-code-submode-face) + ("[$" . mmm-special-submode-face)) + :insert ((?p embperl "Region Type (Character): " @ "[" str + @ " " _ " " @ str "]" @) + (?+ embperl+ ?p . "+") + (?- embperl- ?p . "-") + (?! embperl! ?p . "!") + (?* embperl* ?p . "*") + (?$ embperl$ ?p . "$") + ) + ) + (embperl-comment + :submode text-mode + :face mmm-comment-submode-face + :front "\\[#" + :back "#\\]" + :insert ((?# embperl-comment nil @ "[#" @ " " _ " " @ "#]" @)) + ))) + +;;}}} +;;{{{ ePerl + +(mmm-add-group + 'eperl + '((eperl-expr + :submode perl + :face mmm-output-submode-face + :front "<:=" + :back ":>" + :insert ((?= eperl-expr nil @ "<:=" @ " " _ " " @ ":>" @))) + (eperl-code + :submode perl + :face mmm-code-submode-face + :front "<:" + :back "_?:>" + :match-name "eperl" + :insert ((?p eperl-code nil @ "<:" @ " " _ " " @ ":>" @) + (?: eperl-code ?p . nil) + (?_ eperl-code_ nil @ "<:" @ " " _ " " @ "_:>" @))) + (eperl-comment + :submode text + :face mmm-comment-submode-face + :front ":>//" + :back "\n") + )) + +;;}}} +;;{{{ File Variables + +;; This submode class puts file local variable values, specified with +;; a `Local Variables:' line as in (emacs)File Variables, into Emacs +;; Lisp Mode. It is a good candidate to put in `mmm-global-classes'. + +(defun mmm-file-variables-verify () + ;; It would be nice to cache this somehow, which could be done in a + ;; buffer-local variable with markers for positions, but the trick + ;; is knowing when to expire the cache. + (let ((bounds + (save-excursion + (save-match-data + (goto-char (point-max)) + (backward-page) + (and (re-search-forward "^\\(.*\\)Local Variables:" nil t) + (list (match-string 1) + (progn (end-of-line) (point)) + (and (search-forward + (format "%sEnd:" (match-string 1)) + nil t) + (progn (beginning-of-line) + (point))))))))) + (and bounds (caddr bounds) + (save-match-data + (string-match (format "^%s" (regexp-quote (car bounds))) + (match-string 0))) + (> (match-beginning 0) (cadr bounds)) + (< (match-end 0) (caddr bounds))))) + +(defun mmm-file-variables-find-back (bound) + (forward-sexp) + (if (> (point) bound) + nil + (looking-at ""))) + +(mmm-add-classes + '((file-variables + :front ".+:" + :front-verify mmm-file-variables-verify + :back mmm-file-variables-find-back + :submode emacs-lisp-mode + :delimiter-mode nil + ))) + +;;}}} +;;{{{ JSP Pages + +(mmm-add-group 'jsp + `((jsp-comment + :submode text-mode + :face mmm-comment-submode-face + :front "<%--" + :back "--%>" + :insert ((?- jsp-comment nil @ "<%--" @ " " _ " " @ "--%>" @)) + ) + (jsp-code + :submode java + :match-face (("<%!" . mmm-declaration-submode-face) + ("<%=" . mmm-output-submode-face) + ("<%" . mmm-code-submode-face)) + :front "<%[!=]?" + :back "%>" + :match-name "jsp" + :insert ((?% jsp-code nil @ "<%" @ " " _ " " @ "%>" @) + (?! jsp-declaration nil @ "<%!" @ " " _ " " @ "%>" @) + (?= jsp-expression nil @ "<%=" @ " " _ " " @ "%>" @)) + ) + (jsp-directive + :submode text-mode + :face mmm-special-submode-face + :front "<%@" + :back "%>" + :insert ((?@ jsp-directive nil @ "<%@" @ " " _ " " @ "%>" @)) + ))) + +;;}}} +;;{{{ SGML DTD + +;; Thanks to Yann Dirson for writing and +;; contributing this submode class. + +(mmm-add-classes + '((sgml-dtd + :submode dtd-mode + :face mmm-declaration-submode-face + :delimiter-mode nil + :front "[]*\\[" + :back "]>"))) + +;;}}} +;;{{{ PHP in HTML + +(mmm-add-group 'html-php + '((html-php-output + :submode php-mode + :face mmm-output-submode-face + :front "<\\?php *echo " + :back "\\(\\?>\\|\\'\\)" + :include-front t + :front-offset 5 + :insert ((?e php-echo nil @ "" @)) + ) + (html-php-code + :submode php-mode + :face mmm-code-submode-face + :front "<\\?\\(php\\)?" + :back "\\(\\?>\\|\\'\\)" + :insert ((?p php-section nil @ "" @) + (?b php-block nil @ "" @)) + ))) + +;;}}} + +;; NOT YET UPDATED +;;{{{ HTML in PL/SQL;-COM- +;-COM- +;-COM-;; This one is the most complex example. In PL/SQL, HTML is generally +;-COM-;; output as a (single quote delimited) string inside a call to htp.p or +;-COM-;; its brethren. The problem is that there may be strings outside of +;-COM-;; htp.p calls that should not be HTML, so we need to only look inside +;-COM-;; these calls. The situation is complicated by PL/SQL's rule that two +;-COM-;; sequential single quotes in a string mean to put a single quote +;-COM-;; inside the string. +;-COM- +;-COM-;; These functions have not been thoroughly tested, and always search +;-COM-;; the entire buffer, ignoring START and END. +;-COM- +;-COM-(defun mmm-html-in-plsql (start end) +;-COM- (save-match-data +;-COM- (let ((case-fold-search t)) +;-COM- (and (re-search-forward "htp.p\\(\\|rn\\|rint\\)1?(" nil t) +;-COM- (mmm-html-in-plsql-in-htp +;-COM- ;; Find the end of the procedure call +;-COM- (save-excursion (forward-char -1) (forward-sexp) (point)) +;-COM- start end))))) +;-COM- +;-COM-(defun mmm-html-in-plsql-in-htp (htp-end start end) +;-COM- (let (beg end) +;-COM- (or (and (re-search-forward "'" htp-end 'limit) +;-COM- (setf beg (match-end 0)) +;-COM- ;; Find an odd number of 's to end the string. +;-COM- (do ((lgth 0 (length (match-string 0)))) +;-COM- ((oddp lgth) t) +;-COM- (re-search-forward "'+" nil t)) +;-COM- (setf end (1- (match-end 0))) +;-COM- (cons (cons beg end) +;-COM- (mmm-html-in-plsql-in-htp htp-end start end))) +;-COM- ;; No more strings in the procedure call; look for another. +;-COM- (and (eql (point) htp-end) +;-COM- (mmm-html-in-plsql start end))))) +;-COM- +;-COM-(add-to-list 'mmm-classes-alist +;-COM- '(htp-p (:function html-mode mmm-html-in-plsql))) +;-COM- +;;}}} + +(provide 'mmm-sample) + +;;; mmm-sample.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-univ.el b/elpa/mmm-mode-0.5.11/mmm-univ.el new file mode 100644 index 0000000..03c6183 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-univ.el @@ -0,0 +1,64 @@ +;;; mmm-univ.el --- The "Universal" Submode Class -*- lexical-binding: t; -*- + +;; Copyright (C) 2000, 2001, 2013 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file defines the "universal" submode class, the default value +;; of `mmm-global-classes', which specifies a standard way to indicate +;; that part of a buffer should be in a different mode--for example, +;; in an email message. + +;;; Code: + +(require 'mmm-auto) +(require 'mmm-vars) + +(defun mmm-univ-get-mode (string) + (string-match "[a-zA-Z-]+" string) + (setq string (match-string 0 string)) + (let ((modestr (intern (if (string-match "mode\\'" string) + string + (concat string "-mode"))))) + (or (mmm-ensure-modename modestr) + (signal 'mmm-no-matching-submode nil)))) + +(mmm-add-classes + `((universal + :front "{%\\([a-zA-Z-]+\\)%}" + :back "{%/~1%}" + :insert ((?/ universal "Submode: " @ "{%" str "%}" @ "\n" _ "\n" + @ "{%/" str "%}" @)) + :match-submode mmm-univ-get-mode + :save-matches 1 + ))) + +(provide 'mmm-univ) + + +;;; Local Variables: +;;; mmm-global-classes: nil +;;; End: + +;;; mmm-univ.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-utils.el b/elpa/mmm-mode-0.5.11/mmm-utils.el new file mode 100644 index 0000000..8014fa0 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-utils.el @@ -0,0 +1,162 @@ +;;; mmm-utils.el --- Coding Utilities for MMM Mode -*- lexical-binding: t; -*- + +;; Copyright (C) 2000-2003, 2011-2013, 2020 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file provides a number of macros and other coding utilities +;; for MMM Mode. + +;;; Code: + +;;{{{ Valid Buffer + +;; We used to wrap almost everything in this, but I realized that +;; only `mmm-mode-on' really needs it. Kept it as a macro, though, +;; for modularity and in case we need it somewhere else. +(defmacro mmm-valid-buffer (&rest body) + "Execute BODY if in a valid buffer for MMM Mode to be enabled. This +means not hidden, not a minibuffer, not in batch mode, and not in of +`mmm-never-modes'." + `(unless (or (eq (aref (buffer-name) 0) ?\ ) + (window-minibuffer-p (selected-window)) + (memq major-mode mmm-never-modes) + noninteractive + mmm-in-temp-buffer) + ,@body)) + +;;;(def-edebug-spec mmm-valid-buffer t) + +;;}}} +;;{{{ Save Everything + +;; Never trust callback functions to preserve anything. +(defmacro mmm-save-all (&rest body) + "Execute BODY forms, then restoring point, mark, current buffer, +restrictions, and match data." + (declare (indent 1) (debug t)) + `(save-excursion + (save-restriction + (save-match-data + ,@body)))) + +;;;(def-edebug-spec mmm-save-all t) + +;;}}} +;;{{{ String Formatting + +(defun mmm-format-string (string arg-pairs) + "Format STRING by replacing arguments as specified by ARG-PAIRS. +Each element of ARG-PAIRS is \(REGEXP . STR) where each STR is to be +substituted for the corresponding REGEXP wherever it matches." + (let ((case-fold-search nil)) + (save-match-data + (dolist (pair arg-pairs) + (while (string-match (car pair) string) + (setq string (replace-match + (if (fboundp 'format-mode-line) + (format-mode-line (cdr pair)) + (cdr pair)) + t t string)))))) + string) + +(defun mmm-format-matches (string &optional on-string) + "Format STRING by matches from the current match data. +Strings like ~N are replaced by the Nth subexpression from the last +global match. Does nothing if STRING is not a string. + +ON-STRING, if supplied, means to use the match data from a +`string-match' on that string, rather than the global match data." + (when (stringp string) + (let ((old-data (match-data)) + subexp) + (save-match-data + (while (string-match "~\\([0-9]\\)" string) + (setq subexp (string-to-number (match-string-no-properties 1 string)) + string (replace-match + (save-match-data + (set-match-data old-data) + (match-string-no-properties subexp on-string)) + t t string)))))) + string) + +;;}}} +;;{{{ Save Keywords + +(defmacro mmm-save-keyword (param) + "Return the list (:PARAM (symbol-value PARAM)) if PARAM is non-nil. +Return nil if PARAM is not a variable (lexical or dynamic) or has the +value nil. Best used only when it is important that nil values +disappear." + ;; Would be nice to use `ignore-error' here, but that wasn't + ;; introduced until Emacs 27.1. This condition-case does the same thing. + `(condition-case nil + (if ,param (list ,(intern (format ":%s" param)) ,param)) + ((void-variable ,param) nil))) + + +(defmacro mmm-save-keywords (&rest params) + "Return a list saving the non-nil elements of PARAMS. +For instance + \(let \(\(a 1) \(c 2) (d 3)) \(mmm-save-keywords a b c)) => \(:a 1 :c 2). +Use of this macro can make code more readable when there are a lot of +PARAMS, but less readable when there are only a few. Also best used +only when it is important that nil values disappear." + `(append ,@(mapcar (lambda (param) `(mmm-save-keyword ,param)) params))) + + +;;}}} +;;{{{ Looking Back At + +(defun mmm-looking-back-at (regexp &optional bound) + "Return t if text before point matches REGEXP. +Modifies the match data. If supplied, BOUND means not to look farther +back that that many characters before point. Otherwise, it defaults to +\(length REGEXP), which is good enough when REGEXP is a simple +string." + (eq (point) + (save-excursion + (and (re-search-backward regexp + (- (point) (or bound (length regexp))) + t) + (match-end 0))))) + +;;}}} +;;{{{ Markers + +;; Mostly for remembering interactively made regions +(defun mmm-make-marker (pos beg-p sticky-p) + "Make, and return, a marker at POS that is or isn't sticky. +BEG-P represents whether the marker delimits the beginning of a +region \(or the end of it). STICKY-P is whether it should be sticky, +i.e. whether text inserted at the marker should be inside the region." + (let ((mkr (set-marker (make-marker) pos))) + (set-marker-insertion-type mkr (if beg-p (not sticky-p) sticky-p)) + mkr)) + +;;}}} + +(provide 'mmm-utils) + +;;; mmm-utils.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm-vars.el b/elpa/mmm-mode-0.5.11/mmm-vars.el new file mode 100644 index 0000000..7d955fd --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm-vars.el @@ -0,0 +1,1148 @@ +;;; mmm-vars.el --- Variables for MMM Mode -*- lexical-binding: t; -*- + +;; Copyright (C) 2000-2004, 2011-2015, 2018-2020 Free Software Foundation, Inc. + +;; Author: Michael Abraham Shulman + +;;{{{ GPL + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;}}} + +;;; Commentary: + +;; This file provides the definitions for the variables used by MMM +;; Mode, as well as several functions to manipulate them. It also +;; defines the errors that MMM Mode can signal. + +;;; Code: + +(require 'mmm-compat) +(require 'mmm-utils) +(require 'cl-lib) + +;; MISCELLANEOUS +;;{{{ Shut up the Byte Compiler + +;; Otherwise it complains about undefined variables. +(defvar mmm-current-submode) +(defvar mmm-save-local-variables) +(defvar mmm-mode-string) +(defvar mmm-submode-mode-line-format) +(defvar mmm-mode-ext-classes-alist) +(defvar mmm-mode-prefix-key) +(defvar mmm-global-mode) +(defvar mmm-primary-mode) +(defvar mmm-classes-alist) +(defvar mmm-current-overlay) +(declare-function mmm-apply-all "mmm-class") +(declare-function mmm-set-class-parameter "mmm-class" (class param value)) +(declare-function mmm-get-class-parameter "mmm-class" (class param)) + +;;}}} +;;{{{ Error Conditions + +;; Most of these should be caught internally and never seen by the +;; user, except when the user is creating submode regions manually. + +;; Signalled when we try to put a submode region inside one where it +;; isn't meant to go. +(put 'mmm-subregion-invalid-parent + 'error-conditions + '(mmm-subregion-invalid-parent mmm-error error)) +(put 'mmm-subregion-invalid-parent + 'error-message + "Invalid submode region parent") + +;; Signalled when we try to put a submode region overlapping others in +;; an invalid way. +(put 'mmm-subregion-invalid-placement + 'error-conditions + '(mmm-subregion-invalid-placement mmm-error error)) +(put 'mmm-subregion-invalid-placement + 'error-message + "Submode region placement invalid") + +;; Signalled when we try to apply a submode class that doesn't exist. +(put 'mmm-invalid-submode-class + 'error-conditions + '(mmm-invalid-submode-class mmm-error error)) +(put 'mmm-invalid-submode-class + 'error-message + "Invalid or undefined submode class") + +;; Signalled by :match-submode functions when they are unable to +;; resolve a submode. This error should *always* be caught internally +;; and never seen by the user. +(put 'mmm-no-matching-submode + 'error-conditions + '(mmm-no-matching-submode mmm-error error)) +(put 'mmm-no-matching-submode + 'error-message + "Internal error: no matching submode.") + +;;}}} + +;; USER VARIABLES +;;{{{ Customization Group + +(defgroup mmm nil + "Multiple Major Modes in one buffer." + :group 'tools) + +;;}}} +;;{{{ Save Local Variables + +(defvar mmm-c-derived-modes + '(c-mode c++-mode objc-mode pike-mode java-mode jde-mode + js-mode typescript-mode + php-mode)) + +(defvar mmm-save-local-variables + `(;; Don't use `function' (#') here!! We're already inside `quote'! + major-mode + comment-start + comment-end + (comment-line-start-skip buffer (fortran-mode)) + comment-start-skip + (comment-column buffer) + comment-indent-function + comment-line-break-function + sentence-end + ,@(when mmm-xemacs + '(mode-popup-menu + (((lambda () current-menubar) . set-buffer-menubar)) + )) + (font-lock-keywords buffer) + font-lock-set-defaults + font-lock-major-mode + font-lock-keywords-only + font-lock-keywords-case-fold-search + font-lock-syntax-table + font-lock-mark-block-function ; Override this? + font-lock-syntactic-keywords + font-lock-syntactic-face-function + parse-sexp-ignore-comments ; Fixes indentation in PHP-mode? + ;; Can be different in different buffers + (c-basic-offset + buffer (c-mode c++-mode objc-mode pike-mode java-mode jde-mode)) + ;; These are necessary for C syntax parsing + (c-class-key nil ,mmm-c-derived-modes) + (c-extra-toplevel-key nil ,mmm-c-derived-modes) + (c-inexpr-class-key nil ,mmm-c-derived-modes) + (c-conditional-key nil ,mmm-c-derived-modes) + (nxml-prolog-end region (nxml-mode)) + semantic-bovinate-toplevel-override + semantic-toplevel-bovine-table + ;; Indentation style control variables. + ;; These have to be localized in Emacs: see `mmm-mode-on'. + ,@(mapcar + (lambda (var) (list var nil mmm-c-derived-modes)) + '(c++-template-syntax-table + c-<-op-cont-regexp + c->-op-cont-regexp + c-after-brace-list-key + c-after-suffixed-type-decl-key + c-after-suffixed-type-maybe-decl-key + c-any-class-key + c-asm-stmt-kwds + c-assignment-op-regexp + c-backslash-column + c-basic-offset + c-before-context-fontification-functions + c-bitfield-kwds + c-block-comment-prefix + c-block-decls-with-vars + c-block-prefix-charset + c-block-stmt-1-2-key + c-block-stmt-1-key + c-block-stmt-1-kwds + c-block-stmt-2-key + c-block-stmt-2-kwds + c-brace-list-key + c-case-kwds-regexp + c-cast-parens + c-class-key + c-class-kwds + c-cleanup-list + c-colon-type-list-re + c-comment-only-line-offset + c-comment-prefix-regexp + c-comment-start-regexp + c-cpp-defined-fns + c-cpp-expr-functions-key + c-current-comment-prefix + c-decl-block-key + c-decl-hangon-key + c-decl-prefix-or-start-re + c-decl-prefix-re + c-decl-spec-kwds + c-decl-start-kwds + c-decl-start-re + c-doc-comment-start-regexp + ;; c-enum-clause-introduction-re + c-expr-kwds + c-file-offsets + c-file-style + c-found-types + c-not-primitive-type-keywords-regexp + c-hanging-braces-alist + c-hanging-colons-alist + c-hanging-comment-ender-p + c-hanging-comment-starter-p + c-hanging-semi\&comma-criteria + c-identifier-key + c-identifier-last-sym-match + c-identifier-start + c-identifier-syntax-modifications + c-identifier-syntax-table + c-in-comment-lc-prefix + c-indent-comment-alist + c-indent-comments-syntactically-p + c-indentation-style + c-inexpr-block-kwds + c-inexpr-class-kwds + c-keywords + c-keywords-obarray + c-keywords-regexp + c-known-type-key + c-label-kwds + c-label-kwds-regexp + c-label-minimum-indentation + c-lambda-kwds + c-literal-start-regexp + c-macro-with-semi-re + c-make-top-level-key + ;; c-make-top-level-kwds + c-noise-macro-with-parens-name-re + c-nonlabel-token-key + c-nonlabel-token-2-key + c-nonsymbol-chars + c-nonsymbol-token-regexp + c-not-decl-init-keywords + c-offsets-alist + c-opt-<>-arglist-start + c-opt-<>-arglist-start-in-paren + c-opt-<>-sexp-key + c-opt-access-key + c-opt-asm-stmt-key + c-opt-bitfield-key + c-opt-block-decls-with-vars-key + c-opt-block-stmt-key + c-opt-cpp-prefix + c-opt-cpp-start + c-opt-decl-spec-key + c-opt-friend-key + c-opt-identifier-concat-key + c-opt-inexpr-block-key + c-opt-inexpr-brace-list-key + c-opt-inexpr-class-key + c-opt-lambda-key + c-opt-method-key + c-opt-postfix-decl-spec-key + c-opt-type-component-key + c-opt-type-concat-key + c-opt-type-modifier-key + c-opt-type-suffix-key + c-other-decl-block-key + c-other-decl-block-kwds + c-other-decl-kwds + c-overloadable-operators-regexp + c-pack-key + c-paragraph-separate + c-paragraph-start + c-paren-stmt-key + c-primary-expr-regexp + c-primitive-type-key + c-primitive-type-kwds + c-protection-kwds + c-postfix-decl-spec-key + c-recognize-<>-arglists + c-recognize-knr-p + c-recognize-paren-inits + c-recognize-typeless-decls + c-regular-keywords-regexp + c-simple-stmt-key + c-simple-stmt-kwds + c-special-brace-lists + c-specifier-key + c-specifier-kwds + c-stmt-delim-chars + c-stmt-delim-chars-with-comma + c-symbol-char-key + c-symbol-key + c-symbol-start + c-syntactic-eol + c-syntactic-ws-end + c-syntactic-ws-start + c-type-decl-prefix-key + c-type-decl-suffix-key + c-type-prefix-key + c-typeof-key + c-prefix-spec-kwds-re + c-typedef-key + c-typedef-decl-key + c-type-decl-suffix-ws-ids-key + comment-end + comment-start + comment-start-skip)) + ,@(mapcar + (lambda (var) (list var nil '(js-mode))) + '(js--quick-match-re + js--quick-match-re-func)) + ,@(mapcar + (lambda (var) (list var nil '(typescript-mode))) + '(typescript--quick-match-re + typescript--quick-match-re-func)) + ;; Skeleton insertion + skeleton-transformation + ;; Abbrev mode + abbrev-mode + local-abbrev-table + ;; And finally the syntax table and local map. + ((syntax-table . set-syntax-table) buffer) + (syntax-ppss-table buffer) + ((current-local-map . use-local-map) buffer) + paragraph-separate + paragraph-start + (whitespace-active-style buffer) + (whitespace-display-table buffer) + (whitespace-display-table-was-local buffer) + (whitespace-font-lock buffer) + (whitespace-font-lock-mode buffer) + (whitespace-font-lock-keywords buffer) + (whitespace-mode buffer) + (whitespace-point--used buffer) + (whitespace-point buffer) + (whitespace-bob-marker buffer) + forward-sexp-function + smie-rules-function + smie-grammar + smie-forward-token-function + smie-backward-token-function + ) + "Which local variables to save for major mode regions. +Each element has the form \(VARIABLE [TYPE [MODES]]), causing VARIABLE +to be saved for all major modes in the list MODES. If MODES is t or +absent, the variable is saved for all major modes. MODES can also be +a function of no arguments which returns non-nil whenever the variable +should be saved. + +TYPE should be either the symbol `global', meaning to save the +variable globally, the symbol `buffer', meaning to save it per buffer, +or the symbol `region', meaning to save it for each submode region. +If TYPE has any other value, such as nil, or is absent, the variable +is saved globally. If all optional parameters are omitted, the +element may be simply VARIABLE instead of \(VARIABLE). + +It is possible for VARIABLE to be not a symbol but a cons cell of the +form \(GETTER . SETTER), thus specifying special functions to set and +get the value of the \"variable\". This is used for objects like +local maps, syntax tables, etc. which need to be installed in a +special way. GETTER should be a function of no arguments, and SETTER +a function of one. In this case, even if TYPE and MODES are omitted, +the list cannot be flattened--it must be \((GETTER . SETTER)). +\"Variables\" of this type cannot be seen with `mmm-get-saved-local'. + +A single variable may appear more than once in this list, with +different modes and/or types. If the same mode appears more than once +for the same variable with different types, the behavior is undefined. +Changing the value of this variable after MMM Mode has been activated +in some buffer may produce unpredictable results. + +Globally saved variables are saved in the mmm-local-variables property +of the mode symbol. Buffer saved variables are saved in the alist +`mmm-buffer-saved-locals'. Region saved variables are saved in the +mmm-local-variables property of the overlay.") + +(defvar mmm-buffer-saved-locals () + "Stores saved local variables for this buffer, by mode. +Each element looks like \(MODE \(VAR VALUE) ...).") +(make-variable-buffer-local 'mmm-buffer-saved-locals) + +(defvar mmm-region-saved-locals-defaults () + "Stores saved defaults for region-saved locals, by mode. +Each element looks like \(MODE \(VAR VALUE) ...). Used to initialize +new submode regions.") +(make-variable-buffer-local 'mmm-region-saved-locals-defaults) + +(defvar mmm-region-saved-locals-for-dominant () + "Stores saved region locals for the dominant major mode. +The dominant major mode is considered to be one region for purposes of +saving region variables. Region-saved variables for submode regions +are saved as overlay properties.") +(make-variable-buffer-local 'mmm-region-saved-locals-for-dominant) + +;;}}} +;;{{{ Submode Faces + +(defgroup mmm-faces nil + "Faces and coloring for submode regions. +In general, only background colors should be set, to avoid interfering +with font-lock." + :group 'mmm) + +(defcustom mmm-submode-decoration-level 1 + "*Amount of coloring to use in submode regions. +Should be either 0, 1, or 2, representing None, Low, and High amounts +of coloring respectively. +* None (0) means to use no coloring at all. +* Low (1) means to use `mmm-default-submode-face' for all submode + regions \(except for \"non-submode\" regions, i.e. those that are of + the primary mode) and `mmm-delimiter-face' for region delimiters. +* High (2) means to use different faces for different types of submode + regions and delimiters, such as initialization code, expressions that + are output, declarations, and so on, as specified by the submode + class. The default faces are still used for regions that do not + specify a face." + :group 'mmm-faces + :type '(choice (const :tag "None" 0) + (const :tag "Low" 1) + (const :tag "High" 2))) + +(defface mmm-init-submode-face '((((background light)) (:background "Pink")) + (((background dark)) (:background "MediumOrchid")) + (t (:background "Pink"))) + "Face used for submodes containing initialization code." + :group 'mmm-faces) + +(defface mmm-cleanup-submode-face '((((background light)) (:background "Wheat")) + (((background dark)) (:background "peru")) + (t (:background "Wheat"))) + "Face used for submodes containing cleanup code." + :group 'mmm-faces) + +(defface mmm-declaration-submode-face '((((background light)) (:background "Aquamarine")) + (((background dark)) (:background "DarkTurquoise")) + (t (:background "Aquamarine"))) + "Face used for submodes containing declarations." + :group 'mmm-faces) + +(defface mmm-comment-submode-face '((((background light)) (:background "SkyBlue")) + (((background dark)) (:background "SteelBlue")) + (t (:background "SkyBlue"))) + "Face used for submodes containing comments and documentation." + :group 'mmm-faces) + +(defface mmm-output-submode-face '((((background light)) (:background "Plum")) + (((background dark)) (:background "MediumVioletRed")) + (t (:background "Plum"))) + "Face used for submodes containing expression that are output." + :group 'mmm-faces) + +(defface mmm-special-submode-face '((((background light)) (:background "MediumSpringGreen")) + (((background dark)) (:background "ForestGreen")) + (t (:background "MediumSpringGreen"))) + "Face used for special submodes not fitting any other category." + :group 'mmm-faces) + +(defface mmm-code-submode-face '((((background light)) (:background "LightGray")) + (((background dark)) (:background "DimGray")) + (t (:background "LightGray"))) + "Face used for submodes containing ordinary code." + :group 'mmm-faces) + +(defface mmm-default-submode-face '((((background light)) (:background "gray85")) + (((background dark)) (:background "gray20")) + (t (:background "gray85"))) + "Face used for all submodes at decoration level 1. +Also used at decoration level 2 for submodes not specifying a type." + :group 'mmm-faces) + +(defface mmm-delimiter-face nil + "Face used to mark submode delimiters." + :group 'mmm-faces) + +;;}}} +;;{{{ Mode Line Format + +(defcustom mmm-mode-string " MMM" + "*String to display in mode line as MMM minor mode indicator." + :group 'mmm + :type 'string) + +(defcustom mmm-submode-mode-line-format "~M[~m]" + "*Format of the mode-line display when point is in a submode region. + +~M is replaced by the name of the primary major mode \(which may be +replaced by a combined-mode function, see the info documentation). + +~m is replaced by the submode region overlay's `display-name' +property, if it has one. Otherwise it is replaced by the mode name of +the submode region. + +If `mmm-primary-mode-display-name' is non-nil, then this variable is +used even when point is not in a submode region \(i.e. it is in a +primary mode region), with ~m being replaced by the value of that +variable." + :group 'mmm + :type 'string) + +(defvar mmm-primary-mode-display-name nil + "If non-nil, displayed as the primary mode name in the mode line. +See also `mmm-buffer-mode-display-name'.") +(make-variable-buffer-local 'mmm-primary-mode-display-name) + +(defvar mmm-buffer-mode-display-name nil + "If non-nil, displayed in the mode line instead of the primary mode +name, which is then shown next to it as if it were a submode when in a +primary mode region, i.e. outside all submode regions.") +(make-variable-buffer-local 'mmm-buffer-mode-display-name) + +(defun mmm-set-mode-line () + "Set the mode line display correctly for the current submode. +Format according to `mmm-submode-mode-line-format'." + (let ((primary (or mmm-primary-mode-display-name + (get mmm-primary-mode 'mmm-mode-name))) + (submode (and mmm-current-overlay + (or (overlay-get mmm-current-overlay 'display-name) + (get mmm-current-submode 'mmm-mode-name))))) + (if mmm-buffer-mode-display-name + (setq mode-name + (mmm-format-string mmm-submode-mode-line-format + `(("~M" . ,mmm-buffer-mode-display-name) + ("~m" . ,(or submode primary))))) + (if submode + (setq mode-name + (mmm-format-string mmm-submode-mode-line-format + `(("~M" . ,primary) + ("~m" . ,submode)))) + (setq mode-name primary)))) + (force-mode-line-update)) + +;;}}} +;;{{{ Submode Classes + +(defvar mmm-classes nil + "*List of submode classes that apply to a buffer. +Generally set in a file local variables list. Can either be one +symbol, or a list of symbols. Automatically buffer-local.") +(make-variable-buffer-local 'mmm-classes) + +(defvar mmm-global-classes '(universal) + "*List of submode classes that apply to all buffers. +Can be overridden in a file local variables list.") + +;;}}} +;;{{{ Modes and Extensions + +(defcustom mmm-mode-ext-classes-alist nil + "Alist of submode classes for major modes and/or file extensions. +This variable can now be directly modified. + +Elements look like \(MODE EXT CLASS), where MODE is a major mode, EXT +is a regexp to match a filename such as in `auto-mode-alist', and +CLASS is a submode class. CLASS is activated in all buffers in mode +MODE \(if non-nil) and whose filenames match EXT \(if non-nil). If +both MODE and EXT are nil, CLASS is activated in all buffers. If CLASS +is the symbol t, MMM Mode is turned on in all buffers matching MODE +and EXT, but no classes are activated. + +See `mmm-global-mode'." + :group 'mmm + :type '(repeat (list (symbol :tag "Major Mode") + (string :tag "Filename Regexp") + (symbol :tag "Class"))) + :require 'mmm-mode) + +(defun mmm-add-mode-ext-class (mode ext class) + "Add an element to `mmm-mode-ext-classes-alist', which see. +That variable can now be directly modified, so this function is +unnecessary. It probably won't go away, though." + (add-to-list 'mmm-mode-ext-classes-alist (list mode ext class))) + +;;}}} +;;{{{ Preferred Major Modes + +(defcustom mmm-major-mode-preferences + '((perl cperl-mode perl-mode) + (python python-mode python-mode) + (javascript javascript-mode c++-mode) + (java jde-mode java-mode c++-mode) + (css css-mode c++-mode)) + "User preferences about what major modes to use. +Each element has the form \(LANGUAGE . MODES) where LANGUAGE is the +name of a programming language such as `perl' as a symbol, and MODES +is a list of possible major modes to use, such as `cperl-mode' or +`perl-mode'. The first element of MODES which is `fboundp' is used +for submodes of LANGUAGE. The last element of MODES should be a mode +which will always be available." + :group 'mmm + :type '(repeat (cons symbol + (repeat + (restricted-sexp :match-alternatives + (fboundp)))))) + +(defun mmm-add-to-major-mode-preferences (language mode &optional default) + "Add major mode MODE as acceptable for LANGUAGE. +This sets the value of `mmm-major-mode-preferences'. If DEFAULT +is non-nil, MODE is added at the front of the list of modes for +LANGUAGE. Otherwise, it is added at the end. This may be used by +packages to ensure that some mode is present, but not override +any user-specified mode." + (let ((pair (assq language mmm-major-mode-preferences))) + (if pair + ;; Existing mode preferences + (if default + (setcdr pair (cons mode (cdr pair))) + (setcdr pair (append (cdr pair) (list mode)))) + ;; No existing mode preference + (add-to-list 'mmm-major-mode-preferences (list language mode))))) + +(defun mmm-ensure-modename (symbol) + "Return SYMBOL if it is a valid submode name, else nil. +Valid submode names are either `fboundp' or present as the `car' of an +element in `mmm-major-mode-preferences'." + (if (or (fboundp symbol) + (assq symbol mmm-major-mode-preferences)) + symbol + nil)) + +(defun mmm-modename->function (mode) + "Convert MODE to a mode function, nil if impossible. +Valid submode names are either `fboundp' or present as the `car' of an +element in `mmm-major-mode-preferences'. In the latter case, the +first `fboundp' element of the `cdr' is returned, or nil if none." + (if (fboundp mode) + mode + (car (cl-remove-if-not + #'fboundp + (cdr (assq mode mmm-major-mode-preferences)))))) + +;;}}} +;;{{{ Delimiter Regions + +(defcustom mmm-delimiter-mode 'fundamental-mode + "Major mode used by default for delimiter regions. +Classes are encouraged to override this by providing a delimiter-mode +parameter-- see `mmm-classes-alist'." + :group 'mmm + :type 'function) + +;;}}} +;;{{{ Key Bindings + +(defcustom mmm-mode-prefix-key [(control ?c) ?%] + "Prefix key for the MMM Minor Mode Keymap." + :group 'mmm + :type '(vector character)) + +(defcustom mmm-command-modifiers '(control) + "List of key modifiers for MMM command keys. +The MMM commands in the MMM Mode map, after `mmm-mode-prefix-key', +are bound to default keys with these modifiers added. This variable +must be set before MMM Mode is loaded to have an effect. + +It is suggested that the value of this variable be either nil or +\(control), as the default keys are either plain keys or have only a +meta modifier. The shift modifier is not particularly portable between +Emacsen. The values of this variable and `mmm-insert-modifiers' should +be disjoint." + :group 'mmm + :type '(repeat (symbol :tag "Modifier"))) + +(defcustom mmm-insert-modifiers '() + "List of key modifiers for MMM submode insertion keys. +When a key pressed after `mmm-mode-prefix-key' has no MMM Mode command +binding, and its modifiers include these, then its basic type, plus any +modifiers in addition to these, is looked up in classes' :insert +specifications. + +It is suggested that the value of this variable be either nil or +\(control), allowing submode classes to specify the presence or +absence of the meta modifier. The shift modifier is not particularly +portable between Emacsen. The values of `mmm-command-modifiers' and +this variable should be disjoint." + :group 'mmm + :type '(repeat (symbol :tag "Modifier"))) + +(defcustom mmm-use-old-command-keys nil + "Non-nil means to Use the old command keys for MMM Mode. +MMM Mode commands then have no modifier while insertion commands have +a control modifier, i.e. `mmm-command-modifiers' is set to nil and +`mmm-insert-modifiers' is set to \(control). If nil, the values of +these variables are as the default, or whatever the user has set them +to. This variable must be set before MMM Mode is loaded." + :group 'mmm + :type 'boolean) + +(defun mmm-use-old-command-keys () + "Use the old command keys \(no control modifer) in MMM Mode." + (setq mmm-command-modifiers '() + mmm-insert-modifiers '(control))) + +;;}}} +;;{{{ MMM Hooks + +(defcustom mmm-mode-hook () + "Hook run when MMM Mode is enabled in a buffer. + +A hook named mmm--hook is also run, if it exists. For +example, `mmm-html-mode-hook' is run whenever MMM Mode is entered with +HTML mode the dominant mode. + +A hook named mmm--submode-hook is run when a submode region +of a given mode is created. For example, `mmm-cperl-mode-submode-hook' +is run whenever a CPerl mode submode region is created, in any buffer. +When this hooks are run, point is guaranteed to be at the start of +the newly created submode region. + +Finally, a hook named mmm--class-hook is run whenever a buffer +is first mmm-ified with a given submode class. For example, +`mmm-mason-class-hook' is run whenever the `mason' class is first +applied in a buffer." + :group 'mmm + :type 'hook) + +(defun mmm-run-constructed-hook (body &optional suffix) + "Run the hook named `mmm---hook', if it exists. +If SUFFIX is nil or unsupplied, run `mmm--hook' instead." + (let ((hook (intern-soft (if suffix + (format "mmm-%s-%s-hook" body suffix) + (format "mmm-%s-hook" body))))) + (if hook (run-hooks hook)))) + +(defun mmm-run-major-hook () + (mmm-run-constructed-hook mmm-primary-mode)) + +(defun mmm-run-submode-hook (submode) + (mmm-run-constructed-hook submode "submode")) + +(defvar mmm-class-hooks-run () + "List of submode classes for which hooks have already been run in +the current buffer.") +(make-variable-buffer-local 'mmm-class-hooks-run) + +(defun mmm-run-class-hook (class) + (unless (member class mmm-class-hooks-run) + (mmm-run-constructed-hook class "class") + (add-to-list 'mmm-class-hooks-run class))) + +(defvar mmm-primary-mode-entry-hook nil + "Hook run when point moves into a region of the primary mode. +Each submode region can have an `entry-hook' property which is run +when they are entered, but since primary mode regions have no overlay +to store properties, this is a buffer-local variable. + +N.B. This variable is not a standard Emacs hook. Unlike Emacs' +\"local hooks\" it has *no* global value, only a local one. Its value +should always be a list of functions \(possibly empty) and never a +single function. It may be used with `add-hook', however.") +(make-variable-buffer-local 'mmm-primary-mode-entry-hook) + +;;}}} +;;{{{ Major Mode Hook + +(defcustom mmm-major-mode-hook () + "Hook run whenever a new major mode is finished starting up. +MMM Mode implements this with a hack \(see comments in the source) so +that `mmm-global-mode' will function correctly, but makes this hook +available so that others can take advantage of the hack as well. + +Note that file local variables have *not* been processed by the time +this hook is run. If a function needs to inspect them, it should also +be added to `find-file-hook'. However, `find-file-hook' is not run +when creating a non-file-based buffer, or when changing major modes in +an existing buffer." + :group 'mmm + :type 'hook) + +(defun mmm-run-major-mode-hook () + (dolist (func mmm-major-mode-hook) + (ignore-errors (funcall func)))) + +;;}}} +;;{{{ MMM Global Mode + +;; There's a point to be made that this variable should default to +;; `maybe' (i.e. not nil and not t), because that's what practically +;; everyone wants. I subscribe, however, to the view that simply +;; *loading* a lisp extension should not change the (user-visible) +;; behavior of Emacs, until it is configured or turned on in some +;; way, which dictates that the default for this must be nil. +(defcustom mmm-global-mode nil + "Specify in which buffers to turn on MMM Mode automatically. + +- If nil, MMM Mode is never enabled automatically. +- If t, MMM Mode is enabled automatically in all buffers. +- If any other symbol, MMM mode is enabled only in those buffers that + have submode classes associated with them. See `mmm-classes' and + `mmm-mode-ext-classes-alist' for more information." + :group 'mmm + :type '(choice (const :tag "Always" t) + (const :tag "Never" nil) + (other :tag "Maybe" maybe)) + :require 'mmm-mode) + +;; These are not traditional editing modes, so mmm makes no sense, and +;; can mess things up seriously if it doesn't know not to try. +(defcustom mmm-never-modes + '( + help-mode + Info-mode + dired-mode + comint-mode + telnet-mode + shell-mode + eshell-mode + forms-mode + ) + "List of modes in which MMM Mode is never activated." + :group 'mmm + :type '(repeat (symbol :tag "Mode"))) + +;;}}} +;;{{{ Buffer File Name + +(defvar mmm-set-file-name-for-modes '(mew-draft-mode) + "List of modes for which the temporary buffers MMM creates have a +file name. In these modes, this file name is the same as that of the +parent buffer. In general, this has been found to cause more problems +than it solves, but some modes require it.") + +;;}}} +;;{{{ Idle Parsing + +(defcustom mmm-parse-when-idle nil + "Non-nil to automatically reparse the buffer when it has some + modifications and Emacs has been idle for `mmm-idle-timer-delay'." + :type 'boolean + :group 'mmm) + +(defcustom mmm-idle-timer-delay 0.2 + "Delay in secs before re-parsing after user makes changes." + :type 'number + :group 'mmm) +(make-variable-buffer-local 'mmm-idle-timer-delay) + +(defvar mmm-mode-parse-timer nil "Private variable.") +(make-variable-buffer-local 'mmm-mode-parse-timer) +(defvar mmm-mode-buffer-dirty nil "Private variable.") +(make-variable-buffer-local 'mmm-mode-buffer-dirty) + +(defun mmm-mode-edit (_beg _end _len) + (setq mmm-mode-buffer-dirty t) + (mmm-mode-reset-timer)) + +(defun mmm-mode-reset-timer () + (when mmm-mode-parse-timer + (cancel-timer mmm-mode-parse-timer)) + (setq mmm-mode-parse-timer + (run-with-idle-timer mmm-idle-timer-delay nil + #'mmm-mode-idle-reparse (current-buffer)))) + +(defun mmm-mode-idle-reparse (buffer) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (when mmm-mode-buffer-dirty + (mmm-apply-all) + (setq mmm-mode-buffer-dirty nil) + (setq mmm-mode-parse-timer nil))))) + +;;}}} + +;; NON-USER VARIABLES +;;{{{ Mode Variable + +(defvar mmm-mode nil + "Non-nil means MMM Mode is turned on in this buffer. +Do not set this variable directly; use the function `mmm-mode'.") +(make-variable-buffer-local 'mmm-mode) + +;;}}} +;;{{{ Primary Mode + +(defvar mmm-primary-mode nil + "The primary major mode in the current buffer.") +(make-variable-buffer-local 'mmm-primary-mode) + +;;}}} +;;{{{ Classes Alist + +;; Notes: +;; 1. :parent could be an all-class argument. Same with :keymap. +;; 2. :match-submode really does have to be distinct from :submode, +;; because 'functionp' isn't enough to distinguish which is meant. +(defvar mmm-classes-alist nil + "Alist containing all defined mmm submode classes. +A submode class is a named recipe for parsing a document into submode +regions, and sometimes for inserting new ones while editing. + +Each element of this alist looks like \(CLASS . ARGS) where CLASS is a +symbol naming the submode class and ARGS is a list of keyword +arguments, called a \"class specifier\". There are a large number of +accepted keyword arguments in the class specifier. + +The argument CLASSES, if supplied, must be a list of other submode +class names, or class specifiers, representing other classes to call +recursively. The FACE arguments of these classes are overridden by +the FACE argument of this class. If the argument CLASSES is supplied, +all other arguments to this class are ignored. That is, \"grouping\" +classes can do nothing but group other classes. + +The argument HANDLER, if supplied, also overrides any other processing. +It must be a function, and all the arguments are passed to it as +keywords, and it must do everything. See `mmm-ify' for what sorts of +things it must do. This back-door interface should be cleaned up. + +The optional argument FACE gives the display face of the submode +regions under high decoration (see `mmm-submode-decoration-level'). +It must be a valid face. The standard faces used for submode regions +are `mmm-*-submode-face' where * is one of `init', `cleanup', +`declaration', `comment', `output', `special', or `code'. A more +flexible alternative is the argument MATCH-FACE. MATCH-FACE can be a +function, which is called with one argument, the form of the front +delimiter \(found from FRONT-FORM, below), and should return the face +to use. It can also be an alist, with each element of the form +\(DELIM . FACE). + +If neither CLASSES nor HANDLER are supplied, either SUBMODE or +MATCH-SUBMODE must be. SUBMODE specifies the submode to use for the +submode regions, a symbol such as `cperl-mode' or `emacs-lisp-mode', +while MATCH-SUBMODE must be a function to be called immediately after +a match is found for FRONT, which is passed one argument, the form of +the front delimiter \(found from FRONT-FORM, below), and return a +symbol such as SUBMODE would be set to. If MATCH-SUBMODE detects an +invalid match--for example a specified mode which is not `fboundp'--it +should \(signal \\='mmm-no-matching-submode nil). + +FRONT and BACK are the means to find the submode regions, and can be +either buffer positions \(number-or-markers), regular expressions, or +functions. If they are absolute buffer positions, only one submode +region is created, from FRONT to BACK. This is generally not used in +named classes. \(Unnamed classes are created by interactive commands +in `mmm-interactive-history'). + +If FRONT is a regexp, then that regexp is searched for, and the end of +its FRONT-MATCH'th match \(or the beginning thereof, if INCLUDE-FRONT +is non-nil), plus FRONT-OFFSET, becomes the beginning of the submode +region. If FRONT is a function, that function is called instead, and +must act somewhat like a search, in that it should start at point, +take one argument as a search bound, and set the match data. A +similar pattern is followed for BACK \(the search starts at the +beginning of the submode region), save that the beginning of its +BACK-MATCH'th match \(or the end, if INCLUDE-BACK is non-nil) becomes +the end of the submode region, plus BACK-OFFSET. + +If SAVE-MATCHES is non-nil, then BACK, if it is a regexp, is formatted +by replacing strings of the form \"~N\" by the corresponding value of +\(match-string n) after matching FRONT. + +FRONT-MATCH and BACK-MATCH default to zero. They specify which +sub-match of the FRONT and BACK regexps to treat as the delimiter. +This number will be passed to any calls to `match-beginning' and +company. + +FRONT- and BACK-OFFSET default to 0. In addition to numbers, they can +also be functions to call which should move point to the correct +position for the beginning or end of the submode region. Common +choices include `beginning-of-line' and `end-of-line', and new +functions can of course be written. They can also be lists which will +be applied in sequence, such as \(end-of-line 1) meaning move to end +of line and then forward one character. + +FRONT-VERIFY and BACK-VERIFY, if supplied, must be functions that +inspect the match data to see if a match found by FRONT or BACK +respectively is valid. + +FRONT-DELIM \(resp. BACK-DELIM), if supplied, can take values like +those of FRONT-OFFSET \(resp. BACK-OFFSET), specifying the offset from +the start \(resp. end) of the match for FRONT \(resp. BACK) to use as +the starting \(resp. ending) point for the front \(resp. back) +delimiter. If nil, it means not to make a region for the respective +delimiter at all. + +DELIMITER-MODE, if supplied, specifies what submode to use for the +delimiter regions, if any. If nil, the primary mode is used. If +not supplied, `mmm-delimiter-mode' is used. + +FRONT-FACE and BACK-FACE specify faces to use for displaying the +delimiter regions, under high decoration. + +FRONT-FORM and BACK-FORM, if given, must supply a regexp used to match +the *actual* delimiter. If they are strings, they are used as-is. If +they are functions, they are called and must inspect the match data. +If they are lists, their `car' is taken as the delimiter. The default +for both is \(regexp-quote \(match-string 0)). + +The last case--them being a list--is usually used to set the delimiter +to a function. Such a function must take 1-2 arguments, the first +being the overlay in question, and the second meaning to insert the +delimiter and adjust the overlay rather than just matching the +delimiter. See `mmm-match-front', `mmm-match-back', and +`mmm-end-current-region'. + +CASE-FOLD-SEARCH, if specified, controls whether the search is +case-insensitive. See `case-fold-search'. It defaults to t. + +CREATION-HOOK, if specified, should be a function which is run +whenever a submode region is created, with point at the beginning of +the new region. One use for it is to set region-saved local variables +\(see `mmm-save-local-variables'). + +INSERT specifies the keypress insertion spec for such submode regions. +INSERT's value should be list of elements of the form \(KEY NAME . +SPEC). Each KEY should be either a character, a function key symbol, +or a dotted list \(MOD . KEY) where MOD is a symbol for a modifier +key. The use of any other modifier than meta is discouraged, as +`mmm-insert-modifiers' is sometimes set to \(control), and other +modifiers are not very portable. Each NAME should be a symbol +representing the insertion for that key. Each SPEC can be either a +skeleton, suitable for passing to `skeleton-insert' to create a +submode region, or a dotted pair \(OTHER-KEY . ARG) meaning to use the +skeleton defined for OTHER-KEY but pass it the argument ARG as the +`str' variable, possible replacing a prompt string. Skeletons for +insertion should have the symbol `_' where point \(or wrapped text) +should go, and the symbol `@' in four different places: at the +beginning of the front delimiter, the beginning of the submode region, +the end of the submode region, and the end of the back delimiter. + +If END-NOT-BEGIN is non-nil, it specifies that a BACK delimiter cannot +begin a new submode region. + +MATCH-NAME, if supplied, specifies how to determine the \"name\" for +each submode region. It must be a string or a function. If it is a +function, it is passed the value of FRONT-FORM and must return the +name to use. If it is a string, it is used as-is unless SAVE-NAME has +a non-nil value, in which case, the string is interpreted the same as +BACK when SAVE-MATCHES is non-nil. If MATCH-NAME is not specified, +the regions are unnamed. Regions with the same name are considered +part of the same chunk of code, and formatted as such, while unnamed +regions are not grouped with any others. + +As a special optimization for insertion, if SKEL-NAME is non-nil, the +insertion code will use the user-prompted string value as the region +name, instead of going through the normal matching procedure. + +PRIVATE, if supplied and non-nil, means that this class is a private +or internal class, usually one invoked by another class via :classes, +and is not for the user to see.") + +;;;###autoload +(defun mmm-add-classes (classes) + "Add the submode classes CLASSES to `mmm-classes-alist'." + (dolist (class classes) + (add-to-list 'mmm-classes-alist class))) + +(defun mmm-add-group (group classes) + "Add CLASSES and a \"grouping class\" named GROUP which calls them all. +The CLASSES are all made private, i.e. non-user-visible." + (mmm-add-classes (mapcar (lambda (class) + (append class + '(:private t))) + classes)) + (add-to-list 'mmm-classes-alist + (list group :classes (mapcar #'cl-first classes)))) + +(defun mmm-add-to-group (group classes) + "Add CLASSES to the \"grouping class\" named GROUP. +The CLASSES are all made private, i.e. non-user-visible." + (mmm-add-classes (mapcar (lambda (class) + (append class + '(:private t))) + classes)) + (mmm-set-class-parameter group :classes + (append (mmm-get-class-parameter group :classes) + (mapcar #'cl-first classes)))) + +;;}}} +;;{{{ Version Number + +(defconst mmm-version "0.5.11" + "Current version of MMM Mode.") + +(defun mmm-version () + (interactive) + (message "MMM Mode version %s by Michael Abraham Shulman" mmm-version)) + +;;}}} +;;{{{ Temp Buffer Name + +(defvar mmm-temp-buffer-name "mmm-temp-buffer" + "Name for temporary buffers created by MMM Mode. +Using non-special name, so that `font-lock-mode' will be enabled +automatically when appropriate, and will set all related vars.") + +(defvar mmm-in-temp-buffer nil + "Bound to t when working in the temp buffer.") + +;;}}} +;;{{{ Interactive History + +(defvar mmm-interactive-history nil + "History of interactive mmm-ification in the current buffer. +Elements are either submode class symbols or class specifications. +See `mmm-classes-alist' for more information.") +(make-variable-buffer-local 'mmm-interactive-history) + +(defun mmm-add-to-history (class) + (add-to-list 'mmm-interactive-history class)) + +(defun mmm-clear-history () + "Clears history of interactive mmm-ification in current buffer." + (interactive) + (setq mmm-interactive-history nil)) + +;;}}} +;;{{{ Mode/Ext Manipulation + +(defvar mmm-mode-ext-classes () + "List of classes associated with current buffer by mode and filename. +Set automatically from `mmm-mode-ext-classes-alist'.") +(make-variable-buffer-local 'mmm-mode-ext-classes) + +(defun mmm-get-mode-ext-classes () + "Return classes for current buffer from major mode and filename. +Uses `mmm-mode-ext-classes-alist' to find submode classes." + (or mmm-mode-ext-classes + (setq mmm-mode-ext-classes + (mapcar #'cl-third + (cl-remove-if-not #'mmm-mode-ext-applies + mmm-mode-ext-classes-alist))))) + +(defun mmm-clear-mode-ext-classes () + "Clear classes added by major mode and filename." + (setq mmm-mode-ext-classes nil)) + +(defun mmm-mode-ext-applies (element) + (cl-destructuring-bind (mode ext _class) element + (and (if mode + (eq mode + ;; If MMM is on in this buffer, use the primary mode, + ;; otherwise use the normal indicator. + (or mmm-primary-mode major-mode)) + t) + (if ext + (and (buffer-file-name) + (save-match-data + (string-match ext (buffer-file-name)))) + t)))) + +(defun mmm-get-all-classes (global) + "Return a list of all classes applicable to the current buffer. +These come from mode/ext associations, `mmm-classes', and interactive +history, as well as `mmm-global-classes' if GLOBAL is non-nil." + (append mmm-interactive-history + (if (listp mmm-classes) mmm-classes (list mmm-classes)) + (if global mmm-global-classes ()) + (mmm-get-mode-ext-classes))) + +;;}}} + +(provide 'mmm-vars) + +;;; mmm-vars.el ends here diff --git a/elpa/mmm-mode-0.5.11/mmm.info b/elpa/mmm-mode-0.5.11/mmm.info new file mode 100644 index 0000000..e99d4a4 --- /dev/null +++ b/elpa/mmm-mode-0.5.11/mmm.info @@ -0,0 +1,2086 @@ +This is mmm.info, produced by makeinfo version 6.8 from mmm.texi. + +INFO-DIR-SECTION GNU Emacs Lisp +START-INFO-DIR-ENTRY +* MMM-Mode: (mmm). Multiple Major Modes for Emacs +END-INFO-DIR-ENTRY + +Copyright 2000 Michael Abraham Shulman. + + Permission is granted to make and distribute verbatim copies of this +manual provided the copyright notice and this permission notice are +preserved on all copies. + + Permission is granted to copy and distribute modified versions of +this manual under the conditions for verbatim copying, provided also +that the sections entitled “Copying” and “GNU General Public License” +are included exactly as in the original, and provided that the entire +resulting derived work is distributed under the terms of a permission +notice identical to this one. + + Permission is granted to copy and distribute translations of this +manual into another language, under the above conditions for modified +versions, except that this permission notice may be stated in a +translation approved by the Free Software Foundation. + + +File: mmm.info, Node: Top, Next: Overview, Up: (dir) + +MMM Mode +******** + +MMM Mode is a minor mode for Emacs which allows Multiple Major Modes to +coexist in a single buffer. + +* Menu: + +* Overview:: An overview and introduction to MMM Mode. +* Basics:: The basics of how to use it. +* Customizing:: Customizing how it works to your needs. +* Supplied Classes:: The supplied submode classes. +* Writing Classes:: Writing your own submode classes. +* Indices:: Just that. + + — The Detailed Node Listing — + +Overview of MMM Mode + +* Basic Concepts:: A simple explanation of how it works. +* Installation:: How to install MMM Mode. +* Quick Start:: Getting started using MMM Mode quickly. + +MMM Mode Basics + +* MMM Minor Mode:: The Emacs minor mode that manages it all. +* Submode Classes:: What they are and how to use them. +* Selecting Classes:: How MMM Mode knows what classes to use. +* Insertion:: Inserting new submode regions automatically. +* Re-parsing:: Re-scanning for submode regions. +* Interactive:: Adding submode regions manually. +* Global Mode:: Turning MMM Mode on automatically. + +The MMM Minor Mode + +* Enabling MMM Mode:: Turning MMM Mode on and off. +* MMM Mode Keys:: Default key bindings in MMM Mode. + +How MMM Mode selects submode classes + +* File Classes:: Classes for a single file. +* Mode-Ext Classes:: Classes for a given mode or extension. +* Global Classes:: Classes for all MMM Mode buffers. + +MMM Global Mode + +* Major Mode Hook:: Using MMM’s Major Mode Hook + +Customizing MMM Mode + +* Region Coloring:: Changing or removing background colors. +* Preferred Modes:: Choosing which major modes to use. +* Mode Line:: What is displayed in the mode line. +* Key Bindings:: Customizing the MMM Mode key bindings. +* Local Variables:: What local variables are saved for submodes. +* Changing Classes:: Changing the supplied submode classes. +* Hooks:: How to make MMM Mode run your code. + +Supplied Submode Classes + +* Mason:: Mason server-side Perl in HTML. +* File Variables:: Elisp code in File Variables. +* Here-documents:: Code in shell and Perl here-documents. +* Javascript:: Javascript embedded in HTML. +* Embedded CSS:: CSS Styles embedded in HTML. +* Embperl:: Another syntax for Perl in HTML. +* ePerl:: A general Perl-embedding syntax. +* JSP:: Java code embedded in HTML. +* RPM:: Shell scripts in RPM Spec Files. +* Noweb:: Noweb literate programs. + +Writing Submode Classes + +* Basic Classes:: Writing a simple submode class. +* Paired Delimiters:: Matching paired delimiters. +* Region Placement:: Placing the region more accurately. +* Submode Groups:: Grouping several classes together. +* Calculated Submodes:: Deciding the submode at run-time. +* Calculated Faces:: Deciding the display face at run-time. +* Insertion Commands:: Inserting regions automatically. +* Region Names:: Naming regions for syntax grouping. +* Other Hooks:: Running code at arbitrary points. +* Delimiters:: Controlling delimiter overlays. +* Misc Keywords:: Other miscellaneous options. + +Indices + +* Concept Index:: Index of MMM Mode Concepts. +* Function Index:: Index of functions and variables. +* Keystroke Index:: Index of key bindings in MMM Mode. + + + +File: mmm.info, Node: Overview, Next: Basics, Prev: Top, Up: Top + +1 Overview of MMM Mode +********************** + +MMM Mode is a minor mode for Emacs which allows Multiple Major Modes to +coexist in a single buffer. The name is an abbreviation of ‘Multiple +Major Modes’(1). A major mode is a customization of Emacs for editing a +certain type of text, such as code for a specific programming language. +*Note (emacs)Major Modes::, for details. + + MMM Mode is a general extension to Emacs which is useful whenever one +file contains text in two or more programming languages, or that should +be in two or more different modes. For example: + + • CGI scripts written in any language, from Perl to PL/SQL, may want + to output verbatim HTML, and the writer of such scripts may want to + use Emacs’ html-mode or sgml-mode to edit this HTML code, while + remaining in the appropriate programming language mode for the rest + of the file. *Note Here-documents::, for example. + + • There are now many “content delivery systems” which turn the CGI + script idea around and simply add extra commands to an HTML file, + often in some programming language, which are interpreted on the + server. *Note Mason::, *Note Embperl::, *Note ePerl::, *Note + JSP::. + + • HTML itself can also contain embedded languages such as Javascript + and CSS styles, for which Emacs has different major modes. *Note + Javascript::, and *Note Embedded CSS::, for example. + + • The idea of “literate programming” requires the same file to + contain documentation (written as text, html, latex, etc.) and + code (in an appropriate programming language). *Note Noweb::, for + example. + + • Emacs allows files of any type to contain ‘local variables’, which + can include Emacs Lisp code to be evaluated. *Note (emacs)File + Variables::. It may be easier to edit this code in Emacs Lisp mode + than in whatever mode is used for the rest of the file. *Note File + Variables::. + + • There are many more possible uses for MMM Mode. RPM spec files can + contain shell scripts (*note RPM::). Email or newsgroup messages + may contain sample code. And so on. We encourage you to + experiment. + +* Menu: + +* Basic Concepts:: A simple explanation of how it works. +* Installation:: How to install MMM Mode. +* Quick Start:: Getting started using MMM Mode quickly. + + ---------- Footnotes ---------- + + (1) The name is derived from ‘mmm.el’ for XEmacs by Gongquan Chen +, from which MMM Mode was adapted. + + +File: mmm.info, Node: Basic Concepts, Next: Installation, Up: Overview + +1.1 Basic Concepts +================== + +The way MMM Mode works is as follows. Each buffer has a “dominant” or +“default” major mode, which is chosen as major modes normally are: the +user can set it interactively, or it can be chosen automatically with +‘auto-mode-alist’ (*note (emacs)Choosing Modes::). Within the file, MMM +Mode creates “submode regions” within which other major modes are in +effect. While the point is in a submode region, the following changes +occur: + + 1. The local keymap is that of the submode. This means the key + bindings for the submode are available, while those of the dominant + mode are not. + 2. The mode line (*note (emacs)Mode Line::) changes to show which + submode region is active. This can be configured; see *note Mode + Line::. + 3. The major mode menu, both on the menu bar and the mouse popup, are + that of the submode. + 4. Some local variables of the submode shadow those of the default + mode (*note Local Variables::). For the user, this serves to help + make Emacs behave as if the submode were the major mode. + 5. The syntax table and indentation are those of the submode. + 6. Font-lock (*note (emacs)Font Lock::) fontifies correctly for the + submode. + 7. The submode regions are highlighted by a background color; see + *note Region Coloring::. + + The submode regions are represented internally by Emacs Lisp objects +known as “overlays”. Some of the above are implemented by overlay +properties, and others are updated by an MMM Mode function in +‘post-command-hook’. You don’t need to know this to use MMM Mode, but +it may make any error messages you come across more understandable. +*Note (elisp)Overlays::, for more information on overlays. + + Because overlays are not saved with a file, every time a file is +opened, they must be created. Creating submode regions is occasionally +referred to as “mmm-ification”. (I’ve never had occasion to pronounce +this, but if I did I would probably say ‘mummification’. Like what they +did in ancient Egypt.) You can mmm-ify a buffer interactively, but most +often MMM Mode will find and create submode regions automatically based +on a buffer’s file extension, dominant mode, or local variables. + + +File: mmm.info, Node: Installation, Next: Quick Start, Prev: Basic Concepts, Up: Overview + +1.2 Installing MMM Mode +======================= + +The recommended way to install MMM Mode is from GNU ELPA. + + (package-install 'mmm-mode) + +You can also add the MMM Mode directory to your ‘load-path’. + + (add-to-list 'load-path "/path/to/mmm-mode/") + +The Makefile distributed with MMM Mode can be used to byte compile the +code and build the Info documentation with a simple ‘make’ command. +Don’t forget to add the MMM mode directory to your +‘Info-directory-list’. + + (add-to-list 'Info-directory-list pkg-dir) + + Once the package is installed or ‘load-path’ configured, MMM Mode +must be loaded. You can load all of MMM Mode with the line + + (require 'mmm-mode) + +but if you use MMM Mode only rarely, it may not be desirable to load all +of it at the beginning of every editing session. You can load just +enough of MMM Mode so it will turn itself on when necessary and load the +rest of itself, by using instead the line + + (require 'mmm-auto) + +in your initialization file. + + One more thing you may want to do right now is to set the variable +‘mmm-global-mode’. If this variable is ‘nil’ (the default), MMM Mode +will never turn itself on. If it is ‘t’, MMM Mode will turn itself on +in every buffer. Probably the most useful value for it, however, is the +symbol ‘maybe’ (actually, anything that is not ‘nil’ and not ‘t’), which +causes MMM Mode to turn itself on in precisely those buffers where it +would be useful. You can do this with a line such as: + + (setq mmm-global-mode 'maybe) + +in your initialization file. *Note Global Mode::, for more detailed +information. + + +File: mmm.info, Node: Quick Start, Prev: Installation, Up: Overview + +1.3 Getting Started Quickly +=========================== + +Perhaps the simplest way to create submode regions is to do it +interactively by specifying a region. First you must turn MMM Mode +on—say, with ‘M-x mmm-mode’—then place point and mark around the area +you want to make into a submode region, type ‘C-c % C-r’, and enter the +desired major mode. *Note Interactive::, for more details. + + A better way to add submode regions is by using submode classes, +which store a lot of useful information for MMM Mode about how to add +and manipulate the regions created. *Note Submode Classes::, for more +details. There are several sample submode classes that come with MMM +Mode, which are documented later in this manual. Look through these and +determine if one of them fits your needs. If so, I suggest reading the +comments on that mode. Then come back here to find out how to use it. + + To apply a submode class to a buffer interactively, turn MMM Mode on +as above, then type ‘C-c % C-c’ and enter the name of the class. +Submode regions should be added automatically, if there are any regions +in the buffer appropriate to the submode class. + + If you want a given file to always use a given submode class, you can +express this in a file variable: add a line containing the string ‘-*- +mmm-classes: CLASS -*-’ at the top of the file. CLASS can also be a +list of submode classes. *Note (emacs)File Variables::, for more +information and other methods. Now whenever MMM Mode is turned on in +that file, it will be mmm-ified according to CLASS. If +‘mmm-global-mode’ is non-nil, then MMM Mode will turn itself on whenever +a file with a ‘mmm-classes’ local variable is opened. *Note Global +Mode::, for more information. + + If you want a submode class to apply to _all_ files in a certain +major mode or with a certain extension, add a line such as this to your +initialization file: + + (mmm-add-mode-ext-class MODE EXTENSION CLASS) + +After this call, any file opened whose name matches the regular +expression EXTENSION _and_ whose default mode is MODE will be +automatically mmm-ified according to CLASS (assuming ‘mmm-global-mode’ +is non-nil). If one of EXTENSION or MODE is ‘nil’, a file need only +satisfy the other one to be mmm-ified. + + You can now read the rest of this manual to learn more about how MMM +Mode works and how to configure it to your preferences. If none of the +supplied submode classes fit your needs, then you can try to write your +own. *Note Writing Classes::, for more information. + + +File: mmm.info, Node: Basics, Next: Customizing, Prev: Overview, Up: Top + +2 MMM Mode Basics +***************** + +This chapter explains the most important parts of how to use MMM Mode. + +* Menu: + +* MMM Minor Mode:: The Emacs minor mode that manages it all. +* Submode Classes:: What they are and how to use them. +* Selecting Classes:: How MMM Mode knows what classes to use. +* Insertion:: Inserting new submode regions automatically. +* Re-parsing:: Re-scanning for submode regions. +* Interactive:: Adding submode regions manually. +* Global Mode:: Turning MMM Mode on automatically. + + +File: mmm.info, Node: MMM Minor Mode, Next: Submode Classes, Up: Basics + +2.1 The MMM Minor Mode +====================== + +An Emacs minor mode is an optional feature which can be turned on or off +in a given buffer, independently of the major mode. *Note (emacs)Minor +Modes::. MMM Mode is implemented as a minor mode ‘mmm-mode’ which +manages the submode regions. ‘mmm-mode’ must be turned on in a buffer +for submode regions to be effective. When activated, ‘mmm-mode’ is +denoted by ‘MMM’ in the mode line (*note Mode Line::). + +* Menu: + +* Enabling MMM Mode:: Turning MMM Mode on and off. +* MMM Mode Keys:: Default key bindings in MMM Mode. + + +File: mmm.info, Node: Enabling MMM Mode, Next: MMM Mode Keys, Up: MMM Minor Mode + +2.1.1 Enabling MMM Mode +----------------------- + +If ‘mmm-global-mode’ is non-‘nil’ (*note Global Mode::), ‘mmm-mode’ will +be enabled automatically whenever a file with associated submode classes +is opened (*note Selecting Classes::). It is also turned on by +interactive mmm-ification (*note Interactive::), although the +interactive commands do not have key bindings when it is not on and must +be invoked via ‘M-x’. You can also turn it on (or off) manually with +‘M-x mmm-mode’, in which case it applies all submode classes associated +with the buffer. Turning MMM Mode off automatically removes all submode +regions from the buffer. + + -- Command: mmm-mode ARG + Toggle the state of MMM Mode in the current buffer. If ARG is + supplied, turn MMM Mode on if and only if ARG is positive. + + -- Function: mmm-mode-on + Turn MMM Mode on unconditionally in the current buffer. + + -- Function: mmm-mode-off + Turn MMM Mode off unconditionally in the current buffer. + + -- Variable: mmm-mode + This variable represents whether MMM Mode is on in the current + buffer. Do not set this variable directly; use one of the above + functions. + + +File: mmm.info, Node: MMM Mode Keys, Prev: Enabling MMM Mode, Up: MMM Minor Mode + +2.1.2 Key Bindings in MMM Mode +------------------------------ + +When MMM Mode is on, it defines a number of key bindings. By default, +these are bound after the prefix sequence ‘C-c %’. Minor mode keymaps +are supposed to use ‘C-c PUNCTUATION’ sequences, and I find this one to +be a good mnemonic because ‘%’ is used by Mason to denote special tags. +This prefix key can be customized; *note Key Bindings::. + + There are two types of key bindings in MMM Mode: “commands” and +“insertions”. Command bindings run MMM Mode interactive functions to do +things like re-parse the buffer or end the current submode region, and +are defined statically as normal Emacs key-bindings. Insertion bindings +insert submode region skeletons with delimiters into the buffer, and are +defined dynamically, according to which submode classes (*note Submode +Classes::) are in effect, via a keymap default binding. + + To distinguish between the two, MMM Mode uses distinct modifier keys +for each. By default, command bindings use the control key (e.g. ‘C-c +% C-b’ re-parses the buffer), and insertion bindings do not (e.g. ‘C-c +% p’, when the Mason class is in effect, inserts a ‘<%perl>...’ +region). This makes the command bindings different from in previous +versions, however, so the variable ‘mmm-use-old-bindings’ is provided. +If this variable is set to ‘t’ before MMM Mode is loaded, the bindings +will be reversed: insertion bindings will use the control key and +command bindings will not. + + Normally, Emacs gives help on a prefix command if you type ‘C-h’ +after that command (e.g. ‘C-x C-h’ displays all key bindings starting +with ‘C-x’). Because of how insertion bindings are implemented +dynamically with a default binding, they do not show up when you hit +‘C-c % C-h’. For this reason, MMM Mode defines the command ‘C-c % h’ +which displays a list of all currently valid insertion key sequences. +If you use the defaults for command and insertion bindings, the ‘C-h’ +and ‘h’ should be mnemonic. + + In the rest of this manual, I will assume you are using the defaults +for the mode prefix (‘C-c %’) and the command and insertion modifiers. +You can customize them, however; *note Key Bindings::. + + +File: mmm.info, Node: Submode Classes, Next: Selecting Classes, Prev: MMM Minor Mode, Up: Basics + +2.2 Understanding Submode Classes +================================= + +A submode class represents a “type” of submode region. It specifies how +to find the regions, what their delimiters look like, what submode they +should be, how to insert them, and how they behave in other ways. It is +represented by a symbol, such as ‘mason’ or ‘eval-elisp’. + + For example, in the Mason set of classes, there is one class +representing all ‘<%...%>’ inline Perl regions, and one representing +regions such as ‘<%perl>...’, ‘<%init>...’, and so on. +These are different to Mason, but to Emacs they are all just Perl +sections, so they are covered by the same submode class. + + But it would be tedious if whenever we wanted to use the Mason +classes, we had to specify both of these. (Actually, this is a +simplification: there are some half a dozen Mason submode classes.) So +submode classes can also “group” others together, and we can refer to +the ‘mason’ class and mean all of them. + + The way a submode class is used is to “apply” it to a buffer. This +scans the buffer for regions which should be submode regions according +to that class, and also remembers the class for later, so that new +submode regions can be inserted and scanned for later. + + +File: mmm.info, Node: Selecting Classes, Next: Insertion, Prev: Submode Classes, Up: Basics + +2.3 How MMM Mode selects submode classes +======================================== + +Submode classes that apply to a buffer come from three sources: +mode/extension-associated classes, file-local classes, and interactive +MMM-ification (*note Interactive::). Whenever MMM Mode is turned on in +a buffer (*note MMM Minor Mode::, and *note Global Mode::), it inspects +the value of two variables to determine which classes to automatically +apply to the buffer. This covers the first two sources; the latter is +covered in a later chapter. + +* Menu: + +* File Classes:: Classes for a single file. +* Mode-Ext Classes:: Classes for a given mode or extension. +* Global Classes:: Classes for all MMM Mode buffers. + + +File: mmm.info, Node: File Classes, Next: Mode-Ext Classes, Up: Selecting Classes + +2.3.1 File-Local Submode Classes +-------------------------------- + + -- Variable: mmm-classes + This variable is always buffer-local when set. Its value should be + either a single symbol or a list of symbols. Each symbol + represents a submode class that is applied to the buffer. + + ‘mmm-classes’ is usually set in a file local variables list. *Note +(emacs)File Variables::. The easiest way to do this is for the first +line of the file to contain the string ‘-*- mmm-classes: CLASSES -*-’, +where CLASSES is the desired value of ‘mmm-classes’ for the file in +question. It can also be done with a local variables list at the end of +the file. + + +File: mmm.info, Node: Mode-Ext Classes, Next: Global Classes, Prev: File Classes, Up: Selecting Classes + +2.3.2 Submode Classes Associated with Modes and Extensions +---------------------------------------------------------- + + -- User Option: mmm-mode-ext-classes-alist + This global variable associates certain submode classes with major + modes and/or file extensions. Its value is a list of elements of + the form ‘(MODE EXT CLASS)’. Any buffer whose major mode is MODE + (a symbol) _and_ whose file name matches EXT (a regular expression) + will automatically have the submode class CLASS applied to it. + + If MODE is ‘nil’, then only EXT is considered to determine if a + buffer fits the criteria, and vice versa. Thus if both MODE and + EXT are nil, then CLASS is applied to _all_ buffers in which MMM + Mode is on. Note that EXT can be any regular expression, although + its name indicates that it most often refers to the file extension. + + If CLASS is the symbol ‘t’, then no submode class is actually + applied for this association. However, if ‘mmm-global-mode’ is + non-‘nil’ and non-‘t’, MMM Mode will be turned on in matching + buffers even if there are no actual submode classes being applied. + *Note Global Mode::. + + -- Function: mmm-add-mode-ext-class MODE EXT CLASS + This function adds an element to ‘mmm-mode-ext-classes-alist’, + associating the submode class CLASS with the major mode MODE and + extension EXT. + + Older versions of MMM Mode required this function to be used to + control the value of ‘mmm-mode-ext-classes-alist’, rather than + setting it directly. In this version it is provided purely for + convenience and backward compatibility. + + +File: mmm.info, Node: Global Classes, Prev: Mode-Ext Classes, Up: Selecting Classes + +2.3.3 Globally Applied Classes and the Universal Class +------------------------------------------------------ + +In addition to file-local and mode-ext-associated submode classes, MMM +Mode also allows you to specify that certain submode classes apply to +_all_ buffers in which MMM Mode is enabled. + + -- User Option: mmm-global-classes + This variable’s value should be a list of submode classes that + apply to all buffers with MMM Mode on. It can be overriden in a + file local variables list, such as to disable global class for a + specific file. Its default value is ‘(universal)’. + + The default global class is the “universal class”, which is defined +in the file ‘mmm-univ.el’ (loaded automatically), and allows the author +of text to specify that a certain section of it be in a specific major +mode. Thus, for example, when writing an email message that includes +sample code, the author can allow readers of the message (who use emacs +and MMM) to view the code in the appropriate major mode. The syntax +used is ‘{%MODE%} ... {%/MODE%}’, where MODE should be the name of the +major mode, with or without the customary ‘-mode’ suffix: for example, +both ‘cperl’ and ‘cperl-mode’ are acceptable. + + The universal class also defines an insertion key, ‘/’, which prompts +for the submode to use. *Note Insertion::. The universal class is most +useful when ‘mmm-global-mode’ is set to ‘t’; *note Global Mode::. + + +File: mmm.info, Node: Insertion, Next: Re-parsing, Prev: Selecting Classes, Up: Basics + +2.4 Inserting new submode regions +================================= + +So much for noticing submode regions already present when you open a +file. When editing a file with MMM Mode on, you will often want to add +a new submode region. MMM Mode provides several facilities to help you. +The simplest is to just hit a few keys and have the region and its +delimiters inserted for you. + + Each submode class can define an association of keystrokes with +“skeletons” to insert a submode region. If there are several submode +classes enabled in a buffer, it is conceivable that the keys they use +for insertion might conflict, but unlikely as most buffers will not use +more than one or two submode classes groups. + + As an example of how insertion works, consider the Mason classes. In +a buffer with MMM Mode enabled and Mason associated, the key sequence +‘C-c % p’ inserts the following perl section (the semicolon is to +prevent CPerl Mode from getting confused—*note Mason::): + + <%perl>-<-; + -!- + ->- + + In this schematic representation, the string ‘-!-’ represents the +position of point (the cursor), ‘-<-’ represents the beginning of the +submode region, and ‘->-’ its end. + + All insertion keys come after the MMM Mode prefix keys (by default +‘C-c %’; *note Key Bindings::) and are by default single characters such +as ‘p’, ‘%’, and ‘i’. To avoid confusion, all the MMM Mode commands are +bound by default to control characters (after the same prefix keys), +such as ‘C-b’, ‘C-%’ and ‘C-r’. This is a change from earlier versions +of MMM Mode, and can be customized; see *note Key Bindings::. + + To find out what insertion keys are available, consult the +documentation for the submode class you are using. If it is one of the +classes supplied with MMM Mode, you can find it in this Info file. + + Because insertion keys are implemented with a “default binding” for +flexibility, they do not show up in the output of ‘C-h m’ and cannot be +found with ‘C-h k’. For this reason, MMM Mode supplies the command ‘C-c +% h’ (‘mmm-insertion-help’ to view the available insertion keys. + + +File: mmm.info, Node: Re-parsing, Next: Interactive, Prev: Insertion, Up: Basics + +2.5 Re-Parsing Submode Regions +============================== + +Describe ‘mmm-parse-buffer’, ‘mmm-parse-region’, ‘mmm-parse-block’, and +‘mmm-clear-current-region’. + + +File: mmm.info, Node: Interactive, Next: Global Mode, Prev: Re-parsing, Up: Basics + +2.6 Interactive MMM-ification Functions +======================================= + +There are several commands you can use to create submode regions +interactively, rather than by applying a submode class to a buffer. +These commands (in particular, ‘mmm-ify-region’), can be useful when +editing a file or email message containing a snippet of code in some +other language. Also see *note Global Classes::, for an alternate +approach to the same problem. + +‘C-c % C-r’ + Creates a submode region between point and mark. Prompts for the + submode to use, which must be a valid Emacs major mode name, such + as ‘emacs-lisp-mode’ or ‘cperl-mode’. Adds markers to the + interactive history. (‘mmm-ify-region’) + +‘C-c % C-c’ + Applies an already-defined submode class to the buffer, which it + prompts for. Adds this class to the interactive history. + (‘mmm-ify-by-class’) + +‘C-c % C-x’ + Scans the buffer for submode regions (prompts for the submode) + using front and back regular expressions that it also prompts for. + Briefly, it starts at the beginning of the buffer and searches for + the front regexp. If it finds a match, it searches for the back + regexp. If it finds a match for that as well, it makes a submode + region between the two matches and continues searching until no + more matches are found. Adds the regexps to the interactive + history. (‘mmm-ify-by-regexp’) + + These commands are also useful when designing a new submode class +(*note Submode Classes::). Working with the regexps interactively can +make it easier to debug and tune the class before starting to use it on +automatic. All these commands also add to value of the following +variable. + + -- Variable: mmm-interactive-history + Stores a history of all interactive mmm-ification that has been + performed in the current buffer. This way, for example, the + re-parsing functions (*note Re-parsing::) will respect + interactively added regions, and the insertion keys for classes + that were added interactively are available. + + If for any reason you want to “wipe the slate clean”, this command +should help you. By default, it has no key binding, so you must invoke +it with ‘M-x mmm-clear-history ’. + + -- Command: mmm-clear-history + Clears all history of interactive mmm-ification in the current + buffer. This command does not affect existing submode regions; to + remove them, you may want to re-parse the buffer with ‘C-c % C-b’ + (‘mmm-parse-buffer’). + + +File: mmm.info, Node: Global Mode, Prev: Interactive, Up: Basics + +2.7 MMM Global Mode +=================== + +When a file has associated submode classes (*note Selecting Classes::), +you may want MMM Mode to turn itself on and parse that file for submode +regions automatically whenever it is opened in an Emacs buffer. The +value of the following variable controls when MMM Mode turns itself on +automatically. + + -- User Option: mmm-global-mode + Do not be misled by the fact that this variable’s name ends in + ‘-mode’: it is not a simple on/off switch. There are three + possible (meanings of) values for it: ‘t’, ‘nil’, and anything + else. + + When this variable is ‘nil’, MMM Mode is never enabled + automatically. If it is enabled manually, such as by typing ‘M-x + mmm-mode’, any submode classes associated with the buffer will + still be used, however. + + When this variable is ‘t’, MMM Mode is enabled automatically in + _all_ buffers, including those not visiting files, except those + whose major mode is an element of ‘mmm-never-modes’. The default + value of this variable contains modes such as ‘help-mode’ and + ‘dired-mode’ in which most users would never want MMM Mode, and in + which MMM might cause problems. + + When this variable is neither ‘nil’ nor ‘t’, MMM Mode is enabled + automatically in all buffers that would have associated submode + classes; i.e. only if there would be something for it to do. The + value of ‘mmm-never-modes’ is still respected, however. Note that + this can include buffers not visiting files, if that buffer’s major + mode is present in ‘mmm-mode-ext-classes-alist’ with a ‘nil’ value + for EXT (*note Mode-Ext Classes::). Submode class values of ‘t’ in + ‘mmm-mode-ext-classes-alist’ cause MMM Mode to be enabled in + matching buffers, but supply no submode classes to be applied. + +* Menu: + +* Major Mode Hook:: Using MMM’s Major Mode Hook + + +File: mmm.info, Node: Major Mode Hook, Up: Global Mode + +2.7.1 The Major Mode Hook +------------------------- + +This section is intended for users who understand Emacs Lisp and want to +know how MMM Global Mode is implemented, and perhaps use the same +technique. In fact, MMM Mode exports a hook variable that you can use +easily, without understanding any of the details—see below. + + In order to enable itself in _all_ buffers, however, MMM Mode has to +hook itself into all major modes. Global Font Lock Mode from the +standard Emacs distribution (*note (emacs)Font Lock::) has a similar +problem, and solves it by adding a function to ‘change-major-mode-hook’, +which is run by ‘kill-all-local-variables’, which is run in turn by all +major mode functions at the _beginning_. This function stores a list of +which buffers need fontification. It then adds a different function to +‘post-command-hook’, which checks if the current buffer needs +fontification, and if so performs it. MMM Global Mode uses the same +technique. + + In the interests of generality, and for your use, the function that +MMM Mode runs in ‘post-command-hook’ (‘mmm-run-major-mode-hook’) is not +specific to MMM Mode, but rather runs the hook variable +‘mmm-major-mode-hook’, which by default contains a function +(‘mmm-mode-on-maybe’) which possibly turns MMM Mode on, depending on the +value of ‘mmm-global-mode’. Thus, to run another function in all major +modes, all you need to do is add it to this hook. For example, the +following line in an initialization file will turn on Auto Fill Mode +(*note (emacs)Auto Fill::) in all buffers: + + (add-hook 'mmm-major-mode-hook 'turn-on-auto-fill) + + +File: mmm.info, Node: Customizing, Next: Supplied Classes, Prev: Basics, Up: Top + +3 Customizing MMM Mode +********************** + +This chapter explains how to customize the appearance and functioning of +MMM Mode however you want. + +* Menu: + +* Region Coloring:: Changing or removing background colors. +* Preferred Modes:: Choosing which major modes to use. +* Mode Line:: What is displayed in the mode line. +* Key Bindings:: Customizing the MMM Mode key bindings. +* Local Variables:: What local variables are saved for submodes. +* Changing Classes:: Changing the supplied submode classes. +* Hooks:: How to make MMM Mode run your code. + + +File: mmm.info, Node: Region Coloring, Next: Preferred Modes, Up: Customizing + +3.1 Customizing Region Coloring +=============================== + +By default, MMM Mode highlights all submode regions with a background +color. There are three levels of this decoration, controlled by the +following variable: + + -- User Option: mmm-submode-decoration-level + This variable controls the level of coloring of submode regions. + It should be one of the integers 0, 1, or 2, representing + (respectively) none, low, and high coloring. + + No coloring means exactly that. Submode regions have the same +background as the rest of the text. This produces the minimal +interference with font-lock coloration. In particular, if you want to +use background colors for font-lock, this may be a good idea, because +the submode highlight, if present, overrides any font-lock background +coloring. + + Low coloring uses the same background color for all submode regions. +This color is specified with the face ‘mmm-default-submode-face’ (*note +(emacs)Faces::) which can be customized, either through the Emacs +“customize” interface or using direct Lisp commands such as +‘set-face-background’. Of course, other aspects of the face can also be +set, such as the foreground color, bold, underline, etc. These are more +likely to conflict with font-lock, however, so only a background color +is recommended. + + High coloring uses multiple background colors, depending on the +function of the submode region. The recognized functions and their +meanings are as follows: + +‘init’ + Code that is executed at the beginning of (something), as + initialization of some sort. + +‘cleanup’ + Code that is executed at the end of (something), as some sort of + clean up facility. + +‘declaration’ + Code that provides declarations of some sort, perhaps global or + local arguments, variables, or methods. + +‘comment’ + Text that is not executed as code, but instead serves to document + the code around it. Submode regions of this function often use a + mode such as Text Mode rather than a programming language mode. + +‘output’ + An expression that is evaluated and its value interpolated into the + output produced. + +‘code’ + Executed code not falling under any other category. + +‘special’ + Submode regions not falling under any other category, such as + component calls. + + The different background colors are provided by the faces +‘mmm-FUNCTION-submode-face’, which can be customized in the same way as +‘mmm-default-submode-face’. + + +File: mmm.info, Node: Preferred Modes, Next: Mode Line, Prev: Region Coloring, Up: Customizing + +3.2 Preferred Major Modes +========================= + +Certain of the supplied submode classes know only the language that +certain sections are written in, but not what major mode you prefer to +use to edit such code. For example, many people prefer CPerl mode over +Perl mode; you may have a special mode for Javascript or just use C++ +mode. This variable allows you to tell submodes such as Mason (*note +Mason::) and Embedded Javascript (*note Javascript::) what major mode to +use for the submodes: + + -- User Option: mmm-major-mode-preferences + The elements of this list are cons cells of the form ‘(LANGUAGE . + MODE)’. LANGUAGE should be a symbol such as ‘perl’, ‘html-js’, or + ‘java’, while MODE should be the name of a major mode such as + ‘perl-mode’, ‘cperl-mode’, ‘javascript-mode’, or ‘c++-mode’. + + You probably won’t have to set this variable at all; MMM tries to + make intelligent guesses about what modes you prefer. For example, + if a function called ‘javascript-mode’ exists, it is chosen, + otherwise ‘c++-mode’ is used. Similarly for ‘jde-mode’ and + ‘java-mode’. + + If you do need to change the defaults, you may find the following +function convenient. + + -- Function: mmm-set-major-mode-preferences LANGUAGE MODE &optional + DEFAULT + Set the preferred major mode for LANGUAGE to MODE. If there is + already a mode specified for LANGUAGE, and DEFAULT is nil or + unsupplied, then it is changed. If DEFAULT is non-nil, then any + existing mode is unchanged. This is used by packages to ensure + that some mode is present, but not override any user-specified + mode. If you are not writing a submode class, you should ignore + the third argument. + + Thus, for example, to use ‘my-java-mode’ for Java code, you would use +the following line: + + (mmm-set-major-mode-preferences 'java 'my-java-mode) + + +File: mmm.info, Node: Mode Line, Next: Key Bindings, Prev: Preferred Modes, Up: Customizing + +3.3 Customizing the Mode Line Display +===================================== + +By default, when in a submode region, MMM Mode changes the section of +the mode line (*note (emacs)Mode Line::) that normally displays the +major mode name—for example, ‘HTML’—to instead show both the dominant +major mode and the currently active submode—for example, ‘HTML[CPerl]’. +You can change this format, however. + + -- User Option: mmm-submode-mode-line-format + The value of this variable should be a string containing one or + both of the escape sequences ‘~M’ and ‘~m’. The string displayed + in the major mode section of the mode line when in a submode is + obtained by replacing all occurrences of ‘~M’ with the dominant + major mode name and ‘~m’ with the currently active submode name. + For example, to display only the currently active submode, set this + variable to ‘~m’. The default value is ‘~M[~m]’. + + The MMM minor mode also normally displays the string ‘MMM’ in the +minor mode section of the mode line to indicate when it is active. You +can customize or disable this as well. + + -- User Option: mmm-mode-string + This string is displayed in the minor mode section of the mode line + when the MMM minor mode is active. If nonempty, it should begin + with a space to separate the MMM indicator from that of other minor + modes. To eliminate the indicator entirely, set this variable to + the empty string. + + +File: mmm.info, Node: Key Bindings, Next: Local Variables, Prev: Mode Line, Up: Customizing + +3.4 Customizing the MMM Mode Key Bindings +========================================= + +The default MMM Mode key bindings are explained in *note MMM Mode +Keys::, and in *note Insertion::. There are a couple of ways to +customize these bindings. + + -- User Option: mmm-mode-prefix-key + The value of this variable (default is ‘C-c %’) should be a key + sequence to use as the prefix for the MMM Mode keymap. Minor modes + typically use ‘C-c’ followed by a punctuation character, but you + can change it to any user-available key sequence. To have an + effect, this variable should be set before MMM Mode is loaded. + + -- User Option: mmm-use-old-command-keys + When this variable is ‘nil’, MMM Mode commands use the control + modifier and insertion keys no modifier. Any other value switches + the two, so that ‘mmm-parse-buffer’, for example, is bound to ‘C-c + % b’, while perl-section insertion in the Mason class is bound to + ‘C-c % C-p’. This variable should be set before MMM Mode is loaded + to have an effect. + + When MMM is loaded, it uses the value of ‘mmm-use-old-command-keys’ +to set the values of the variables ‘mmm-command-modifiers’ and +‘mmm-insert-modifiers’, so if you prefer you can set these variables +instead. They should each be a list of key modifiers, such as +‘(control)’ or ‘()’. The Meta modifier is used in some of the command +and insertion keys, so it should not be used, and the Shift modifier is +not particularly portable between Emacsen—if it works for you, feel free +to use it. Other modifiers, such as Hyper and Super, are not +universally available, but are valid when present. + + +File: mmm.info, Node: Local Variables, Next: Changing Classes, Prev: Key Bindings, Up: Customizing + +3.5 Changing Saved Local Variables +================================== + +A lot of the functionality of MMM Mode—that which makes the major mode +appear to change—is implemented by saving and restoring the values of +local variables, or pseudo-variables. You can customize what variables +are saved, and how, with the following variable. + + -- Variable: mmm-save-local-variables + At its simplest, this is a list each of whose elements is a + buffer-local variable whose value is saved and restored for each + major mode. Each elements can also, however, be a list whose first + element is the variable symbol and whose subsequent elements + specify how and where the variable is to be saved. The second + element of the list, if present, should be one of the symbols + ‘global’, ‘buffer’, or ‘region’. If not present, the default value + is ‘global’. The third element, if present, should be a list of + major mode symbols in which to save the variable. In the list + form, the variable symbol itself can be replaced with a cons cell + of two functions, one to get the value and one to set the value. + This is called a “pseudo-variable”. + + Globally saved variables are the same in all (MMM-controlled) buffers +and submode regions of each major mode listed in the third argument, or +all major modes if it is ‘t’ or not present. Buffer-saved variables are +the same in all submode regions of a given major mode in each buffer, +and region-saved variables can be different for each submode region. + + Pseudo-variables are used, for example, to save and restore the +syntax table (*note (emacs)Syntax::) and mode keymaps (*note +(emacs)Keymaps::). + + +File: mmm.info, Node: Changing Classes, Next: Hooks, Prev: Local Variables, Up: Customizing + +3.6 Changing the Supplied Submode Classes +========================================= + +If you need to use MMM with a syntax for which a submode class is not +supplied, and you have some facility with Emacs Lisp, you can write your +own; see *note Writing Classes::. However, sometimes you will only want +to make a slight change to one of the supplied submode classes. You can +do this, after that class is loaded, with the following functions. + + -- Function: mmm-set-class-parameter CLASS PARAM VALUE + Set the value of the keyword parameter PARAM of the submode class + CLASS to VALUE. *Note Writing Classes::, for an explanation of the + meaning of each keyword parameter. This creates a new parameter if + one is not already present in the class. + + -- Function: mmm-get-class-parameter CLASS PARAM + Get the value of the keyword parameter PARAM for the submode class + CLASS. Returns ‘nil’ if there is no such parameter. + + +File: mmm.info, Node: Hooks, Prev: Changing Classes, Up: Customizing + +3.7 Hooks Provided by MMM Mode +============================== + +MMM Mode defines several hook variables (*note (emacs)Hooks::) which are +run at different times. The most often used is ‘mmm-major-mode-hook’ +which is described in *note Major Mode Hook::, but there are a couple +others. + + -- Variable: mmm-mode-hook + This normal hook is run whenever MMM Mode is enabled in a buffer. + + -- Variable: mmm-MAJOR-MODE-hook + This is actually a whole set of hook variables, a different one for + every major mode. Whenever MMM Mode is enabled in a buffer, the + corresponding hook variable for the dominant major mode is run. + + -- Variable: mmm-SUBMODE-submode-hook + Again, this is a set of one hook variable per major mode. These + hooks are run whenever a submode region of the corresponding major + mode is created in any buffer, with point at the start of the new + submode region. + + -- Variable: mmm-CLASS-class-hook + This is a set of one hook variable per submode class. These hooks + are run when a submode class is first applied to a given buffer. + + Submode classes also have a ‘:creation-hook’ parameter which should +be a function to run whenever a submode region is created with that +class, with point at the beginning of the submode region. This can be +set for supplied submode classes with ‘mmm-set-class-parameter’; *note +Changing Classes::. + + +File: mmm.info, Node: Supplied Classes, Next: Writing Classes, Prev: Customizing, Up: Top + +4 Supplied Submode Classes +************************** + +This chapter describes the submode classes that are supplied with MMM +Mode. + +* Menu: + +* Mason:: Mason server-side Perl in HTML. +* File Variables:: Elisp code in File Variables. +* Here-documents:: Code in shell and Perl here-documents. +* Javascript:: Javascript embedded in HTML. +* Embedded CSS:: CSS Styles embedded in HTML. +* Embperl:: Another syntax for Perl in HTML. +* ePerl:: A general Perl-embedding syntax. +* JSP:: Java code embedded in HTML. +* RPM:: Shell scripts in RPM Spec Files. +* Noweb:: Noweb literate programs. + + +File: mmm.info, Node: Mason, Next: File Variables, Up: Supplied Classes + +4.1 Mason: Perl in HTML +======================= + +Mason is a syntax to embed Perl code in HTML and other documents. See + for more information. The submode class for +Mason components is called ‘mason’ and is loaded on demand from +‘mmm-mason.el’. The current Mason class is intended to correctly +recognize all syntax valid in Mason 0.896. There are insertion keys for +most of the available syntax; use ‘mmm-insertion-help’ (‘C-c % h’ by +default) with Mason on to get a list. + + If you want to have mason submodes automatically in all Mason files, +you can use automatic mode and filename associations; the details depend +on what you call your Mason components and what major mode you use. +*Note Mode-Ext Classes::. If you use an extension for your Mason files +that emacs does not automatically place in your preferred HTML Mode, you +will probably want to associate that extension with your HTML Mode as +well; *note (emacs)Choosing Modes::. This also goes for “special” Mason +files such as autohandlers and dhandlers. + + The Perl mode used is controlled by the user: *Note Preferred +Modes::. The default is to use CPerl mode, if present. Unfortunately, +there are also certain problems with CPerl mode in submode regions. +(Not to say that the original perl-mode would do any better—it hasn’t +been much tried.) First of all, the first line of a Perl section is +usually indented as if it were a continuation line. A fix for this is +to start with a semicolon on the first line. The insertion key commands +do this whenever the Mason syntax allows it. + + <%perl>; + print $var; + + + In addition, some users have reported that the CPerl indentation +sometimes does not work. This problem has not yet been tracked down, +however, and more data about when it happens would be helpful. + + Some people have reported problems using PSGML with Mason. Adding +the following line to a ‘.emacs’ file should suffice to turn PSGML off +and cause emacs to use a simpler HTML mode: + + (autoload 'html-mode "sgml-mode" "HTML Mode" t) + + Earlier versions of PSGML may require instead the following fix: + + (delete '("\\.html$" . sgml-html-mode) auto-mode-alist) + (delete '("\\.shtml$" . sgml-html-mode) auto-mode-alist) + + Other users report using PSGML with Mason and MMM Mode without +difficulty. If you don’t have problems and want to use PSGML, you may +need to replace ‘html-mode’ in the suggested code with ‘sgml-html-mode’. +(Depending on your version of PSGML, this may not be necessary.) +Similarly, if you are using XEmacs and want to use the alternate HTML +mode ‘hm--html-mode’, replace ‘html-mode’ with that symbol. + + One problem that crops up when using PSGML with Mason is that even +ignoring the special tags and Perl code (which, as I’ve said, haven’t +caused me any problems), Mason components often are not a complete SGML +document. For instance, my autohandlers often say + + + <% $m->call_next %> + + + in which case the actual components contain no doctype declaration, +‘’, ‘’, or ‘’, confusing PSGML. One solution I’ve +found is to use the variable ‘sgml-parent-document’ in such incomplete +components; try, for example, these lines at the end of a component. + + %# Local Variables: + %# sgml-parent-document: ("autohandler" "body" nil ("body")) + %# sgml-doctype: "/top/level/autohandler" + %# End: + + This tells PSGML that the current file is a sub-document of the file +‘autohandler’ and is included inside a ‘’ tag, thus alleviating +its confusion. + + +File: mmm.info, Node: File Variables, Next: Here-documents, Prev: Mason, Up: Supplied Classes + +4.2 Elisp in a Local Variables List +=================================== + +Emacs allows the author of a file to specify major and minor modes to be +used while editing that file, as well as specifying values for other +local Elisp variables, with a File Variables list. *Note (emacs)File +Variables::. Since file variables values are Elisp objects (and with +the ‘eval’ special “variable”, they are forms to be evaluated), one +might want to edit them in ‘emacs-lisp-mode’. The submode class +‘file-variables’ allows this, and is suitable for turning on in a given +file with ‘mmm-classes’, or in all files with ‘mmm-global-classes’. + + +File: mmm.info, Node: Here-documents, Next: Javascript, Prev: File Variables, Up: Supplied Classes + +4.3 Here-documents +================== + +One of the long-time standard syntaxes for outputting large amounts of +code (or text, or HTML, or whatever) from a script (notably shell +scripts and Perl scripts) is the here-document syntax: + + print < + + Test Page + + + END_HTML + + The ‘here-doc’ submode class supports the general case of +here-documents while the ‘sh-here-doc’ class has more specialized +support for shell scripts. They can both guess the correct submode to +use based on the “delimiter” (‘END_HTML’ in the example) used. For +instance, it would put the above example in ‘html-mode’, noticing the +string ‘HTML’ in the delimiter of the here-document. Generally speaking +any language mode can be found if the language name is one of the words +in delimiter, but be aware that the first word that matches will be +used. The ‘mmm-major-mode-preferences’ list is checked for any language +mode preferences, as described in *note Preferred Modes::. If you use +less than evocative here-document names, or if the submode is recognized +incorrectly for any other reason, you can tell it explicitly what +submode to use. + + -- User Option: mmm-here-doc-mode-alist + The value of this variable should be an alist, each element a cons + pair associating a regular expression to a submode symbol. + Whenever a here-document name matches one of these regexps, the + corresponding submode is applied. For example, if this variable + contains the element ‘("CODE" . cc-mode)’, then any here-document + whose name contains the string ‘CODE’ will be put in ‘cc-mode’. + The value of this variable overrides any guessing that the + ‘here-doc’ submode class would do otherwise. + + +File: mmm.info, Node: Javascript, Next: Embedded CSS, Prev: Here-documents, Up: Supplied Classes + +4.4 Javascript in HTML +====================== + +The submode class ‘html-js’ allows for embedding Javascript code in HTML +documents. It recognizes both this syntax: + + + + and this syntax: + + + + The mode used for Javascript regions is controlled by the user; *Note +Preferred Modes::. + + +File: mmm.info, Node: Embedded CSS, Next: Embperl, Prev: Javascript, Up: Supplied Classes + +4.5 CSS embedded in HTML +======================== + +CSS (Cascading Style Sheets) can also be embedded in HTML. The +‘embedded-css’ submode class recognizes this syntax: + + + + It uses ‘css-mode’ if present, ‘c++-mode’ otherwise. This can be +customized: *Note Preferred Modes::. + + +File: mmm.info, Node: Embperl, Next: ePerl, Prev: Embedded CSS, Up: Supplied Classes + +4.6 Embperl: More Perl in HTML +============================== + +Embperl is another syntax for embedding Perl in HTML. See + for more information. The ‘embperl’ +submode class recognizes most if not all of the Embperl embedding +syntax. Its Perl mode is also controllable by the user; *Note Preferred +Modes::. + + +File: mmm.info, Node: ePerl, Next: JSP, Prev: Embperl, Up: Supplied Classes + +4.7 ePerl: General Perl Embedding +================================= + +Yet another syntax for embedding Perl is called ePerl. See + for more information. The +‘eperl’ submode class handles this syntax, using the Perl mode specified +by the user; *Note Preferred Modes::. + + +File: mmm.info, Node: JSP, Next: RPM, Prev: ePerl, Up: Supplied Classes + +4.8 JSP: Java Embedded in HTML +============================== + +JSP (Java Server Pages) is a syntax for embedding Java code in HTML. The +submode class ‘jsp’ handles this syntax, using a Java mode specified by +the user; *Note Preferred Modes::. The default is ‘jde-mode’ if +present, otherwise ‘java-mode’. + + +File: mmm.info, Node: RPM, Next: Noweb, Prev: JSP, Up: Supplied Classes + +4.9 RPM Spec Files +================== + +‘mmm-rpm.el’ contains the definition of an MMM Mode submode class for +editing shell script sections within RPM (Redhat Package Manager) spec +files. It is recommended for use in combination with ‘rpm-spec-mode.el’ +by Stig Bjørlykke and Steve Sanbeg + (). + + Suggested setup code: + + (add-to-list 'mmm-mode-ext-classes-alist + '(rpm-spec-mode "\\.spec\\'" rpm-sh)) + + Thanks to Marcus Harnisch for contributing +this submode class. + + +File: mmm.info, Node: Noweb, Prev: RPM, Up: Supplied Classes + +4.10 Noweb literate programming +=============================== + +‘mmm-noweb.el’ contains the definition of an MMM Mode submode class for +editing Noweb documents. Most Noweb documents use \LaTeX for the +documentation chunks. Code chunks in Noweb are document-specific, and +the mode may be set with a local variable setting in the document. The +variable MMM-NOWEB-CODE-MODE controls the global code chunk mode. Since +Noweb files may have many languages in their code chunks, this mode also +allows setting the mode by specifying a mode in the first line or two of +a code chunk, using the normal Emacs first-line mode setting syntax. +Note that this first-line mode setting only matches a single word for +the mode name, and does not support the variable name setting of the +generalized first file line syntax. + +% -*- mode: latex; mmm-noweb-code-mode: c++; -*- +% First chunk delimiter! +@ +\noweboptions{smallcode} + +\title{Sample Noweb File} +\author{Joe Kelsey\\ +\nwanchorto{mailto:bozo@bozo.bozo}{\tt bozo@bozo.bozo}} +\maketitle + +@ +\section{Introduction} +Normal noweb documentation for the required [[*]] chunk. +<<*>>= +// C++ mode here! +// We might list the program here, or simply included chunks. +<> +@ %def myfile.cc + +@ +\section{[[myfile.cc]]} +This is [[myfile.cc]]. MMM noweb-mode understands code quotes in +documentation. +<>= +// This section is indented separately from previous. +@ + +@ +\section{A Perl Chunk} +We need a Perl chunk. +<>= +#!/usr/bin/perl +# -*- perl -*- +# Each differently named chunk is flowed separately. +@ + +\section{Finish [[myfile.cc]]} +When we resume a previously defined chunk, they are indented together. +<>= +// Pick up where we left off... +@ + + + The quoted code chunks inside documentation chunks are given the mode +found in the variable MMM-NOWEB-QUOTE-MODE, if set, or the value in +MMM-NOWEB-CODE-MODE otherwise. Also, each quoted chunk is set to have a +unique name to prevent them from being indented as a unit. + + Suggested setup code: + (mmm-add-mode-ext-class 'latex-mode "\\.nw\\'" 'noweb) + (add-to-list 'auto-mode-alist '("\\.nw\\'" . latex-mode)) + + In mmm-noweb buffers, each differently-named code chunk has a +different ‘:name’, allowing all chunks with the same name to get +indented together. + + This mode also supplies special paragraph filling operations for use +in documentation areas of the buffer. From a primary-mode (‘latex-mode, +, emacs’) region, pressing ‘C-c % C-q’ will mark all submode regions +with word syntax (‘mmm-word-other-regions’), fill the current paragraph +(‘(fill-paragraph justify)’), and remove the syntax markings +(‘mmm-undo-syntax-other-regions’). + + Thanks to Joe Kelsey for contributing this +class. + + +File: mmm.info, Node: Writing Classes, Next: Indices, Prev: Supplied Classes, Up: Top + +5 Writing Submode Classes +************************* + +Sometimes (perhaps often) you may want to use MMM with a syntax for +which it is suited, but for which no submode is supplied. In such cases +you may have to write your own submode class. This chapter briefly +describes how to write a submode class, from the basic to the advanced, +with examples. + +* Menu: + +* Basic Classes:: Writing a simple submode class. +* Paired Delimiters:: Matching paired delimiters. +* Region Placement:: Placing the region more accurately. +* Submode Groups:: Grouping several classes together. +* Calculated Submodes:: Deciding the submode at run-time. +* Calculated Faces:: Deciding the display face at run-time. +* Insertion Commands:: Inserting regions automatically. +* Region Names:: Naming regions for syntax grouping. +* Other Hooks:: Running code at arbitrary points. +* Delimiters:: Controlling delimiter overlays. +* Misc Keywords:: Other miscellaneous options. + + +File: mmm.info, Node: Basic Classes, Next: Paired Delimiters, Up: Writing Classes + +5.1 Writing Basic Submode Classes +================================= + +Writing a submode class can become rather complex, if the syntax to +match is complicated and you want to take advantage of some of MMM +Mode’s extra features. But a simple submode class is not particularly +difficult to write. This section describes the basics of writing +submode classes. + + Submode classes are stored in the variable ‘mmm-classes-alist’. Each +element of this list represents a single submode class. For +convenience, the function ‘mmm-add-classes’ takes a list of submode +classes and adds them all to this alist. Each class is represented by a +list containing the class name—a symbol such as ‘mason’ or +‘html-js’—followed by pairs of keywords and arguments called a “class +specifier”. For example, consider the specifier for the submode class +‘embedded-css’: + + (mmm-add-classes + '((embedded-css + :submode css + :face mmm-declaration-submode-face + :front "]*>" + :back ""))) + + The name of the submode is ‘embedded-css’, the first element of the +list. The rest of the list consists of pairs of keywords (symbols +beginning with a colon) such as ‘:submode’ and ‘:front’, and arguments, +such as ‘css’ and ‘"]*>"’. It is the keywords and arguments +that specify how the submode works. The order of keywords is not +important; all that matters is the arguments that follow them. + + The three most important keywords are ‘:submode’, ‘:front’, and +‘:back’. The argument following ‘:submode’ names the major mode to use +in submode regions. It can be either a symbol naming a major mode, such +as ‘text-mode’ or ‘c++-mode’, or a symbol to look up in +‘mmm-major-mode-preferences’ (*note Preferred Modes::) such as ‘css’, as +in this case. + + The arguments following ‘:front’ and ‘:back’ are regular expressions +(*note (emacs)Regexps::) that should match the delimiter strings which +begin and end the submode regions. In our example, CSS regions begin +with a ‘’ tag. + + The argument following ‘:face’ specifies the face (background color) +to use when ‘mmm-submode-decoration-level’ is 2 (high coloring). *Note +Region Coloring::, for a list of canonical available faces. + + There are many more possible keywords arguments. In the following +sections, we will examine each of them and their uses in writing submode +classes. + + +File: mmm.info, Node: Paired Delimiters, Next: Region Placement, Prev: Basic Classes, Up: Writing Classes + +5.2 Matching Paired Delimiters +============================== + +A simple pair of regular expressions does not always suffice to exactly +specify the beginning and end of submode regions correctly. For this +reason, there are several other possible keyword/argument pairs which +influence the matching process. + + Many submode regions are marked by paired delimiters. For example, +the tags used by Mason (*note Mason::) include ‘<%init>...’ and +‘<%args>...’. It would be possible to write a separate submode +class for each type of region, but there is an easier way: the keyword +argument ‘:save-matches’. If supplied and non-nil, it causes the +regular expression ‘:back’, before being searched for, to be formatted +by replacing all strings of the form ‘~N’ (where N is an integer) with +the corresponding numbered subexpression of the match for ‘:front’. As +an example, here is an excerpt from the ‘here-doc’ submode class. *Note +Here-documents::, for more information about this submode. + + :front "<<\\([a-zA-Z0-9_-]+\\)" + :back "^~1$" + :save-matches 1 + + The regular expression for ‘:front’ matches ‘<<’ followed by a string +of one or more alphanumeric characters, underscores, and dashes. The +latter string, which happens to be the name of the here-document, is +saved as the first subexpression, since it is surrounded by ‘\(...\)’. +Then, because the value of ‘:save-matches’ is present and non-nil, the +string ‘~1’ is replaced in the value of ‘:back’ by the name of the +here-document, thus creating a regular expression to match the correct +ending delimiter. + + +File: mmm.info, Node: Region Placement, Next: Submode Groups, Prev: Paired Delimiters, Up: Writing Classes + +5.3 Placing Submode Regions Precisely +===================================== + +Normally, a submode region begins immediately after the end of the +string matching the ‘:front’ regular expression and ends immediately +before the beginning of the string matching the ‘:back’ regular +expression. This can be changed with the keywords ‘:include-front’ and +‘:include-back’. If their arguments are ‘nil’, or they do not appear, +the default behavior is unchanged. But if the argument of +‘:include-front’ (respectively, ‘:include-back’) is non-nil, the submode +region will begin (respectively, end) immediately before (respectively, +after) the string matching the ‘:front’ (respectively, ‘:back’) regular +expression. In other words, these keywords specify whether or not the +delimiter strings are _included_ in the submode region. + + When ‘:front’ and ‘:back’ are regexps, the delimiter is normally +considered to be the entire matched region. This can be changed using +the ‘:front-match’ and ‘:back-match’ keywords. The values of the +keywords is a number specifying the submatch. This defaults to zero +(specifying the whole regexp). + + Two more keywords which affect the placement of the region +‘:front-offset’ and ‘:back-offset’, which both take integers as +arguments. The argument of ‘:front-offset’ (respectively, +‘:back-offset’) gives the distance in characters from the beginning +(respectively, ending) location specified so far, to the actual point +where the submode region begins (respectively, ends). For example, if +‘:include-front’ is nil or unsupplied and ‘:front-offset’ is 2, the +submode region will begin two characters after the end of the match for +‘:front’, and if ‘:include-back’ is non-nil and ‘:back-offset’ is -1, +the region will end one character before the end of the match for +‘:back’. + + In addition to integers, the arguments of ‘:front-offset’ and +‘:back-offset’ can be functions which are invoked to move the point from +the position specified by the matches and inclusions to the correct +beginning or end of the submode region, or lists whose elements are +either functions or numbers and whose effects are applied in sequence. +To help disentangle these options, here is another excerpt from the +‘here-doc’ submode class: + + :front "<<\\([a-zA-Z0-9_-]+\\)" + :front-offset (end-of-line 1) + :back "^~1$" + :save-matches 1 + + Here the value of ‘:front-offset’ is the list ‘(end-of-line 1)’, +meaning that from the end of the match for ‘:front’, go to the end of +the line, and then one more character forward (thus to the beginning of +the next line), and begin the submode region there. This coincides with +the normal behavior of here-documents: they begin on the following line +and go until the ending flag. + + If the ‘:back’ should not be able to start a new submode region, set +the ‘:end-not-begin’ keyword to non-nil. + + +File: mmm.info, Node: Submode Groups, Next: Calculated Submodes, Prev: Region Placement, Up: Writing Classes + +5.4 Defining Groups of Submodes +=============================== + +Sometimes more than one submode class is required to accurately reflect +the behavior of a single type of syntax. For example, Mason has three +very different types of Perl regions: blocks bounded by matched tags +such as ‘<%perl>...’, inline output expressions bounded by +‘<%...%>’, and single lines of code which simply begin with a ‘%’ +character. In cases like these, it is possible to specify an “umbrella” +class, to turn all these classes on or off together. + + -- Function: mmm-add-group GROUP CLASSES + The submode classes CLASSES, which should be a list of lists, + similar to what might be passed to ‘mmm-add-classes’, are added + just as by that function. Furthermore, another class named GROUP + is added, which encompasses all the classes in CLASSES. + + Technically, an group class is specified with a ‘:classes’ keyword +argument, and the subsidiary classes are given a non-nil ‘:private’ +keyword argument to make them invisible. But in general, all you should +ever need to know is how to invoke the function above. + + -- Function: mmm-add-to-group GROUP CLASSES + Adds a list of classes to an already existing group. This can be + used, for instance, to add a new quoting definition to HTML-JS + using this example to add the quote characters “%=%”: + + (mmm-add-to-group 'html-js '((js-html + :submode javascript + :face mmm-code-submode-face + :front "%=%" + :back "%=%" + :end-not-begin t))) + + +File: mmm.info, Node: Calculated Submodes, Next: Calculated Faces, Prev: Submode Groups, Up: Writing Classes + +5.5 Calculating the Correct Submode +=================================== + +In most cases, the author of a submode class will know in advance what +major mode to use, such as ‘text-mode’ or ‘c++-mode’. If there are +multiple possible modes that the user might desire, then +‘mmm-major-mode-preferences’ should be used (*note Preferred Modes::). +The function ‘mmm-set-major-mode-preferences’ can be used, with a third +argument, to ensure than the mode is present. + + In some cases, however, the author has no way of knowing in advance +even what language the submode region will be in. The ‘here-doc’ class +is one of these. In such cases, instead of the ‘:submode’ keyword, the +‘:match-submode’ keyword must be used. Its argument should be a +function, probably written by the author of the submode class, which +calculates what major mode each region should use. + + It is invoked immediately after a match is found for ‘:front’, and is +passed one argument: a string representing the front delimiter. +Normally this string is simply whatever was matched by ‘:front’, but +this can be changed with the keyword ‘:front-form’ (*note Delimiters::). +The function should then return a symbol that would be a valid argument +to ‘:submode’: either the name of a mode, or that of a language to look +up a preferred mode. If it detects an invalid match—for example, the +user has specified a mode which is not available—it should ‘(signal +'mmm-no-matching-submode nil)’. + + Since here-documents can contain code in any language, the ‘here-doc’ +submode class uses ‘:match-submode’ rather than ‘:submode’. The +function it uses is ‘mmm-here-doc-get-mode’, defined in ‘mmm-sample.el’, +which inspects the name of the here-document for flags indicating the +proper mode. For example, this code should probably be in ‘perl-mode’ +(or ‘cperl-mode’): + + print <’ and ‘") + ("l/" . "
  • |
    • ") + ("m/" . "
    |
    ") + ("n/" . "") + ("p/" . "

    |

    ") + ("q/" . "|") + ("s/" . "|") + ("t/" . "|") + ("u/" . "
    • |
    ") + ("x/" . "") + ("2/" . "

    |

    ") + ("3/" . "

    |

    ") + ("?/" . ""))) + +(defvar web-mode-engines-auto-pairs + '(("angular" . (("{{ " . " }}"))) + ("anki" . (("{{ " . " }}"))) + ("antlers" . (("{{ " . " }}") + ("{{$ " . "| $}}") + ("{{? " . "| ?}}") + ("{{# " . "| #}}"))) + ("artanis" . (("<% " . " %>") + ("<%=" . " | %>") + ("<@css" . " | %>") + ("<@icon" . " | %>") + ("<@include" . " | %>") + ("<@js" . " | %>"))) + ("asp" . (("<% " . " %>"))) + ("aspx" . (("<% " . " %>") + ("<%=" . "%>") + ("<%#" . "%>") + ("<%$" . "%>") + ("<%@" . "%>") + ("<%:" . "%>") + ("<%-" . "- | --%>"))) + ("astro" . (("{ " . " }"))) + ("blade" . (("{{{" . " | }}}") + ("{{ " . " }}") + ("{!!" . " | !!}") + ("@{{" . " | }}") + ("{{-" . "- | --}}"))) + ("cl-emb" . (("<% " . " %>") + ("<%=" . " | %>") + ("<%#" . " | %>"))) + ("ctemplate" . (("{{ " . "| }}") + ("{{~ " . "| }}") + ("{{{" . " | }}}") + ("{~{" . " | }}") + ("{{~{" . " | }}}") + ("{{!" . "-- | --}}") + ("{{^" . "}}") + ("{{/" . "}}") + ("{{#" . "}}"))) + ("django" . (("{{ " . " }}") + ("{% " . " %}") + ("{%-" . " | %}") + ("{# " . " #}"))) + ("elixir" . (("<% " . " %>") + ("<%=" . " | %>") + ("<%%" . " | %>") + ("<%#" . " | %>"))) + ("ejs" . (("<% " . " %>") + ("<%=" . "%>") + ("<%#" . "%>") + ("<%-" . "%>"))) + ("erb" . (("<% " . " %>") + ("<%=" . " %>") + ("<%#" . "%>") + ("<%-" . " %>"))) + ("freemarker" . (("<% " . " %>") + ("<#-" . "- | -->") + ("${ " . " }") + ("[% " . " %]") + ("[# " . " #]") + ("[#-" . "- | --]"))) + ("go" . (("{{ " . " }}") + ("{{-" . " | -}}"))) + ("hero" . (("<% " . " %>") + ("<%=" . " | %>") + ("<%!" . " | %>") + ("<%:" . " | %>") + ("<%#" . " | %>") + ("<%@" . " | %>") + ("<%~" . " | %>") + ("<%+" . " | %>"))) + ("jsp" . (("<% " . " %>") + ("<%-" . "- | --%>") + ("<%=" . "%>") + ("<%!" . "%>") + ("<%@" . "%>") + ("${ " . " }"))) + ("lsp" . (("<% " . " %>") + ("<%%" . " | %>") + ("<%#" . " | %>"))) + ("mako" . (("<% " . " %>") + ("<%!" . " | %>") + ("${ " . " }"))) + ("marko" . (("${ " . " }"))) + ("mason" . (("<% " . " %>") + ("<& " . " &>"))) + ("mojolicious" . (("<% " . " %>") + ("<%=" . " | %>") + ("<%%" . " | %>") + ("<%#" . " | %>"))) + ("php" . (("") + ("") + (""))) + ("template-toolkit" . (("[% " . " %]") + ("[%-" . " | %]") + ("[%#" . " | %]"))) + ("riot" . (("={ " . " }"))) + ("underscore" . (("<% " . " %>"))) + ("vue" . (("{{ " . " }}"))) + ("web2py" . (("{{ " . " }}") + ("{{=" . "}}"))) + (nil . ((""))) + )) + +(defvar web-mode-engines-snippets + '(("artanis" . (("if" . "<% (if (|) %>\n\n<% ) %>") + ("when" . "<% (when (|) %>\n\n<% ) %>") + ("unless" . "<% (unless (|) %>\n\n<% ) %>") + ("cond" . "<% (cond %>\n<% [(|) %>\n\n<% ] %>\n<% [else %>\n\n<% ] %>\n<% ) %>") + ("let" . "<% (let ([|]) %>\n\n<% ) %>") + ("let*" . "<% (let* ([|]) %>\n\n<% ) %>") + ("do" . "<% (do ([|]) %>\n<% [()] %>\n\n<% ) %>") + ("for-each" . "<% (for-each %>\n|\n\n<% ) %>") + ("case" . "<% (case | %>\n<% [() %>\n\n<% ] %>\n<% [() %>\n\n<% ] %>\n<% ) %>"))) + ("ejs" . (("for" . "<% for (|) { %>\n\n<% } %>") + ("if" . "<% if (|) { %>\n\n<% } %>"))) + ("erb" . (("each" . "<% |.each do %>\n\n<% end %>") + ("if" . "<% if | %>\n\n<% end %>") + ("when" . "<% when | %>\n\n<% end %>") + ("unless" . "<% unless | %>\n\n<% end %>"))) + ("php" . (("if" . "\n\n") + ("while" . "\n\n") + ("for" . "\n\n") + ("foreach" . "\n\n") + ("each" . "\n\n") + ("switch" . "\n\n\n\n\n\n\n"))) + ("django" . (("block" . "{% block | %}\n\n{% endblock %}") + ("comment" . "{% comment | %}\n\n{% endcomment %}") + ("css" . "{% stylesheet %}\n\n{% endstylesheet %}") + ("cycle" . "{% cycle | as %}\n\n{% endcycle %}") + ("filter" . "{% filter | %}\n\n{% endfilter %}") + ("for" . "{% for | in %}\n\n{% endfor %}") + ("if" . "{% if | %}\n\n{% endif %}") + ("ifequal" . "{% ifequal | %}\n\n{% endifequal %}") + ("ifnotequal" . "{% ifnotequal | %}\n\n{% endifnotequal %}") + ("js" . "{% javascript | %}\n\n{% endjavascript %}") + ("schema" . "{% schema | %}\n\n{% endschema %}") + ("safe" . "{% safe | %}\n\n{% endsafe %}"))) + ("mako" . (("if" . "% if |:\n% endif") + ("for" . "% for | in :\n% endfor") + ("doc" . "<%doc>\n|\n") + ("inherit" . "<%inherit file=\"|\" />") + ("namespace" . "<%namespace name=\"|\" file=\"\" import=\"\"/>") + ("block" . "<%block name=\"|\">\n"))) + ("template-toolkit" . (("if" . "[% IF | %]\n\n[% END %]"))) + (nil . (("html5" . "\n\n\n\n\n\n\n|\n\n") + ("table" . "\n\n\n\n\n
    |
    ") + ("ul" . "
      \n
    • |
      • \n
    • \n
    "))) + )) + +(defvar web-mode-engine-token-regexps + (list + '("antlers" . "\"\\|'") + '("artanis" . "\"\\|#|\\|;") + '("asp" . "//\\|/\\*\\|\"\\|'") + '("ejs" . "//\\|/\\*\\|\"\\|'") + '("erb" . "\"\\|'\\|#\\|<<[-]?['\"]?\\([[:alnum:]_]+\\)['\"]?") + '("lsp" . "\"\\|#|\\|;") + '("mako" . "\"\\|'\\|#") + '("mason" . "\"\\|'\\|#") + '("mojolicious" . "\"\\|'") + '("php" . "//\\|/\\*\\|#\\|\"\\|'\\|<<<['\"]?\\([[:alnum:]]+\\)['\"]?") + '("python" . "\"\\|'\\|#") + '("web2py" . "\"\\|'")) + "Engine regexps used to identify tokens (strings / comments) in blocks.") + +(defvar web-mode-engine-open-delimiter-regexps + (list + '("angular" . "{{") + '("anki" . "{{") + '("antlers" . "{{[@#$]?") + '("artanis" . "<%\\|<@\\(css\\|icon\\|include\\|js\\)") + '("asp" . "<%\\|" nil 4) + ("\\.svg$" "" nil 0) + ("\\.js$" "" t 0) + ("\\.css$" "" t 0) + ("\\.html?$" "" nil 4)) + "List of elements and extensions for `web-mode-file-link'. It +consists of a string that contains the regular expression that +matches the appropriate files, a format string with element that +contains the link (%s should be put where the path goes,) a bool +that tells if the element belongs in the element, and +number of characters to move back if needed (or 0 if point +shouldn't be moved back.)") + +(defvar web-mode-sql-queries + (regexp-opt + '("SELECT" "INSERT" "UPDATE" "DELETE" "select" "insert" "update" "delete"))) + +(defvar web-mode-sql-keywords + (regexp-opt + (append + (cdr (assoc "sql" web-mode-extra-keywords)) + '("SELECT" "INSERT" "UPDATE" "DELETE" + "FROM" "WHERE" "GROUP BY" "LIKE" "LIMIT" "HAVING" "JOIN" "LEFT" "INNER" + "FULL" "OUTER" "VALUES" "ORDER BY" "SEPARATOR" "ASC" "DESC" + "AND" "OR" "ON" "WHEN" "ELSE" "END" "THEN")))) + +(defvar web-mode-python-constants + (regexp-opt + (append + (cdr (assoc "python" web-mode-extra-constants)) + '("True" "False" "None" "__debug__" "NotImplemented" "Ellipsis")))) + +(defvar web-mode-elixir-keywords + (regexp-opt + (append + (cdr (assoc "elixir" web-mode-extra-keywords)) + '("after" "and" "bc" "case" "catch" "cond" "defcallback" "defdelegate" "defexception" "defgaurdp" "defguard" "defimpl" "defmodule" "defoverridable" "defprotocol" "defrecord" "defrecordp" "defstruct" "do" "else" "end" "exit" "fn" "for" "form_for" "if" "in" "lc" "not" "or" "quote" "raise" "receive" "rescue" "super" "throw" "try" "unless" "unquote" "when" "with")))) + + +(defvar web-mode-elixir-constants + (regexp-opt + (append + (cdr (assoc "elixir" web-mode-extra-constants)) + '("nil" "true" "false")))) + +(defvar web-mode-erlang-constants + (regexp-opt + (append + (cdr (assoc "erlang" web-mode-extra-constants)) + '("true" "false")))) + +(defvar web-mode-erlang-keywords + (regexp-opt + (append + (cdr (assoc "erlang" web-mode-extra-keywords)) + '("else" "if" "do" "end")))) + +(defvar web-mode-cl-emb-constants + (regexp-opt + '("nil" "t" "raw" "escape"))) + +(defvar web-mode-cl-emb-keywords + (regexp-opt + '("if" "else" "endif" "unless" "endunless" "var" "repeat" + "endrepeat" "loop" "endloop" "include" "call" "with" + "endwith" "set" "genloop" "endgenloop" "insert"))) + +(defvar web-mode-artanis-constants + (regexp-opt + '("#f" "#t"))) + +(defvar web-mode-artanis-keywords + (regexp-opt + (append + (cdr (assoc "artanis" web-mode-extra-keywords)) + '("begin" "cut" "cute" "if" "when" "unless" "cond" "case" + "do" "quote" "syntax" "lambda" "lambda*" "and" "and-let*" + "or" "else" "delay" "receive" "use-modules" "match" + "match-lambda" "match-lambda*" "match-let" "match-let*" + "match-letrec" "let" "let*" "letrec" "letrec*" "and-let*" + "let-syntax" "letrec-syntax" "syntax-rules" "syntax-case" + "define" "define-syntax" "define-macro" + "define-condition-type" "define-immutable-record-type" + "define-record-type" "define-values" "parameterize" "for-each" + "require-extension" "set!" "test-approximate" "test-assert" + "test-begin" "test-end" "test-eq" "test-equal" "test-eqv" + "test-error" "test-group" "test-group-with-cleanup" "test-with-runner")))) + +(defvar web-mode-lsp-constants + (regexp-opt + '("nil" "t"))) + +(defvar web-mode-lsp-keywords + (regexp-opt + '("dolist" "let" "while" "cond" "when" "progn" "if" + "dotimes" "unless" "lambda" + "loop" "for" "and" "or" "in" "do" "defun"))) + +(defvar web-mode-php-constants + (regexp-opt + (append + (cdr (assoc "php" web-mode-extra-constants)) + '("TRUE" "FALSE" "NULL" "true" "false" "null" + "STR_PAD_LEFT" "STR_PAD_RIGHT" + "ENT_COMPAT" "ENT_QUOTES" "ENT_NOQUOTES" "ENT_IGNORE" + "ENT_SUBSTITUTE" "ENT_DISALLOWED" "ENT_HTML401" "ENT_XML1" + "ENT_XHTML" "ENT_HTML5" "JSON_PRETTY_PRINT" "JSON_UNESCAPED_SLASHES" + "LIBXML_NOBLANKS")))) + +(defvar web-mode-php-keywords + (regexp-opt + (append + (cdr (assoc "php" web-mode-extra-keywords)) + '("abstract" "and" "array" "as" "break" "case" "catch" "class" "clone" + "const" "continue" "declare" "default" "die" "do" "echo" "else" "elseif" + "empty" "enddeclare" "endfor" "endforeach" "endif" "endswitch" "endwhile" + "eval" "exit" "extends" "final" "finally" "fn" "for" "foreach" "function" + "global" "goto" "if" "implements" "include" "include_once" "instanceof" + "insteadof" "interface" "isset" "list" "namespace" "new" "or" "parent" + "print" "private" "protected" "public" "require" "require_once" "return" + "self" "static" "switch" "trait" "try" "throw" "unset" "use" "var" + "while" "xor" "yield" "yield from")))) + +(defvar web-mode-php-types + (eval-when-compile + (regexp-opt + '("array" "bool" "boolean" "callable" "float" "int" "integer" + "iterable" "mixed" "object" "resource" "string" "void")))) + +(defvar web-mode-css-at-rules + (eval-when-compile + (regexp-opt + '("charset" "import" "media" "page" "font-face" + "namespace" "supports" "document" + "keyframes" "-moz-keyframes" "-webkit-keyframes" + "mixin" "viewport")))) + +(defvar web-mode-css-pseudo-classes + (eval-when-compile + (regexp-opt + '("active" "after" "before" "checked" "disabled" "empty" "enabled" + "first" "first-child" "first-letter" "first-line" "first-of-type" "focus" + "hover" "lang" "last-child" "last-of-type" "left" "link" + "not" "nth-child" "nth-last-child" "nth-last-of-type" "nth-of-type" + "only-child" "only-of-type" + "right" "root" "selection" "target" "visited")))) + +(defvar web-mode-python-keywords + (regexp-opt + (append + (cdr (assoc "python" web-mode-extra-keywords)) + '("and" "as" "assert" "break" "class" "continue" "def" "del" + "elif" "else" "except" "finally" "for" "from" "global" + "if" "import" "in" "is" "lambda" "nonlocal" "not" "or" "pass" + "raise" "return" "try" "while" "with" "yield")))) + +(defvar web-mode-jsp-keywords + (regexp-opt + (append + (cdr (assoc "jsp" web-mode-extra-keywords)) + '("case" "catch" "do" "else" "end" "false" "for" "function" + "if" "in" "include" + "new" "package" "page" "private" "protected" "public" + "return" "tag" "taglib" "throw" "throws" "true" "try" "void" "while")))) + +(defvar web-mode-erb-keywords + (regexp-opt + (append + (cdr (assoc "erb" web-mode-extra-keywords)) + '("alias" "and" "begin" "break" "case" "class" "def" "defined?" "do" + "elsif" "else" "end" "ensure" "fail" "for" "if" "in" + "module" "next" "not" "or" "redo" "rescue" "retry" "return" + "then" "super" "unless" "undef" "until" "when" "while" "yield" + "__ENCODING__" "__FILE__" "__LINE__")))) + +(defvar web-mode-mason-keywords + (regexp-opt + (append + (cdr (assoc "mason" web-mode-extra-keywords)) + '("and" "base" "close" "die" "each" "else" "elsif" "eval" "exists" + "foreach" "grep" "if" "length" "local" "my" "next" "open" "or" + "package" "pop" "ref" "return" "stat" "sub" "tie" + "undef" "unless" "use" "while")))) + +(defvar web-mode-erb-builtins + (regexp-opt + (append + (cdr (assoc "erb" web-mode-extra-builtins)) + + '("__callee__" "__dir__" "__method__" + "abort" "at_exit" "autoload" "autoload?" + "binding" "block_given?" "caller" "catch" + "eval" "exec" "exit" "exit!" "fail" "fork" "format" + "lambda" "load" "loop" "open" + "p" "print" "printf" "proc" "putc" "puts" + "raise" "rand" "readline" "readlines" "require" "require_relative" + "sleep" "spawn" "sprintf" "srand" "syscall" "system" + "throw" "trap" "warn" + "alias_method" "attr" "attr_accessor" "attr_reader" "attr_writer" + "define_method" "extend" "include" "module_function" + "prepend" "private" "protected" "public" + "refine" "using" + + "error_message_on" "error_messages_for" "form" "input" + "auto_discovery_link_tag" "image_tag" "javascript_include_tag" + "stylesheet_link_tag" "image_path" "path_to_image"" " + "javascript_path" "path_to_javascript" "register_javascript_expansion" + "register_javascript_include_default" "register_stylesheet_expansion" + "stylesheet_path" "path_to_stylesheet" "atom_feed" "entry" "updated" + "benchmark" "cache" "capture" "content_for" "distance_of_time_in_words" + "distance_of_time_in_words_to_now" "time_ago_in_words" "date_select" + "datetime_select" "time_select" "select_date" "select_datetime" + "select_day" "select_hour" "select_minute" "select_month" "select_second" + "select_time" "select_year" "debug" + "check_box" "fields_for" "file_field" "form_for" "hidden_field" + "label" "password_field" "radio_button" "text_area" "text_field" + "check_box_tag" "field_set_tag" "file_field_tag" "form_with" "form_tag" + "hidden_field_tag" "image_submit_tag" "label_tag" "password_field_tag" + "radio_button_tag" "select_tag" "submit_tag" "text_area_tag" + "text_field_tag" + "collection_select" "country_options_for_select" "country_select" + "option_groups_from_collection_for_select" "options_for_select" + "options_from_collection_for_select" "select" + "time_zone_options_for_select" + "time_zone_select" "button_to_function" "define_javascript_functions" + "escape_javascript" "javascript_tag" "link_to_function"" " + "number_to_currency" "number_to_human_size" "number_to_percentage" + "number_to_phone" "number_with_delimiter" "number_with_precision" + "evaluate_remote_response" "form_remote_for" "form_remote_tag" + "link_to_remote" "observe_field" "observe_field" + "periodically_call_remote" + "remote_form_for" "remote_function" "submit_to_remote" "update_page" + "update_page_tag" "dom_class" "dom_id" "partial_path" "sanitize" + "sanitize_css" "strip_links" "strip_tags" + "cdata_section" "content_tag" "escape_once" "tag" + "auto_link" "concat" "cycle" "excerpt" "highlight" "markdown" "pluralize" + "reset_cycle" "simple_format" "textilize" "textilize_without_paragraph" + "truncate" "word_wrap" "button_to" "current_page?" "link_to" "link_to_if" + "link_to_unless" "link_to_unless_current" "mail_to" "url_for" + "action_name" "atom_feed" "audio_path" "audio_tag" + "content_tag_for" "controller" "controller_name" "action_name" + "controller_path" "convert_to_model" "cookies" "csrf_meta_tag" + "csrf_meta_tags" "headers" + "current_cycle" "div_for" "email_field" "email_field_tag" + "favicon_link_tag" "flash" "l" "button_tag" + "grouped_collection_select" "grouped_options_for_select" + "image_alt" "j" "javascript_cdata_section" + "localize" "logger" "number_field" + "number_field_tag" "number_to_human" "params" "path_to_audio" + "path_to_video" "phone_field" "phone_field_tag" "provide" + "range_field" "range_field_tag" "raw" "render" "render_to_string" "request" + "request_forgery_protection_token" "response" "safe_concat" + "safe_join" "search_field" "search_field_tag" + "session" "t" "telephone_field" "telephone_field_tag" + "time_tag" "translate" "url_field" "url_field_tag" + "url_options" "video_path" "video_tag" "simple_form_for" + "javascript_pack_tag" "stylesheet_pack_tag" "csp_meta_tag" + + )))) + +(defvar web-mode-asp-constants + (regexp-opt + (append + (cdr (assoc "asp" web-mode-extra-constants)) + '("adAsyncExecute" "adAsyncFetch" "adAsyncFetchNonBlocking" "adCmdFile" + "adCmdStoredProc" "adCmdTable" "adCmdTableDirect" "adCmdText" "adCmdUnknown" + "adCmdUnspecified" "adExecuteNoRecords" "adExecuteRecord" "adExecuteStream" + "adLockBatchOptimistic" "adLockOptimistic" "adLockPessimistic" + "adLockReadOnly" "adLockUnspecified" "adOpenDynamic" "adOpenForwardOnly" + "adOpenKeyset" "adOpenStatic" "adOpenUnspecified" "adOptionUnspecified" + "Empty" "Nothing" "Null" "True" "False" + "vbBack" "vbCr" "vbCrLf" "vbFormFeed" "vbLf" "vbNewLine" "vbNullChar" + "vbNullString" "vbObjectError" "vbScript" "vbTab" "vbVerticalTab")))) + +(defvar web-mode-asp-keywords + (regexp-opt + (append + (cdr (assoc "asp" web-mode-extra-keywords)) + '("Abs" "And" "Array" "Asc" "Atn" + "CBool" "CByte" "CCur" "CDate" "CDbl" "CInt" "CLng" "CSng" "CStr" + "Call" "Case" "Chr" "Class" "Const" "Cos" "CreateObject" + "Date" "DateAdd" "DateDiff" "DatePart" "DateSerial" "DateValue" + "Day" "Dim" "Do" + "Each" "Else" "ElseIf" "End" "Erase" "Err" "Eval" "Exit" "Exp" + "Explicit" + "Filter" "Fix" "For" "FormatCurrency" "FormatDateTime" + "FormatNumber" "FormatPercent" "Function" + "GetLocale" "GetObject" "GetRef" "Hex" "Hour" + "If" "In" "InStr" "InStrRev" "InputBox" "Int" "IsArray" "IsDate" + "IsEmpty" "IsNull" "IsNumeric" "IsObject" "Join" + "LBound" "LCase" "LTrim" "Language" "Left" "Len" "Let" + "LoadPicture" "Log" "Loop" + "Mid" "Minute" "Month" "MonthName" "MsgBox" + "New" "Next" "Not" "Now" + "Oct" "On" "Option" "Or" "Preserve" "Private" "Public" + "RGB" "RTrim" "Redim" "Rem" "Replace" "Right" "Rnd" "Round" + "ScriptEngine" "ScriptEngineBuildVersion" + "ScriptEngineMajorVersion" "ScriptEngineMinorVersion" + "Second" "Select" "Set" "SetLocale" "Sgn" "Sin" "Space" "Split" + "Sqr" "StrComp" "StrReverse" "String" "Sub" + "Tan" "Then" "Time" "TimeSerial" "TimeValue" "Timer" "To" "Trim" + "TypeName" + "UBound" "UCase" "Until" "VarType" + "Weekday" "WeekdayName" "Wend" "With" "While" "Year")))) + +(defvar web-mode-asp-types + (regexp-opt + (append + (cdr (assoc "asp" web-mode-extra-types)) + '("Application" "ASPError" "Request" "Response" "Server" "Session")))) + +(defvar web-mode-aspx-keywords + (regexp-opt + (append + (cdr (assoc "aspx" web-mode-extra-keywords)) + '("case" "catch" "do" "else" "end" "for" "foreach" "function" + "if" "in" "include" "new" "package" "page" "return" + "tag" "throw" "throws" "try" "while")))) + +(defvar web-mode-smarty-keywords + (regexp-opt '("as"))) + +(defvar web-mode-velocity-keywords + (eval-when-compile + (regexp-opt '("in" "true" "false")))) + +(defvar web-mode-freemarker-keywords + (eval-when-compile + (regexp-opt '("as" "list")))) + +(defvar web-mode-go-keywords + (eval-when-compile + (regexp-opt + '("const" "define" "else" "end" + "for" "func" "if" "import" + "pipeline" "range" "return" "struct" + "template" "type" "var" "with")))) + +(defvar web-mode-go-functions + (eval-when-compile + (regexp-opt + '("and" "call" "ge" "html" "index" "js" "len" "not" "or" + "print" "printf" "println" "urlquery" "where")))) + +(defvar web-mode-go-types + (regexp-opt + (append + (cdr (assoc "go" web-mode-extra-types)) + '("int" "string")))) + +(defvar web-mode-closure-keywords + (eval-when-compile + (regexp-opt '("in" "and" "not" "or")))) + +(defvar web-mode-svelte-keywords + (regexp-opt '("as"))) + +(defvar web-mode-django-control-blocks + (append + (cdr (assoc "django" web-mode-extra-control-blocks)) + '( + + "assets" "autoescape" + "block" "blocktrans" "blocktranslate" + "cache" "call" "capture" "comment" + "draw" + "embed" + "filter" "for" "foreach" "form" + "if" "ifchanged" "ifequal" "ifnotequal" + "macro" + "random" "raw" + "safe" "sandbox" "spaceless" + "tablerow" + "unless" + "verbatim" + "with" + + "endassets" "endautoescape" + "endblock" "endblocktrans" "endblocktranslate" + "endcache" "endcall" "endcapture" "endcomment" + "draw" + "endembed" + "endfilter" "endfor" "endforeach" "endform" + "endif" "endifchanged" "endifequal" "endifnotequal" + "endmacro" + "endrandom" "endraw" + "endsafe" "endsandbox" "endspaceless" + "endtablerow" + "endunless" + "endverbatim" + "endwith" + + ;; "set" "endset" ;#504 + + "csrf_token" "cycle" "debug" + "elif" "else" "elseif" "elsif" "empty" "extends" + "firstof" "include" "load" "lorem" "now" "regroup" "ssi" + "trans" "templatetag" "url" "widthratio" + + ;; #805 + "graph" "endgraph" + "javascript" "endjavascript" + "schema" "endschema" + "stylesheet" "endstylesheet" + + ))) + +(defvar web-mode-django-control-blocks-regexp + (regexp-opt web-mode-django-control-blocks t)) + +(defvar web-mode-django-keywords + (eval-when-compile + (regexp-opt + '("and" "as" "assign" + "break" + "cache" "call" "case" "context" "continue" + "do" + "flush" "from" + "ignore" "import" "in" "is" + "layout" "load" + "missing" + "none" "not" + "or" + "pluralize" + "random" + "set" ;#504 + "unless" "use" + "var" + )))) + +(defvar web-mode-django-types + (eval-when-compile + (regexp-opt '("null" "false" "true")))) + +(defvar web-mode-blade-control-blocks + (append + (cdr (assoc "blade" web-mode-extra-control-blocks)) + '("component" "foreach" "forelse" "for" "if" "section" "slot" "switch" "unless" "while") + )) + +(defvar web-mode-blade-control-blocks-regexp + (regexp-opt web-mode-blade-control-blocks t)) + +(defvar web-mode-directives + (eval-when-compile + (regexp-opt + '("include" "page" "taglib" + "Assembly" "Control" "Implements" "Import" + "Master" "OutputCache" "Page" "Reference" "Register")))) + +(defvar web-mode-template-toolkit-keywords + (regexp-opt + '("block" "call" "case" "catch" "clear" "default" "do" + "else" "elsif" "end" "filter" "final" "for" + "foreach" "get" "if" "in" "include" "insert" "is" "last" + "macro" "meta" "or" "perl" "process" "rawperl" "return" + "set" "stop" "switch" "tags" "throw" "try" + "unless" "use" "while" "wrapper"))) + +(defvar web-mode-perl-keywords + (regexp-opt + '("__DATA__" "__END__" "__FILE__" "__LINE__" "__PACKAGE__" + "and" "cmp" "continue" "CORE" "do" "else" "elsif" "eq" "exp" + "for" "foreach" "ge" "gt" "if" "le" "lock" "lt" "m" "ne" "no" + "or" "package" "q" "qq" "qr" "qw" "qx" "s" "sub" + "tr" "unless" "until" "while" "xor" "y" + "my" "use" "print" "say"))) + +(defvar web-mode-javascript-keywords + (regexp-opt + (append + (cdr (assoc "javascript" web-mode-extra-keywords)) + '("as" "async" "await" "break" "case" "catch" "class" "const" "continue" + "debugger" "default" "delete" "do" "else" "enum" "eval" + "export" "extends" "finally" "for" "from" "function" "get" "if" + "implements" "import" "in" "instanceof" "interface" "let" + "new" "of" "package" "private" "protected" "public" + "return" "set" "static" "super" "switch" + "throw" "try" "type" "typeof" "var" "void" "while" "with" "yield")))) + +(defvar web-mode-javascript-constants + (regexp-opt + '("false" "null" "undefined" "Infinity" "NaN" "true" "arguments" "this"))) + +(defvar web-mode-razor-keywords + (regexp-opt + (append + (cdr (assoc "razor" web-mode-extra-keywords)) + '("false" "true" "foreach" "if" "else" "in" "var" "for" "display" + "match" "case" "to" + "Html")))) + +(defvar web-mode-selector-font-lock-keywords + (list + '("$[[:alnum:]-]+" 0 'web-mode-css-variable-face) + (cons (concat "@\\(" web-mode-css-at-rules "\\)\\_>") + '(0 'web-mode-css-at-rule-face)) + '("\\_<\\(all\|braille\\|embossed\\|handheld\\|print\\|projection\\|screen\\|speech\\|tty\\|tv\\|and\\|or\\)\\_>" + 1 'web-mode-keyword-face) + '("\\.[^ ,]+" 0 'web-mode-css-selector-class-face) + '("[^,]+" 0 'web-mode-css-selector-tag-face) + (cons (concat ":\\([ ]*[[:alpha:]][^,{]*\\)") '(0 'web-mode-css-pseudo-class-face t t)) + )) + +(defvar web-mode-declaration-font-lock-keywords + (list + '("--[[:alnum:]-]+" 0 'web-mode-css-variable-face) + '("$[[:alnum:]-]+" 0 'web-mode-css-variable-face) + (cons (concat "@\\(" web-mode-css-at-rules "\\)\\_>") '(1 'web-mode-css-at-rule-face)) + '("\\([[:alpha:]-]+\\)[ ]?:" 0 'web-mode-css-property-name-face) + '("\\([[:alpha:]-]+\\)[ ]?(" 1 'web-mode-css-function-face) + '("#[[:alnum:]]\\{1,6\\}" 0 'web-mode-css-color-face t t) + '("![ ]?important" 0 'web-mode-css-priority-face t t) + '("\\([^,]+\\)[ ]+{" 1 'web-mode-css-selector-face) + '("'[^']*'\\|\"[^\"]*\"" 0 'web-mode-string-face t t) + )) + +(defvar web-mode-html-font-lock-keywords + (list + '("]\\|>" 0 'web-mode-html-tag-face t) + '(" \\([[:alnum:]-]+=\\)\\(\"[^\"]+\"\\)" + (1 'web-mode-html-attr-name-face) + (2 'web-mode-html-attr-value-face)) + )) + +;; voir https://www.gnu.org/software/emacs/manual/html_node/elisp/Search_002dbased-Fontification.html +(defvar web-mode-javascript-font-lock-keywords + (list + '("@\\([[:alnum:]_]+\\)\\_>" 0 'web-mode-keyword-face) + '("\\([[:alnum:]]+\\)[`]" 0 'web-mode-preprocessor-face) + (cons (concat "\\_<\\(function\\*\\)\\_>") '(1 'web-mode-keyword-face)) + (cons (concat "\\([ \t}{(]\\|^\\)\\(" web-mode-javascript-keywords "\\)\\_>") '(2 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-javascript-constants "\\)\\_>") '(0 'web-mode-constant-face)) + '("\\_<\\([$]\\)(" 1 'web-mode-type-face) + '("\\_<\\(new\\|instanceof\\|class\\|extends\\|import\\) \\([[:alnum:]_.]+\\)\\_>" 2 'web-mode-type-face) + '("\\_<\\([[:alnum:]_]+\\):[ ]*function[ ]*(" 1 'web-mode-function-name-face) + '("\\_<\\(function\\|get\\|set\\)[ ]+\\([[:alnum:]_]+\\)" + (1 'web-mode-keyword-face) + (2 'web-mode-function-name-face)) + '("\\([[:alnum:]_]+\\)[ ]*([^)]*)[ \n]*{" 1 'web-mode-function-name-face) + '("([ ]*\\([[:alnum:]_]+\\)[ ]*=>" 1 'web-mode-function-name-face) + '("[ ]*\\([[:alnum:]_]+\\)[ ]*=[ ]*([^)]*)[ ]*=>[ ]*{" 1 'web-mode-function-name-face) + '("\\_<\\(var\\|let\\|const\\)[ ]+\\([[:alnum:]_]+\\)" 2 'web-mode-variable-name-face) + '("({" "\\([[:alnum:]_]+\\)[, }]+" nil nil (1 'web-mode-variable-name-face)) ;#738 + '("\\([[:alnum:]_]+\\)[ ]*=> [{(]" 1 'web-mode-variable-name-face) + ;; #989 + ;; '("\\(function\\|[,=]\\|^\\)[ ]*(" + ;; ("\\([[:alnum:]_]+\\)\\([ ]*=[^,)]*\\)?[,)]" nil nil (1 'web-mode-variable-name-face))) + '("\\([[:alnum:]_]+\\):" 1 'web-mode-variable-name-face) + '("\\_<\\([[:alnum:]_-]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[a-zA-Z]<\\([a-zA-Z]+\\)[,>]" 1 'web-mode-type-face) + )) + +(defvar web-mode-stylus-font-lock-keywords + (list + '("^[ \t]*\\([[:alnum:]().-]+\\)$" 1 'web-mode-css-selector-face) + '("^[ \t]*\\([[:alnum:]-]+[ ]*:\\)" 1 'web-mode-css-property-name-face) + )) + +(defvar web-mode-sass-font-lock-keywords + (list + '("^[ \t]*\\([[:alnum:]().-]+\\|&:\\(before\\|after\\)\\)$" 1 'web-mode-css-selector-face) + '("^[ \t]*\\([[:alnum:]-]+[ ]*:\\)" 1 'web-mode-css-property-name-face) + )) + +(defvar web-mode-pug-font-lock-keywords + (list + '("^[ \t]*\\(#?[[:alnum:].-]+\\)" 1 'web-mode-css-selector-face) + ;;'("^[ \t]*\\(#[[:alnum:]-]+\\)" 0 'web-mode-css-selector-face) + '(" \\([@:]?\\sw+[ ]?=\\)" 1 'web-mode-param-name-face) + )) + +(defvar web-mode-sql-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-sql-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + '("\\_<\\([[:alnum:]_-]+\\)[ ]?(" 1 'web-mode-function-call-face) + )) + +(defvar web-mode-markdown-font-lock-keywords + (list + '("^[ ]*[*].*$" 0 'web-mode-variable-name-face) + '("^[ ]*#.*$" 0 'web-mode-comment-face) + )) + +(defvar web-mode-html-tag-font-lock-keywords + (list + '("\\(" 0 'web-mode-html-tag-bracket-face) + )) + +(defvar web-mode-anki-font-lock-keywords + (list + '("{{[#/^]\\([[:alnum:]_.]+\\)" 1 'web-mode-block-control-face) + ;;'("\\_<\\([[:alnum:]_]+=\\)\\(\"[^\"]*\"\\|[[:alnum:]_.: ]*\\)" + ;; (1 'web-mode-block-attr-name-face) + ;; (2 'web-mode-block-attr-value-face)) + '("{{\\(.+\\)}}" 1 'web-mode-variable-name-face) + )) + +(defvar web-mode-dust-font-lock-keywords + (list + '("{[#:/?@><+^]\\([[:alpha:]_.]+\\)" 1 'web-mode-block-control-face) + '(":\\([[:alpha:]]+\\)" 1 'web-mode-keyword-face) + '("\\_<\\([[:alnum:]_]+=\\)\\(\"[^\"]*\"\\|[[:alnum:]_]*\\)" + (1 'web-mode-block-attr-name-face) + (2 'web-mode-block-attr-value-face)) + '("\\\([[:alnum:]_.]+\\)" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-expressionengine-font-lock-keywords + (list + '("{/?\\([[:alpha:]_]+:[[:alpha:]_:]+\\|if\\)" 1 'web-mode-block-control-face) + '(":\\([[:alpha:]_]+\\)" 1 'web-mode-keyword-face) + '(" {\\([[:alpha:]_]+\\)}" 1 'web-mode-keyword-face t) + '("\\_<\\([[:alnum:]_]+=\\)\\(\"[^\"]*\"\\|[[:alnum:]_]*\\)" + (1 'web-mode-block-attr-name-face) + (2 'web-mode-block-attr-value-face)) + '("\\\([[:alnum:]_.]+\\)" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-svelte-font-lock-keywords + (list + (cons (concat "[ ]\\(" web-mode-svelte-keywords "\\)[ ]") '(1 'web-mode-keyword-face)) + '("{[#:/@]\\([[:alpha:]_.]+\\)" 1 'web-mode-block-control-face) + '("\\_<\\([[:alnum:]_]+=\\)\\(\"[^\"]*\"\\|[[:alnum:]_]*\\)" + (1 'web-mode-block-attr-name-face) + (2 'web-mode-block-attr-value-face)) + '("\\\([[:alnum:]_.]+\\)" 0 'web-mode-variable-name-face) + '("\\_<\\([$]\\)\\([[:alnum:]_]+\\)" (1 'web-mode-constant-face) (2 'web-mode-variable-name-face)) + )) + +(defvar web-mode-template-toolkit-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-template-toolkit-keywords "\\)\\_>") '(1 'web-mode-keyword-face)) + '("\\\([[:alpha:]][[:alnum:]_]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("\\\([[:alpha:]][[:alnum:]_]+\\)" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-smarty-font-lock-keywords + (list + (cons (concat "[ ]\\(" web-mode-smarty-keywords "\\)[ ]") '(1 'web-mode-keyword-face)) + '("{/?\\([[:alpha:]_]+\\)" 1 'web-mode-block-control-face) + '("\\([}{]\\)" 0 'web-mode-block-delimiter-face) + '("\\_<\\([$]\\)\\([[:alnum:]_]+\\)" (1 nil) (2 'web-mode-variable-name-face)) + '("\\_<\\(\\sw+\\)[ ]?(" 1 'web-mode-function-call-face) + '(" \\(\\sw+[ ]?=\\)" 1 'web-mode-param-name-face) + '(" \\(\\sw+\\)[ }]" 1 'web-mode-param-name-face) + '("|\\([[:alnum:]_]+\\)" 1 'web-mode-function-call-face) + '("\\(->\\)\\(\\sw+\\)" (1 nil) (2 'web-mode-variable-name-face)) + '("[.]\\([[:alnum:]_-]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[.]\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face) + '("#\\([[:alnum:]_]+\\)#" 1 'web-mode-variable-name-face) + )) + +(defvar web-mode-velocity-font-lock-keywords + (list + '("#{?\\([[:alpha:]_]+\\)\\_>" (1 'web-mode-block-control-face)) + (cons (concat "\\_<\\(" web-mode-velocity-keywords "\\)\\_>") '(1 'web-mode-keyword-face t t)) + '("#macro([ ]*\\([[:alpha:]]+\\)[ ]+" 1 'web-mode-function-name-face) + '("\\(def\\|define\\) \\([[:alnum:]_-]+\\)(" 2 'web-mode-function-name-face) + '("[.]\\([[:alnum:]_-]+\\)" 1 'web-mode-variable-name-face) + '("\\_<\\($[!]?[{]?\\)\\([[:alnum:]_-]+\\)[}]?" (1 nil) (2 'web-mode-variable-name-face)) + )) + +(defvar web-mode-mako-tag-font-lock-keywords + (list + '("") '(1 'web-mode-constant-face)) + (cons (concat "\\_<\\(" web-mode-python-keywords "\\)\\_>") '(1 'web-mode-keyword-face)) + (cons (concat "\\_<\\(endfor\\|endif\\|endwhile\\)\\_>") '(1 'web-mode-keyword-face)) + )) + +(defvar web-mode-web2py-font-lock-keywords + (list + '("\\_<\\(\\sw+\\)[ ]?(" 1 'web-mode-function-call-face) + (cons (concat "\\_<\\(" web-mode-python-constants "\\)\\_>") '(1 'web-mode-constant-face)) + (cons (concat "\\_<\\(" web-mode-python-keywords "\\)\\_>") '(1 'web-mode-keyword-face)) + (cons (concat "\\_<\\(block\\|extend\\|super\\|end\\|include\\)\\_>") '(1 'web-mode-keyword-face)) + )) + +(defvar web-mode-django-expr-font-lock-keywords + (list + '("|[ ]?\\([[:alpha:]_]+\\)\\_>" 1 'web-mode-filter-face) + (cons (concat "\\_<\\(" web-mode-django-types "\\)\\_>") '(1 'web-mode-type-face)) + '("\\_<\\([[:alpha:]_]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[[:alnum:]_]+" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-django-code-font-lock-keywords + (list + '("{%[ ]*\\(set\\)[ ]+\\([[:alpha:]]+\\)[ ]*%}" + (1 'web-mode-block-control-face) + (2 'web-mode-variable-name-face)) + (cons (concat "\\({%\\|#\\)[ ]*\\(" web-mode-django-control-blocks-regexp "\\)[ %]") '(2 'web-mode-block-control-face)) + '("\\({%\\|#\\)[ ]*\\(end[[:alpha:]]+\\)\\_>" 2 'web-mode-block-control-face) ;#504 + (cons (concat "\\_<\\(" web-mode-django-keywords "\\)\\_>") '(1 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-django-types "\\)\\_>") '(1 'web-mode-type-face)) + '("|[ ]?\\([[:alpha:]_]+\\)\\_>" 1 'web-mode-function-call-face) + '("\\_<\\([[:alpha:]_]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[[:alnum:]_.]+" 0 'web-mode-variable-name-face) + '("[[:alnum:]_]+\\([.][[:alnum:]_]+\\)+" 0 'web-mode-variable-name-face t t) + )) + +(defvar web-mode-ctemplate-font-lock-keywords + (list + '("{[~]?{[#/>^]?[ ]*\\([[:alnum:]_.-]+\\)" 1 'web-mode-block-control-face) + '("[ \t]+\\([[:alnum:]_-]+\\)=" + (1 'web-mode-block-attr-name-face)) + '("\"[^\"]+\"" 0 'web-mode-block-string-face) + )) + +(defvar web-mode-astro-font-lock-keywords + (append + (list + '("\\({\\)\\([[:alpha:]]+\\)\\(}\\)" + (1 'web-mode-block-control-face) + (2 'web-mode-variable-name-face) + (3 'web-mode-block-control-face))) + web-mode-javascript-font-lock-keywords + )) + +(defvar web-mode-antlers-font-lock-keywords + (list + '("{{[ ]*\\(/?\\(if\\|elseif\\|else\\|unless\\|switch\\)\\)" 1 'web-mode-block-control-face) + '("[ \t]+\\(:?[[:alnum:]_-]+\\)=" (1 'web-mode-block-attr-name-face)) + '("[[:alnum:]_.]+" 0 'web-mode-variable-name-face) + '("\"[^\"]+\"" 0 'web-mode-block-string-face) + '("'[^']+'" 0 'web-mode-block-string-face) + )) + +(defvar web-mode-razor-font-lock-keywords + (list + '("@\\([[:alnum:]_.]+\\)[ ]*[({]" 1 'web-mode-block-control-face) + (cons (concat "\\_<\\(" web-mode-razor-keywords "\\)\\_>") '(1 'web-mode-keyword-face)) + '("\\_<\\(String\\)\\_>" 1 'web-mode-type-face) + '("\\([[:alnum:]]+:\\)" 1 'web-mode-symbol-face) + '("\\(@[[:alnum:]_.]+\\)" 1 'web-mode-variable-name-face) + )) + +(defvar web-mode-riot-font-lock-keywords + (list + '("\\(parent\\|opts\\|tags\\|this\\)\\.\\([[:alnum:]_.]+\\)" + (1 'web-mode-constant-face) + (2 'web-mode-variable-name-face)) + '("\\([[:alnum:]_.]+\\)" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-closure-font-lock-keywords + (list + '("{\\([@/]?[[:alpha:]]+[?]?\\)" 1 'web-mode-block-control-face) + '("{[@]?param[?]?[ ]+\\([[:alnum:]]+[:]?\\)" 1 'web-mode-symbol-face) + '("\\_<\\(true\\|false\\|null\\)\\_>" 1 'web-mode-type-face) + '("\\\_<[[:alpha:]]+:[ ]+\\([[:alpha:]]+\\)" 1 'web-mode-type-face) + (cons (concat "\\_<\\(" web-mode-closure-keywords "\\)\\_>") '(1 'web-mode-keyword-face)) + '("{\\(alias\\|call\\|delcall\\|delpackage\\|deltemplate\\|namespace\\|template\\)[ ]+\\([[:alnum:].]+\\)" 2 'web-mode-constant-face) + '("\\(allowemptydefault\\|data\\|desc\\|meaning\\|autoescape\\|private\\|variant\\)=" 0 'web-mode-block-attr-name-face) + '("|\\([[:alpha:]]+\\)" 1 'web-mode-function-call-face) + '("\\_<\\([[:alnum:]]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("$\\([[:alnum:]._]+\\)" 1 'web-mode-variable-name-face) + )) + +(defvar web-mode-go-font-lock-keywords + (list + '("{{[-]?[ ]*\\([[:alpha:]]+\\)" 1 'web-mode-block-control-face) + '("\\_") '(0 'web-mode-type-face)) + (cons (concat "\\_<\\(" web-mode-go-keywords "\\)\\_>") '(1 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-go-functions "\\)\\_>") '(1 'web-mode-function-call-face)) + '("[$.]\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face t t) + '("|[ ]?\\([[:alpha:]_]+\\)\\_>" 1 'web-mode-filter-face) + )) + +(defvar web-mode-expression-font-lock-keywords + (list + '("[[:alpha:]_]" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-angular-font-lock-keywords + (list + '("[[:alpha:]_]" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-underscore-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-javascript-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + '("\\_<\\(_\.[[:alpha:]]+\\)(" 1 'web-mode-function-call-face) + '("\\_" 1 'web-mode-type-face) + '("\\_<\\([[:alnum:]_]+\\):[ ]*function[ ]*(" 1 'web-mode-function-name-face) + '("\\_<\\(var\\)\\_>[ ]+\\([[:alnum:]_]+\\)" + (1 'web-mode-keyword-face) + (2 'web-mode-variable-name-face)) + )) + +(defvar web-mode-vue-font-lock-keywords + (list + '("\\_<\\([[:alnum:]_-]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[[:alpha:]_]" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-engine-tag-font-lock-keywords + (list + '("") '(0 'web-mode-keyword-face)) + '("\\(public\\|private\\)[ ]+\\([[:alpha:]]+\\)[ ]+\\([[:alnum:]._]+\\)[ ]?(" + (2 'web-mode-type-face) + (3 'web-mode-function-name-face)) + '("\\_<\\([[:alnum:]._]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("@\\(\\sw*\\)" 1 'web-mode-variable-name-face) + '("\\_<\\([[:alnum:].]+\\)[ ]+[{[:alpha:]]+" 1 'web-mode-type-face) + )) + +(defvar web-mode-asp-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-asp-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-asp-types "\\)\\_>") '(0 'web-mode-type-face)) + (cons (concat "\\_<\\(" web-mode-asp-constants "\\)\\_>") '(0 'web-mode-constant-face)) + '("\\(Class\\|new\\) \\([[:alnum:]_]+\\)" 2 'web-mode-type-face) + '("Const \\([[:alnum:]_]+\\)" 1 'web-mode-constant-face) + '("\\_" + (0 'web-mode-keyword-face) + ("[[:alnum:]_]+" nil nil (0 'web-mode-variable-name-face))) + '("\\_<\\(public\\|private\\|sub\\|function\\)\\_> \\([[:alnum:]_]+\\)[ ]*(" 2 'web-mode-function-name-face) + '("\\_<\\(public\\|private\\|dim\\)\\_> \\([[:alnum:]_]+\\)" 2 'web-mode-variable-name-face) + )) + +(defvar web-mode-aspx-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-aspx-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + '("\\_<\\([[:alnum:].]+\\)[ ]+[[:alpha:]]+" 1 'web-mode-type-face) + )) + +(defvar web-mode-uel-font-lock-keywords + (list + '("[$#{]{\\|}" 0 'web-mode-preprocessor-face) + '("\\([[:alpha:]_]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("|[ ]*\\(trim\\|x\\|u\\)" 1 'web-mode-function-call-face) + '("[[:alpha:]_]" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-php-var-interpolation-font-lock-keywords + (list + '("[[:alpha:]_]" 0 'web-mode-variable-name-face) + '("\".+\"\\|'.*'" 0 'web-mode-string-face) + )) + +(defvar web-mode-marko-font-lock-keywords + (list + '("[[:alnum:]_]+" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-freemarker-square-font-lock-keywords + (list + '("\\[/?[#@]\\([[:alpha:]_.]*\\)" 1 'web-mode-block-control-face) + '("#\\(macro\\|function\\) \\([[:alpha:]]+\\)" 2 'web-mode-function-name-face) + (cons (concat "\\_<\\(" web-mode-freemarker-keywords "\\)\\_>") '(1 'web-mode-keyword-face)) + '("\\_<\\([[:alnum:]._]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[[:alpha:]]\\([[:alnum:]_]+\\)?" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-freemarker-font-lock-keywords + (list + '("") '(1 'web-mode-keyword-face)) + '("\\_<\\([[:alnum:]._]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[[:alpha:]]\\([[:alnum:]_]+\\)?" 0 'web-mode-variable-name-face) + )) + +(defvar web-mode-directive-font-lock-keywords + (list + '("<%@[ ]*\\([[:alpha:]]+\\)[ ]+" 1 'web-mode-block-control-face) + '("\\_<\\([[:alpha:]]+=\\)\\(\"[^\"]*\"\\)" + (1 'web-mode-block-attr-name-face t t) + (2 'web-mode-block-attr-value-face t t)) + )) + +(defvar web-mode-erb-font-lock-keywords + (list + '("[^:]\\(:[[:alnum:]_]+\\)" 1 'web-mode-symbol-face) + '("\\([[:alnum:]_]+:\\)[ ]+" 1 'web-mode-symbol-face) + (cons (concat "\\_<\\(" web-mode-erb-builtins "\\)\\_>") '(0 'web-mode-builtin-face)) + (cons (concat "\\_<\\(" web-mode-erb-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + '("\\_<\\(self\\|true\\|false\\|nil\\)\\_>" 0 'web-mode-variable-name-face) + '("[@$]@?\\([[:alnum:]_]+\\)" 0 'web-mode-variable-name-face) + '("class[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-type-face) + '("def[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-function-name-face) + '("\\(?:\\_<\\|::\\)\\([A-Z]+[[:alnum:]_]+\\)" 1 (unless (eq (char-after) ?\() 'web-mode-type-face)) + '("/[^/]+/" 0 'web-mode-string-face) + )) + +(defvar web-mode-ejs-font-lock-keywords + web-mode-javascript-font-lock-keywords) + +(defvar web-mode-python-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-python-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + )) + +(defvar web-mode-elixir-font-lock-keywords + (list + '("@\\([[:alnum:]_]+\\)" 0 'web-mode-variable-name-face) + '("[ ]\\(:[[:alnum:]-_]+\\)" 1 'web-mode-symbol-face) + '("def[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-function-name-face) + (cons (concat "\\_<\\(" web-mode-elixir-keywords "\\)\\_>") '(0 'web-mode-builtin-face)) + (cons (concat "\\_<\\(" web-mode-elixir-constants "\\)\\_>") '(0 'web-mode-constant-face)) + )) + +(defvar web-mode-erlang-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-erlang-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-erlang-constants "\\)\\_>") '(0 'web-mode-constant-face)) + '("@\\([[:alnum:]_]+\\)" 0 'web-mode-variable-name-face) + '("[ ]\\(:[[:alnum:]-_]+\\)" 1 'web-mode-symbol-face) + )) + +(defvar web-mode-mason-code-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-mason-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + '("sub[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-function-name-face) + '("\\_<\\([[:alnum:]_]+\\)[ ]?::" 1 'web-mode-type-face) + '("\\([@]\\)\\([[:alnum:]#_]*\\)" (1 nil) (2 'web-mode-variable-name-face)) + '("\\_<\\([$%]\\)\\([[:alnum:]@#_]*\\)" (1 nil) (2 'web-mode-variable-name-face)) + '("{\\([[:alnum:]_]+\\)}" 1 'web-mode-variable-name-face) + '("\\_<\\(\\sw+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[[:alnum:]_][ ]?::[ ]?\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face) + '("->[ ]?\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face) + '("\\(?:method\\|def\\) \\([[:alnum:]._]+\\)" 1 'web-mode-function-name-face) + '("|[ ]*\\([[:alnum:],]+\\)[ ]*%>" 1 'web-mode-filter-face) + )) + +(defvar web-mode-mason-block-font-lock-keywords + (list + '("<[/]?%\\([[:alpha:]]+\\)" 1 'web-mode-block-control-face) + '("[[:alpha:]]" 0 'web-mode-block-attr-value-face) + )) + +(defvar web-mode-mojolicious-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-perl-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + '("\\_<\\(begin\\|end\\)\\_>" 1 'web-mode-constant-face) + '("\\_<\\([$]\\)\\([[:alnum:]_]*\\)" (1 nil) (2 'web-mode-variable-name-face)) + )) + +(defvar web-mode-lsp-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-lsp-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-lsp-constants "\\)\\_>") '(1 'web-mode-constant-face)) + '("[ ]\\(:[[:alnum:]-_]+\\)" 1 'web-mode-symbol-face) + '("(defun \\([[:alnum:]-:]+\\)" 1 'web-mode-function-name-face) + '("(defvar \\([[:alnum:]-:]+\\)" 1 'web-mode-variable-name-face) + )) + +(defvar web-mode-cl-emb-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-cl-emb-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-cl-emb-constants "\\)\\_>") '(0 'web-mode-constant-face)) + '("\\(@\\)" 1 'web-mode-function-call-face) + (list (concat "\\(@" web-mode-cl-emb-keywords "\\)[ ]+\\([[:alnum:]_]+\\)") + '(1 'web-mode-keyword-face) + '(2 'web-mode-variable-name-face)) + )) + +(defvar web-mode-artanis-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-artanis-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-artanis-constants "\\)\\_>") '(0 'web-mode-constant-face)) + '("(define[*]? (\\([[:alnum:]-:_!#$%^&*=+/?<>.]+\\)" 1 'web-mode-function-name-face) + '("\\(#:[[:alnum:]-:_!#$%^&*=+/?<>.]+\\)" 1 'web-mode-builtin-face) + )) + +(defvar web-mode-php-font-lock-keywords + (list + (cons (concat "\\_<\\(" web-mode-php-keywords "\\)\\_>") '(0 'web-mode-keyword-face)) + (cons (concat "\\_<\\(" web-mode-php-types "\\)\\_>") '(1 'web-mode-type-face)) + (cons (concat "\\(" web-mode-php-constants "\\)") '(0 'web-mode-constant-face)) + '("function[ ]+\\([[:alnum:]_]+\\)" 1 'web-mode-function-name-face) + '("\\_<\\([[:alnum:]_]+\\)[ ]?(" 1 'web-mode-function-call-face) + '("[[:alnum:]_][ ]?::[ ]?\\([[:alnum:]_]+\\)" 1 'web-mode-constant-face) + '("->[ ]?\\([[:alnum:]_]+\\)" 1 'web-mode-variable-name-face) + '("\\_<\\([[:alnum:]_]+\\)[ ]?::" 1 'web-mode-type-face) + '("\\_<\\(instanceof\\|class\\|extends\\|new\\)[ ]+\\([[:alnum:]_]+\\)" 2 'web-mode-type-face) + '("\\(\\_<\\|[+-]\\)\\([$]\\)\\([[:alnum:]_]*\\)" (2 nil) (3 'web-mode-variable-name-face)) + )) + +(defvar web-mode-spip-font-lock-keywords + (list + '("<:.+:>" 0 'web-mode-block-string-face) + '("#[A-Z0-9_]+" 0 'web-mode-variable-name-face) + '("|[a-z0-9_=!?<>]+" 0 'web-mode-function-call-face) + '("(\\([[:alnum:]_ ]+\\))" 1 'web-mode-constant-face) + )) + +(defvar web-mode-latex-font-lock-keywords + (list + '("[[:alnum:]_]+" 0 'web-mode-function-name-face t t) + )) + +(defvar web-mode-blade-font-lock-keywords + (append + (list + '("@\\([[:alpha:]_]+\\)" (1 'web-mode-block-control-face))) + web-mode-php-font-lock-keywords)) + +(defvar web-mode-engines-font-lock-keywords + '(("angular" . web-mode-angular-font-lock-keywords) + ("anki" . web-mode-anki-font-lock-keywords) + ("antlers" . web-mode-antlers-font-lock-keywords) + ("artanis" . web-mode-artanis-font-lock-keywords) + ("astro" . web-mode-astro-font-lock-keywords) + ("blade" . web-mode-blade-font-lock-keywords) + ("cl-emb" . web-mode-cl-emb-font-lock-keywords) + ("closure" . web-mode-closure-font-lock-keywords) + ("ctemplate" . web-mode-ctemplate-font-lock-keywords) + ("dust" . web-mode-dust-font-lock-keywords) + ("elixir" . web-mode-elixir-font-lock-keywords) + ("ejs" . web-mode-ejs-font-lock-keywords) + ("erb" . web-mode-erb-font-lock-keywords) + ("expressionengine" . web-mode-expressionengine-font-lock-keywords) + ("go" . web-mode-go-font-lock-keywords) + ("hero" . web-mode-go-font-lock-keywords) + ("lsp" . web-mode-lsp-font-lock-keywords) + ("marko" . web-mode-marko-font-lock-keywords) + ("mojolicious" . web-mode-mojolicious-font-lock-keywords) + ("php" . web-mode-php-font-lock-keywords) + ("python" . web-mode-python-font-lock-keywords) + ("razor" . web-mode-razor-font-lock-keywords) + ("riot" . web-mode-riot-font-lock-keywords) + ("smarty" . web-mode-smarty-font-lock-keywords) + ("spip" . web-mode-spip-font-lock-keywords) + ("template-toolkit" . web-mode-template-toolkit-font-lock-keywords) + ("underscore" . web-mode-underscore-font-lock-keywords) + ("web2py" . web-mode-web2py-font-lock-keywords) + ("velocity" . web-mode-velocity-font-lock-keywords) + ("vue" . web-mode-vue-font-lock-keywords) + ("xoops" . web-mode-smarty-font-lock-keywords) + ("svelte" . web-mode-svelte-font-lock-keywords) + ) + "Engines font-lock keywords") + +(defvar web-mode-prettify-symbols-alist + '(("=>" . 8658) + (">=" . 8805) + ("<=" . 8804))) + +(defvar web-mode-before-auto-complete-hooks nil + "List of functions to run before triggering the auto-complete library. + +Auto-complete sources will sometimes need some tweaking to work +nicely with web-mode. This hook gives users the chance to adjust +the environment as needed for ac-sources, right before they're used.") + +(defvar web-mode-ignore-ac-start-advice nil + "If not nil `defadvice' for `ac-start' will be ignored. + +Can be set inside a hook in `web-mode-before-auto-complete-hooks' to +non nil to ignore the defadvice which sets ac-sources according to current +language. This is needed if the corresponding auto-completion triggers +another auto-completion with different ac-sources (e.g. ac-php)") + +(defvar web-mode-ac-sources-alist nil + "alist mapping language names to ac-sources for that language.") + +(defvar web-mode-trace nil + "Activate debug tracing.") + +(defvar web-mode-syntax-table + (let ((table (make-syntax-table))) + (modify-syntax-entry ?- "_" table) + (modify-syntax-entry ?_ "_" table) ;#563 + (modify-syntax-entry ?< "." table) + (modify-syntax-entry ?> "." table) + (modify-syntax-entry ?& "." table) + (modify-syntax-entry ?/ "." table) + (modify-syntax-entry ?= "." table) + (modify-syntax-entry ?% "." table) + table) + "Syntax table used to reveal whitespaces.") + +(defvar web-mode-map + (let ((map (make-sparse-keymap))) + + (define-key map [menu-bar wm] (cons "Web-Mode" (make-sparse-keymap))) + (define-key map [menu-bar wm dom] (cons "Dom" (make-sparse-keymap))) + (define-key map [menu-bar wm blk] (cons "Block" (make-sparse-keymap))) + (define-key map [menu-bar wm attr] (cons "Html Attr" (make-sparse-keymap))) + (define-key map [menu-bar wm tag] (cons "Html Tag" (make-sparse-keymap))) + (define-key map [menu-bar wm elt] (cons "Html Element" (make-sparse-keymap))) + + (define-key map [menu-bar wm sep-1] '(menu-item "--")) + + (define-key map [menu-bar wm dom dom-xpa] '(menu-item "XPath" web-mode-dom-xpath)) + (define-key map [menu-bar wm dom dom-tra] '(menu-item "Traverse" web-mode-dom-traverse)) + (define-key map [menu-bar wm dom dom-err] '(menu-item "Show error(s)" web-mode-dom-errors-show)) + (define-key map [menu-bar wm dom dom-ent] '(menu-item "Replace html entities" web-mode-dom-entities-replace)) + (define-key map [menu-bar wm dom dom-quo] '(menu-item "Replace dumb quotes" web-mode-dom-quotes-replace)) + (define-key map [menu-bar wm dom dom-apo] '(menu-item "Replace apostrophes" web-mode-dom-apostrophes-replace)) + (define-key map [menu-bar wm dom dom-nor] '(menu-item "Normalize" web-mode-dom-normalize)) + + (define-key map [menu-bar wm blk blk-sel] '(menu-item "Select" web-mode-block-select)) + (define-key map [menu-bar wm blk blk-pre] '(menu-item "Previous" web-mode-block-previous)) + (define-key map [menu-bar wm blk blk-nex] '(menu-item "Next" web-mode-block-next)) + (define-key map [menu-bar wm blk blk-kil] '(menu-item "Kill" web-mode-block-kill)) + (define-key map [menu-bar wm blk blk-end] '(menu-item "End" web-mode-block-end)) + (define-key map [menu-bar wm blk blk-clo] '(menu-item "Close" web-mode-block-close)) + (define-key map [menu-bar wm blk blk-beg] '(menu-item "Beginning" web-mode-block-beginning)) + + (define-key map [menu-bar wm attr attr-ins] '(menu-item "Insert" web-mode-attribute-insert)) + (define-key map [menu-bar wm attr attr-end] '(menu-item "End" web-mode-attribute-end)) + (define-key map [menu-bar wm attr attr-beg] '(menu-item "Beginning" web-mode-attribute-beginning)) + (define-key map [menu-bar wm attr attr-sel] '(menu-item "Select" web-mode-attribute-select)) + (define-key map [menu-bar wm attr attr-kil] '(menu-item "Kill" web-mode-attribute-kill)) + (define-key map [menu-bar wm attr attr-nex] '(menu-item "Next" web-mode-attribute-next)) + (define-key map [menu-bar wm attr attr-pre] '(menu-item "Previous" web-mode-attribute-previous)) + (define-key map [menu-bar wm attr attr-tra] '(menu-item "Transpose" web-mode-attribute-transpose)) + + (define-key map [menu-bar wm tag tag-beg] '(menu-item "Sort Attributes" web-mode-tag-attributes-sort)) + (define-key map [menu-bar wm tag tag-sel] '(menu-item "Select" web-mode-tag-select)) + (define-key map [menu-bar wm tag tag-pre] '(menu-item "Previous" web-mode-tag-previous)) + (define-key map [menu-bar wm tag tag-nex] '(menu-item "Next" web-mode-tag-next)) + (define-key map [menu-bar wm tag tag-end] '(menu-item "End" web-mode-tag-end)) + (define-key map [menu-bar wm tag tag-beg] '(menu-item "Beginning" web-mode-tag-beginning)) + + (define-key map [menu-bar wm elt elt-con] '(menu-item "Contract" web-mode-element-contract)) + (define-key map [menu-bar wm elt elt-ext] '(menu-item "Extract" web-mode-element-extract)) + (define-key map [menu-bar wm elt elt-van] '(menu-item "Vanish" web-mode-element-vanish)) + (define-key map [menu-bar wm elt elt-exc] '(menu-item "Transpose" web-mode-element-transpose)) + (define-key map [menu-bar wm elt elt-sel] '(menu-item "Select" web-mode-element-select)) + (define-key map [menu-bar wm elt elt-ren] '(menu-item "Rename" web-mode-element-rename)) + (define-key map [menu-bar wm elt elt-pre] '(menu-item "Previous" web-mode-element-previous)) + (define-key map [menu-bar wm elt elt-par] '(menu-item "Parent" web-mode-element-parent)) + (define-key map [menu-bar wm elt elt-nex] '(menu-item "Next" web-mode-element-next)) + (define-key map [menu-bar wm elt elt-mut] '(menu-item "Mute blanks" web-mode-element-mute-blanks)) + (define-key map [menu-bar wm elt elt-del] '(menu-item "Kill" web-mode-element-kill)) + (define-key map [menu-bar wm elt elt-end] '(menu-item "End" web-mode-element-end)) + (define-key map [menu-bar wm elt elt-inn] '(menu-item "Content (select)" web-mode-element-content-select)) + (define-key map [menu-bar wm elt elt-clo] '(menu-item "Close" web-mode-element-close)) + (define-key map [menu-bar wm elt elt-ins] '(menu-item "Insert" web-mode-element-insert)) + (define-key map [menu-bar wm elt elt-ins] '(menu-item "Word to tag" web-mode-element-insert-at-point)) + (define-key map [menu-bar wm elt elt-dup] '(menu-item "Clone" web-mode-element-clone)) + (define-key map [menu-bar wm elt elt-cfo] '(menu-item "Children fold" web-mode-element-children-fold-or-unfold)) + (define-key map [menu-bar wm elt elt-chi] '(menu-item "Child" web-mode-element-child)) + (define-key map [menu-bar wm elt elt-beg] '(menu-item "Beginning" web-mode-element-beginning)) + + (define-key map [menu-bar wm fol] '(menu-item "Fold/Unfold" web-mode-fold-or-unfold)) + (define-key map [menu-bar wm hig] '(menu-item "Fontify buffer" web-mode-buffer-fontify)) + (define-key map [menu-bar wm ind] '(menu-item "Indent buffer" web-mode-buffer-indent)) + (define-key map [menu-bar wm nav] '(menu-item "Tag/Block navigation" web-mode-navigate)) + (define-key map [menu-bar wm exp] '(menu-item "Mark and Expand" web-mode-mark-and-expand)) + (define-key map [menu-bar wm spa] '(menu-item "Toggle whitespaces" web-mode-whitespaces-show)) + (define-key map [menu-bar wm sni] '(menu-item "Insert snippet" web-mode-snippet-insert)) + + ;;-------------------------------------------------------------------------- + ;; "C-c " are reserved for users + + (define-key map (kbd "C-c C-a b") 'web-mode-attribute-beginning) + (define-key map (kbd "C-c C-a e") 'web-mode-attribute-end) + (define-key map (kbd "C-c C-a i") 'web-mode-attribute-insert) + (define-key map (kbd "C-c C-a n") 'web-mode-attribute-next) + (define-key map (kbd "C-c C-a s") 'web-mode-attribute-select) + (define-key map (kbd "C-c C-a k") 'web-mode-attribute-kill) + (define-key map (kbd "C-c C-a p") 'web-mode-attribute-previous) + (define-key map (kbd "C-c C-a t") 'web-mode-attribute-transpose) + + (define-key map (kbd "C-c C-b b") 'web-mode-block-beginning) + (define-key map (kbd "C-c C-b c") 'web-mode-block-close) + (define-key map (kbd "C-c C-b e") 'web-mode-block-end) + (define-key map (kbd "C-c C-b k") 'web-mode-block-kill) + (define-key map (kbd "C-c C-b n") 'web-mode-block-next) + (define-key map (kbd "C-c C-b p") 'web-mode-block-previous) + (define-key map (kbd "C-c C-b s") 'web-mode-block-select) + + (define-key map (kbd "C-c C-d a") 'web-mode-dom-apostrophes-replace) + (define-key map (kbd "C-c C-d d") 'web-mode-dom-errors-show) + (define-key map (kbd "C-c C-d e") 'web-mode-dom-entities-replace) + (define-key map (kbd "C-c C-d n") 'web-mode-dom-normalize) + (define-key map (kbd "C-c C-d q") 'web-mode-dom-quotes-replace) + (define-key map (kbd "C-c C-d t") 'web-mode-dom-traverse) + (define-key map (kbd "C-c C-d x") 'web-mode-dom-xpath) + + (define-key map (kbd "C-c C-e /") 'web-mode-element-close) + (define-key map (kbd "C-c C-e a") 'web-mode-element-content-select) + (define-key map (kbd "C-c C-e b") 'web-mode-element-beginning) + (define-key map (kbd "C-c C-e c") 'web-mode-element-clone) + (define-key map (kbd "C-c C-e d") 'web-mode-element-child) + (define-key map (kbd "C-c C-e e") 'web-mode-element-end) + (define-key map (kbd "C-c C-e f") 'web-mode-element-children-fold-or-unfold) + (define-key map (kbd "C-c C-e i") 'web-mode-element-insert) + (define-key map (kbd "C-c C-e I") 'web-mode-element-insert-at-point) + (define-key map (kbd "C-c C-e k") 'web-mode-element-kill) + (define-key map (kbd "C-c C-e m") 'web-mode-element-mute-blanks) + (define-key map (kbd "C-c C-e n") 'web-mode-element-next) + (define-key map (kbd "C-c C-e p") 'web-mode-element-previous) + (define-key map (kbd "C-c C-e r") 'web-mode-element-rename) + (define-key map (kbd "C-c C-e s") 'web-mode-element-select) + (define-key map (kbd "C-c C-e t") 'web-mode-element-transpose) + (define-key map (kbd "C-c C-e u") 'web-mode-element-parent) + (define-key map (kbd "C-c C-e v") 'web-mode-element-vanish) + (define-key map (kbd "C-c C-e w") 'web-mode-element-wrap) + (define-key map (kbd "C-c C-e +") 'web-mode-element-extract) + (define-key map (kbd "C-c C-e -") 'web-mode-element-contract) + + (define-key map (kbd "C-c C-t a") 'web-mode-tag-attributes-sort) + (define-key map (kbd "C-c C-t b") 'web-mode-tag-beginning) + (define-key map (kbd "C-c C-t e") 'web-mode-tag-end) + (define-key map (kbd "C-c C-t m") 'web-mode-tag-match) + (define-key map (kbd "C-c C-t n") 'web-mode-tag-next) + (define-key map (kbd "C-c C-t p") 'web-mode-tag-previous) + (define-key map (kbd "C-c C-t s") 'web-mode-tag-select) + + ;;-------------------------------------------------------------------------- + + ;;(define-key map (kbd "M-q") 'fill-paragraph) + (define-key map (kbd "M-;") 'web-mode-comment-or-uncomment) + + ;;C-c C-a : attribute + ;;C-c C-b : block + ;;C-c C-d : dom + ;;C-c C-e : element + (define-key map (kbd "C-c C-f") 'web-mode-fold-or-unfold) + (define-key map (kbd "C-c C-h") 'web-mode-buffer-fontify) + (define-key map (kbd "C-c C-i") 'web-mode-buffer-indent) + (define-key map (kbd "C-c C-j") 'web-mode-jshint) + (define-key map (kbd "C-c C-l") 'web-mode-file-link) + (define-key map (kbd "C-c C-m") 'web-mode-mark-and-expand) + (define-key map (kbd "C-c C-n") 'web-mode-navigate) + (define-key map (kbd "C-c C-r") 'web-mode-reload) + (define-key map (kbd "C-c C-s") 'web-mode-snippet-insert) + ;;C-c C-t : tag + (define-key map (kbd "C-c C-w") 'web-mode-whitespaces-show) + + map) + "Keymap for `web-mode'.") + +;;---- COMPATIBILITY ----------------------------------------------------------- + +(eval-and-compile + + ;; compatibility with emacs < 23 + (defun web-mode-string-match-p (regexp string &optional start) + "Same as `string-match' except it does not change the match data." + (save-match-data + (string-match regexp string start))) + + (unless (fboundp 'string-match-p) + (fset 'string-match-p (symbol-function 'web-mode-string-match-p))) + + ;; compatibility with emacs < 23.3 + (if (fboundp 'with-silent-modifications) + (defalias 'web-mode-with-silent-modifications 'with-silent-modifications) + (defmacro web-mode-with-silent-modifications (&rest body) + `(let ((old-modified-p (buffer-modified-p)) + (inhibit-modification-hooks t) + (buffer-undo-list t)) + (unwind-protect + ,@body + (restore-buffer-modified-p old-modified-p))))) + + ;; compatibility with emacs < 24.3 + (defun web-mode-buffer-narrowed-p () + (if (fboundp 'buffer-narrowed-p) + (buffer-narrowed-p) + (/= (- (point-max) (point-min)) (buffer-size)))) + + ;; compatibility with emacs < 24 + (defalias 'web-mode-prog-mode + (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode)) + + ;; compatibility with emacs < 24.3 + (unless (fboundp 'setq-local) + (defmacro setq-local (var val) + `(set (make-local-variable ',var) ,val))) + + ;; compatability with emacs < 24.4 + (defun web-mode-string-suffix-p (suffix string) + "Return t if STRING ends with SUFFIX." + (and (string-match (rx-to-string `(: ,suffix eos) t) + string) + t)) + + (unless (fboundp 'string-suffix-p) + (fset 'string-suffix-p (symbol-function 'web-mode-string-suffix-p))) + + (unless (fboundp 'seq-some) + (defun seq-some (pred seq) + (unless (null seq) + (or (funcall pred (car seq)) + (seq-some pred (cdr seq)))))) + ) ;eval-and-compile + +;;---- MAJOR MODE -------------------------------------------------------------- + +;;;###autoload +(define-derived-mode + web-mode web-mode-prog-mode "Web" + "Major mode for editing web templates." + + (make-local-variable 'web-mode-attr-indent-offset) + (make-local-variable 'web-mode-attr-value-indent-offset) + (make-local-variable 'web-mode-auto-pairs) + (make-local-variable 'web-mode-block-regexp) + (make-local-variable 'web-mode-change-beg) + (make-local-variable 'web-mode-change-end) + (make-local-variable 'web-mode-code-indent-offset) + (make-local-variable 'web-mode-column-overlays) + (make-local-variable 'web-mode-comment-formats) + (make-local-variable 'web-mode-comment-style) + (make-local-variable 'web-mode-content-type) + (make-local-variable 'web-mode-css-indent-offset) + (make-local-variable 'web-mode-display-table) + (make-local-variable 'web-mode-django-control-blocks) + (make-local-variable 'web-mode-django-control-blocks-regexp) + (make-local-variable 'web-mode-enable-block-face) + (make-local-variable 'web-mode-enable-inlays) + (make-local-variable 'web-mode-enable-part-face) + (make-local-variable 'web-mode-enable-sexp-functions) + (make-local-variable 'web-mode-engine) + (make-local-variable 'web-mode-engine-attr-regexp) + (make-local-variable 'web-mode-engine-file-regexps) + (make-local-variable 'web-mode-engine-open-delimiter-regexps) + (make-local-variable 'web-mode-engine-token-regexp) + (make-local-variable 'web-mode-expand-initial-pos) + (make-local-variable 'web-mode-expand-initial-scroll) + (make-local-variable 'web-mode-expand-previous-state) + (make-local-variable 'web-mode-indent-style) + (make-local-variable 'web-mode-indentless-attributes) + (make-local-variable 'web-mode-indentless-elements) + (make-local-variable 'web-mode-is-scratch) + (make-local-variable 'web-mode-skip-fontification) + (make-local-variable 'web-mode-jshint-errors) + (make-local-variable 'web-mode-last-enabled-feature) + (make-local-variable 'web-mode-markup-indent-offset) + (make-local-variable 'web-mode-minor-engine) + (make-local-variable 'web-mode-overlay-tag-end) + (make-local-variable 'web-mode-overlay-tag-start) + (make-local-variable 'web-mode-part-beg) + (make-local-variable 'web-mode-scan-beg) + (make-local-variable 'web-mode-scan-end) + (make-local-variable 'web-mode-sql-indent-offset) + (make-local-variable 'web-mode-time) + (make-local-variable 'web-mode-trace) + + (make-local-variable 'font-lock-beg) + (make-local-variable 'font-lock-end) + + (make-local-variable 'comment-end) + (make-local-variable 'comment-region-function) + (make-local-variable 'comment-start) + (make-local-variable 'fill-paragraph-function) + (make-local-variable 'font-lock-defaults) + (make-local-variable 'font-lock-extend-region-functions) + (make-local-variable 'font-lock-support-mode) + (make-local-variable 'font-lock-unfontify-region-function) + (make-local-variable 'imenu-case-fold-search) + (make-local-variable 'imenu-create-index-function) + (make-local-variable 'imenu-generic-expression) + (make-local-variable 'indent-line-function) + (make-local-variable 'parse-sexp-lookup-properties) + (make-local-variable 'uncomment-region-function) + (make-local-variable 'yank-excluded-properties) + + (setq web-mode-time (current-time)) + + (setq comment-end "-->" + comment-region-function 'web-mode-comment-or-uncomment-region + comment-start "")) + ((string= sub1 "<") + (setq closing-string ">" + delim-open "")) + ((string= sub1 "[") + (setq closing-string "]" + delim-open "\\[/?[#@]" + delim-close "/?\\]")) + (t + (setq closing-string "}" + delim-open "${" + delim-close "}")) + ) + ) ;freemarker + + ((string= web-mode-engine "velocity") + (cond + ((string= sub2 "##") + (setq closing-string "EOL")) + ((string= sub2 "#*") + (setq closing-string "*#")) + (t + (setq closing-string "EOV" + delim-open "#")) + ) + ) ;velocity + + ((string= web-mode-engine "razor") + (cond + ((string= sub2 "@@") + (forward-char 2) + (setq closing-string nil)) + ((string= sub2 "@*") + (setq closing-string "*@")) + ((string= sub1 "@") + (setq closing-string "EOR" + delim-open "@")) + ((and (string= sub1 "}") + (looking-at-p "[ ]*\n")) + ;;(setq closing-string "EOC") + (save-excursion + (let (paren-pos) + (setq paren-pos (web-mode-part-opening-paren-position (1- (point)))) + (if (and paren-pos (get-text-property paren-pos 'block-side)) + (setq closing-string "EOC") + (setq closing-string nil) + ) ;if + ) ;let + ) ;save-excursion + ;;(message "%s %S %S" sub2 (point) (get-text-property (point) 'part-side)) + ) + ((string= sub1 "}") + ;;(message "%s: %s" (point) sub1) + (save-excursion + (let (paren-pos) + (setq paren-pos (web-mode-part-opening-paren-position (1- (point)))) + (if (and paren-pos (get-text-property paren-pos 'block-side)) + (setq closing-string "EOR") + (setq closing-string nil) + ) ;if + ) ;let + ) ;save-excursion + ) ;case } + ) ;cond + ) ;razor + + ((and (string= web-mode-engine "riot") + (not (get-text-property open 'part-side))) + (setq closing-string (if (string= tagopen "{") "}" "/// end script") + delim-open "{" + delim-close "}") + ) ;riot + + ((string= web-mode-engine "spip") + (cond + ((and (string= sub1 "#") + (looking-at "[A-Z0-9_]+")) + (setq closing-string (match-string-no-properties 0))) + ((string= sub1 "(") + (setq closing-string '("(" . ")"))) + ((string= sub1 "{") + (setq closing-string '("{" . "}"))) + ((string= sub2 "<:") + (setq closing-string ":>")) + (t + (setq closing-string "]")) + )) + + ((string= web-mode-engine "marko") + (setq closing-string "}" + delim-open "${" + delim-close "}") + ) ;marko + + ) ;cond + + (when closing-string + (cond + + ((listp closing-string) + (cond + ((web-mode-rsf-balanced (car closing-string) (cdr closing-string) reg-end t) + (setq close (match-end 0) + pos (point)) + ) + ((and (string= web-mode-engine "php") + (string= " (point) reg-end) reg-end (point)) + pos (if (> (point) reg-end) reg-end (point))) + (goto-char pos)) + + ((string= closing-string "EOV") + (web-mode-velocity-skip open) + (setq close (point) + pos (point))) + + ((and (member web-mode-engine '("ctemplate")) + (re-search-forward closing-string reg-end t)) + (setq close (match-end 0) + pos (point))) + + ((and (member web-mode-engine '("antlers")) + (re-search-forward closing-string reg-end t)) + (setq close (match-end 0) + pos (point))) + + ((and (member web-mode-engine '("astro")) + (re-search-forward closing-string reg-end t)) + (setq close (match-end 0) + pos (point))) + + ((search-forward closing-string reg-end t) + (setq close (match-end 0) + pos (point))) + ) ;cond + + (when (and close (>= reg-end pos)) + ;;(message "pos(%S) : open(%S) close(%S)" pos open close) + (put-text-property open (1+ open) 'block-beg 0) + (put-text-property open (1+ open) 'block-controls 0) + (put-text-property open close 'block-side t) + (put-text-property (1- close) close 'block-end t) + (when delim-open + (web-mode-block-delimiters-set open close delim-open delim-close)) + (web-mode-block-scan open close) + (cond + ((and (string= web-mode-engine "erb") + (looking-at-p "<%= javascript_tag do %>")) + (setq tagopen "<%= javascript_tag do %>")) + ((and (string= web-mode-engine "mojolicious") + (looking-at-p "%= javascript begin")) + (setq tagopen "%= javascript begin")) + ((and (string= web-mode-engine "mako") + (looking-at-p "<%block filter=\"collect_js\">")) + (setq tagopen "<%block filter=\"collect_js\">")) + ((and (string= web-mode-engine "mako") + (looking-at-p "<%block filter=\"collect_css\">")) + (setq tagopen "<%block filter=\"collect_css\">")) + ((and (string= web-mode-engine "django") + (looking-at-p "{% javascript %}")) + (setq tagopen "{% javascript %}")) + ((and (string= web-mode-engine "django") + (looking-at-p "{% schema %}")) + (setq tagopen "{% schema %}")) + ((and (string= web-mode-engine "django") + (looking-at-p "{% stylesheet %}")) + (setq tagopen "{% stylesheet %}")) + ) + ;;(message "%S %s" (point) tagopen) + (when (and (member tagopen '("" + "<%block filter=\"collect_js\">" + "<%block filter=\"collect_css\">" + "{% javascript %}" + "{% schema %}" + "{% stylesheet %}" + "%= javascript begin" + "---")) + (setq part-beg close) + (setq tagclose + (cond + ((string= tagopen "") "<% end %>") + ((member tagopen '("<%block filter=\"collect_js\">" + "<%block filter=\"collect_css\">")) " part-end part-beg)) + ;;(message "tagopen=%S tagclose=%S end=%S" tagopen tagclose (point)) + (put-text-property part-beg part-end + 'part-side + (cond + ((member tagopen '("" "{% stylesheet %}")) 'css) + (t 'javascript))) + (setq pos part-beg + part-beg nil + part-end nil) + ) ;when + ) ;when close + + (if pos (goto-char pos)) + + ) ;when closing-string + + ) ;while + + (cond + ((>= i 2000) + (message "scan-blocks ** warning (%S) **" i)) + ((string= web-mode-engine "razor") + (web-mode-block-foreach reg-beg reg-end 'web-mode-block-scan)) + ((string= web-mode-engine "django") + (web-mode-scan-engine-comments reg-beg reg-end + "{% comment %}" "{% endcomment %}")) + ((string= web-mode-engine "mako") + (web-mode-scan-engine-comments reg-beg reg-end + "<%doc>" "")) + ((string= web-mode-engine "mason") + (web-mode-scan-engine-comments reg-beg reg-end + "<%doc>" "")) + ) ;cond + + ))) + +(defun web-mode-scan-engine-comments (reg-beg reg-end tag-start tag-end) + "Scan engine comments (mako, django)." + (save-excursion + (let (beg end (continue t)) + (goto-char reg-beg) + (while (and continue + (< (point) reg-end) + (re-search-forward tag-start reg-end t)) + (goto-char (match-beginning 0)) + (setq beg (point)) + (if (not (re-search-forward tag-end reg-end t)) + (setq continue nil) + (setq end (point)) + (remove-list-of-text-properties beg end web-mode-scan-properties) + (add-text-properties beg end '(block-side t block-token comment)) + (put-text-property beg (1+ beg) 'block-beg 0) + (put-text-property (1- end) end 'block-end t) + ) ;if + ) ;while + ))) + +(defun web-mode-closure-skip (reg-beg reg-end) + (let (regexp char pos inc continue found) + (setq regexp "[\"'{}]" + inc 0) + (while (and (not found) (re-search-forward regexp reg-end t)) + (setq char (char-before)) + (cond + ((get-text-property (point) 'block-side) + (setq found t)) + ((eq char ?\{) + (setq inc (1+ inc))) + ((eq char ?\}) + (cond + ((and (not (eobp)) + (< inc 1)) + (setq found t + pos (point))) + ((> inc 0) + (setq inc (1- inc))) + ) + ) + ((eq char ?\') + (setq continue t) + (while (and continue (search-forward "'" reg-end t)) + (setq continue (web-mode-string-continue-p reg-beg)) + ) + ) + ((eq char ?\") + (setq continue t) + (while (and continue (search-forward "\"" reg-end t)) + (setq continue (web-mode-string-continue-p reg-beg)) + ) + ) + ) ;cond + ) ;while + pos)) + +(defun web-mode-django-skip (reg-beg reg-end) + (let (regexp char pos inc continue found) + (setq regexp "[\"'{}]" + inc 0) + (while (and (not found) (re-search-forward regexp reg-end t)) + (setq char (char-before)) + (cond + ((get-text-property (point) 'block-side) + (setq found t)) + ((eq char ?\{) + (setq inc (1+ inc))) + ((eq char ?\}) + (cond + ((and (not (eobp)) + (eq (char-after) ?\}) + (< inc 2)) + (forward-char) + (setq found t + pos (1+ (point)))) + ((> inc 0) + (setq inc (1- inc))) + ) + ) + ((eq char ?\') + (setq continue t) + (while (and continue (search-forward "'" reg-end t)) + (setq continue (web-mode-string-continue-p reg-beg)) + ) + ) + ((eq char ?\") + (setq continue t) + (while (and continue (search-forward "\"" reg-end t)) + (setq continue (web-mode-string-continue-p reg-beg)) + ) + ) + ) ;cond + ) ;while + pos)) + +(defun web-mode-blade-skip (pos) + (let (regexp char inc continue found (reg-beg pos) (reg-end (point-max))) + ;;(message "pos=%S" pos) + (goto-char pos) + (forward-char) + (skip-chars-forward "a-zA-Z0-9_-") + (skip-chars-forward " ") + (when (eq (char-after) ?\() + (setq regexp "[\"'()]" + inc 0) + (while (and (not found) (re-search-forward regexp reg-end t)) + (setq char (char-before)) + ;;(message "point=%S char=%c inc=%S" (point) char inc) + (cond + ((eq char ?\() + (setq inc (1+ inc))) + ((eq char ?\)) + (cond + ((and (not (eobp)) + (< inc 2)) + (forward-char) + (setq inc (1- inc)) + (setq found t) + ) + ((> inc 0) + (setq inc (1- inc))) + ) + ) + ((eq char ?\') + (setq continue t) + (while (and continue (search-forward "'" reg-end t)) + (setq continue (web-mode-string-continue-p reg-beg)) + ) + ) + ((eq char ?\") + (setq continue t) + (while (and continue (search-forward "\"" reg-end t)) + (setq continue (web-mode-string-continue-p reg-beg)) + ) + ) + ) ;cond + ;;(message "inc=%S found=%S" inc found) + ) ;while + ) ; when + ;;(message "point=%S inc=%S" (point) inc) + (when found (backward-char)) + )) + +(defun web-mode-velocity-skip (pos) + (goto-char pos) + (let ((continue t) (i 0)) + (when (eq ?\# (char-after)) + (forward-char)) + (when (member (char-after) '(?\$ ?\@)) + (forward-char)) + (when (member (char-after) '(?\!)) + (forward-char)) + (cond + ((member (char-after) '(?\{)) + (search-forward "}" nil t)) + ((looking-at-p "def \\|define ") + (search-forward ")" (line-end-position) t)) + (t + (setq continue t) + (while continue + (skip-chars-forward "a-zA-Z0-9_-") + (when (> (setq i (1+ i)) 500) + (message "velocity-skip ** warning (%S) **" pos) + (setq continue nil)) + (when (member (char-after) '(?\()) + (search-forward ")" nil t)) + (if (member (char-after) '(?\.)) + (forward-char) + (setq continue nil)) + ) ;while + ) ;t + ) ;cond + )) + +(defun web-mode-razor-skip (pos) + (goto-char pos) + (let ((continue t) (i 0)) + (while continue + (skip-chars-forward " =@a-zA-Z0-9_-") + (cond + ((> (setq i (1+ i)) 500) + (message "razor-skip ** warning **") + (setq continue nil)) + ((and (eq (char-after) ?\*) + (eq (char-before) ?@)) + (when (not (search-forward "*@" nil t)) + (setq continue nil)) + ) + ((looking-at-p "@[({]") + (forward-char) + (when (setq pos (web-mode-closing-paren-position (point))) + (goto-char pos)) + (forward-char) + ) + ((and (not (eobp)) (eq ?\( (char-after))) + (cond + ((looking-at-p "[ \n]*[<@]") + (setq continue nil)) + ((setq pos (web-mode-closing-paren-position)) + (goto-char pos) + (forward-char)) + (t + (forward-char)) + ) ;cond + ) + ((and (not (eobp)) (eq ?\< (char-after)) (looking-back "[a-z]" (point-min))) + (setq pos (point)) + (cond + ;; #988 + ((search-forward ">" (line-end-position) t) + (goto-char pos) + (setq continue nil) + ) + (t + (setq continue nil)) + ) ;cond + ) + ((and (not (eobp)) (eq ?\. (char-after))) + (forward-char)) + ((and (not (eobp)) (looking-at-p "[ \n]*else")) + (re-search-forward "[ \t]*else") + ) + ((looking-at-p "[ \n]*{") + (search-forward "{") + (search-forward "=>" (line-end-position) 't) + (if (looking-at-p "[ \n]*[<@]") + (setq continue nil) + (backward-char) + (when (setq pos (web-mode-closing-paren-position)) + (goto-char pos)) + (forward-char) + ) ;if + ) + ((looking-at-p "}") + (forward-char)) + (t + (setq continue nil)) + ) ;cond + ) ;while + )) + +(defun web-mode-block-delimiters-set (reg-beg reg-end delim-open delim-close) + "Set text-property `block-token' to `delimiter-(beg|end)' on block delimiters +(e.g. )" + ;;(message "reg-beg(%S) reg-end(%S) delim-open(%S) delim-close(%S)" reg-beg reg-end delim-open delim-close) + (when (member web-mode-engine + '("artanis" "anki" "antlers" "asp" "aspx" + "cl-emb" "clip" "closure" "ctemplate" "django" "dust" + "elixir" "ejs" "erb" "expressionengine" "freemarker" "go" "hero" "jsp" "lsp" + "mako" "mason" "mojolicious" + "perl" + "smarty" "template-toolkit" "web2py" "xoops" "svelte")) + (save-excursion + (when delim-open + (goto-char reg-beg) + (looking-at delim-open) + (setq delim-open (match-string-no-properties 0))) + (when delim-close + (goto-char reg-end) + (looking-back delim-close reg-beg t) + (setq delim-close (match-string-no-properties 0))) + )) + (when delim-open + (put-text-property reg-beg (+ reg-beg (length delim-open)) + 'block-token 'delimiter-beg)) + (when delim-close + (put-text-property (- reg-end (length delim-close)) reg-end + 'block-token 'delimiter-end)) + ) + +(defun web-mode-block-foreach (reg-beg reg-end func) + (let ((i 0) (continue t) (block-beg reg-beg) (block-end nil)) + (while continue + (setq block-end nil) + (unless (get-text-property block-beg 'block-beg) + (setq block-beg (web-mode-block-next-position block-beg))) + (when (and block-beg (< block-beg reg-end)) + (setq block-end (web-mode-block-end-position block-beg))) + (cond + ((> (setq i (1+ i)) 2000) + (message "process-blocks ** warning (%S) **" (point)) + (setq continue nil)) + ((or (null block-end) (> block-end reg-end)) + (setq continue nil)) + (t + (setq block-end (1+ block-end)) + (funcall func block-beg block-end) + (setq block-beg block-end) + ) ;t + ) ;cond + ) ;while + )) + +(defun web-mode-block-scan (block-beg block-end) + (let (sub1 sub2 sub3 regexp token-type) + + ;;(message "block-beg=%S block-end=%S" block-beg block-end) + ;;(remove-text-properties block-beg block-end web-mode-scan-properties) + + (goto-char block-beg) + + (cond + ((>= (point-max) (+ block-beg 3)) + (setq sub3 (buffer-substring-no-properties block-beg (+ block-beg 3)) + sub2 (buffer-substring-no-properties block-beg (+ block-beg 2)) + sub1 (buffer-substring-no-properties block-beg (+ block-beg 1))) + ) + ((>= (point-max) (+ block-beg 2)) + (setq sub3 (buffer-substring-no-properties block-beg (+ block-beg 2)) + sub2 (buffer-substring-no-properties block-beg (+ block-beg 2)) + sub1 (buffer-substring-no-properties block-beg (+ block-beg 1))) + ) + (t + (setq sub1 (buffer-substring-no-properties block-beg (+ block-beg 1))) + (setq sub2 sub1 + sub3 sub1) + ) + ) + + (cond + + ((member web-mode-engine '("php" "lsp" "python" "web2py" "mason")) + (setq regexp web-mode-engine-token-regexp)) + + ((string= web-mode-engine "mako") + (cond + ((string= sub2 "##") + (setq token-type 'comment) + ) + (t + (setq regexp web-mode-engine-token-regexp)) + ) + ) ;mako + + ((string= web-mode-engine "django") + (cond + ((member sub2 '("{{" "{%")) + (setq regexp "\"\\|'")) + ((string= sub2 "{#") + (setq token-type 'comment)) + ) + ) ;django + + ((string= web-mode-engine "ctemplate") + (cond + ((string= sub3 "{{!") + (setq token-type 'comment)) + ((member sub2 '("{{")) + ) + ) + ) ;ctemplate + + ((string= web-mode-engine "antlers") + (cond + ((string= sub3 "{{#") + (setq token-type 'comment)) + ((member sub2 '("{{")) + ) + ) + ) ;antlers + + ((string= web-mode-engine "astro") + (setq regexp "\"\\|'") + ) ;astro + + ((string= web-mode-engine "go") + (cond + ((string= sub3 "{{/") + (setq token-type 'comment)) + ((string= sub2 "{{") + (setq regexp "\"\\|'")) + ) + ) ;go + + ((string= web-mode-engine "hero") + (cond + ((string= sub3 "<%#") + (setq token-type 'comment)) + (t + (setq regexp "\"\\|'")) + ) + ) ;hero + + ((string= web-mode-engine "razor") + (cond + ((string= sub2 "@*") + (setq token-type 'comment)) + (t + (setq regexp "//\\|@\\*\\|\"\\|'")) + ) + ) ;razor + + ((string= web-mode-engine "blade") + (cond + ((string= sub3 "{{-") + (setq token-type 'comment)) + (t + (setq regexp "\"\\|'")) + ) + ) ;blade + + ((string= web-mode-engine "cl-emb") + (cond + ((string= sub3 "<%#") + (setq token-type 'comment)) + (t + (setq regexp "\"\\|'")) + ) + ) ;cl-emb + + ((string= web-mode-engine "artanis") + (cond + ((string= sub3 "<%;") + (setq token-type 'comment)) + ((string= sub3 "<%#|") + (setq token-type 'comment)) + (t + (setq regexp "\"")) + ) + ) ;artanis + + ((string= web-mode-engine "elixir") + (cond + ((string= sub3 "<%#") + (setq token-type 'comment)) + (t + (setq regexp "\"\\|'")) + ) + ) ;elixir + + ((string= web-mode-engine "mojolicious") + (cond + ((or (string= sub2 "%#") (string= sub3 "<%#")) + (setq token-type 'comment)) + (t + (setq regexp "\"\\|'")) + ) + ) ;mojolicious + + ((string= web-mode-engine "velocity") + (cond + ((member sub2 '("##" "#*")) + (setq token-type 'comment)) + ((member sub1 '("$" "#")) + (setq regexp "\"\\|'")) + ) + ) ;velocity + + ((string= web-mode-engine "jsp") + (cond + ((string= sub3 "<%-") + (setq token-type 'comment)) + ((string= sub3 "<%@") + (setq regexp "/\\*")) + ((member sub2 '("${" "#{")) + (setq regexp "\"\\|'")) + ((string= sub2 "<%") + (setq regexp "//\\|/\\*\\|\"\\|'")) + ) + ) ;jsp + + ((string= web-mode-engine "clip") + (setq regexp nil) + ) ;clip + + ((string= web-mode-engine "perl") + (setq regexp nil) + ) ;perl + + ((and (string= web-mode-engine "asp") + (string= sub2 "<%")) + (setq regexp "//\\|/\\*\\|\"\\|'") + ) ;asp + + ((string= web-mode-engine "aspx") + (cond + ((string= sub3 "<%-") + (setq token-type 'comment)) + ((string= sub3 "<%@") + (setq regexp "/\\*")) + ((string= sub3 "<%$") + (setq regexp "\"\\|'")) + (t + (setq regexp "//\\|/\\*\\|\"\\|'")) + ) + ) ;aspx + + ((string= web-mode-engine "freemarker") + (cond + ((member sub3 '("<#-" "[#-")) + (setq token-type 'comment)) + ((member sub2 '("${" "#{")) + (setq regexp "\"\\|'")) + ((or (member sub2 '("<@" "[@" "<#" "[#")) + (member sub3 '(" (- block-end block-beg) 6)) + (web-mode-block-tokenize + (web-mode-block-code-beginning-position block-beg) + (web-mode-block-code-end-position block-beg) + regexp) + ) + ) ;cond + + )) + +(defun web-mode-block-tokenize (reg-beg reg-end &optional regexp) + (unless regexp (setq regexp web-mode-engine-token-regexp)) + ;;(message "tokenize: reg-beg(%S) reg-end(%S) regexp(%S)" reg-beg reg-end regexp) + ;;(message "tokenize: reg-beg(%S) reg-end(%S) command(%S)" reg-beg reg-end this-command) + ;;(message "%S>%S : %S" reg-beg reg-end (buffer-substring-no-properties reg-beg reg-end)) + (save-excursion + (let ((pos reg-beg) beg char match continue token-type token-end) + + (remove-list-of-text-properties reg-beg reg-end '(block-token)) + + ;; TODO : vérifier la cohérence + (put-text-property reg-beg reg-end 'block-side t) + + (goto-char reg-beg) + + (when (> (point) reg-end) + (message "block-tokenize ** reg-beg(%S) > reg-end(%S) **" reg-beg reg-end)) + + (while (and (< (point) reg-end) (re-search-forward regexp reg-end t)) + (setq beg (match-beginning 0) + match (match-string 0) + continue t + token-type 'comment + token-end (if (< reg-end (line-end-position)) reg-end (line-end-position)) + char (aref match 0)) + (cond + + ((and (string= web-mode-engine "asp") (string= match "'")) + (goto-char token-end)) + + ((and (string= web-mode-engine "razor") (eq char ?\')) + (cond + ((looking-at-p "\\(.\\|[\\][bfntr]\\|[\\]u....\\)'") + (search-forward "'" reg-end t) + (setq token-type 'string) + ) + (t + (re-search-forward "[[:alnum:]_-]+") + (setq token-type 'symbol) + ))) + + ((eq char ?\') + (setq token-type 'string) + (while (and continue (search-forward "'" reg-end t)) + (setq continue (web-mode-string-continue-p reg-beg)) + )) + + ((eq char ?\") + (setq token-type 'string) + (while (and continue (search-forward "\"" reg-end t)) + (setq continue (web-mode-string-continue-p reg-beg)) + )) + + ((string= match "//") + (goto-char token-end)) + + ((eq char ?\;) + (goto-char token-end)) + + ((string= match "#|") + (unless (search-forward "|#" reg-end t) + (goto-char token-end))) + + ((eq char ?\#) + (goto-char token-end)) + + ((string= match "/*") + (unless (search-forward "*/" reg-end t) + (goto-char token-end)) + ) + + ((string= match "@*") + (unless (search-forward "*@" reg-end t) + (goto-char token-end))) + + ((eq char ?\<) + (setq token-type 'string) + (re-search-forward (concat "^[ ]*" (match-string 1)) reg-end t)) + + (t + (message "block-tokenize ** token end (%S) **" beg) + (setq token-type nil)) + + ) ;cond + + (put-text-property beg (point) 'block-token token-type) + + (when (eq token-type 'comment) + (put-text-property beg (1+ beg) 'syntax-table (string-to-syntax "<")) + (if (or (< (point) (line-end-position)) (= (point) (point-max))) + (put-text-property (1- (point)) (point) 'syntax-table (string-to-syntax ">")) ;#445 #480 + (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax ">")) ;#377 + ) + ) + + ) ;while + + (web-mode-block-controls-unset pos) + + ))) + +(defun web-mode-set-php-controls (reg-beg reg-end) + (goto-char reg-beg) + (let (match controls + (continue t) + (regexp "endif\\|endforeach\\|endfor\\|endwhile\\|elseif\\|else\\|if\\|foreach\\|for\\|while")) + (while continue + (if (not (web-mode-block-rsf regexp reg-end)) + (setq continue nil) + (setq match (match-string-no-properties 0)) + ;; (message "%S %S" match (point)) + (cond + ((and (member match '("else" "elseif")) + (looking-at-p "[ ]*[:(]")) + (setq controls (append controls (list (cons 'inside "if")))) + ) + ((and (>= (length match) 3) + (string= (substring match 0 3) "end")) + (setq controls (append controls (list (cons 'close (substring match 3))))) + ) + ((and (progn (skip-chars-forward "[ ]") t) + (eq (char-after) ?\() + (web-mode-closing-paren reg-end) + ;;(progn (message "ixi%S" (point))) + (looking-at-p ")[ ]*:")) + (setq controls (append controls (list (cons 'open match)))) + ) + ) ;cond + ) ;if + ) ;while + ;;(message "%S-%S %S" reg-beg reg-end controls) + (when (and controls (> (length controls) 1)) + (setq controls (web-mode-block-controls-reduce controls))) + controls)) + +(defun web-mode-block-controls-reduce (controls) + (when (and (eq (car (car controls)) 'open) + (member (cons 'close (cdr (car controls))) controls)) + (setq controls nil)) + controls) + +(defun web-mode-block-controls-unset (pos) + (cond + ((null (get-text-property pos 'block-side)) + (message "block-controls-unset ** invalid value (%S) **" pos)) + ((or (get-text-property pos 'block-beg) + (setq pos (web-mode-block-beginning-position pos))) + (put-text-property pos (1+ pos) 'block-controls 0)) + (t + (message "block-controls-unset ** failure (%S) **" (point))) + )) + +(defun web-mode-block-controls-get (pos) + (web-mode-with-silent-modifications + (let ((controls nil)) + (cond + ((null (get-text-property pos 'block-side)) + (message "block-controls-get ** invalid value (%S) **" pos)) + ((or (get-text-property pos 'block-beg) + (setq pos (web-mode-block-beginning-position pos))) + (setq controls (get-text-property pos 'block-controls)) + (when (integerp controls) + (web-mode-block-controls-set pos (web-mode-block-end-position pos)) + (setq controls (get-text-property pos 'block-controls)) + ) + ) + (t + (message "block-controls-get ** failure (%S) **" (point))) + ) ;cond + controls))) + +(defun web-mode-block-controls-set (reg-beg reg-end) + (save-excursion + (goto-char reg-beg) + (let (controls pos type control) + + (cond + + ((null web-mode-engine) + (message "block-controls-set ** unknown engine (%S) **" web-mode-engine) + ) + + ((string= web-mode-engine "php") + (setq controls (web-mode-set-php-controls reg-beg reg-end)) + (when (web-mode-block-starts-with "}" reg-beg) + (setq controls (append controls (list (cons 'close "{"))))) + (when (web-mode-block-ends-with (cons "{" "}") reg-beg) + (setq controls (append controls (list (cons 'open "{"))))) + ) ;php + + ((string= web-mode-engine "ejs") + (cond + ((web-mode-block-ends-with "}[ ]*else[ ]*{" reg-beg) + (setq controls (append controls (list (cons 'inside "{"))))) + ((web-mode-block-starts-with "}" reg-beg) + (setq controls (append controls (list (cons 'close "{"))))) + ((web-mode-block-ends-with "{" reg-beg) + (setq controls (append controls (list (cons 'open "{"))))) + ) + ) ;ejs + + ((string= web-mode-engine "erb") + (cond + ((web-mode-block-starts-with "else\\|elsif\\|when" reg-beg) + (setq controls (append controls (list (cons 'inside "ctrl"))))) + ((web-mode-block-starts-with "end" reg-beg) + (setq controls (append controls (list (cons 'close "ctrl"))))) + ((web-mode-block-ends-with " do\\( |.*|\\)?" reg-beg) + (setq controls (append controls (list (cons 'open "ctrl"))))) + ((and (web-mode-block-starts-with "\\(for\\|if\\|unless\\|case\\)\\_>" reg-beg) + (not (web-mode-block-ends-with "end" reg-end))) + (setq controls (append controls (list (cons 'open "ctrl"))))) + ) + ) ;erb + + ((string= web-mode-engine "django") + (cond + ((and (string= web-mode-minor-engine "jinja") ;#504 + (web-mode-block-starts-with "else\\_>" reg-beg)) + (let ((continue t) + (pos reg-beg) + (ctrl nil)) + (while continue + (cond + ((null (setq pos (web-mode-block-control-previous-position 'open pos))) + (setq continue nil)) + ((member (setq ctrl (cdr (car (get-text-property pos 'block-controls)))) '("if" "ifequal" "ifnotequal" "for")) + (setq continue nil) + ) + ) ;cond + ) + (setq controls (append controls (list (cons 'inside (or ctrl "if"))))) + ) + ) + ((web-mode-block-starts-with "form_start[ ]*(" reg-beg) + (setq controls (append controls (list (cons 'open "form_start"))))) + ((web-mode-block-starts-with "form_end[ ]*(" reg-beg) + (setq controls (append controls (list (cons 'close "form_start"))))) + ((not (eq (char-after (1+ reg-beg)) ?\%)) + ) + ((web-mode-block-starts-with "\\(else\\|els?if\\)" reg-beg) + (let ((continue t) + (pos reg-beg) + (ctrl nil)) + (while continue + (cond + ((null (setq pos (web-mode-block-control-previous-position 'open pos))) + (setq continue nil)) + ((member (setq ctrl (cdr (car (get-text-property pos 'block-controls)))) '("if" "ifequal" "ifnotequal")) + (setq continue nil) + ) + ) ;cond + ) ;while + (setq controls (append controls (list (cons 'inside (or ctrl "if"))))) + ) ;let + ) ;case else + ((web-mode-block-starts-with "\\(empty\\)" reg-beg) + (setq controls (append controls (list (cons 'inside "for"))))) + ((web-mode-block-starts-with "end\\([[:alpha:]]+\\)" reg-beg) + (setq controls (append controls (list (cons 'close (match-string-no-properties 1)))))) + ((web-mode-block-starts-with "set [[:alpha:]]+[ ]*%}" reg-beg) + (setq controls (append controls (list (cons 'open "set"))))) + ((web-mode-block-starts-with (concat web-mode-django-control-blocks-regexp "[ %]") reg-beg) + (let (control) + (setq control (match-string-no-properties 1)) + ;;(message "%S %S %S" control (concat "end" control) web-mode-django-control-blocks) + (when (member (concat "end" control) web-mode-django-control-blocks) + (setq controls (append controls (list (cons 'open control)))) + ) ;when + ) ;let + ) ;case + ) ;cond + ) ;django + + ((string= web-mode-engine "smarty") + (cond + ((and (eq (char-after (1+ reg-beg)) ?\/) + (web-mode-block-starts-with "\\([[:alpha:]]+\\)" reg-beg)) + (setq controls (append controls (list (cons 'close (match-string-no-properties 1)))))) + ((web-mode-block-starts-with "\\(else\\|elseif\\)" reg-beg) + (setq controls (append controls (list (cons 'inside "if"))))) + ((web-mode-block-starts-with "\\(block\\|foreach\\|for\\|if\\|section\\|while\\)") + (setq controls (append controls (list (cons 'open (match-string-no-properties 1)))))) + ) + ) ;smarty + + ((string= web-mode-engine "expressionengine") + (cond + ((and (eq (char-after (1+ reg-beg)) ?\/) + (web-mode-block-starts-with "\\(if\\)" reg-beg)) + (setq controls (append controls (list (cons 'close (match-string-no-properties 1)))))) + ((web-mode-block-starts-with "\\(if:else\\|if:ifelse\\)" reg-beg) + (setq controls (append controls (list (cons 'inside "if"))))) + ((web-mode-block-starts-with "\\(if\\)") + (setq controls (append controls (list (cons 'open (match-string-no-properties 1)))))) + ) + ) ;expressionengine + + ((string= web-mode-engine "xoops") + (cond + ((and (eq (char-after (+ reg-beg 2)) ?\/) + (web-mode-block-starts-with "\\([[:alpha:]]+\\)" reg-beg)) + (setq controls (append controls (list (cons 'close (match-string-no-properties 1)))))) + ((web-mode-block-starts-with "\\(else\\|elseif\\)" reg-beg) + (setq controls (append controls (list (cons 'inside "if"))))) + ((web-mode-block-starts-with "\\(block\\|foreach\\|for\\|if\\|section\\|while\\)") + (setq controls (append controls (list (cons 'open (match-string-no-properties 1)))))) + ) + ) ;xoops + + ((string= web-mode-engine "web2py") + (cond + ((web-mode-block-starts-with "def" reg-beg) + (setq controls (append controls (list (cons 'open "def"))))) + ((web-mode-block-starts-with "return" reg-beg) + (setq controls (append controls (list (cons 'close "def"))))) + ((web-mode-block-starts-with "block" reg-beg) + (setq controls (append controls (list (cons 'open "block"))))) + ((web-mode-block-starts-with "end" reg-beg) + (setq controls (append controls (list (cons 'close "block"))))) + ((web-mode-block-starts-with "pass" reg-beg) + (setq controls (append controls (list (cons 'close "ctrl"))))) + ((web-mode-block-starts-with "\\(except\\|finally\\|els\\)" reg-beg) + (setq controls (append controls (list (cons 'inside "ctrl"))))) + ((web-mode-block-starts-with "\\(if\\|for\\|try\\|while\\)") + (setq controls (append controls (list (cons 'open "ctrl"))))) + ) + ) ;web2py + + ((string= web-mode-engine "dust") + (cond + ((eq (char-after (1- reg-end)) ?\/) + ) + ((eq (char-after (1+ reg-beg)) ?\:) + (setq pos (web-mode-block-control-previous-position 'open reg-beg)) + (when pos + (setq controls (append controls + (list + (cons 'inside + (cdr (car (web-mode-block-controls-get pos)))))))) + ) + ((looking-at "{/\\([[:alpha:].]+\\)") + (setq controls (append controls (list (cons 'close (match-string-no-properties 1)))))) + ((looking-at "{[#?@><+^]\\([[:alpha:].]+\\)") + (setq controls (append controls (list (cons 'open (match-string-no-properties 1)))))) + ) + ) ;dust + + ((string= web-mode-engine "anki") + (cond + ((looking-at "{{[#^]\\([[:alpha:].]+\\)") + (setq controls (append controls (list (cons 'open (match-string-no-properties 1)))))) + ((looking-at "{{/\\([[:alpha:].]+\\)") + (setq controls (append controls (list (cons 'close (match-string-no-properties 1)))))) + ) + ) ;anki + + ((member web-mode-engine '("mojolicious")) + (cond + ((web-mode-block-ends-with "begin" reg-beg) + (setq controls (append controls (list (cons 'open "begin"))))) + ((web-mode-block-starts-with "end" reg-beg) + (setq controls (append controls (list (cons 'close "begin"))))) + ((web-mode-block-starts-with "}[ ]*else[ ]*{" reg-beg) + (setq controls (append controls (list (cons 'inside "{"))))) + ((web-mode-block-starts-with "}" reg-beg) + (setq controls (append controls (list (cons 'close "{"))))) + ((web-mode-block-ends-with "{" reg-beg) + (setq controls (append controls (list (cons 'open "{"))))) + ) + ) ;mojolicious + + ((member web-mode-engine '("aspx" "underscore")) + (cond + ((and (web-mode-block-starts-with "}" reg-beg) + (web-mode-block-ends-with "{" reg-beg)) + (setq controls (append controls (list (cons 'inside "{"))))) + ((web-mode-block-starts-with "}" reg-beg) + (setq controls (append controls (list (cons 'close "{"))))) + ((web-mode-block-ends-with "{" reg-beg) + (setq controls (append controls (list (cons 'open "{"))))) + ) + ) ;aspx underscore + + ((member web-mode-engine '("jsp" "asp" "clip" "perl")) + (cond + ((eq (char-after (1- reg-end)) ?\/) + ) + ((looking-at "" reg-beg) + (setq controls (append controls (list (cons 'close "ctrl"))))) + ((web-mode-block-starts-with "else\\_>" reg-beg) + (setq controls (append controls (list (cons 'inside "ctrl"))))) + ((web-mode-block-starts-with "\\(range\\|with\\|if\\|define\\|block\\)\\_>" reg-beg) + (setq controls (append controls (list (cons 'open "ctrl"))))) + ) + ) ;go + + ((string= web-mode-engine "template-toolkit") + (cond + ((web-mode-block-starts-with "end" reg-beg) + (setq controls (append controls (list (cons 'close "ctrl"))))) + ((web-mode-block-starts-with "els\\|catch\\|final" reg-beg) + (setq controls (append controls (list (cons 'inside "ctrl"))))) + ((web-mode-block-starts-with "filter\\|foreach\\|if\\|last\\|next\\|perl\\|rawperl\\|try\\|unless\\|while" reg-beg) + (setq controls (append controls (list (cons 'open "ctrl"))))) + ) + ) ;template-toolkit + + ((string= web-mode-engine "cl-emb") + (cond + ((web-mode-block-starts-with "@else" reg-beg) + (setq controls (append controls (list (cons 'inside "if"))))) + ((web-mode-block-starts-with "@\\(?:end\\)?\\(if\\|unless\\|repeat\\|loop\\|with\\|genloop\\)" reg-beg) + (setq control (match-string-no-properties 1) + type (if (eq (aref (match-string-no-properties 0) 1) ?e) 'close 'open)) + (setq controls (append controls (list (cons type control))))) + ) + ) ;cl-emb + + ((string= web-mode-engine "elixir") + (cond + ((web-mode-block-starts-with "end" reg-beg) + (setq controls (append controls (list (cons 'close "ctrl"))))) + ((web-mode-block-starts-with "else" reg-beg) + (setq controls (append controls (list (cons 'inside "ctrl"))))) + ((web-mode-block-ends-with " do" reg-beg) + (setq controls (append controls (list (cons 'open "ctrl"))))) + ((web-mode-block-ends-with " ->" reg-beg) + (setq controls (append controls (list (cons 'open "ctrl"))))) + ) + ) ;elixir + + ((string= web-mode-engine "velocity") + (cond + ((web-mode-block-starts-with "{?end" reg-beg) + (setq controls (append controls (list (cons 'close "ctrl"))))) + ((web-mode-block-starts-with "{?els" reg-beg) + (setq controls (append controls (list (cons 'inside "ctrl"))))) + ((web-mode-block-starts-with "{?\\(def\\|if\\|for\\|foreach\\|macro\\)" reg-beg) + ;;((web-mode-block-starts-with "{?\\(define\\|\\|if\\|for\\|foreach\\|macro\\)" reg-beg) + (setq controls (append controls (list (cons 'open "ctrl"))))) + ) + ) ;velocity + + ((string= web-mode-engine "freemarker") + (cond + ((looking-at "[<[]#\\(import\\|include\\|assign\\|return\\|local\\)") + ) + ((eq (char-after (1- reg-end)) ?\/) + ) + ((looking-at "[<[]#\\(break\\|case\\|default\\)") + (setq controls (append controls (list (cons 'inside "switch")))) + ) + ((looking-at "[<[]#els") + (setq controls (append controls (list (cons 'inside "if")))) + ) + ((looking-at "<+^]\\([[:alpha:].]+\\)") + (setq controls (append controls (list (cons 'open (match-string-no-properties 1)))))) + ) + ) ;svelte + + ) ;cond engine + + (put-text-property reg-beg (1+ reg-beg) 'block-controls controls) + ;;(message "(%S) controls=%S" reg-beg controls) + + ))) + +(defun web-mode-block-is-opened-sexp (reg-beg reg-end) + (let ((n 0)) + (save-excursion + (goto-char reg-beg) + (while (web-mode-block-rsf "[()]" reg-end) + (if (eq (char-before) ?\() (setq n (1+ n)) (setq n (1- n))))) + (> n 0))) + +;;---- LEXER PARTS ------------------------------------------------------------- + +(defun web-mode-scan-elements (reg-beg reg-end) + (save-excursion + (let (part-beg part-end flags limit close-expr props tname tbeg tend element-content-type (regexp web-mode-dom-regexp) part-close-tag char) + ;;(message "scan-elements: reg-beg(%S) reg-end(%S)" reg-beg reg-end) + (goto-char reg-beg) + + (while (web-mode-dom-rsf regexp reg-end) + + ;;(message "%S: %S (%S %S)" (point) (match-string-no-properties 0) reg-beg reg-end) + + (setq flags 0 + tnameraw (match-string-no-properties 1) + tname (downcase tnameraw) + char (aref tname 0) + tbeg (match-beginning 0) + tend nil + element-content-type nil + limit reg-end + part-beg nil + part-end nil + props nil + close-expr nil + part-close-tag nil) + + ;;(message "tname[%S] tbeg(%S) point(%S)" tname tbeg (point)) + + (cond + + ((member tname '("/>" ">")) ;;jsx fragment #952 + (setq tname "_fragment_" + tend (point)) + (if (eq char ?\/) + (setq props (list 'tag-name tname 'tag-type 'end) + flags (logior flags 20)) ;; 16 + 4 + (setq props (list 'tag-name tname 'tag-type 'start) + flags (logior flags 16)) + ) ;if + ) + + ((not (member char '(?\! ?\?))) + (cond + ((or (string-match-p "-" tname) + (let ((case-fold-search nil)) + (string-match-p "^/?[[:upper:]][[:lower:]]" tnameraw))) + (setq flags (logior flags 2))) + ;;((string-match-p ":" tname) + ;; (setq flags (logior flags 32))) + ((string-match-p "[._:]" tname) + (setq flags (logior flags 32))) + ) + (cond + ((eq char ?\/) + (setq props (list 'tag-name (substring tname 1) 'tag-type 'end) + flags (logior flags 4) + limit (if (> reg-end (line-end-position)) (line-end-position) reg-end)) + ) + ((web-mode-element-is-void tname) + ;;(message "void: tag=%S" tname) + (setq props (list 'tag-name tname 'tag-type 'void))) + (t + (setq props (list 'tag-name tname 'tag-type 'start))) + ) ;cond + ) ; not " + props '(tag-type comment))) + ((string= tname "?xml") + (setq ;;regexp web-mode-tag-regexp2 + close-expr "?>" + props '(tag-type declaration))) + ((string= tname "![cdata[") + (setq close-expr "]]>" + props '(tag-type cdata))) + ((string= tname "!doctype") + (setq ;;regexp web-mode-tag-regexp2 + props '(tag-type doctype))) + ) ;cond - special tags + + (cond + + (tend + ) + + ((and (null close-expr) (eq (char-after) ?\>)) + (setq flags (logior flags 16) + tend (1+ (point))) + ;;(message "end=%S" tend) + ) + + ((and (null close-expr) + (looking-at "[ ]\\(class\\|id\\|href\\|style\\)=\"[[:alnum:]_=:/?;#. -]*\">")) + (let ((beg (1+ (point))) + (end (+ (point) (length (match-string-no-properties 0))))) + (setq flags (logior flags 17) + tend end) + (put-text-property beg (1+ beg) 'tag-attr-beg 0) + (put-text-property beg (1- end) 'tag-attr t) + (put-text-property (- end 2) (1- end) 'tag-attr-end (length (match-string-no-properties 1))) + ) ;let + ) + + ((null close-expr) + (setq flags (logior flags (web-mode-attr-skip reg-end))) + (when (> (logand flags 8) 0) + (setq props (plist-put props 'tag-type 'void))) + (setq tend (point))) + + ((web-mode-dom-sf close-expr limit t) + (setq tend (point))) + + (t + (setq tend (line-end-position))) + + ) ;cond + + (cond + ((string= tname "style") + (let (style) + (setq style (buffer-substring-no-properties tbeg tend) + part-close-tag "") + (cond + ((string-match-p " lang[ ]*=[ ]*[\"']stylus" style) + (setq element-content-type "stylus")) + ((string-match-p " lang[ ]*=[ ]*[\"']sass" style) + (setq element-content-type "sass")) + (t + (setq element-content-type "css")) + ) ;cond + ) ;let + ) ;style + ((string= tname "script") + (let (script) + (setq script (buffer-substring-no-properties tbeg tend) + part-close-tag "") + (cond + ((string-match-p " type[ ]*=[ ]*[\"']text/\\(jsx\\|babel\\)" script) + (setq element-content-type "jsx")) + ((string-match-p " type[ ]*=[ ]*[\"']text/\\(markdown\\|template\\)" script) + (setq element-content-type "markdown")) + ((string-match-p " type[ ]*=[ ]*[\"']text/ruby" script) + (setq element-content-type "ruby")) + ((seq-some (lambda (x) + (string-match-p (concat "type[ ]*=[ ]*[\"']" x) script)) + web-mode-script-template-types) + (setq element-content-type "html" + part-close-tag nil)) + ((string-match-p " type[ ]*=[ ]*[\"']application/\\(ld\\+json\\|json\\)" script) + (setq element-content-type "json")) + ((string-match-p " lang[ ]*=[ ]*[\"']\\(typescript\\|ts\\)" script) + (setq element-content-type "typescript")) + (t + (setq element-content-type "javascript")) + ) ;cond + ) ;let + ) ;script + ((string= tname "i18n") + (setq element-content-type "javascript" + part-close-tag "")) + ((and (string= tname "template") (string-match-p " lang" (buffer-substring-no-properties tbeg tend))) + (let (template) + (setq template (buffer-substring-no-properties tbeg tend) + part-close-tag "") + (cond + ((string-match-p " lang[ ]*=[ ]*[\"']pug" template) + (setq element-content-type "pug")) + (t + (setq element-content-type "html")) + ) ;cond + ) ;let + ) ;style + ((and (string= web-mode-engine "archibus") + (string= tname "sql")) + (setq element-content-type "sql" + part-close-tag "")) + ) + + (add-text-properties tbeg tend props) + (put-text-property tbeg (1+ tbeg) 'tag-beg flags) + (put-text-property (1- tend) tend 'tag-end t) + + (when (and part-close-tag + (web-mode-dom-sf part-close-tag reg-end t) + (setq part-beg tend) + (setq part-end (match-beginning 0)) + (> part-end part-beg)) + (put-text-property part-beg part-end 'part-side + (intern element-content-type web-mode-obarray)) + (setq tend part-end) + ) ;when + + (goto-char tend) + + ) ;while + + ))) + +;; FLAGS: tag +;; (1)attrs (2)custom (4)slash-beg (8)slash-end (16)bracket-end (32)namespaced + +;; FLAGS: attr +;; (1)custom-attr (2)engine-attr (4)spread-attr[jsx] (8)code-value +;; https://www.w3.org/TR/2012/WD-html-markup-20120329/syntax.html#attr-value-unquoted + +;; STATES: attr +;; (0)nil (1)space (2)name (3)space-before (4)equal (5)space-after +;; (6)value-uq (7)value-sq (8)value-dq (9)value-bq : jsx attr={} +;; (10)value-block + +(defun web-mode-attr-skip (limit) + + (let ((tag-flags 0) (attr-flags 0) (continue t) (attrs 0) (brace-depth 0) + (state 0) (equal-offset 0) (go-back nil) + (is-jsx (or (string= web-mode-content-type "jsx") (eq (get-text-property (point) 'part-type) 'jsx))) + attr name-beg name-end val-beg char pos mem step escaped spaced quoted) + + (while continue + + (setq pos (point) + char (char-after) + mem state + ;;spaced (eq char ?\s) + spaced (member char '(?\s ?\n)) + step nil) + + (ignore mem step) ;; Only used in debug print + (when quoted (setq quoted (1+ quoted))) + + (cond + + ((>= pos limit) + (setq continue nil) + (setq go-back t) + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + ) + + ((and (or (= state 0) (= state 1)) (get-text-property pos 'block-side)) + ) + + ((or (and (= state 8) (not (member char '(?\" ?\\)))) + (and (= state 7) (not (member char '(?\' ?\\)))) + (and (= state 9) (not (member char '(?} ?\\)))) + ) + (when (and (= state 9) (eq char ?\{)) + (setq brace-depth (1+ brace-depth))) + ) + + ((and (= state 9) (eq char ?\}) (> brace-depth 1)) + (setq brace-depth (1- brace-depth))) + + ;; #1233 + ;;((get-text-property pos 'block-side) + ;; (when (= state 2) + ;; (setq name-end pos)) + ;; ) + + ((and (= state 2) is-jsx (eq char ?\}) (eq attr-flags 4)) + (setq name-end pos) + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + (setq state 0 + attr-flags 0 + equal-offset 0 + name-beg nil + name-end nil + val-beg nil) + ) + + ((or (and (= state 8) (eq ?\" char) (not escaped)) + (and (= state 7) (eq ?\' char) (not escaped)) + (and (= state 9) (eq ?\} char) (= brace-depth 1)) + (and (= state 10) (get-text-property pos 'block-end)) + ) + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + (setq state 0 + attr-flags 0 + equal-offset 0 + name-beg nil + name-end nil + val-beg nil) + ) + + ((and (member state '(4 5)) (get-text-property pos 'block-beg)) + (setq val-beg pos) + (setq state 10)) + + ((and (member state '(4 5)) (member char '(?\' ?\" ?\{))) + (setq val-beg pos) + (setq quoted 1) + (setq state (cond ((eq ?\' char) 7) + ((eq ?\" char) 8) + (t 9))) + (setq step 100) + (when (= state 9) (setq brace-depth 1)) + ) + + ((and (eq ?\= char) (member state '(2 3))) + (setq equal-offset (- pos name-beg) + name-end (1- pos)) + (setq state 4) + (setq attr (buffer-substring-no-properties name-beg (1+ name-end))) + (when (and web-mode-indentless-attributes (member (downcase attr) web-mode-indentless-attributes)) + (setq attr-flags (logior attr-flags 8))) + ) + + ((and spaced (= state 0)) + (setq state 1) + ) + + ((and (eq char ?\<) (not (member state '(7 8 9)))) + (setq continue nil) + (setq go-back t) + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + ) + + ((and (eq char ?\>) (not (member state '(7 8 9)))) + (setq tag-flags (logior tag-flags 16)) + (when (eq (char-before) ?\/) + (setq tag-flags (logior tag-flags 8)) + ) + (setq continue nil) + (when name-beg + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags)))) + ) + + ((and spaced (member state '(1 3 5))) + ) + + ((and spaced (= state 2)) + (setq state 3) + ) + + ((and (eq char ?\/) (member state '(4 5))) + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + (setq state 1 + attr-flags 0 + equal-offset 0 + name-beg nil + name-end nil + val-beg nil) + ) + + ((and (eq char ?\/) (member state '(0 1))) + ) + + ((and spaced (= state 4)) + (setq state 5) + ) + + ((and (= state 3) + (or (and (>= char 97) (<= char 122)) ;a - z + (and (>= char 65) (<= char 90)) ;A - Z + (eq char ?\-))) + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + (setq state 2 + attr-flags 0 + equal-offset 0 + name-beg pos + name-end pos + val-beg nil) + ) + + ((and (eq char ?\n) (not (member state '(7 8 9)))) + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + (setq state 1 + attr-flags 0 + equal-offset 0 + name-beg nil + name-end nil + val-beg nil) + ) + + ((and (= state 6) (member char '(?\s ?\n))) ;#1150 + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + (setq state 1 + attr-flags 0 + equal-offset 0 + name-beg nil + name-end nil + val-beg nil) + ) + + ((and quoted (= quoted 2) (member char '(?\s ?\n ?\>))) + (when (eq char ?\>) + (setq tag-flags (logior tag-flags 16)) + (setq continue nil)) + (setq state 6) + (setq attrs (+ attrs (web-mode-attr-scan pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags))) + (setq state 1 + attr-flags 0 + equal-offset 0 + name-beg nil + name-end nil + val-beg nil) + ) + + ((and (not spaced) (= state 1)) + (when (and is-jsx (eq char ?\{)) + (setq attr-flags 4)) + (setq state 2) + (setq name-beg pos + name-end pos) + ) + + ((member state '(4 5)) + (setq val-beg pos) + (setq state 6) + ) + + ((= state 1) + (setq state 2) + ) + + ((= state 2) + (setq name-end pos) + (when (and nil (= attr-flags 0) (member char '(?\- ?\:))) + (let (attr) + (setq attr (buffer-substring-no-properties name-beg (1+ name-end))) + (cond + ((member attr '("http-equiv")) + (setq attr-flags (1- attr-flags)) + ) + ((and (eq char ?\-) (not (string= attr "http-"))) + (setq attr-flags (logior attr-flags 1))) + ) ;cond + ) ;let + ) ;when attr-flags = 1 + ) ;state=2 + + ) ;cond + + ;;(message "point(%S) state(%S) c(%S) name-beg(%S) name-end(%S) val-beg(%S) attr-flags(%S) equal-offset(%S)" pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags) + + (when (and quoted (>= quoted 2)) + (setq quoted nil)) + + (setq escaped (eq ?\\ char)) + (when (null go-back) + (forward-char)) + + ;;(when (not (= mem state)) (message "pos=%S before=%S after=%S step=%S" pos mem state step)) + + ) ;while + + (when (> attrs 0) (setq tag-flags (logior tag-flags 1))) + + tag-flags)) + +(defun web-mode-attr-scan (pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags) + ;;(message "point(%S) state(%S) c(%c) name-beg(%S) name-end(%S) val-beg(%S) attr-flags(%S) equal-offset(%S) tag-flags(%S)" pos state char name-beg name-end val-beg attr-flags equal-offset tag-flags) + (when (null attr-flags) (setq attr-flags 0)) + (when (and name-beg name-end web-mode-engine-attr-regexp) + (let (name) + (setq name (buffer-substring-no-properties name-beg (1+ name-end))) + (cond + ((string-match-p "^data[-]" name) + (setq attr-flags (logior attr-flags 1)) + ) + ((string-match-p web-mode-engine-attr-regexp name) + (setq attr-flags (logior attr-flags 2)) + ) + ) + ) ;name + ) + ;;(message "%S" name) + (cond + ((null name-beg) + 0) + ((or (and (= state 8) (not (eq ?\" char))) + (and (= state 7) (not (eq ?\' char)))) + (put-text-property name-beg (1+ name-beg) 'tag-attr-beg attr-flags) + (put-text-property name-beg val-beg 'tag-attr t) + (put-text-property (1- val-beg) val-beg 'tag-attr-end equal-offset) + 1) + ((and (member state '(4 5)) (null val-beg)) + (put-text-property name-beg (1+ name-beg) 'tag-attr-beg attr-flags) + (put-text-property name-beg (+ name-beg equal-offset 1) 'tag-attr t) + (put-text-property (+ name-beg equal-offset) (+ name-beg equal-offset 1) 'tag-attr-end equal-offset) + 1) + (t + (let (val-end) + (if (null val-beg) + (setq val-end name-end) + (setq val-end pos) + (cond + ((null char) + (setq val-end (1- val-end))) + ((member char '(?\s ?\n ?\/)) + (setq val-end (1- val-end))) + ((eq char ?\>) + (if (= (logand tag-flags 8) 8) + (progn + ;;(message "tag-flags=%S %S" tag-flags (logand tag-flags 8)) + (setq val-end (- val-end 2))) + (setq val-end (- val-end 1))) + ;; (message "val-end=%S" val-end) + ) + ) + ) + (put-text-property name-beg (1+ name-beg) 'tag-attr-beg attr-flags) + (put-text-property name-beg (1+ val-end) 'tag-attr t) + (put-text-property val-end (1+ val-end) 'tag-attr-end equal-offset) + ) ;let + 1) ;t + ) ;cond + ) + +(defun web-mode-part-foreach (reg-beg reg-end func) + (let ((i 0) (continue t) (part-beg reg-beg) (part-end nil)) + (while continue + (setq part-end nil) + (unless (get-text-property part-beg 'part-side) + (setq part-beg (web-mode-part-next-position part-beg))) + (when (and part-beg (< part-beg reg-end)) + (setq part-end (web-mode-part-end-position part-beg))) + (cond + ((> (setq i (1+ i)) 100) + (message "process-parts ** warning (%S) **" (point)) + (setq continue nil)) + ((or (null part-end) (> part-end reg-end)) + (setq continue nil)) + (t + (setq part-end (1+ part-end)) + (funcall func part-beg part-end) + (setq part-beg part-end)) + ) ;cond + ) ;while + )) + +(defun web-mode-part-scan (reg-beg reg-end &optional content-type depth) + (save-excursion + (let (token-re ch-before ch-at ch-next token-type beg continue) + ;;(message "%S %S" reg-beg reg-end) + (cond + (content-type + ) + ((member web-mode-content-type web-mode-part-content-types) + (setq content-type web-mode-content-type)) + (t + (setq content-type (symbol-name (get-text-property reg-beg 'part-side)))) + ) ;cond + + (goto-char reg-beg) + + (cond + ((member content-type '("javascript" "json")) + (setq token-re "/\\|\"\\|'\\|`")) + ((member content-type '("typescript")) + (setq token-re "/\\|\"\\|'\\|`\\|//\\|/\\*")) + ((member content-type '("jsx")) + (setq token-re "/\\|\"\\|'\\|`\\|]")) + ((string= web-mode-content-type "css") + (setq token-re "\"\\|'\\|/\\*\\|//")) + ((string= content-type "css") + (setq token-re "\"\\|'\\|/\\*")) + (t + (setq token-re "/\\*\\|\"\\|'")) + ) + + (while (and token-re (< (point) reg-end) (web-mode-dom-rsf token-re reg-end t)) + + (setq beg (match-beginning 0) + token-type nil + continue t + ch-at (char-after beg) + ch-next (or (char-after (1+ beg)) ?\d) + ch-before (or (char-before beg) ?\d)) + + ;;(message "[%S>%S|%S] %S %c %c %c" reg-beg reg-end depth beg ch-before ch-at ch-next) + + (cond + + ((eq ?\' ch-at) + (while (and continue (search-forward "'" reg-end t)) + (cond + ((get-text-property (1- (point)) 'block-side) + (setq continue t)) + (t + (setq continue (web-mode-string-continue-p reg-beg))) + ) + ) ;while + (setq token-type 'string)) + + ((eq ?\` ch-at) + (while (and continue (search-forward "`" reg-end t)) + (cond + ((get-text-property (1- (point)) 'block-side) + (setq continue t)) + (t + (setq continue (web-mode-string-continue-p reg-beg))) + ) + ) ;while + (setq token-type 'string)) + + ((eq ?\" ch-at) + (while (and continue (search-forward "\"" reg-end t)) + (cond + ((get-text-property (1- (point)) 'block-side) + (setq continue t)) + (t + (setq continue (web-mode-string-continue-p reg-beg))) + ) ;cond + ) ;while + (cond + ((string= content-type "json") + (if (looking-at-p "[ ]*:") + (cond + ((eq ?\@ (char-after (1+ beg))) + (setq token-type 'context)) + (t + (setq token-type 'key)) + ) + (setq token-type 'string)) + ) ;json + (t + (setq token-type 'string)) + ) ;cond + ) + + ((and (eq ?\< ch-at) + (not (or (and (>= ch-before 97) (<= ch-before 122)) ;; a-z + (and (>= ch-before 65) (<= ch-before 90))))) ;; A-Z + ;;(message "before [%S>%S|%S] pt=%S" reg-beg reg-end depth (point)) + (search-backward "<") + (if (web-mode-jsx-skip reg-end) + (web-mode-jsx-scan-element beg (point) depth) + (forward-char)) + ;;(message "after [%S>%S|%S] pt=%S" reg-beg reg-end depth (point)) + ) + + ((and (eq ?\/ ch-at) (member content-type '("javascript" "jsx" "typescript"))) + (cond + ((eq ?\\ ch-before) + ) + ((eq ?\* ch-next) + ;;(message "--> %S %S" (point) reg-end) + (when (search-forward "*/" reg-end t) + (setq token-type 'comment)) + ) + ((eq ?\/ ch-next) + (setq token-type 'comment) + (goto-char (if (< reg-end (line-end-position)) reg-end (line-end-position))) + ) + ((and (looking-at-p ".*/") + (looking-back "\\(^\\|case\\|[[(,=:!&|?{};]\\)[ ]*/" (point-min))) + ;;(re-search-forward "/[gimyu]*" reg-end t)) + (let ((eol (line-end-position))) + (while (and continue (search-forward "/" eol t)) + (cond + ((get-text-property (1- (point)) 'block-side) + (setq continue t)) + ((looking-back "\\\\+/" reg-beg t) + (setq continue (= (mod (- (point) (match-beginning 0)) 2) 0))) + (t + (re-search-forward "[gimyu]*" eol t) + (setq token-type 'string) + (setq continue nil)) + ) + ) ;while + ) ;let + ) + ) ;cond + ) + + ((eq ?\/ ch-next) + ;;(message "%S" (point)) + (cond + ((and (string= content-type "css") + (eq ?/ ch-at) + (eq ?: ch-before)) + ) + (t + (unless (eq ?\\ ch-before) + (setq token-type 'comment) + (goto-char (if (< reg-end (line-end-position)) reg-end (line-end-position))) + ) + ) + ) + + ) + + ((eq ?\* ch-next) + (cond + ((search-forward "*/" reg-end t) + (setq token-type 'comment)) + ((not (eobp)) + (forward-char)) + ) ;cond + ) + + ) ;cond + + (when (and beg (>= reg-end (point)) token-type) + (put-text-property beg (point) 'part-token token-type) + (cond + ((eq token-type 'comment) + (put-text-property beg (1+ beg) 'syntax-table (string-to-syntax "<")) + (when (< (point) (point-max)) + (if (< (point) (line-end-position)) + (put-text-property (1- (point)) (point) 'syntax-table (string-to-syntax ">")) ;#445 + (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax ">")) ;#377 + ) + ) ;when + ) ;comment + ((eq token-type 'string) + (put-text-property beg (1+ beg) 'syntax-table (string-to-syntax "|")) + (when (< (point) (point-max)) + (if (< (point) (line-end-position)) + (put-text-property (1- (point)) (point) 'syntax-table (string-to-syntax "|")) + (put-text-property (point) (1+ (point)) 'syntax-table (string-to-syntax "|")) + ) + ) ;when + ) ;string + ) ;cond + ) ;when + + (when (> (point) reg-end) + (message "reg-beg(%S) reg-end(%S) token-type(%S) point(%S)" reg-beg reg-end token-type (point))) + + ;;(message "#[%S>%S|%S] %S %c %c %c | (%S)" reg-beg reg-end depth beg ch-before ch-at ch-next (point)) + + ) ;while + + ))) + +(defun web-mode-string-continue-p (reg-beg) + "Is `point' preceeded by an odd number of backslashes?" + (let ((p (1- (point)))) + (while (and (< reg-beg p) (eq ?\\ (char-before p))) + (setq p (1- p))) + (= (mod (- (point) p) 2) 0))) + +;; css rule = selector(s) + declaration (properties) +(defun web-mode-css-rule-next (limit) + (let (at-rule var-rule sel-beg sel-end dec-beg dec-end chunk) + (skip-chars-forward "\n\t ") + (setq sel-beg (point)) + (when (and (< (point) limit) + (web-mode-part-rsf "[{;]" limit)) + (setq sel-end (1- (point))) + (cond + ((eq (char-before) ?\{) + (setq dec-beg (point)) + (setq dec-end (web-mode-closing-paren-position (1- dec-beg) limit)) + (if dec-end + (progn + (goto-char dec-end) + (forward-char)) + (setq dec-end limit) + (goto-char limit)) + ) + (t + ) + ) ;cond + (setq chunk (buffer-substring-no-properties sel-beg sel-end)) + (cond + ((string-match "@\\([[:alpha:]-]+\\)" chunk) + (setq at-rule (match-string-no-properties 1 chunk))) + ((string-match "\\$\\([[:alpha:]-]+\\)" chunk) + (setq var-rule (match-string-no-properties 1 chunk))) + ) ;cond + ) ;when + (if (not sel-end) + (progn (goto-char limit) nil) + (list :at-rule at-rule + :var-rule var-rule + :sel-beg sel-beg + :sel-end sel-end + :dec-beg dec-beg + :dec-end dec-end) + ) ;if + )) + +(defun web-mode-css-rule-current (&optional pos part-beg part-end) + "Current CSS rule boundaries." + (unless pos (setq pos (point))) + (unless part-beg (setq part-beg (web-mode-part-beginning-position pos))) + (unless part-end (setq part-end (web-mode-part-end-position pos))) + (save-excursion + (let (beg end) + (goto-char pos) + (if (not (web-mode-part-sb "{" part-beg)) + (progn + (setq beg part-beg) + (if (web-mode-part-sf ";" part-end) + (setq end (1+ (point))) + (setq end part-end)) + ) ;progn + (setq beg (point)) + (setq end (web-mode-closing-paren-position beg part-end)) + (if end + (setq end (1+ end)) + (setq end (line-end-position))) + ;; (message "%S >>beg%S >>end%S" pos beg end) + (if (> pos end) + + ;;selectors + (progn + (goto-char pos) + (if (web-mode-part-rsb "[};]" part-beg) + (setq beg (1+ (point))) + (setq beg part-beg) + ) ;if + (goto-char pos) + (if (web-mode-part-rsf "[{;]" part-end) + (cond + ((eq (char-before) ?\;) + (setq end (point)) + ) + (t + (setq end (web-mode-closing-paren-position (1- (point)) part-end)) + (if end + (setq end (1+ end)) + (setq end part-end)) + ) + ) ;cond + (setq end part-end) + ) + ) ;progn selectors + + ;; declaration + (goto-char beg) + (if (web-mode-part-rsb "[}{;]" part-beg) + (setq beg (1+ (point))) + (setq beg part-beg) + ) ;if + ) ;if > pos end + ) + ;; (message "beg(%S) end(%S)" beg end) + (when (eq (char-after beg) ?\n) + (setq beg (1+ beg))) + (cons beg end) + ))) + +(defun web-mode-jsx-skip2 (reg-end) + (let ((continue t) (pos nil) (i 0)) + (looking-at "<\\([[:alpha:]][[:alnum:]:-]*\\)") + ;; (let ((tag (match-string-no-properties 1))) + ;; (message "point=%S tag=%S" (point) tag)) + (save-excursion + (while continue + (cond + ((> (setq i (1+ i)) 1000) + (message "jsx-skip ** warning **") + (setq continue nil)) + ((looking-at "<[[:alpha:]][[:alnum:]:-]*[ ]*/>") + (goto-char (match-end 0)) + (setq pos (point)) + (setq continue nil)) + ((not (web-mode-dom-rsf ">\\([ \t\n]*[\];,)':}|&]\\)\\|{" reg-end)) + (setq continue nil) + ) + ((eq (char-before) ?\{) + (backward-char) + (web-mode-closing-paren reg-end) + (forward-char) + ) + (t + (setq continue nil) + (setq pos (match-beginning 1)) + ) ;t + ) ;cond + ) ;while + ) ;save-excursion + (when pos (goto-char pos)) + ;;(message "jsx-skip: %S" pos) + pos)) + + (defun web-mode-jsx-skip (reg-end) ;; #1299 + (let ((continue t) (pos nil) (i 0) (tag nil) (regexp nil) (regexp0 nil) + (regexp1 nil) (counter 0) (ret nil) (match nil) (inside t)) + (looking-at "<\\([[:alpha:]][[:alnum:].:-]*\\)") ;; #1327 + (setq tag (match-string-no-properties 1)) + (if (null tag) + (progn + (setq regexp "<>") + (setq regexp0 "") + (setq regexp1 "") + ) + (setq regexp (concat "<" tag "[[:space:]/>]")) + (setq regexp0 (concat "<" tag "[[:space:]/>]")) + (setq regexp1 (concat "]")) + ) + ;;(message "-----\npoint=%S tag=%S regexp=%S reg-end=%S" (point) tag regexp reg-end) + (save-excursion + (while continue + (setq ret (web-mode-dom-rsf regexp reg-end)) + (if ret + (progn + (setq match (match-string-no-properties 0)) + ;;(message "ret=%S match=%S" ret match) + (when (and tag + (eq (aref match 0) ?\<) + (eq (char-before) ?\>)) + (backward-char) + (when (eq (char-before) ?\/) (backward-char))) + ) + (setq match nil) + ) ;if + ;;(message "point=%S regexp=%S match=%S" (point) regexp match) + (cond + ((> (setq i (1+ i)) 100) + (message "jsx-skip ** warning **") + (setq continue nil)) + ((not ret) + (setq continue nil) + ) + ((eq (aref match 0) ?\{) + (backward-char) + (web-mode-closing-paren reg-end) + (forward-char) + (if inside + (setq regexp (concat "[{]\\|/?>")) + (setq regexp (concat "[{]\\|" regexp1)) + ) + ) + ((and (null tag) match (string= match "")) ;; + (setq inside nil) + (if (eq counter 1) + (progn + (setq counter 0) + (setq continue nil) + (setq pos (point))) + (setq regexp (concat "[{]\\|<>")) + ) + ) + ((and (null tag) match (string= match "<>")) ;; <> + (setq inside nil) + (setq counter (1+ counter)) + (setq regexp (concat "[{]\\|")) + ) ;t + ((and (eq (char-before) ?\>) (eq (char-before (1- (point))) ?\/)) ;; /> + (setq inside nil) + (if (eq counter 1) + (progn + (setq counter 0) + (setq continue nil) + (setq pos (point))) + (setq regexp (concat "[{]\\|" regexp0)) + ) + ) + ((eq (char-before) ?\>) ;; > + (setq inside nil) + (if (= counter 0) + (progn + (setq continue nil) + (setq pos (point))) + (setq regexp (concat "[{]\\|" regexp1)) + ) + ) + ((and (> (length match) 1) (string= (substring match 0 2) "")) + ) + (t ;; ")) + ) ;t + ) ;cond + ;;(message "point=%S counter=%S inside=%S" (point) counter inside) + ) ;while + ) ;save-excursion + (when pos (goto-char pos)) + ;;(message "jsx-skip: %S" pos) + pos)) + +;; http://facebook.github.io/jsx/ +;; https://github.com/facebook/jsx/blob/master/AST.md +(defun web-mode-jsx-scan-element (reg-beg reg-end depth) + (unless depth (setq depth 1)) + ;;(message "%S %S | %S" reg-beg reg-end depth) + (save-excursion + (goto-char reg-beg) + (put-text-property reg-beg (1+ reg-beg) 'jsx-beg depth) + (put-text-property (1- reg-end) reg-end 'jsx-end depth) + (put-text-property reg-beg reg-end 'jsx-depth depth) + (remove-list-of-text-properties reg-beg reg-end '(tag-beg tag-end tag-name tag-type tag-attr tag-attr-beg tag-attr-end)) + (goto-char reg-beg) + (web-mode-scan-elements reg-beg reg-end) + (web-mode-jsx-scan-expression reg-beg reg-end (1+ depth)) + )) + +(defun web-mode-jsx-scan-expression (reg-beg reg-end depth) + (let ((continue t) beg end) + (save-excursion + (goto-char reg-beg) + ;;(message "reg-beg=%S reg-end=%S" reg-beg reg-end) + (while (and continue (search-forward "{" reg-end t)) + (backward-char) + (setq beg (point) + end (web-mode-closing-paren reg-end)) + (cond + ((eq (get-text-property beg 'part-token) 'comment) + (forward-char)) + ((not end) + (setq continue nil)) + (t + (setq end (1+ end)) + (put-text-property beg end 'jsx-depth depth) + (put-text-property beg (1+ beg) 'jsx-beg depth) + (put-text-property (1- end) end 'jsx-end depth) + (web-mode-part-scan beg end "jsx" (1+ depth)) + ) ;t + ) ;cond + ) ;while + ) ;save-excursion + )) + +(defun web-mode-jsx-is-html (&optional pos) + (interactive) + (unless pos (setq pos (point))) + (let ((depth (get-text-property pos 'jsx-depth))) + (cond + ((or (null depth) (<= pos 2)) + (setq pos nil)) + ((and (= depth 1) (get-text-property pos 'jsx-beg)) + (setq pos nil)) + ((get-text-property pos 'tag-end) + (setq pos nil)) + ((get-text-property pos 'tag-attr-beg) + (setq pos nil)) + ((get-text-property pos 'jsx-beg) + (setq pos (null (get-text-property pos 'tag-beg)))) + ((setq pos (web-mode-jsx-depth-beginning-position pos)) + (setq pos (not (null (get-text-property pos 'tag-beg))))) + (t + (setq pos nil)) + ) ;cond + ;;(message "is-html: %S (depth=%S)" pos depth) + pos)) + +(defun web-mode-jsx-is-expr (&optional pos) + (cond + ((and (get-text-property pos 'jsx-beg) + (not (get-text-property pos 'tag-beg))) + nil) + (t + (setq pos (web-mode-jsx-depth-beginning-position pos)) + (null (get-text-property pos 'tag-beg))) + ) ;cond + ) + +(defun web-mode-jsx-depth-beginning-position (&optional pos target-depth) + (interactive) + (unless pos (setq pos (point))) + (unless target-depth (setq target-depth (get-text-property pos 'jsx-depth))) + (cond + ((or (null target-depth) (bobp)) + (setq pos nil)) + ((and (get-text-property pos 'jsx-beg) (= target-depth (get-text-property pos 'jsx-depth))) + ) + (t + (let ((continue t) depth) + (while continue + (setq pos (previous-single-property-change pos 'jsx-depth)) + (cond + ((or (null pos) + (null (setq depth (get-text-property pos 'jsx-depth)))) + (setq continue nil + pos nil)) + ((and (get-text-property pos 'jsx-beg) (= target-depth depth)) + (setq continue nil)) + ) ;cond + ) ;while + ) ;let + ) ;t + ) ;cond + ;;(message "beg: %S" pos) + pos) + +(defun web-mode-jsx-element-next (reg-end) + (let (continue beg end) + (setq beg (point)) + (unless (get-text-property beg 'jsx-depth) + (setq beg (next-single-property-change beg 'jsx-beg))) + (setq continue (and beg (< beg reg-end)) + end beg) + (while continue + (setq end (next-single-property-change end 'jsx-end)) + (cond + ((or (null end) (> end reg-end)) + (setq continue nil + end nil)) + ((eq (get-text-property end 'jsx-depth) 1) + (setq continue nil)) + (t + (setq end (1+ end))) + ) ;cond + ) ;while + ;;(message "beg=%S end=%S" beg end) + (if (and beg end (< beg end)) (cons beg end) nil))) + +(defun web-mode-jsx-expression-next (reg-end) + (let (beg end depth continue pos) + (setq beg (point)) + ;;(message "pt=%S" beg) + (unless (and (get-text-property beg 'jsx-beg) (null (get-text-property beg 'tag-beg))) + ;;(setq beg (next-single-property-change beg 'jsx-beg)) + (setq continue t + pos (1+ beg)) + (while continue + (setq pos (next-single-property-change pos 'jsx-beg)) + (cond + ((null pos) + (setq continue nil + beg nil)) + ((> pos reg-end) + (setq continue nil + beg nil)) + ((null (get-text-property pos 'jsx-beg)) + ) + ((null (get-text-property pos 'tag-beg)) + (setq continue nil + beg pos)) + ;;(t + ;; (setq pos (1+ pos))) + ) ;cond + ) ;while + ) ;unless + ;;(message "beg=%S" beg) + (when (and beg (< beg reg-end)) + (setq depth (get-text-property beg 'jsx-beg) + continue (not (null depth)) + pos beg) + ;;(message "beg=%S" beg) + (while continue + (setq pos (next-single-property-change pos 'jsx-end)) + ;;(message "pos=%S" pos) + (cond + ((null pos) + (setq continue nil)) + ((> pos reg-end) + (setq continue nil)) + ((eq depth (get-text-property pos 'jsx-end)) + (setq continue nil + end pos)) + (t + ;;(setq pos (1+ pos)) + ) + ) ;cond + ) ;while + ) ;when + ;;(message "%S > %S" beg end) + (if (and beg end) (cons beg end) nil))) + +(defun web-mode-jsx-depth-next (reg-end) + (let (beg end depth continue pos) + (setq beg (point)) + ;;(message "pt=%S" beg) + (unless (get-text-property beg 'jsx-beg) + ;;(setq beg (next-single-property-change beg 'jsx-beg)) + ;;(setq pos (1+ beg)) + (setq pos (next-single-property-change (1+ beg) 'jsx-beg)) + (cond + ((null pos) + (setq beg nil)) + ((>= pos reg-end) + (setq beg nil)) + (t + (setq beg pos)) + ) ;cond + ) ;unless + ;;(message "beg=%S" beg) + (when beg + (setq depth (get-text-property beg 'jsx-beg) + continue (not (null depth)) + pos beg) + ;;(message "beg=%S" beg) + (while continue + (setq pos (next-single-property-change pos 'jsx-end)) + ;;(message "pos=%S" pos) + (cond + ((null pos) + (setq continue nil)) + ((> pos reg-end) + (setq continue nil)) + ((eq depth (get-text-property pos 'jsx-end)) + (setq continue nil + end pos)) + (t + ;;(setq pos (1+ pos)) + ) + ) ;cond + ) ;while + ) ;when + ;;(message "%S > %S" beg end) + (if (and beg end) (cons beg end) nil))) + +(defun web-mode-jsx-beginning () + (interactive) + (let (depth (continue t) (reg-beg (point-min)) (pos (point))) + (setq depth (get-text-property pos 'jsx-depth)) + (cond + ((not depth) + ) + ((get-text-property (1- pos) 'jsx-beg) + (goto-char (1- pos))) + (t + (while continue + (setq pos (previous-single-property-change pos 'jsx-beg)) + ;;(message "pos=%S" pos) + (cond + ((null pos) + (setq continue nil)) + ((<= pos reg-beg) + (setq continue nil)) + ((eq depth (get-text-property pos 'jsx-beg)) + (setq continue nil)) + ) ;cond + ) ;while + (web-mode-go pos) + ) ;t + ) ;cond + )) + +(defun web-mode-jsx-end () + (interactive) + (let (depth (continue t) (reg-end (point-max)) (pos (point))) + (setq depth (get-text-property pos 'jsx-depth)) + (cond + ((not depth) + ) + ((get-text-property pos 'jsx-end) + (goto-char (+ pos 1))) + (t + (while continue + (setq pos (next-single-property-change pos 'jsx-end)) + ;;(message "pos=%S" pos) + (cond + ((null pos) + (setq continue nil)) + ((> pos reg-end) + (setq continue nil)) + ((eq depth (get-text-property pos 'jsx-end)) + (setq continue nil)) + ) ;cond + ) ;while + (web-mode-go pos 1) + ) ;t + ) ;cond + )) + +;;---- FONTIFICATION ----------------------------------------------------------- + +(defun web-mode-fontify (limit) + (when web-mode-trace + (message "fontify: point(%S) limit(%S)" (point) limit)) + (cond + ;;(web-mode-skip-fontification + ;; nil) + (t + (web-mode-with-silent-modifications + (save-excursion + (save-restriction + (save-match-data + (let ((beg (point)) + (buffer-undo-list t) + (end limit) + (inhibit-point-motion-hooks t) + (inhibit-quit t)) + (remove-list-of-text-properties beg end '(font-lock-face face)) + (cond + ((and (get-text-property beg 'block-side) + (not (get-text-property beg 'block-beg))) + (web-mode-fontify-block beg end)) + ((or (member web-mode-content-type web-mode-part-content-types) + (get-text-property beg 'part-side)) + (web-mode-fontify-part beg end) + (web-mode-block-foreach beg end 'web-mode-fontify-block)) + ((string= web-mode-engine "none") + (web-mode-fontify-tags beg end) + (web-mode-part-foreach beg end 'web-mode-fontify-part)) + (t + (web-mode-fontify-tags beg end) + (web-mode-part-foreach beg end 'web-mode-fontify-part) + (web-mode-block-foreach beg end 'web-mode-fontify-block)) + ) ;cond + (when web-mode-enable-element-content-fontification + (web-mode-fontify-elements beg end)) + (when web-mode-enable-whitespace-fontification + (web-mode-fontify-whitespaces beg end)) + ) ;let + )))) + nil) ;t + )) + +(defun web-mode-buffer-fontify () + (interactive) + (cond + ((and (fboundp 'font-lock-flush) global-font-lock-mode) + (font-lock-flush) + (font-lock-ensure)) + (t ;emacs 24 + ;;(font-lock-fontify-buffer) + (and global-font-lock-mode + (font-lock-fontify-region (point-min) (point-max)))) + )) + +(defun web-mode-unfontify-region (beg end) + (ignore beg end) + ;;(message "unfontify: %S %S" beg end) + ) + +(defun web-mode-fontify-region (beg end keywords) + ;; (message "beg=%S end=%S keywords=%S" beg end (symbol-name keywords)) + (save-excursion + (let ((font-lock-keywords keywords) + (font-lock-multiline nil) + (font-lock-keywords-case-fold-search + (member web-mode-engine '("archibus" "asp" "template-toolkit"))) + (font-lock-keywords-only t) + (font-lock-extend-region-functions nil)) + (when (and (listp font-lock-keywords) global-font-lock-mode) + (font-lock-fontify-region beg end) + ) + ))) + +(defun web-mode-fontify-tags (reg-beg reg-end &optional depth) + (let ((continue t)) + ;;(message "%S %S %S" reg-beg reg-end depth) + (goto-char reg-beg) + (when (and (not (get-text-property (point) 'tag-beg)) + (not (web-mode-tag-next))) + (setq continue nil)) + (when (and continue (>= (point) reg-end)) + (setq continue nil)) + (while continue + (cond + (depth + (when (eq depth (get-text-property (point) 'jsx-depth)) + (web-mode-fontify-tag)) + ) + (t + (web-mode-fontify-tag)) + ) ;cond + (when (or (not (web-mode-tag-next)) + (>= (point) reg-end)) + (setq continue nil)) + ) ;while continue + (when web-mode-enable-inlays + (when (null web-mode-inlay-regexp) + (setq web-mode-inlay-regexp (regexp-opt '("\\[" "\\(" "\\begin{align}")))) + (let (beg end expr) + (goto-char reg-beg) + (while (web-mode-dom-rsf web-mode-inlay-regexp reg-end) + (setq beg (match-beginning 0) + end nil + expr (substring (match-string-no-properties 0) 0 2)) + (setq expr (cond + ((string= expr "\\[") "\\]") + ((string= expr "\\(") "\\)") + (t "\\end{align}"))) + (when (and (web-mode-dom-sf expr reg-end) + (setq end (match-end 0)) + (not (text-property-any beg end 'tag-end t))) + (font-lock-append-text-property beg end 'font-lock-face 'web-mode-inlay-face) + ) ;when + ) ;while + ) ;let + ) ;when + (when web-mode-enable-html-entities-fontification + (let (beg end) + (goto-char reg-beg) + (while (web-mode-dom-rsf "&\\([#]?[[:alnum:]]\\{2,8\\}\\);" reg-end) + (setq beg (match-beginning 0) + end (match-end 0)) + (when (not (text-property-any beg end 'tag-end t)) + (font-lock-append-text-property beg end 'font-lock-face 'web-mode-html-entity-face) + ) ;when + ) ;while + ) ;let + ) ;when + )) + +(defun web-mode-fontify-tag (&optional beg end) + (unless beg (setq beg (point))) + (unless end (setq end (1+ (web-mode-tag-end-position beg)))) + (let (name type face flags slash-beg slash-end bracket-end) + (setq flags (get-text-property beg 'tag-beg) + type (get-text-property beg 'tag-type) + name (get-text-property beg 'tag-name)) + (setq bracket-end (> (logand flags 16) 0)) + (cond + ((eq type 'comment) + (put-text-property beg end 'font-lock-face 'web-mode-comment-face) + (when (and web-mode-enable-comment-interpolation (> (- end beg) 5)) + (web-mode-interpolate-comment beg end nil))) + ((eq type 'cdata) + (put-text-property beg end 'font-lock-face 'web-mode-doctype-face)) + ((eq type 'doctype) + (put-text-property beg end 'font-lock-face 'web-mode-doctype-face)) + ((eq type 'declaration) + (put-text-property beg end 'font-lock-face 'web-mode-doctype-face)) + (name + (setq slash-beg (> (logand flags 4) 0) + slash-end (> (logand flags 8) 0) + bracket-end (> (logand flags 16) 0)) + (setq face (cond + ((not bracket-end) 'web-mode-html-tag-unclosed-face) + ((and web-mode-enable-element-tag-fontification + (setq face (cdr (assoc name web-mode-element-tag-faces)))) + face) + ((> (logand flags 32) 0) 'web-mode-html-tag-namespaced-face) + ((> (logand flags 2) 0) 'web-mode-html-tag-custom-face) + (t 'web-mode-html-tag-face))) + (put-text-property beg (+ beg (if slash-beg 2 1)) + 'font-lock-face 'web-mode-html-tag-bracket-face) + (if (string= name "_fragment_") + (progn + ;;(message "beg=%S" beg) + ) + (put-text-property (+ beg (if slash-beg 2 1)) + (+ beg (if slash-beg 2 1) (length name)) + 'font-lock-face face)) + (when (or slash-end bracket-end) + (put-text-property (- end (if slash-end 2 1)) end 'font-lock-face 'web-mode-html-tag-bracket-face) + ) ;when + (when (> (logand flags 1) 0) + ;;(message "%S>%S" beg end) + (web-mode-fontify-attrs beg end)) + ) ;case name + ) ;cond + )) + +(defun web-mode-fontify-attrs (reg-beg reg-end) + (let ((continue t) (pos reg-beg) beg end flags offset face) + ;;(message "fontify-attrs %S>%S" reg-beg reg-end) + (while continue + (setq beg (web-mode-attribute-next-position pos reg-end)) + (cond + ((or (null beg) (>= beg reg-end)) + (setq continue nil)) + (t + (setq flags (or (get-text-property beg 'tag-attr-beg) 0)) + (setq face (cond + ((= (logand flags 1) 1) 'web-mode-html-attr-custom-face) + ((= (logand flags 2) 2) 'web-mode-html-attr-engine-face) + ((= (logand flags 4) 4) nil) + (t 'web-mode-html-attr-name-face))) + ;;(setq end (if (get-text-property beg 'tag-attr-end) beg (web-mode-attribute-end-position beg))) + (setq end (web-mode-attribute-end-position beg)) + ;;(message "beg=%S end=%S" beg end) + (cond + ((or (null end) (>= end reg-end)) + (setq continue nil)) + (t + (setq offset (get-text-property end 'tag-attr-end)) + (if (= offset 0) + (put-text-property beg (1+ end) 'font-lock-face face) + (put-text-property beg (+ beg offset) 'font-lock-face face) + (put-text-property (+ beg offset) (+ beg offset 1) + 'font-lock-face + 'web-mode-html-attr-equal-face) + (when (not (get-text-property (+ beg offset 1) 'jsx-beg)) + (put-text-property (+ beg offset 1) (1+ end) + 'font-lock-face + 'web-mode-html-attr-value-face) + ) + ) ;if offset + (setq pos (1+ end)) + ) ;t + ) ;cond + ) ;t + );cond + ) ;while + )) + +(defun web-mode-fontify-block (reg-beg reg-end) + (when web-mode-trace + (message "fontify-block: reg-beg(%S) reg-end(%S) engine(%S) keywords(%S)" + reg-beg reg-end web-mode-engine (not (null web-mode-engine-font-lock-keywords)))) + + (let (sub1 sub2 sub3 continue char keywords token-type face beg end (buffer (current-buffer))) + + ;; NOTE: required for blocks inside tag attrs + ;; NOTE: ajout de face dans la liste pour sucharger la couleur définie par + ;; un prealable web-mode-fontity-part (2022-12-25 #1230) + (remove-list-of-text-properties reg-beg reg-end '(font-lock-face face)) + ;;(message "reg-beg=%S reg-end=%S" reg-beg reg-end) + + (goto-char reg-beg) + + (when (null web-mode-engine-font-lock-keywords) + (setq sub1 (buffer-substring-no-properties + reg-beg (+ reg-beg 1)) + sub2 (buffer-substring-no-properties + reg-beg (+ reg-beg 2)) + sub3 (buffer-substring-no-properties + reg-beg (+ reg-beg (if (>= (point-max) (+ reg-beg 3)) 3 2)))) + ) + + (cond + + ((and (get-text-property reg-beg 'block-beg) + (eq (get-text-property reg-beg 'block-token) 'comment)) + (put-text-property reg-beg reg-end 'font-lock-face 'web-mode-comment-face) + ) ;comment block + + (web-mode-engine-font-lock-keywords + (setq keywords web-mode-engine-font-lock-keywords)) + + ((string= web-mode-engine "django") + (cond + ((string= sub2 "{{") + (setq keywords web-mode-django-expr-font-lock-keywords)) + ((string= sub2 "{%") + (setq keywords web-mode-django-code-font-lock-keywords)) + ((string= sub1 "#") + (setq keywords web-mode-django-code-font-lock-keywords)) + )) ;django + + ((string= web-mode-engine "mako") + (cond + ((member sub3 '("<% " "<%\n" "<%!")) + (setq keywords web-mode-mako-block-font-lock-keywords)) + ((eq (aref sub2 0) ?\%) + (setq keywords web-mode-mako-block-font-lock-keywords)) + ((member sub2 '("<%" " %S face(%S)" beg end face) + (remove-list-of-text-properties beg end '(face)) + (put-text-property beg end 'font-lock-face face) + ) + (setq continue nil + end nil) + ) ;if end + ) ;progn beg + (setq continue nil + end nil) + ) ;if beg + (when (and beg end) + (save-match-data + (when (and web-mode-enable-heredoc-fontification + (eq char ?\<) + (> (- end beg) 8) + (string-match-p "JS\\|JAVASCRIPT\\|HTM\\|CSS" (buffer-substring-no-properties beg end))) + (setq keywords + (cond + ((string-match-p "H" (buffer-substring-no-properties beg (+ beg 8))) + web-mode-html-font-lock-keywords) + (t + web-mode-javascript-font-lock-keywords) + )) + (web-mode-fontify-region beg end keywords) + ) + ) ;save-match-data + (when (and web-mode-enable-string-interpolation + (member char '(?\" ?\<)) + (member web-mode-engine '("php" "erb")) + (> (- end beg) 4)) + (web-mode-interpolate-block-string beg end) + ) ;when + (when (and web-mode-enable-comment-interpolation + (eq token-type 'comment) + (> (- end beg) 3)) + (web-mode-interpolate-comment beg end t) + ) ;when + (when (and web-mode-enable-comment-annotation + (eq token-type 'comment) + (> (- end beg) 3)) + (web-mode-annotate-comment beg end) + ) ;when + (when (and web-mode-enable-sql-detection + (eq token-type 'string) + (> (- end beg) 6) + (web-mode-looking-at-p (concat "\\(.\\|<<<[[:alnum:]]+\\)[ \n]*" web-mode-sql-queries) beg) + ) + (web-mode-interpolate-sql-string beg end) + ) ;when + ) ;when beg end + ) ;while continue + ) ;when keywords + + (when (and (member web-mode-engine '("mako")) + (> (- reg-end reg-beg) 12) + (eq ?\< (char-after reg-beg))) + (web-mode-interpolate-block-tag reg-beg reg-end)) + + (when web-mode-enable-block-face + (font-lock-append-text-property reg-beg reg-end 'face 'web-mode-block-face)) + + )) + +(defun web-mode-fontify-part (reg-beg reg-end &optional depth) + (save-excursion + (let (continue token-type face pos beg end string-face comment-face content-type) + ;;(message "fontify-part: reg-beg(%S) reg-end(%S)" reg-beg reg-end) + (if (member web-mode-content-type web-mode-part-content-types) + (setq content-type web-mode-content-type) + (setq content-type (symbol-name (get-text-property reg-beg 'part-side)))) + ;;(message "content-type=%S" content-type) + (unless depth + (when (string= content-type "jsx") (setq depth 0)) + ) + (setq string-face 'web-mode-part-string-face + comment-face 'web-mode-part-comment-face) + (cond + ((member content-type '("javascript" "jsx")) + (setq string-face 'web-mode-javascript-string-face + comment-face 'web-mode-javascript-comment-face) + (web-mode-fontify-region reg-beg reg-end web-mode-javascript-font-lock-keywords)) + ((string= content-type "json") + (setq string-face 'web-mode-json-string-face + comment-face 'web-mode-json-comment-face) + (web-mode-fontify-region reg-beg reg-end web-mode-javascript-font-lock-keywords)) + ((string= content-type "css") + (setq string-face 'web-mode-css-string-face + comment-face 'web-mode-css-comment-face) + (web-mode-fontify-css-rules reg-beg reg-end)) + ((string= content-type "sql") + (web-mode-fontify-region reg-beg reg-end web-mode-sql-font-lock-keywords)) + ((string= content-type "stylus") + (web-mode-fontify-region reg-beg reg-end web-mode-stylus-font-lock-keywords)) + ((string= content-type "sass") + (web-mode-fontify-region reg-beg reg-end web-mode-sass-font-lock-keywords)) + ((string= content-type "pug") + (web-mode-fontify-region reg-beg reg-end web-mode-pug-font-lock-keywords)) + ((string= content-type "markdown") + (web-mode-fontify-region reg-beg reg-end web-mode-markdown-font-lock-keywords)) + ((string= content-type "ruby") + (web-mode-fontify-region reg-beg reg-end web-mode-erb-font-lock-keywords)) + ((string= content-type "typescript") + (web-mode-fontify-region reg-beg reg-end web-mode-javascript-font-lock-keywords)) + ) ;cond + + (goto-char reg-beg) + + ;;(when (string= content-type "jsx") (web-mode-fontify-tags reg-beg reg-end)) + ;;(setq continue (and pos (< pos reg-end))) + (setq continue t + pos reg-beg) + (while continue + (if (get-text-property pos 'part-token) + (setq beg pos) + (setq beg (next-single-property-change pos 'part-token))) + (cond + ((or (null beg) (>= beg reg-end)) + (setq continue nil + end nil)) + ((and (eq depth 0) (get-text-property beg 'jsx-depth)) + (setq pos (or (next-single-property-change beg 'jsx-depth) (point-max)))) + (t + ;;(message "%c" (char-after beg)) + (setq token-type (get-text-property beg 'part-token)) + (setq face (cond + ((eq token-type 'string) string-face) + ((eq token-type 'comment) comment-face) + ((eq token-type 'context) 'web-mode-json-context-face) + ((eq token-type 'key) 'web-mode-json-key-face) + (t nil))) + (setq end (or (next-single-property-change beg 'part-token) (point-max)) + pos end) + (cond + ((or (null end) (> end reg-end)) + (setq continue nil + end nil)) + (t + (when face + (remove-list-of-text-properties beg end '(face)) + (put-text-property beg end 'font-lock-face face)) + (cond + ((< (- end beg) 6) + ) + ((eq token-type 'string) + (cond + ((and (eq (char-after beg) ?\`) + web-mode-enable-literal-interpolation + (member content-type '("javascript" "jsx" "typescript"))) + (web-mode-interpolate-javascript-literal beg end) + ) + ((and (eq (char-after beg) ?\") + web-mode-enable-string-interpolation + (member content-type '("javascript" "jsx" "typescript"))) + (web-mode-interpolate-javascript-string beg end)) + ) ;cond + ) ;case string + ((eq token-type 'comment) + (when web-mode-enable-comment-interpolation + (web-mode-interpolate-comment beg end t)) + (when web-mode-enable-comment-annotation + (web-mode-annotate-comment beg end)) + ) + ) ;cond + ) ;t + ) ;cond + ) ;t + ) ;cond + ) ;while + + (when (and (string= web-mode-content-type "html") web-mode-enable-part-face) + (font-lock-append-text-property reg-beg reg-end 'face + (cond + ((string= content-type "javascript") + 'web-mode-script-face) + ((string= content-type "css") + 'web-mode-style-face) + (t + 'web-mode-part-face))) + ) + + (when (and web-mode-enable-css-colorization (string= content-type "stylus")) + (goto-char reg-beg) + (while (and (re-search-forward "#[0-9a-fA-F]\\{6\\}\\|#[0-9a-fA-F]\\{3\\}\\|rgba?([ ]*\\([[:digit:]]\\{1,3\\}\\)[ ]*,[ ]*\\([[:digit:]]\\{1,3\\}\\)[ ]*,[ ]*\\([[:digit:]]\\{1,3\\}\\)\\(.*?\\))" end t) + (<= (point) reg-end)) + (web-mode-colorize (match-beginning 0) (match-end 0)) + ) + ) + + (when (and (eq depth 0) (string= content-type "jsx")) + (let (pair elt-beg elt-end exp-beg exp-end exp-depth) + (goto-char reg-beg) + (while (setq pair (web-mode-jsx-element-next reg-end)) + ;;(message "elt-pair=%S" pair) + (setq elt-beg (car pair) + elt-end (cdr pair)) + (remove-list-of-text-properties elt-beg (1+ elt-end) '(face)) + (web-mode-fontify-tags elt-beg elt-end 1) + (goto-char elt-beg) + (while (setq pair (web-mode-jsx-expression-next elt-end)) + ;;(message "exp-pair=%S elt-end=%S" pair elt-end) + (setq exp-beg (car pair) + exp-end (cdr pair)) + (when (eq (char-after exp-beg) ?\{) + ;;(message "%S : %c %c" exp-beg (char-after (+ exp-beg 1)) (char-after (+ exp-beg 2))) + (cond + ;;((and (eq (char-after (+ exp-beg 1)) ?\/) (eq (char-after (+ exp-beg 2)) ?\*)) + ;; (put-text-property exp-beg (1+ exp-end) 'font-lock-face 'web-mode-part-comment-face) + ;; ) + (t + (setq exp-depth (get-text-property exp-beg 'jsx-depth)) + (remove-list-of-text-properties exp-beg exp-end '(font-lock-face)) + (put-text-property exp-beg (1+ exp-beg) 'font-lock-face 'web-mode-block-delimiter-face) + (when (and (eq (get-text-property exp-beg 'tag-attr-beg) 4) (web-mode-looking-at-p "\.\.\." (1+ exp-beg))) + (put-text-property exp-beg (+ exp-beg 4) 'font-lock-face 'web-mode-block-delimiter-face)) + (put-text-property exp-end (1+ exp-end) 'font-lock-face 'web-mode-block-delimiter-face) + (web-mode-fontify-tags (1+ exp-beg) exp-end (1+ exp-depth)) + (web-mode-fontify-part (1+ exp-beg) exp-end exp-depth) + (web-mode-fontify-region (1+ exp-beg) exp-end web-mode-javascript-font-lock-keywords) + ) ;t + ) ;cond + ) ;when + (goto-char (1+ exp-beg)) + ) ;while exp + + (when (and elt-beg web-mode-jsx-depth-faces) + (let (depth-beg depth-end jsx-face) + (goto-char elt-beg) + (while (setq pair (web-mode-jsx-depth-next reg-end)) + ;;(message "depth-pair=%S" pair) + (setq depth-beg (car pair) + depth-end (cdr pair) + depth (get-text-property depth-beg 'jsx-depth) + jsx-face (elt web-mode-jsx-depth-faces (1- depth))) + ;;(message "%S" jsx-face) + (font-lock-prepend-text-property depth-beg (1+ depth-end) 'face jsx-face) + (goto-char (+ depth-beg 2)) + ) + ) ;let + ) + + (goto-char (1+ elt-end)) + ) ;while elt + ) ;let + ) ;when + + ) ;let + ) ;save-excursion + ) + +(defun web-mode-fontify-css-rules (part-beg part-end) + (save-excursion + (goto-char part-beg) + (let (rule (continue t) (i 0) (at-rule nil)) + (while continue + (setq rule (web-mode-css-rule-next part-end)) + ;;(message "rule=%S" rule) + (cond + ((> (setq i (1+ i)) 1000) + (message "fontify-css-rules ** too much rules **") + (setq continue nil)) + ((null rule) + (setq continue nil)) + ((and (setq at-rule (plist-get rule :at-rule)) + (not (member at-rule '("charset" "font-face" "import" "viewport"))) + (plist-get rule :dec-end)) + (web-mode-fontify-css-rule (plist-get rule :sel-beg) + (plist-get rule :sel-end) + nil nil) + (web-mode-fontify-css-rules (plist-get rule :dec-beg) + (plist-get rule :dec-end))) + (t + (web-mode-fontify-css-rule (plist-get rule :sel-beg) + (plist-get rule :sel-end) + (plist-get rule :dec-beg) + (plist-get rule :dec-end))) + ) ;cond + ) ;while + ) ;let + )) + +(defun web-mode-fontify-css-rule (sel-beg sel-end dec-beg dec-end) + (save-excursion + ;;(let ((end sel-end)) + ;;(message "sel-beg=%S sel-end=%S dec-beg=%S dec-end=%S" sel-beg sel-end dec-beg dec-end) + (web-mode-fontify-region sel-beg sel-end web-mode-selector-font-lock-keywords) + (when (and dec-beg dec-end) + ;;(setq end dec-end) + (web-mode-fontify-region dec-beg dec-end web-mode-declaration-font-lock-keywords) + ) ;when + (when (and dec-beg dec-end) + (goto-char dec-beg) + (while (and web-mode-enable-css-colorization + (re-search-forward "\\(?1:#[0-9a-fA-F]\\{6\\}\\)\\|\\(?1:#[0-9a-fA-F]\\{3\\}\\)\\|\\(?1:rgba?([ ]*\\(?2:[[:digit:]]\\{1,3\\}\\)[ ]*,[ ]*\\(?3:[[:digit:]]\\{1,3\\}\\)[ ]*,[ ]*\\(?4:[[:digit:]]\\{1,3\\}\\)\\(.*?\\))\\)\\|[: ]\\(?1:black\\|silver\\|gray\\|white\\|maroon\\|red\\|purple\\|fuchsia\\|green\\|lime\\|olive\\|yellow\\|navy\\|blue\\|teal\\|aqua\\|orange\\|aliceblue\\|antiquewhite\\|aquamarine\\|azure\\|beige\\|bisque\\|blanchedalmond\\|blueviolet\\|brown\\|burlywood\\|cadetblue\\|chartreuse\\|chocolate\\|coral\\|cornflowerblue\\|cornsilk\\|crimson\\|cyan\\|darkblue\\|darkcyan\\|darkgoldenrod\\|darkgray\\|darkgreen\\|darkgrey\\|darkkhaki\\|darkmagenta\\|darkolivegreen\\|darkorange\\|darkorchid\\|darkred\\|darksalmon\\|darkseagreen\\|darkslateblue\\|darkslategray\\|darkslategrey\\|darkturquoise\\|darkviolet\\|deeppink\\|deepskyblue\\|dimgray\\|dimgrey\\|dodgerblue\\|firebrick\\|floralwhite\\|forestgreen\\|gainsboro\\|ghostwhite\\|gold\\|goldenrod\\|greenyellow\\|grey\\|honeydew\\|hotpink\\|indianred\\|indigo\\|ivory\\|khaki\\|lavender\\|lavenderblush\\|lawngreen\\|lemonchiffon\\|lightblue\\|lightcoral\\|lightcyan\\|lightgoldenrodyellow\\|lightgray\\|lightgreen\\|lightgrey\\|lightpink\\|lightsalmon\\|lightseagreen\\|lightskyblue\\|lightslategray\\|lightslategrey\\|lightsteelblue\\|lightyellow\\|limegreen\\|linen\\|magenta\\|mediumaquamarine\\|mediumblue\\|mediumorchid\\|mediumpurple\\|mediumseagreen\\|mediumslateblue\\|mediumspringgreen\\|mediumturquoise\\|mediumvioletred\\|midnightblue\\|mintcream\\|mistyrose\\|moccasin\\|navajowhite\\|oldlace\\|olivedrab\\|orangered\\|orchid\\|palegoldenrod\\|palegreen\\|paleturquoise\\|palevioletred\\|papayawhip\\|peachpuff\\|peru\\|pink\\|plum\\|powderblue\\|rosybrown\\|royalblue\\|saddlebrown\\|salmon\\|sandybrown\\|seagreen\\|seashell\\|sienna\\|skyblue\\|slateblue\\|slategray\\|slategrey\\|snow\\|springgreen\\|steelblue\\|tan\\|thistle\\|tomato\\|turquoise\\|violet\\|wheat\\|whitesmoke\\|yellowgreen\\)[ ;]" dec-end t) + ;;(progn (message "%S %S" end (point)) t) + (<= (point) dec-end)) + ;;(message "web-mode-colorize beg=%S end=%S match=%S" (match-beginning 0) (match-end 0) (buffer-substring-no-properties (match-beginning 0) (match-end 0))) + (web-mode-colorize (match-beginning 1) (match-end 1)) + ) ;while + ) ;when + ;;) ;let + )) + +(defun web-mode-colorize-foreground (color) + (let* ((values (x-color-values color)) + (r (car values)) + (g (cadr values)) + (b (car (cdr (cdr values))))) + (if (> 128.0 (floor (+ (* .3 r) (* .59 g) (* .11 b)) 256)) + "white" "black"))) + +(defun web-mode-colorize (beg end) + (let (str plist) + (setq str (buffer-substring-no-properties beg end)) + ;;(setq str1 (match-string-no-properties 1)) + ;;(message "str=%S" str str1) + (cond + ;;(t + ;; (message "%S %S %S %S %S" (match-string-no-properties 0) (match-string-no-properties 1) (match-string-no-properties 2) (match-string-no-properties 3) (match-string-no-properties 4)) + ;; ) + ((string= (substring str 0 1) "#") + (setq plist (list :background str + :foreground (web-mode-colorize-foreground str)))) + ((and (>= (length str) 3) (string= (substring str 0 3) "rgb")) + (setq str (format "#%02X%02X%02X" + (string-to-number (match-string-no-properties 2)) + (string-to-number (match-string-no-properties 3)) + (string-to-number (match-string-no-properties 4)))) + (setq plist (list :background str + :foreground (web-mode-colorize-foreground str)))) + ((string= str "black") (setq plist (list :background "#000000" :foreground (web-mode-colorize-foreground "#000000")))) + ((string= str "silver") (setq plist (list :background "#c0c0c0" :foreground (web-mode-colorize-foreground "#c0c0c0")))) + ((string= str "gray") (setq plist (list :background "#808080" :foreground (web-mode-colorize-foreground "#808080")))) + ((string= str "white") (setq plist (list :background "#ffffff" :foreground (web-mode-colorize-foreground "#ffffff")))) + ((string= str "maroon") (setq plist (list :background "#800000" :foreground (web-mode-colorize-foreground "#800000")))) + ((string= str "red") (setq plist (list :background "#ff0000" :foreground (web-mode-colorize-foreground "#ff0000")))) + ((string= str "purple") (setq plist (list :background "#800080" :foreground (web-mode-colorize-foreground "#800080")))) + ((string= str "fuchsia") (setq plist (list :background "#ff00ff" :foreground (web-mode-colorize-foreground "#ff00ff")))) + ((string= str "green") (setq plist (list :background "#008000" :foreground (web-mode-colorize-foreground "#008000")))) + ((string= str "lime") (setq plist (list :background "#00ff00" :foreground (web-mode-colorize-foreground "#00ff00")))) + ((string= str "olive") (setq plist (list :background "#808000" :foreground (web-mode-colorize-foreground "#808000")))) + ((string= str "yellow") (setq plist (list :background "#ffff00" :foreground (web-mode-colorize-foreground "#ffff00")))) + ((string= str "navy") (setq plist (list :background "#000080" :foreground (web-mode-colorize-foreground "#000080")))) + ((string= str "blue") (setq plist (list :background "#0000ff" :foreground (web-mode-colorize-foreground "#0000ff")))) + ((string= str "teal") (setq plist (list :background "#008080" :foreground (web-mode-colorize-foreground "#008080")))) + ((string= str "aqua") (setq plist (list :background "#00ffff" :foreground (web-mode-colorize-foreground "#00ffff")))) + ((string= str "orange") (setq plist (list :background "#ffa500" :foreground (web-mode-colorize-foreground "#ffa500")))) + ((string= str "aliceblue") (setq plist (list :background "#f0f8ff" :foreground (web-mode-colorize-foreground "#f0f8ff")))) + ((string= str "antiquewhite") (setq plist (list :background "#faebd7" :foreground (web-mode-colorize-foreground "#faebd7")))) + ((string= str "aquamarine") (setq plist (list :background "#7fffd4" :foreground (web-mode-colorize-foreground "#7fffd4")))) + ((string= str "azure") (setq plist (list :background "#f0ffff" :foreground (web-mode-colorize-foreground "#f0ffff")))) + ((string= str "beige") (setq plist (list :background "#f5f5dc" :foreground (web-mode-colorize-foreground "#f5f5dc")))) + ((string= str "bisque") (setq plist (list :background "#ffe4c4" :foreground (web-mode-colorize-foreground "#ffe4c4")))) + ((string= str "blanchedalmond") (setq plist (list :background "#ffebcd" :foreground (web-mode-colorize-foreground "#ffebcd")))) + ((string= str "blueviolet") (setq plist (list :background "#8a2be2" :foreground (web-mode-colorize-foreground "#8a2be2")))) + ((string= str "brown") (setq plist (list :background "#a52a2a" :foreground (web-mode-colorize-foreground "#a52a2a")))) + ((string= str "burlywood") (setq plist (list :background "#deb887" :foreground (web-mode-colorize-foreground "#deb887")))) + ((string= str "cadetblue") (setq plist (list :background "#5f9ea0" :foreground (web-mode-colorize-foreground "#5f9ea0")))) + ((string= str "chartreuse") (setq plist (list :background "#7fff00" :foreground (web-mode-colorize-foreground "#7fff00")))) + ((string= str "chocolate") (setq plist (list :background "#d2691e" :foreground (web-mode-colorize-foreground "#d2691e")))) + ((string= str "coral") (setq plist (list :background "#ff7f50" :foreground (web-mode-colorize-foreground "#ff7f50")))) + ((string= str "cornflowerblue") (setq plist (list :background "#6495ed" :foreground (web-mode-colorize-foreground "#6495ed")))) + ((string= str "cornsilk") (setq plist (list :background "#fff8dc" :foreground (web-mode-colorize-foreground "#fff8dc")))) + ((string= str "crimson") (setq plist (list :background "#dc143c" :foreground (web-mode-colorize-foreground "#dc143c")))) + ((string= str "cyan") (setq plist (list :background "#00ffff" :foreground (web-mode-colorize-foreground "#00ffff")))) + ((string= str "darkblue") (setq plist (list :background "#00008b" :foreground (web-mode-colorize-foreground "#00008b")))) + ((string= str "darkcyan") (setq plist (list :background "#008b8b" :foreground (web-mode-colorize-foreground "#008b8b")))) + ((string= str "darkgoldenrod") (setq plist (list :background "#b8860b" :foreground (web-mode-colorize-foreground "#b8860b")))) + ((string= str "darkgray") (setq plist (list :background "#a9a9a9" :foreground (web-mode-colorize-foreground "#a9a9a9")))) + ((string= str "darkgreen") (setq plist (list :background "#006400" :foreground (web-mode-colorize-foreground "#006400")))) + ((string= str "darkgrey") (setq plist (list :background "#a9a9a9" :foreground (web-mode-colorize-foreground "#a9a9a9")))) + ((string= str "darkkhaki") (setq plist (list :background "#bdb76b" :foreground (web-mode-colorize-foreground "#bdb76b")))) + ((string= str "darkmagenta") (setq plist (list :background "#8b008b" :foreground (web-mode-colorize-foreground "#8b008b")))) + ((string= str "darkolivegreen") (setq plist (list :background "#556b2f" :foreground (web-mode-colorize-foreground "#556b2f")))) + ((string= str "darkorange") (setq plist (list :background "#ff8c00" :foreground (web-mode-colorize-foreground "#ff8c00")))) + ((string= str "darkorchid") (setq plist (list :background "#9932cc" :foreground (web-mode-colorize-foreground "#9932cc")))) + ((string= str "darkred") (setq plist (list :background "#8b0000" :foreground (web-mode-colorize-foreground "#8b0000")))) + ((string= str "darksalmon") (setq plist (list :background "#e9967a" :foreground (web-mode-colorize-foreground "#e9967a")))) + ((string= str "darkseagreen") (setq plist (list :background "#8fbc8f" :foreground (web-mode-colorize-foreground "#8fbc8f")))) + ((string= str "darkslateblue") (setq plist (list :background "#483d8b" :foreground (web-mode-colorize-foreground "#483d8b")))) + ((string= str "darkslategray") (setq plist (list :background "#2f4f4f" :foreground (web-mode-colorize-foreground "#2f4f4f")))) + ((string= str "darkslategrey") (setq plist (list :background "#2f4f4f" :foreground (web-mode-colorize-foreground "#2f4f4f")))) + ((string= str "darkturquoise") (setq plist (list :background "#00ced1" :foreground (web-mode-colorize-foreground "#00ced1")))) + ((string= str "darkviolet") (setq plist (list :background "#9400d3" :foreground (web-mode-colorize-foreground "#9400d3")))) + ((string= str "deeppink") (setq plist (list :background "#ff1493" :foreground (web-mode-colorize-foreground "#ff1493")))) + ((string= str "deepskyblue") (setq plist (list :background "#00bfff" :foreground (web-mode-colorize-foreground "#00bfff")))) + ((string= str "dimgray") (setq plist (list :background "#696969" :foreground (web-mode-colorize-foreground "#696969")))) + ((string= str "dimgrey") (setq plist (list :background "#696969" :foreground (web-mode-colorize-foreground "#696969")))) + ((string= str "dodgerblue") (setq plist (list :background "#1e90ff" :foreground (web-mode-colorize-foreground "#1e90ff")))) + ((string= str "firebrick") (setq plist (list :background "#b22222" :foreground (web-mode-colorize-foreground "#b22222")))) + ((string= str "floralwhite") (setq plist (list :background "#fffaf0" :foreground (web-mode-colorize-foreground "#fffaf0")))) + ((string= str "forestgreen") (setq plist (list :background "#228b22" :foreground (web-mode-colorize-foreground "#228b22")))) + ((string= str "gainsboro") (setq plist (list :background "#dcdcdc" :foreground (web-mode-colorize-foreground "#dcdcdc")))) + ((string= str "ghostwhite") (setq plist (list :background "#f8f8ff" :foreground (web-mode-colorize-foreground "#f8f8ff")))) + ((string= str "gold") (setq plist (list :background "#ffd700" :foreground (web-mode-colorize-foreground "#ffd700")))) + ((string= str "goldenrod") (setq plist (list :background "#daa520" :foreground (web-mode-colorize-foreground "#daa520")))) + ((string= str "greenyellow") (setq plist (list :background "#adff2f" :foreground (web-mode-colorize-foreground "#adff2f")))) + ((string= str "grey") (setq plist (list :background "#808080" :foreground (web-mode-colorize-foreground "#808080")))) + ((string= str "honeydew") (setq plist (list :background "#f0fff0" :foreground (web-mode-colorize-foreground "#f0fff0")))) + ((string= str "hotpink") (setq plist (list :background "#ff69b4" :foreground (web-mode-colorize-foreground "#ff69b4")))) + ((string= str "indianred") (setq plist (list :background "#cd5c5c" :foreground (web-mode-colorize-foreground "#cd5c5c")))) + ((string= str "indigo") (setq plist (list :background "#4b0082" :foreground (web-mode-colorize-foreground "#4b0082")))) + ((string= str "ivory") (setq plist (list :background "#fffff0" :foreground (web-mode-colorize-foreground "#fffff0")))) + ((string= str "khaki") (setq plist (list :background "#f0e68c" :foreground (web-mode-colorize-foreground "#f0e68c")))) + ((string= str "lavender") (setq plist (list :background "#e6e6fa" :foreground (web-mode-colorize-foreground "#e6e6fa")))) + ((string= str "lavenderblush") (setq plist (list :background "#fff0f5" :foreground (web-mode-colorize-foreground "#fff0f5")))) + ((string= str "lawngreen") (setq plist (list :background "#7cfc00" :foreground (web-mode-colorize-foreground "#7cfc00")))) + ((string= str "lemonchiffon") (setq plist (list :background "#fffacd" :foreground (web-mode-colorize-foreground "#fffacd")))) + ((string= str "lightblue") (setq plist (list :background "#add8e6" :foreground (web-mode-colorize-foreground "#add8e6")))) + ((string= str "lightcoral") (setq plist (list :background "#f08080" :foreground (web-mode-colorize-foreground "#f08080")))) + ((string= str "lightcyan") (setq plist (list :background "#e0ffff" :foreground (web-mode-colorize-foreground "#e0ffff")))) + ((string= str "lightgoldenrodyellow") (setq plist (list :background "#fafad2" :foreground (web-mode-colorize-foreground "#fafad2")))) + ((string= str "lightgray") (setq plist (list :background "#d3d3d3" :foreground (web-mode-colorize-foreground "#d3d3d3")))) + ((string= str "lightgreen") (setq plist (list :background "#90ee90" :foreground (web-mode-colorize-foreground "#90ee90")))) + ((string= str "lightgrey") (setq plist (list :background "#d3d3d3" :foreground (web-mode-colorize-foreground "#d3d3d3")))) + ((string= str "lightpink") (setq plist (list :background "#ffb6c1" :foreground (web-mode-colorize-foreground "#ffb6c1")))) + ((string= str "lightsalmon") (setq plist (list :background "#ffa07a" :foreground (web-mode-colorize-foreground "#ffa07a")))) + ((string= str "lightseagreen") (setq plist (list :background "#20b2aa" :foreground (web-mode-colorize-foreground "#20b2aa")))) + ((string= str "lightskyblue") (setq plist (list :background "#87cefa" :foreground (web-mode-colorize-foreground "#87cefa")))) + ((string= str "lightslategray") (setq plist (list :background "#778899" :foreground (web-mode-colorize-foreground "#778899")))) + ((string= str "lightslategrey") (setq plist (list :background "#778899" :foreground (web-mode-colorize-foreground "#778899")))) + ((string= str "lightsteelblue") (setq plist (list :background "#b0c4de" :foreground (web-mode-colorize-foreground "#b0c4de")))) + ((string= str "lightyellow") (setq plist (list :background "#ffffe0" :foreground (web-mode-colorize-foreground "#ffffe0")))) + ((string= str "limegreen") (setq plist (list :background "#32cd32" :foreground (web-mode-colorize-foreground "#32cd32")))) + ((string= str "linen") (setq plist (list :background "#faf0e6" :foreground (web-mode-colorize-foreground "#faf0e6")))) + ((string= str "magenta") (setq plist (list :background "#ff00ff" :foreground (web-mode-colorize-foreground "#ff00ff")))) + ((string= str "mediumaquamarine") (setq plist (list :background "#66cdaa" :foreground (web-mode-colorize-foreground "#66cdaa")))) + ((string= str "mediumblue") (setq plist (list :background "#0000cd" :foreground (web-mode-colorize-foreground "#0000cd")))) + ((string= str "mediumorchid") (setq plist (list :background "#ba55d3" :foreground (web-mode-colorize-foreground "#ba55d3")))) + ((string= str "mediumpurple") (setq plist (list :background "#9370db" :foreground (web-mode-colorize-foreground "#9370db")))) + ((string= str "mediumseagreen") (setq plist (list :background "#3cb371" :foreground (web-mode-colorize-foreground "#3cb371")))) + ((string= str "mediumslateblue") (setq plist (list :background "#7b68ee" :foreground (web-mode-colorize-foreground "#7b68ee")))) + ((string= str "mediumspringgreen") (setq plist (list :background "#00fa9a" :foreground (web-mode-colorize-foreground "#00fa9a")))) + ((string= str "mediumturquoise") (setq plist (list :background "#48d1cc" :foreground (web-mode-colorize-foreground "#48d1cc")))) + ((string= str "mediumvioletred") (setq plist (list :background "#c71585" :foreground (web-mode-colorize-foreground "#c71585")))) + ((string= str "midnightblue") (setq plist (list :background "#191970" :foreground (web-mode-colorize-foreground "#191970")))) + ((string= str "mintcream") (setq plist (list :background "#f5fffa" :foreground (web-mode-colorize-foreground "#f5fffa")))) + ((string= str "mistyrose") (setq plist (list :background "#ffe4e1" :foreground (web-mode-colorize-foreground "#ffe4e1")))) + ((string= str "moccasin") (setq plist (list :background "#ffe4b5" :foreground (web-mode-colorize-foreground "#ffe4b5")))) + ((string= str "navajowhite") (setq plist (list :background "#ffdead" :foreground (web-mode-colorize-foreground "#ffdead")))) + ((string= str "oldlace") (setq plist (list :background "#fdf5e6" :foreground (web-mode-colorize-foreground "#fdf5e6")))) + ((string= str "olivedrab") (setq plist (list :background "#6b8e23" :foreground (web-mode-colorize-foreground "#6b8e23")))) + ((string= str "orangered") (setq plist (list :background "#ff4500" :foreground (web-mode-colorize-foreground "#ff4500")))) + ((string= str "orchid") (setq plist (list :background "#da70d6" :foreground (web-mode-colorize-foreground "#da70d6")))) + ((string= str "palegoldenrod") (setq plist (list :background "#eee8aa" :foreground (web-mode-colorize-foreground "#eee8aa")))) + ((string= str "palegreen") (setq plist (list :background "#98fb98" :foreground (web-mode-colorize-foreground "#98fb98")))) + ((string= str "paleturquoise") (setq plist (list :background "#afeeee" :foreground (web-mode-colorize-foreground "#afeeee")))) + ((string= str "palevioletred") (setq plist (list :background "#db7093" :foreground (web-mode-colorize-foreground "#db7093")))) + ((string= str "papayawhip") (setq plist (list :background "#ffefd5" :foreground (web-mode-colorize-foreground "#ffefd5")))) + ((string= str "peachpuff") (setq plist (list :background "#ffdab9" :foreground (web-mode-colorize-foreground "#ffdab9")))) + ((string= str "peru") (setq plist (list :background "#cd853f" :foreground (web-mode-colorize-foreground "#cd853f")))) + ((string= str "pink") (setq plist (list :background "#ffc0cb" :foreground (web-mode-colorize-foreground "#ffc0cb")))) + ((string= str "plum") (setq plist (list :background "#dda0dd" :foreground (web-mode-colorize-foreground "#dda0dd")))) + ((string= str "powderblue") (setq plist (list :background "#b0e0e6" :foreground (web-mode-colorize-foreground "#b0e0e6")))) + ((string= str "rosybrown") (setq plist (list :background "#bc8f8f" :foreground (web-mode-colorize-foreground "#bc8f8f")))) + ((string= str "royalblue") (setq plist (list :background "#4169e1" :foreground (web-mode-colorize-foreground "#4169e1")))) + ((string= str "saddlebrown") (setq plist (list :background "#8b4513" :foreground (web-mode-colorize-foreground "#8b4513")))) + ((string= str "salmon") (setq plist (list :background "#fa8072" :foreground (web-mode-colorize-foreground "#fa8072")))) + ((string= str "sandybrown") (setq plist (list :background "#f4a460" :foreground (web-mode-colorize-foreground "#f4a460")))) + ((string= str "seagreen") (setq plist (list :background "#2e8b57" :foreground (web-mode-colorize-foreground "#2e8b57")))) + ((string= str "seashell") (setq plist (list :background "#fff5ee" :foreground (web-mode-colorize-foreground "#fff5ee")))) + ((string= str "sienna") (setq plist (list :background "#a0522d" :foreground (web-mode-colorize-foreground "#a0522d")))) + ((string= str "skyblue") (setq plist (list :background "#87ceeb" :foreground (web-mode-colorize-foreground "#87ceeb")))) + ((string= str "slateblue") (setq plist (list :background "#6a5acd" :foreground (web-mode-colorize-foreground "#6a5acd")))) + ((string= str "slategray") (setq plist (list :background "#708090" :foreground (web-mode-colorize-foreground "#708090")))) + ((string= str "slategrey") (setq plist (list :background "#708090" :foreground (web-mode-colorize-foreground "#708090")))) + ((string= str "snow") (setq plist (list :background "#fffafa" :foreground (web-mode-colorize-foreground "#fffafa")))) + ((string= str "springgreen") (setq plist (list :background "#00ff7f" :foreground (web-mode-colorize-foreground "#00ff7f")))) + ((string= str "steelblue") (setq plist (list :background "#4682b4" :foreground (web-mode-colorize-foreground "#4682b4")))) + ((string= str "tan") (setq plist (list :background "#d2b48c" :foreground (web-mode-colorize-foreground "#d2b48c")))) + ((string= str "thistle") (setq plist (list :background "#d8bfd8" :foreground (web-mode-colorize-foreground "#d8bfd8")))) + ((string= str "tomato") (setq plist (list :background "#ff6347" :foreground (web-mode-colorize-foreground "#ff6347")))) + ((string= str "turquoise") (setq plist (list :background "#40e0d0" :foreground (web-mode-colorize-foreground "#40e0d0")))) + ((string= str "violet") (setq plist (list :background "#ee82ee" :foreground (web-mode-colorize-foreground "#ee82ee")))) + ((string= str "wheat") (setq plist (list :background "#f5deb3" :foreground (web-mode-colorize-foreground "#f5deb3")))) + ((string= str "whitesmoke") (setq plist (list :background "#f5f5f5" :foreground (web-mode-colorize-foreground "#f5f5f5")))) + ((string= str "yellowgreen") (setq plist (list :background "#9acd32" :foreground (web-mode-colorize-foreground "#9acd32")))) + ) ;cond + (put-text-property beg end 'face plist) + )) + +(defun web-mode-interpolate-block-tag (beg end) + (save-excursion + (goto-char (+ 4 beg)) + (setq end (1- end)) + (while (re-search-forward "${.*?}" end t) + (remove-list-of-text-properties (match-beginning 0) (match-end 0) '(face)) + (web-mode-fontify-region (match-beginning 0) (match-end 0) + web-mode-uel-font-lock-keywords)) + )) + +(defun web-mode-interpolate-javascript-string (beg end) + (save-excursion + (goto-char (1+ beg)) + (setq end (1- end)) + (while (re-search-forward "${.*?}" end t) + (put-text-property (match-beginning 0) (match-end 0) + 'font-lock-face + 'web-mode-variable-name-face) + ) + )) + +(defun web-mode-interpolate-javascript-literal (beg end) + (save-excursion + (setq end (1- end)) + (goto-char (1+ beg)) + (cond + ((web-mode-looking-back "\\(css\\|styled[[:alnum:].]+\\|css = \\)" beg) + (goto-char (1+ beg)) + (while (re-search-forward ".*?:" end t) + (put-text-property (match-beginning 0) (match-end 0) + 'font-lock-face + 'web-mode-interpolate-color1-face) + ) + ) ;case css + ((web-mode-looking-back "\\(template\\|html\\|html = \\)" beg) + (goto-char (1+ beg)) + (while (re-search-forward web-mode-tag-regexp end t) + (put-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-interpolate-color1-face) + ) + (goto-char (1+ beg)) + (while (re-search-forward "\\| [.@?]?[[:alnum:]]+=" end t) + (cond + ((member (char-after (match-beginning 0)) '(?\< ?\/ ?\>)) + (put-text-property (match-beginning 0) (match-end 0) + 'font-lock-face + 'web-mode-interpolate-color2-face) + ) + (t + (put-text-property (1+ (match-beginning 0)) (1- (match-end 0)) + 'font-lock-face + 'web-mode-interpolate-color3-face) + ) ;t + ) ;cond + ) ;while + (goto-char (1+ beg)) + (while (re-search-forward "<\\(script\\|style\\)>\\(.*\\)" end t) + (put-text-property (match-beginning 2) (match-end 2) + 'font-lock-face + 'web-mode-interpolate-color4-face) + ) + ) ;case html + ) ;cond type of literal + (goto-char (1+ beg)) + (while (re-search-forward "${.*?}" end t) + (put-text-property (match-beginning 0) (match-end 0) + 'font-lock-face + 'web-mode-variable-name-face) + ) ;while + )) + +;; todo : parsing plus compliqué: {$obj->values[3]->name} +(defun web-mode-interpolate-block-string (beg end) + (save-excursion + (goto-char (1+ beg)) + (setq end (1- end)) + (cond + ((string= web-mode-engine "php") + (while (re-search-forward "$[[:alnum:]_]+\\(->[[:alnum:]_]+\\)*\\|{[ ]*$.+?}" end t) + ;; (message "%S > %S" (match-beginning 0) (match-end 0)) + (remove-list-of-text-properties (match-beginning 0) (match-end 0) '(font-lock-face)) + (web-mode-fontify-region (match-beginning 0) (match-end 0) + web-mode-php-var-interpolation-font-lock-keywords) + )) + ((string= web-mode-engine "erb") + (while (re-search-forward "#{.*?}" end t) + (remove-list-of-text-properties (match-beginning 0) (match-end 0) '(font-lock-face)) + (put-text-property (match-beginning 0) (match-end 0) + 'font-lock-face 'web-mode-variable-name-face) + )) + ) ;cond + )) + +(defun web-mode-interpolate-comment (beg end _block-side) + (save-excursion + (let ((regexp (concat "\\_<\\(" web-mode-comment-keywords "\\)\\_>"))) + (goto-char beg) + (while (re-search-forward regexp end t) + (font-lock-prepend-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-comment-keyword-face) + ) ;while + ))) + +(defun web-mode-annotate-comment (beg end) + (save-excursion + ;;(message "beg=%S end=%S" beg end) + (goto-char beg) + (when (looking-at-p "/\\*\\*") + (while (re-search-forward "\\(.+\\)" end t) + (font-lock-prepend-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-annotation-face)) + (goto-char beg) + (while (re-search-forward "[ ]+\\({[^}]+}\\)" end t) + (font-lock-prepend-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-annotation-type-face)) + (goto-char beg) + (while (re-search-forward "\\(@[[:alnum:]]+\\)" end t) + (font-lock-prepend-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-annotation-tag-face)) + (goto-char beg) + (while (re-search-forward "}[[:blank:]]+\\([[:graph:]]+\\)" end t) + (font-lock-prepend-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-annotation-value-face)) + (goto-char beg) + (while (re-search-forward "@see[[:blank:]]+\\([[:graph:]]+\\)" end t) + (font-lock-prepend-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-annotation-value-face)) + (goto-char beg) + (while (re-search-forward "{\\(@\\(?:link\\|code\\)\\)\\s-+\\([^}\n]+\\)\\(#.+\\)?}" end t) + (font-lock-prepend-text-property (match-beginning 2) (match-end 2) + 'font-lock-face + 'web-mode-annotation-value-face)) + (goto-char beg) + (while (re-search-forward "\\(\\)" end t) + (font-lock-prepend-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-annotation-html-face) + (font-lock-prepend-text-property (match-beginning 2) (match-end 2) + 'font-lock-face + 'web-mode-annotation-html-face) + (font-lock-prepend-text-property (match-beginning 3) (match-end 3) + 'font-lock-face + 'web-mode-annotation-html-face)) + ) ;when + )) + +(defun web-mode-interpolate-sql-string (beg end) + (save-excursion + (let ((case-fold-search t) + (regexp (concat "\\_<\\(" web-mode-sql-keywords "\\)\\_>"))) + (goto-char beg) + (while (re-search-forward regexp end t) + (font-lock-prepend-text-property (match-beginning 1) (match-end 1) + 'font-lock-face + 'web-mode-sql-keyword-face) + ) ;while + ))) + +;;---- EFFECTS ----------------------------------------------------------------- + +(defun web-mode-fill-paragraph (&optional _justify) + (save-excursion + (let ((pos (point)) + prop pair beg end delim-beg delim-end chunk fill-coll) + (ignore delim-beg delim-end fill-coll) + (cond + ((or (eq (get-text-property pos 'part-token) 'comment) + (eq (get-text-property pos 'block-token) 'comment)) + (setq prop + (if (get-text-property pos 'part-token) 'part-token 'block-token)) + (setq pair (web-mode-property-boundaries prop pos)) + (when (and pair (> (- (cdr pair) (car pair)) 6)) + (setq fill-coll (if (< fill-column 10) 70 fill-column)) + (setq beg (car pair) + end (cdr pair)) + (goto-char beg) + (setq chunk (buffer-substring-no-properties beg (+ beg 2))) + (cond + ((string= chunk "//") + (setq delim-beg "//" + delim-end "EOL")) + ((string= chunk "/*") + (setq delim-beg "/*" + delim-end "*/")) + ((string= chunk "{#") + (setq delim-beg "{#" + delim-end "#}")) + ((string= chunk "")) + ) + ) + ) ;comment - case + ((web-mode-is-content) + (setq pair (web-mode-content-boundaries pos)) + (setq beg (car pair) + end (cdr pair)) + ) + ) ;cond + ;;(message "beg(%S) end(%S)" beg end) + (when (and beg end) + (fill-region beg end)) + t))) + +(defun web-mode-engine-syntax-check () + (interactive) + (let ((proc nil) (errors nil) + (file (concat temporary-file-directory "emacs-web-mode-tmp"))) + (write-region (point-min) (point-max) file) + (cond + ;; ((null (buffer-file-name)) + ;; ) + ((string= web-mode-engine "php") + (setq proc (start-process "php-proc" nil "php" "-l" file)) + (set-process-filter + proc + (lambda (_proc output) + (cond + ((string-match-p "No syntax errors" output) + (message "No syntax errors") + ) + (t + ;; (setq output (replace-regexp-in-string temporary-file-directory "" output)) + ;; (message output) + (message "Syntax error") + (setq errors t)) + ) ;cond + ;; (delete-file file) + ) ;lambda + ) + ) ;php + (t + (message "no syntax checker found") + ) ;t + ) ;cond + errors)) + +(defun web-mode-jshint () + "Run JSHint on all the JavaScript parts." + (interactive) + (let (proc) + (when (buffer-file-name) + (setq proc (start-process + "jshint-proc" + nil + (or (executable-find "jshint") "/usr/local/bin/jshint") + "--extract=auto" + (buffer-file-name))) + (setq web-mode-jshint-errors 0) + (set-process-filter proc + (lambda (_proc output) + (let ((offset 0) overlay pos (old 0) msg) + (remove-overlays (point-min) (point-max) 'font-lock-face 'web-mode-error-face) + (while (string-match + "line \\([[:digit:]]+\\), col \\([[:digit:]]+\\), \\(.+\\)\\.$" + output offset) + (setq web-mode-jshint-errors (1+ web-mode-jshint-errors)) + (setq offset (match-end 0)) + (setq pos (web-mode-coord-position + (match-string-no-properties 1 output) + (match-string-no-properties 2 output))) + (when (get-text-property pos 'tag-beg) + (setq pos (1- pos))) + (when (not (= pos old)) + (setq old pos) + (setq overlay (make-overlay pos (1+ pos))) + (overlay-put overlay 'font-lock-face 'web-mode-error-face) + ) + (setq msg (or (overlay-get overlay 'help-echo) + (concat "line=" + (match-string-no-properties 1 output) + " column=" + (match-string-no-properties 2 output) + ))) + (overlay-put overlay 'help-echo + (concat msg " ## " (match-string-no-properties 3 output))) + ) ;while + )) + ) + ) ;when + )) + +(defun web-mode-dom-errors-show () + "Show unclosed tags." + (interactive) + (let (beg end tag pos l tags i cont cell overlay overlays first + (ori (point)) + (errors 0) + (continue t) + ) + (setq overlays (overlays-in (point-min) (point-max))) + (when overlays + (dolist (overlay overlays) + (when (eq (overlay-get overlay 'face) 'web-mode-warning-face) + (delete-overlay overlay) + ) + ) + ) + (goto-char (point-min)) + (when (not (or (get-text-property (point) 'tag-beg) + (web-mode-tag-next))) + (setq continue nil)) + (while continue + (setq pos (point)) + (setq tag (get-text-property pos 'tag-name)) + (cond + ((eq (get-text-property (point) 'tag-type) 'start) + (setq tags (push (list tag pos) tags)) + ;; (message "(%S) opening %S" pos tag) + ) + ((eq (get-text-property (point) 'tag-type) 'end) + (setq i 0 + l (length tags) + cont t) + (while (and (< i l) cont) + (setq cell (nth i tags)) + ;; (message "cell=%S" cell) + (setq i (1+ i)) + (cond + ((string= tag (nth 0 cell)) + (setq cont nil) + ) + (t + (setq errors (1+ errors)) + (setq beg (nth 1 cell)) + (setq end (web-mode-tag-end-position beg)) + (unless first + (setq first beg)) + (setq overlay (make-overlay beg (1+ end))) + (overlay-put overlay 'font-lock-face 'web-mode-warning-face) + ;; (message "invalid <%S> at %S" (nth 0 cell) (nth 1 cell)) + ) + ) ;cond + ) ;while + + (dotimes (_i i) + (setq tags (cdr tags))) + + ) + ) ;cond + (when (not (web-mode-tag-next)) + (setq continue nil)) + ) ;while + (message "%S error(s) detected" errors) + (if (< errors 1) + (goto-char ori) + (goto-char first) + (recenter)) + ;; (message "%S" tags) + )) + +(defun web-mode-fontify-elements (beg end) + (save-excursion + (goto-char beg) + (let ((continue (or (get-text-property (point) 'tag-beg) (web-mode-tag-next))) + (i 0) (ctx nil) (face nil)) + (while continue + (cond + ((> (setq i (1+ i)) 1000) + (message "fontify-elements ** too much tags **") + (setq continue nil)) + ((> (point) end) + (setq continue nil)) + ((not (get-text-property (point) 'tag-beg)) + (setq continue nil)) + ((eq (get-text-property (point) 'tag-type) 'start) + (when (and (setq ctx (web-mode-element-boundaries (point))) + (<= (car (cdr ctx)) end) + (setq face (cdr (assoc (get-text-property (point) 'tag-name) web-mode-element-content-faces)))) + (font-lock-prepend-text-property (1+ (cdr (car ctx))) (car (cdr ctx)) + 'font-lock-face face)) + ) + ) ;cond + (when (not (web-mode-tag-next)) + (setq continue nil)) + ) ;while + ))) + +(defun web-mode-enable (feature) + "Enable one feature." + (interactive + (list (completing-read + "Feature: " + (let (features) + (dolist (elt web-mode-features) + (setq features (append features (list (car elt))))) + features)))) + (when (and (or (not feature) (< (length feature) 1)) web-mode-last-enabled-feature) + (setq feature web-mode-last-enabled-feature)) + (when feature + (setq web-mode-last-enabled-feature feature) + (setq feature (cdr (assoc feature web-mode-features))) + (cond + ((eq feature 'web-mode-enable-current-column-highlight) + (web-mode-column-show)) + ((eq feature 'web-mode-enable-current-element-highlight) + (when (not web-mode-enable-current-element-highlight) + (web-mode-toggle-current-element-highlight)) + ) + ((eq feature 'web-mode-enable-whitespace-fontification) + (web-mode-whitespaces-on)) + (t + (set feature t) + (web-mode-buffer-fontify)) + ) + ) ;when + ) + +(defun web-mode-disable (feature) + "Disable one feature." + (interactive + (list (completing-read + "Feature: " + (let (features) + (dolist (elt web-mode-features) + (setq features (append features (list (car elt))))) + features)))) + (when (and (or (not feature) (< (length feature) 1)) web-mode-last-enabled-feature) + (setq feature web-mode-last-enabled-feature)) + (when feature + (setq feature (cdr (assoc feature web-mode-features))) + (cond + ((eq feature 'web-mode-enable-current-column-highlight) + (web-mode-column-hide)) + ((eq feature 'web-mode-enable-current-element-highlight) + (when web-mode-enable-current-element-highlight + (web-mode-toggle-current-element-highlight)) + ) + ((eq feature 'web-mode-enable-whitespace-fontification) + (web-mode-whitespaces-off)) + (t + (set feature nil) + (web-mode-buffer-fontify)) + ) + ) ;when + ) + +(defun web-mode-toggle-current-element-highlight () + "Toggle highlighting of the current html element." + (interactive) + (if web-mode-enable-current-element-highlight + (progn + (web-mode-delete-tag-overlays) + (setq web-mode-enable-current-element-highlight nil)) + (setq web-mode-enable-current-element-highlight t) + )) + +(defun web-mode-make-tag-overlays () + (unless web-mode-overlay-tag-start + (setq web-mode-overlay-tag-start (make-overlay 1 1) + web-mode-overlay-tag-end (make-overlay 1 1)) + (overlay-put web-mode-overlay-tag-start + 'font-lock-face + 'web-mode-current-element-highlight-face) + (overlay-put web-mode-overlay-tag-end + 'font-lock-face + 'web-mode-current-element-highlight-face))) + +(defun web-mode-delete-tag-overlays () + (when web-mode-overlay-tag-start + (delete-overlay web-mode-overlay-tag-start) + (delete-overlay web-mode-overlay-tag-end))) + +(defun web-mode-column-overlay-factory (index) + (let (overlay) + (when (null web-mode-column-overlays) + (dotimes (_i 100) + (setq overlay (make-overlay 1 1)) + (overlay-put overlay 'font-lock-face 'web-mode-current-column-highlight-face) + (setq web-mode-column-overlays (append web-mode-column-overlays (list overlay))) + ) + ) ;when + (setq overlay (nth index web-mode-column-overlays)) + (when (null overlay) + (setq overlay (make-overlay 1 1)) + (overlay-put overlay 'font-lock-face 'web-mode-current-column-highlight-face) + (setq web-mode-column-overlays (append web-mode-column-overlays (list overlay))) + ) ;when + overlay)) + +(defun web-mode-column-hide () + (setq web-mode-enable-current-column-highlight nil) + (remove-overlays (point-min) (point-max) + 'font-lock-face + 'web-mode-current-column-highlight-face)) + +(defun web-mode-count-invisible-character-ranges (min max) + (interactive "r") + (let ((count 0) (current-pos min)) + (save-excursion + (while (<= current-pos max) + (goto-char current-pos) + (if (get-text-property current-pos 'invisible) + (progn + (setq count (1+ count)) + (setq current-pos (1+ current-pos)) + (while (and (<= current-pos max) + (get-text-property current-pos 'invisible)) + (setq current-pos (1+ current-pos)))) + (setq current-pos (1+ current-pos))))) + count)) + +(defun web-mode-column-show () + (let ((index 0) overlay diff column line-to line-from line-delta last-line-no) + (web-mode-column-hide) + (setq web-mode-enable-current-column-highlight t) + (save-excursion ;;save-mark-and-excursion + (back-to-indentation) + (setq column (current-column) + line-to (web-mode-line-number)) + (when (and (get-text-property (point) 'tag-beg) + (member (get-text-property (point) 'tag-type) '(start end)) + (web-mode-tag-match) + (setq line-from (web-mode-line-number)) + (not (= line-from line-to))) + (when (> line-from line-to) + (let (tmp) + (setq tmp line-from) + (setq line-from line-to) + (setq line-to tmp)) + ) ;when + ;;(message "column(%S) line-from(%S) line-to(%S)" column line-from line-to) + (goto-char (point-min)) + (when (> line-from 1) + (forward-line (1- line-from))) + ;; Added by JMA + (save-excursion ;;save-mark-and-excursion + (let (start-point end-point) + (goto-line line-from) + (move-to-column column) + (setq start-point (point)) + (goto-line line-to) + (move-to-column column) + (setq end-point (point)) + (setq line-delta (count-lines start-point end-point t)) + (setq line-delta (+ line-delta (web-mode-count-invisible-character-ranges start-point end-point)))) + (setq line-to (+ line-from (1- line-delta)))) + ;(message (format "Currently at line: %d" (line-number-at-pos))) + (setq last-line-no (line-number-at-pos)) + ;; end JMA add + (while (<= line-from line-to) + (setq overlay (web-mode-column-overlay-factory index)) + (setq diff (- (line-end-position) (point))) + (cond + ((or (and (= column 0) (= diff 0)) + (> column diff)) + (end-of-line) + (move-overlay overlay (point) (point)) + (overlay-put overlay + 'after-string + (concat + (if (> column diff) (make-string (- column diff) ?\s) "") + (propertize " " + 'font-lock-face + 'web-mode-current-column-highlight-face) + ) ;concat + ) + ) + (t + (move-to-column column) + (overlay-put overlay 'after-string nil) + (move-overlay overlay (point) (1+ (point))) + ) + ) ;cond + (setq line-from (1+ line-from)) + (forward-line) + ;; JMA ADD + ;(message (format "Currently at line: %d" (line-number-at-pos))) + (if (not (= (1+ last-line-no) (line-number-at-pos))) + (delete-overlay overlay)) + (setq last-line-no (line-number-at-pos)) + ;; END JMA ADD + (setq index (1+ index)) + ) ;while + ) ;when + ) ;save-excursion + ) ;let + ) + +(defun web-mode-column-show2 () + (let ((index 0) overlay diff column line-to line-from) + (web-mode-column-hide) + (setq web-mode-enable-current-column-highlight t) + (save-excursion + (back-to-indentation) + (setq column (current-column) + line-to (web-mode-line-number)) + (when (and (get-text-property (point) 'tag-beg) + (member (get-text-property (point) 'tag-type) '(start end)) + (web-mode-tag-match) + (setq line-from (web-mode-line-number)) + (not (= line-from line-to))) + (when (> line-from line-to) + (let (tmp) + (setq tmp line-from) + (setq line-from line-to) + (setq line-to tmp)) + ) ;when + ;;(message "column(%S) line-from(%S) line-to(%S)" column line-from line-to) + (goto-char (point-min)) + (when (> line-from 1) + (forward-line (1- line-from))) + (while (<= line-from line-to) + (setq overlay (web-mode-column-overlay-factory index)) + (setq diff (- (line-end-position) (point))) + (cond + ((or (and (= column 0) (= diff 0)) + (> column diff)) + (end-of-line) + (move-overlay overlay (point) (point)) + (overlay-put overlay + 'after-string + (concat + (if (> column diff) (make-string (- column diff) ?\s) "") + (propertize " " + 'font-lock-face + 'web-mode-current-column-highlight-face) + ) ;concat + ) + ) + (t + (move-to-column column) + (overlay-put overlay 'after-string nil) + (move-overlay overlay (point) (1+ (point))) + ) + ) ;cond + (setq line-from (1+ line-from)) + (forward-line) + (setq index (1+ index)) + ) ;while + ) ;when + ) ;save-excursion + ) ;let + ) + +(defun web-mode-highlight-current-element () + (let ((ctx (web-mode-element-boundaries)) len) + (cond + ((null ctx) + (web-mode-delete-tag-overlays)) + ((eq (get-text-property (caar ctx) 'tag-type) 'void) ;; #1046 + (web-mode-make-tag-overlays) + (setq len (length (get-text-property (caar ctx) 'tag-name))) + (move-overlay web-mode-overlay-tag-start (+ (caar ctx) 1) (+ (caar ctx) 1 len)) + (move-overlay web-mode-overlay-tag-end (+ (cadr ctx) 1) (+ (cadr ctx) 1 len)) ;; #1257 + ) + (t + (web-mode-make-tag-overlays) + (setq len (length (get-text-property (caar ctx) 'tag-name))) + (move-overlay web-mode-overlay-tag-start (+ (caar ctx) 1) (+ (caar ctx) 1 len)) + (move-overlay web-mode-overlay-tag-end (+ (cadr ctx) 2) (+ (cadr ctx) 2 len)) + ) ;t + ) ;cond + )) + +(defun web-mode-fontify-whitespaces (beg end) + (save-excursion + (goto-char beg) + (while (re-search-forward web-mode-whitespaces-regexp end t) + (add-text-properties (match-beginning 0) (match-end 0) + '(face web-mode-whitespace-face)) + ) ;while + )) + +(defun web-mode-whitespaces-show () + "Toggle whitespaces." + (interactive) + (if web-mode-enable-whitespace-fontification + (web-mode-whitespaces-off) + (web-mode-whitespaces-on))) + +(defun web-mode-whitespaces-on () + "Show whitespaces." + (interactive) + (when web-mode-display-table + (setq buffer-display-table web-mode-display-table)) + (setq web-mode-enable-whitespace-fontification t)) + +(defun web-mode-whitespaces-off () + (setq buffer-display-table nil) + (setq web-mode-enable-whitespace-fontification nil)) + +(defun web-mode-use-tabs () + "Tweaks vars to be compatible with TAB indentation." + (let (offset) + (setq web-mode-block-padding 0) + (setq web-mode-script-padding 0) + (setq web-mode-style-padding 0) + (setq offset + (cond + ((and (boundp 'tab-width) tab-width) tab-width) + ((and (boundp 'standard-indent) standard-indent) standard-indent) + (t 4))) + ;; (message "offset(%S)" offset) + (setq web-mode-attr-indent-offset offset) + (setq web-mode-code-indent-offset offset) + (setq web-mode-css-indent-offset offset) + (setq web-mode-markup-indent-offset offset) + (setq web-mode-sql-indent-offset offset) + (add-to-list 'web-mode-indentation-params '("lineup-args" . nil)) + (add-to-list 'web-mode-indentation-params '("lineup-calls" . nil)) + (add-to-list 'web-mode-indentation-params '("lineup-concats" . nil)) + (add-to-list 'web-mode-indentation-params '("lineup-ternary" . nil)) + )) + +(defun web-mode-element-children-fold-or-unfold (&optional pos) + "Fold/Unfold all the children of the current html element." + (interactive) + (unless pos (setq pos (point))) + (save-excursion + (dolist (child (reverse (web-mode-element-children pos))) + (goto-char child) + (web-mode-fold-or-unfold)) + )) + +(defun web-mode-fold-or-unfold (&optional pos) + "Toggle folding on an html element or a control block." + (interactive) + (web-mode-scan) + (web-mode-with-silent-modifications + (save-excursion + (if pos (goto-char pos)) + (let (beg-inside beg-outside end-inside end-outside overlay overlays) + (when (looking-back "^[\t ]*" (point-min)) + (back-to-indentation)) + (setq overlays (overlays-at (point))) + (dolist (elt overlays) + (when (and (not overlay) + (eq (overlay-get elt 'font-lock-face) 'web-mode-folded-face)) + (setq overlay elt))) + (cond + ;; *** unfolding + (overlay + (setq beg-inside (overlay-start overlay) + end-inside (overlay-end overlay)) + (remove-overlays beg-inside end-inside) + (put-text-property beg-inside end-inside 'invisible nil) + ) + ;; *** block folding + ((and (get-text-property (point) 'block-side) + (cdr (web-mode-block-is-control (point)))) + (setq beg-outside (web-mode-block-beginning-position (point))) + (setq beg-inside (1+ (web-mode-block-end-position (point)))) + (when (web-mode-block-match) + (setq end-inside (point)) + (setq end-outside (1+ (web-mode-block-end-position (point))))) + ) + ;; *** html comment folding + ((eq (get-text-property (point) 'tag-type) 'comment) + (setq beg-outside (web-mode-tag-beginning-position)) + (setq beg-inside (+ beg-outside 4)) + (setq end-outside (web-mode-tag-end-position)) + (setq end-inside (- end-outside 3)) + ) + ;; *** tag folding + ((or (member (get-text-property (point) 'tag-type) '(start end)) + (web-mode-element-parent)) + (when (not (web-mode-element-is-collapsed (point))) + (web-mode-tag-beginning) + (when (eq (get-text-property (point) 'tag-type) 'end) + (web-mode-tag-match)) + (setq beg-outside (point)) + (web-mode-tag-end) + (setq beg-inside (point)) + (goto-char beg-outside) + (when (web-mode-tag-match) + (setq end-inside (point)) + (web-mode-tag-end) + (setq end-outside (point))) + ) + ) + ) ;cond + (when (and beg-inside beg-outside end-inside end-outside) + (setq overlay (make-overlay beg-outside end-outside)) + (overlay-put overlay 'font-lock-face 'web-mode-folded-face) + (put-text-property beg-inside end-inside 'invisible t)) + )))) + +;;---- TRANSFORMATION ---------------------------------------------------------- + +(defun web-mode-buffer-change-tag-case (&optional type) + "Change html tag case." + (interactive) + (save-excursion + (goto-char (point-min)) + (let ((continue t) f) + (setq f (if (member type '("upper" "uppercase" "upper-case")) 'uppercase 'downcase)) + (when (and (not (get-text-property (point) 'tag-beg)) + (not (web-mode-tag-next))) + (setq continue nil)) + (while continue + (skip-chars-forward " and < in html content." + (interactive) + (save-excursion + (let ((min (point-min)) (max (point-max))) + (when mark-active + (setq min (region-beginning) + max (region-end)) + (deactivate-mark)) + (goto-char min) + (while (web-mode-content-rsf "[&<>]" max) + (replace-match (cdr (assq (char-before) web-mode-xml-chars)) t t)) + ))) + +(defun web-mode-dom-quotes-replace () + "Replace dumb quotes." + (interactive) + (save-excursion + (let (expr (min (point-min)) (max (point-max))) + (when mark-active + (setq min (region-beginning) + max (region-end)) + (deactivate-mark)) + (goto-char min) + (setq expr (concat (car web-mode-smart-quotes) "\\2" (cdr web-mode-smart-quotes))) + (while (web-mode-content-rsf "\\(\"\\)\\(.\\{1,200\\}\\)\\(\"\\)" max) + (replace-match expr) + ) ;while + ))) + +;;---- INDENTATION ------------------------------------------------------------- + +;; todo : passer de règle en règle et mettre un \n à la fin +(defun web-mode-css-indent () + (save-excursion + (goto-char (point-min)) + (let ((continue t) part-end) + (while continue + (cond + ((not (web-mode-part-next)) + (setq continue nil)) + ((eq (get-text-property (point) 'part-side) 'css) + (setq part-end (web-mode-part-end-position)) + (while (web-mode-css-rule-next part-end) + (when (not (looking-at-p "[[:space:]]*\\($\\|<\\)")) + (newline) + (indent-according-to-mode) + (setq part-end (web-mode-part-end-position))) + ) + ) + ) ;cond + ) + ))) + +(defun web-mode-buffer-indent () + "Indent all buffer." + (interactive) + (let ((debug t) (ts (current-time)) (sub nil)) + (indent-region (point-min) (point-max)) + (when debug + (setq sub (time-subtract (current-time) ts)) + (message "buffer-indent: time elapsed = %Ss %9Sµs" (nth 1 sub) (nth 2 sub))) + (delete-trailing-whitespace))) + +(defun web-mode-point-context (pos) + "POS should be at the beginning of the indentation." + (save-excursion + (let (curr-char curr-indentation curr-line + language + options + reg-beg reg-col + prev-char prev-indentation prev-line prev-pos + token + part-language + depth) + + (setq reg-beg (point-min) + reg-col 0 + token "live" + options "" + language "" + prev-line "" + prev-char 0 + prev-pos nil + prev-line-end nil) + + (when (get-text-property pos 'part-side) + (setq part-language (symbol-name (get-text-property pos 'part-side)))) + + ;;(message "part-language=%S" part-language) + + (cond + + ((and (bobp) (member web-mode-content-type '("html" "xml"))) + (setq language web-mode-content-type) + ) + + ((string= web-mode-content-type "css") + (setq language "css" + curr-indentation web-mode-css-indent-offset)) + + ((member web-mode-content-type '("javascript" "json" "typescript")) + (setq language web-mode-content-type + curr-indentation web-mode-code-indent-offset)) + + ((or (string= web-mode-content-type "jsx") + (and part-language (string= part-language "jsx"))) + (setq language "jsx" + curr-indentation web-mode-code-indent-offset) + (cond + ((web-mode-jsx-is-html pos) + (setq curr-indentation web-mode-markup-indent-offset + options "is-html")) + ((and (setq depth (get-text-property pos 'jsx-depth)) (> depth 1)) + (when (get-text-property pos 'jsx-beg) + (setq depth (1- depth))) + (setq reg-beg (web-mode-jsx-depth-beginning-position pos depth)) + (setq reg-beg (1+ reg-beg)) + ;;(message "%S" (point)) + (save-excursion + (goto-char reg-beg) + ;;(message "pt=%S" reg-beg) + (cond + ((and (not (looking-at-p "[ ]*$")) + (looking-back "^[[:space:]]*{" (point-min))) + (setq reg-col (+ (current-indentation) ;; #1027 + (cond + ((looking-at "[ ]+") (1+ (length (match-string-no-properties 0)))) + (t 0)) + )) + ) + ((looking-at-p "[ ]*\\[[ ]*$") ;; #0659 + (setq reg-col (current-indentation)) + ) + ((and (looking-back "=[ ]*{" (point-min)) ;; #0739 #1022 + (not (looking-at-p "[[:space:]]*<"))) + (setq reg-col (current-indentation)) + ) + ;;((and (looking-back "=[ ]*{" (point-min)) ;; #0739 + ;; (looking-at-p "{[ ]*")) + ;; (setq reg-col (current-indentation)) + ;; ) + ((get-text-property (1- (point)) 'tag-beg) + ;;(message "point=%S" (point)) + (setq reg-col (current-indentation)) + ) + (t + (message "%S : %S %S" (point) (current-indentation) web-mode-code-indent-offset) + ;;(setq reg-col (+ (current-indentation) web-mode-code-indent-offset web-mode-jsx-expression-padding))) + (setq reg-col (+ (current-indentation) web-mode-code-indent-offset))) + ) + + ;;(message "%S %S %S" (point) (current-indentation) reg-col) + ) ;save-excursion + ) + ((string= web-mode-content-type "jsx") + (setq reg-beg (point-min))) + (t + (setq reg-beg (or (web-mode-part-beginning-position pos) (point-min))) + (save-excursion + (goto-char reg-beg) + (search-backward "<" nil t) + (setq reg-col (current-column)) + ) ;save-excursion + ) + ) ;cond + ;;(message "jsx reg-beg=%S" reg-beg) + ) ;jsx + + ((string= web-mode-content-type "php") + (setq language "php" + curr-indentation web-mode-code-indent-offset)) + + ((or (string= web-mode-content-type "xml")) + (setq language "xml" + curr-indentation web-mode-markup-indent-offset)) + + ;; TODO: est ce util ? + ((and (get-text-property pos 'tag-beg) + (get-text-property pos 'tag-name) + ;;(not (get-text-property pos 'part-side)) + ) + (setq language "html" + curr-indentation web-mode-markup-indent-offset)) + + ((and (get-text-property pos 'block-side) + (not (get-text-property pos 'block-beg))) + + (setq reg-beg (or (web-mode-block-beginning-position pos) (point-min))) + (goto-char reg-beg) + (setq reg-col (current-column)) + ;;(message "%S %S" reg-beg reg-col) + (setq language web-mode-engine) + (setq curr-indentation web-mode-code-indent-offset) + + (cond + ((string= web-mode-engine "blade") + (save-excursion + (when (web-mode-rsf "{[{!]+[ ]*\\|@props[ ]*[(]") ;; #1318 + (setq reg-col (current-column)))) + (setq reg-beg (+ reg-beg 2)) + ) + ((string= web-mode-engine "razor") + ;;(setq reg-beg (+ reg-beg 2)) + ;;(setq reg-col (current-column)) + ) + ;; tests/demo.chtml + ((string= web-mode-engine "ctemplate") + (save-excursion + (when (web-mode-rsf "{{#?") + (setq reg-col (current-column)))) + ) + ((string= web-mode-engine "dust") + (save-excursion + (when (web-mode-rsf "{@") + (setq reg-col (current-column)))) + ) + ((string= web-mode-engine "svelte") + (save-excursion + (when (web-mode-rsf "{@") + (setq reg-col (current-column)))) + ) + ((string= web-mode-engine "template-toolkit") + (setq reg-beg (+ reg-beg 3) + reg-col (+ reg-col 3)) + ) + ((and (string= web-mode-engine "jsp") + (web-mode-looking-at "<%@" reg-beg)) + (save-excursion + (goto-char reg-beg) + (looking-at "<%@[ ]*[[:alpha:]]+[ ]+\\| pos (point-min)) + (eq (get-text-property pos 'part-token) 'comment) + (eq (get-text-property (1- pos) 'part-token) 'comment) + (progn + (setq reg-beg (previous-single-property-change pos 'part-token)) + t)) + (and (> pos (point-min)) + (eq (get-text-property pos 'block-token) 'comment) + (eq (get-text-property (1- pos) 'block-token) 'comment) + (progn + (setq reg-beg (previous-single-property-change pos 'block-token)) + t)) + (and (> pos (point-min)) + (eq (get-text-property pos 'tag-type) 'comment) + (not (get-text-property pos 'tag-beg)) + (progn + (setq reg-beg (web-mode-tag-beginning-position pos)) + t)) + ) + (setq token "comment")) + ((or (and (> pos (point-min)) + (member (get-text-property pos 'part-token) + '(string context key)) + (member (get-text-property (1- pos) 'part-token) + '(string context key))) + (and (eq (get-text-property pos 'block-token) 'string) + (eq (get-text-property (1- pos) 'block-token) 'string))) + (setq token "string")) + ) + + (goto-char pos) + (setq curr-line (web-mode-trim + (buffer-substring-no-properties + (line-beginning-position) + (line-end-position)))) + (setq curr-char (if (string= curr-line "") 0 (aref curr-line 0))) + + (when (or (member language '("php" "blade" "javascript" "typescript" "jsx" "razor" "css")) + (and (member language '("html" "xml")) + (not (eq ?\< curr-char)))) + (let (prev) + (cond + ((member language '("html" "xml" "javascript" "typescript" "jsx" "css")) + (when (setq prev (web-mode-part-previous-live-line reg-beg)) + (setq prev-line (nth 0 prev) + prev-indentation (nth 1 prev) + prev-pos (nth 2 prev) + prev-line-end (nth 3 prev)) + ) + ) + ((setq prev (web-mode-block-previous-live-line)) + (setq prev-line (nth 0 prev) + prev-indentation (nth 1 prev) + prev-pos (nth 2 prev) + prev-line-end (nth 3 prev)) + (setq prev-line (web-mode-clean-block-line prev-line))) + ) ;cond + ) ;let + (when (>= (length prev-line) 1) + (setq prev-char (aref prev-line (1- (length prev-line)))) + (setq prev-line (substring-no-properties prev-line)) + ) + ) + + (cond + ((not (member web-mode-content-type '("html" "xml"))) + ) + ((member language '("javascript" "typescript" "jsx" "ruby")) + (setq reg-col (if web-mode-script-padding (+ reg-col web-mode-script-padding) 0))) + ((member language '("css" "sql" "markdown" "pug" "sass" "stylus")) + (setq reg-col (if web-mode-style-padding (+ reg-col web-mode-style-padding) 0))) + ((not (member language '("html" "xml"))) + (setq reg-col + (cond + ((not web-mode-block-padding) reg-col) + ((eq web-mode-block-padding -1) 0) + (t (+ reg-col web-mode-block-padding)) + ) ;cond + ) ;setq + ) + ) + + (list :curr-char curr-char + :curr-indentation curr-indentation + :curr-line curr-line + :language language + :options options + :prev-char prev-char + :prev-indentation prev-indentation + :prev-line prev-line + :prev-line-end prev-line-end + :prev-pos prev-pos + :reg-beg reg-beg + :reg-col reg-col + :token token) + ))) + +(defun web-mode-indent-line () + + (web-mode-scan) + + (let ((offset nil) + (char nil) + (debug nil) + (inhibit-modification-hooks nil) + (adjust t)) + + (save-excursion + (back-to-indentation) + (setq char (char-after)) + (let* ((pos (point)) + (ctx (web-mode-point-context pos)) + (curr-char (plist-get ctx :curr-char)) + (curr-indentation (plist-get ctx :curr-indentation)) + (curr-line (plist-get ctx :curr-line)) + (language (plist-get ctx :language)) + (prev-char (plist-get ctx :prev-char)) + (prev-indentation (plist-get ctx :prev-indentation)) + (prev-line (plist-get ctx :prev-line)) + (prev-line-end (plist-get ctx :prev-line-end)) + (prev-pos (plist-get ctx :prev-pos)) + (reg-beg (plist-get ctx :reg-beg)) + (reg-col (plist-get ctx :reg-col)) + (token (plist-get ctx :token)) + (options (plist-get ctx :options)) + (chars (list curr-char prev-char)) + (tmp nil) + (is-js (member language '("javascript" "jsx" "ejs" "typescript")))) + + (when (member language '("json" "typescript")) + (setq language "javascript")) + + ;;(message "%S %S" (plist-get ctx :language) language) + ;;(message "curr-char=[%c] prev-char=[%c]\n%S" curr-char prev-char ctx) + ;;(message "options=%S" ctx) + + (cond + + ((or (bobp) (= (line-number-at-pos pos) 1)) + (when debug (message "I100(%S) first line" pos)) + (setq offset 0)) + + ;; #123 #1145 + ((and web-mode-enable-front-matter-block + (eq (char-after (point-min)) ?\-) + (or (looking-at-p "---") + (search-forward "---" (point-max) t))) + (when debug (message "I108(%S) front-matter-block" pos)) + (setq offset nil)) + + ;; #1073 + ((get-text-property pos 'invisible) + (when debug (message "I110(%S) invible" pos)) + (setq offset nil)) + + ((string= token "string") + (when debug (message "I120(%S) string" pos)) + (cond + ((web-mode-is-token-end pos) + (if (get-text-property pos 'block-side) + (web-mode-block-token-beginning) + (web-mode-part-token-beginning)) + (setq offset (current-indentation)) + ) + ((and web-mode-enable-sql-detection + (web-mode-block-token-starts-with (concat "[ \n]*" web-mode-sql-queries))) + (save-excursion + (let (col) + (web-mode-block-string-beginning) + (skip-chars-forward "[ \"'\n]") + (setq col (current-column)) + (goto-char pos) + (if (looking-at-p "\\(SELECT\\|INSERT\\|DELETE\\|UPDATE\\|FROM\\|LEFT\\|JOIN\\|WHERE\\|GROUP BY\\|LIMIT\\|HAVING\\|\)\\)") + (setq offset col) + (setq offset (+ col web-mode-sql-indent-offset))) + ) + ) ;save-excursion + ) + ((and is-js + (web-mode-is-ql-string pos "Relay\.QL")) + (setq offset (web-mode-relayql-indentation pos)) + ) + ((and is-js + (web-mode-is-ql-string pos "gql")) + (setq offset (web-mode-relayql-indentation pos "gql")) + ) + ((and is-js + (web-mode-is-ql-string pos "graphql")) + (setq offset (web-mode-relayql-indentation pos "graphql")) + ) + ((and is-js + (web-mode-is-css-string pos)) + (when debug (message "I127(%S) css string" pos)) + (setq offset (web-mode-token-css-indentation pos)) + ) + ((and is-js + (web-mode-is-html-string pos)) + (when debug (message "I128(%S) html string" pos)) + (setq offset (web-mode-token-html-indentation pos)) + ) + (t + (setq offset nil)) + ) ;cond + ) ;case string + + ((string= token "comment") + (when debug (message "I130(%S) comment" pos)) + (if (eq (get-text-property pos 'tag-type) 'comment) + (web-mode-tag-beginning) + (goto-char (car + (web-mode-property-boundaries + (if (eq (get-text-property pos 'part-token) 'comment) + 'part-token + 'block-token) + pos)))) + (setq offset (current-column)) + (cond + ((string= web-mode-engine "freemarker") + (setq offset (+ (current-indentation) 2))) + ((member (buffer-substring-no-properties (point) (+ (point) 2)) '("/*" "{*" "@*")) + (cond + ((eq ?\* curr-char) + (setq offset (+ offset 1))) + (t + (setq offset (+ offset 3))) + ) ;cond + ) + ((string= (buffer-substring-no-properties (point) (+ (point) 4)) "" curr-line) + (setq offset offset)) + ((string-match-p "^-" curr-line) + (setq offset (+ offset 3))) + (t + (setq offset (+ offset web-mode-markup-comment-indent-offset))) + ) ;cond + ) + ((and (string= web-mode-engine "django") (looking-back "{% comment %}" (point-min))) + (setq offset (- offset 12))) + ((and (string= web-mode-engine "mako") (looking-back "<%doc%>" (point-min))) + (setq offset (- offset 6))) + ((and (string= web-mode-engine "mason") (looking-back "<%doc%>" (point-min))) + (setq offset (- offset 6))) + ) ;cond + ) ;case comment + + ((and (string= web-mode-engine "mason") + (string-match-p "^%" curr-line)) + (when debug (message "I140(%S) mason" pos)) + (setq offset 0)) + + ((and (string= web-mode-engine "razor") + (string-match-p "^\\([{}]\\|else\\)" curr-line)) + (when debug (message "I142(%S) razor" pos)) + (save-excursion + (web-mode-block-previous) + (setq offset (current-indentation)) + )) + + ((and (string= web-mode-engine "django") + (string-match-p "^#" curr-line)) + (when debug (message "I144(%S) django line statements" pos)) + (setq offset 0)) + + ((and (get-text-property pos 'block-beg) + (or (web-mode-block-is-close pos) + (web-mode-block-is-inside pos))) + (when debug (message "I150(%S) block-match" pos)) + (cond + ((not (web-mode-block-match)) + ) + ((and (string= web-mode-engine "closure") + (string-match-p "{\\(case\\|default\\)" curr-line)) + (setq offset (+ (current-indentation) web-mode-markup-indent-offset))) + (t + (setq offset (current-indentation)) + (if (and (string= web-mode-engine "blade") + (string-match-p "@break" curr-line)) + (setq offset (+ (current-indentation) offset))) + ) + ) ;cond + ) + + ((eq (get-text-property pos 'block-token) 'delimiter-end) + (when debug (message "I160(%S) block-beginning" pos)) + (when (web-mode-block-beginning) + (setq reg-col (current-indentation)) + (setq offset (current-column)))) + + ((or (and (get-text-property pos 'tag-beg) + (eq (get-text-property pos 'tag-type) 'end)) + (and (eq (get-text-property pos 'tag-type) 'comment) + (string-match-p "" (point)) + (web-mode-insert-text-at-pos "" (point)) + (web-mode-insert-text-at-pos "") + (search-backward " -->") + ) ;case html + ) ;cond + )) + +(defun web-mode-comment (pos) + (let (ctx language col sel beg end block-side single-line-block pos-after content) + + (setq pos-after pos) + + (setq block-side (get-text-property pos 'block-side)) + (setq single-line-block (web-mode-is-single-line-block pos)) + + (cond + + ((and block-side (string= web-mode-engine "erb")) + (web-mode-comment-erb-block pos) + ) + + ((and block-side (string= web-mode-engine "artanis")) + (web-mode-comment-artanis-block pos) + ) + + ((and single-line-block block-side + (intern-soft (concat "web-mode-comment-" web-mode-engine "-block"))) + (funcall (intern (concat "web-mode-comment-" web-mode-engine "-block")) pos) + ) + + (t + (setq ctx (web-mode-point-context + (if mark-active (region-beginning) (line-beginning-position)))) + ;;(message "%S" ctx) + (setq language (plist-get ctx :language)) + (setq col (current-column)) + (cond + (mark-active + ;;(message "%S %S" (point) col) + ) + ((and (member language '("html" "xml")) + (get-text-property (progn (back-to-indentation) (point)) 'tag-beg)) + (web-mode-element-select)) + (t + (end-of-line) + (set-mark (line-beginning-position))) + ) ;cond + + (setq beg (region-beginning) + end (region-end)) + + (when (> (point) (mark)) + (exchange-point-and-mark)) + + (if (and (eq (char-before end) ?\n) + (not (eq (char-after end) ?\n))) + (setq end (1- end))) + + (setq sel (buffer-substring-no-properties beg end)) + + (cond + + ((member language '("html" "xml")) + (cond + ((and (= web-mode-comment-style 2) (string= web-mode-engine "django")) + (setq content (concat "{# " sel " #}"))) + ((and (= web-mode-comment-style 2) (member web-mode-engine '("ejs" "erb"))) + (setq content (concat "<%# " sel " %>"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "artanis")) + (setq content (concat "<%; " sel " %>"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "aspx")) + (setq content (concat "<%-- " sel " --%>"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "smarty")) + (setq content (concat "{* " sel " *}"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "expressionengine")) + (setq content (concat "{!-- " sel " --}"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "xoops")) + (setq content (concat "<{* " sel " *}>"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "hero")) + (setq content (concat "<%# " sel " %>"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "blade")) + (setq content (concat "{{-- " sel " --}}"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "ctemplate")) + (setq content (concat "{{!-- " sel " --}}"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "antlers")) + (setq content (concat "{{# " sel " #}}"))) + ((and (= web-mode-comment-style 2) (string= web-mode-engine "razor")) + (setq content (concat "@* " sel " *@"))) + (t + (setq content (concat "")) + (when (< (length sel) 1) + (search-backward " -->") + (setq pos-after nil)) + )) + ) ;case html + + ((member language '("php" "javascript" "typescript" "java" "jsx")) + (let (alt) + (setq alt (cdr (assoc language web-mode-comment-formats))) + ;;(message "language=%S alt=%S sel=%S col=%S" language alt sel col) + (cond + ((and alt (string= alt "//")) + (setq content (replace-regexp-in-string (concat "\n[ ]\\{" (number-to-string col) "\\}") "\n" sel)) + (setq content (replace-regexp-in-string (concat "\n") "\n// " content)) + (setq content (concat "// " content))) + ((get-text-property pos 'jsx-depth) + (setq content (concat "{/* " sel " */}"))) + (web-mode-comment-prefixing + (setq content (replace-regexp-in-string (concat "\n[ ]\\{" (number-to-string col) "\\}") "\n* " sel)) + (setq content (concat "/* " content " */"))) + (t + (setq content (concat "/* " sel " */"))) + ) ;cond + ) ;let + ) + + ((member language '("erb")) + (setq content (replace-regexp-in-string "^[ ]*" "#" sel))) + + ((member language '("asp")) + (setq content (replace-regexp-in-string "^[ ]*" "'" sel))) + + (t + (setq content (concat "/* " sel " */"))) + + ) ;cond + + (when content + (delete-region beg end) + (deactivate-mark) + (let (beg end) + (setq beg (line-beginning-position)) + (insert content) + (setq end (line-end-position)) + (indent-region beg end) + ) + ) ;when + + ) ;t + ) ;cond + + (when pos-after (goto-char pos-after)) + + )) + +(defun web-mode-comment-ejs-block (pos) + (let (beg) + (setq beg (web-mode-block-beginning-position pos)) + (web-mode-insert-text-at-pos "//" (+ beg 2)))) + +(defun web-mode-comment-erb-block (pos) + (let (beg) + (setq beg (web-mode-block-beginning-position pos)) + (web-mode-insert-text-at-pos "#" (+ beg 2)))) + +(defun web-mode-comment-artanis-block (pos) + (let (beg) + (setq beg (web-mode-block-beginning-position pos)) + (web-mode-insert-text-at-pos ";" (+ beg 2)))) + +(defun web-mode-comment-django-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-insert-text-at-pos "#" end) + (web-mode-insert-text-at-pos "#" (1+ beg)))) + +(defun web-mode-comment-dust-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-insert-text-at-pos "!" end) + (web-mode-insert-text-at-pos "!" (1+ beg)))) + +(defun web-mode-comment-aspx-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-insert-text-at-pos "#" end) + (web-mode-insert-text-at-pos "#" (1+ beg)))) + +(defun web-mode-comment-jsp-block (pos) + (let (beg) + (setq beg (web-mode-block-beginning-position pos)) + (web-mode-insert-text-at-pos "--" (+ beg 2)))) + +(defun web-mode-comment-go-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-insert-text-at-pos "*/" (1- end)) + (web-mode-insert-text-at-pos "/*" (+ beg (if (web-mode-looking-at "{{" beg) 2 0))))) + +(defun web-mode-comment-php-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-insert-text-at-pos "*/" (- end 2)) + (web-mode-insert-text-at-pos "/*" (+ beg 1 (if (web-mode-looking-at "<\\?php" beg) 5 3))))) + +(defun web-mode-comment-svelte-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-insert-text-at-pos "!" end) + (web-mode-insert-text-at-pos "!" (1+ beg)))) + +(defun web-mode-comment-boundaries (&optional pos) + (interactive) + (unless pos (setq pos (point))) + (let ((beg pos) (end pos) prop) + (save-excursion + (goto-char pos) + (setq prop + (cond + ((eq (get-text-property pos 'block-token) 'comment) 'block-token) + ((eq (get-text-property pos 'tag-type) 'comment) 'tag-type) + ((eq (get-text-property pos 'part-token) 'comment) 'part-token) + (t nil) + )) + (if (null prop) + (setq beg nil + end nil) + (when (and (not (bobp)) + (eq (get-text-property pos prop) (get-text-property (1- pos) prop))) + (setq beg (or (previous-single-property-change pos prop) (point-min)))) + (when (and (not (eobp)) + (eq (get-text-property pos prop) (get-text-property (1+ pos) prop))) + (setq end (or (next-single-property-change pos prop) (point-max))))) + (message "beg(%S) end(%S) point-max(%S)" beg end (point-max)) + (when (and beg (string= (buffer-substring-no-properties beg (+ beg 2)) "//")) + (goto-char end) + (while (and (looking-at-p "\n[ ]*//") + (not (eobp))) + (search-forward "//") + (backward-char 2) + ;;(message "%S" (point)) + (setq end (next-single-property-change (point) prop)) + (goto-char end) + ;;(message "%S" (point)) + ) ;while + ) ;when + ;;(when end (setq end (1- end))) ;; #1021 + ) ;save-excursion + ;;(message "beg=%S end=%S" beg end) + (if (and beg end) (cons beg end) nil) + )) + +(defun web-mode-uncomment (pos) + (let ((beg pos) (end pos) (sub2 "") comment boundaries) + (save-excursion + (cond + ((and (get-text-property pos 'block-side) + (intern-soft (concat "web-mode-uncomment-" web-mode-engine "-block"))) + (funcall (intern (concat "web-mode-uncomment-" web-mode-engine "-block")) pos)) + ((and (setq boundaries (web-mode-comment-boundaries pos)) + (setq beg (car boundaries)) + (setq end (1+ (cdr boundaries))) + (> (- end beg) 4)) + (when (and (eq (get-text-property beg 'part-token) 'comment) + (> beg 1) ;#1158 + (get-text-property (1- beg) 'jsx-beg)) + (setq beg (1- beg) + end (1+ end))) + (setq comment (buffer-substring-no-properties beg end)) + (setq sub2 (substring comment 0 2)) + (cond + ((member sub2 '("$\\)" "" comment))) + ((string= sub2 "{#") + (setq comment (replace-regexp-in-string "\\(^{#[ ]?\\|[ ]?#}$\\)" "" comment))) + ((string= sub2 "{/") ;jsx comments + (setq comment (replace-regexp-in-string "\\(^{/\\*[ ]?\\|[ ]?\\*/}$\\)" "" comment))) + ((string= sub2 "/*") + ;;(message "%S" comment) + ;;(setq comment (replace-regexp-in-string "\\(\\*/\\|^/\\*[ ]?\\|^[ \t]*\\*\\)" "" comment)) + (setq comment (replace-regexp-in-string "\\([ ]?\\*/$\\|^/\\*[ ]?\\)" "" comment)) + (setq comment (replace-regexp-in-string "\\(^[ \t]*\\*\\)" "" comment)) + ;;(message "%S" comment) + ) + ((string= sub2 "''") + (setq comment (replace-regexp-in-string "''" "" comment))) + ((string= sub2 "//") + (setq comment (replace-regexp-in-string "^ *//" "" comment))) + ) ;cond + (delete-region beg end) + (web-mode-insert-and-indent comment) + (goto-char beg) + ) + ) ;cond + (indent-according-to-mode) + ))) + +(defun web-mode-uncomment-erb-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (cond + ((string= (buffer-substring-no-properties beg (+ beg 4)) "<%#=") + (web-mode-remove-text-at-pos 1 (+ beg 2))) + ((string-match-p "<[%[:alpha:]]" (buffer-substring-no-properties (+ beg 2) (- end 2))) + (web-mode-remove-text-at-pos 2 (1- end)) + (web-mode-remove-text-at-pos 3 beg)) + (t + (web-mode-remove-text-at-pos 1 (+ beg 2))) + ) ;cond + ) + ) + +(defun web-mode-uncomment-artanis-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (cond + ((string= (buffer-substring-no-properties beg (+ beg 4)) "<%;=") + (web-mode-remove-text-at-pos 1 (+ beg 2))) + ((string-match-p "<[%[:alpha:]]" (buffer-substring-no-properties (+ beg 2) (- end 2))) + (web-mode-remove-text-at-pos 2 (1- end)) + (web-mode-remove-text-at-pos 3 beg)) + (t + (web-mode-remove-text-at-pos 1 (+ beg 2))) + ) ;cond + ) + ) + +(defun web-mode-uncomment-ejs-block (pos) + (let (beg) + (setq beg (web-mode-block-beginning-position pos)) + (web-mode-remove-text-at-pos 1 (+ beg 2)))) + +(defun web-mode-uncomment-django-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (cond + ((web-mode-looking-at-p "{#[{%]" beg) + (web-mode-remove-text-at-pos 1 (1- end)) + (web-mode-remove-text-at-pos 1 (1+ beg)) + ) + (t + (web-mode-remove-text-at-pos 2 (1- end)) + (web-mode-remove-text-at-pos 2 beg)) + ) ;cond + )) + +(defun web-mode-uncomment-ctemplate-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-remove-text-at-pos 5 (- end 4)) + (web-mode-remove-text-at-pos 5 beg))) + +(defun web-mode-uncomment-antlers-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-remove-text-at-pos 3 (- end 2)) + (web-mode-remove-text-at-pos 3 beg))) + +(defun web-mode-uncomment-dust-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-remove-text-at-pos 1 (1- end)) + (web-mode-remove-text-at-pos 1 (1+ beg)))) + +(defun web-mode-uncomment-aspx-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-remove-text-at-pos 1 (1- end)) + (web-mode-remove-text-at-pos 1 (1+ beg)))) + +(defun web-mode-uncomment-jsp-block (pos) + (let (beg) + (setq beg (web-mode-block-beginning-position pos)) + (web-mode-remove-text-at-pos 2 (+ beg 2)))) + +(defun web-mode-uncomment-go-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-remove-text-at-pos 2 (+ beg 2)) + (web-mode-remove-text-at-pos 2 (- end 5)))) + +(defun web-mode-uncomment-svelte-block (pos) + (let (beg end) + (setq beg (web-mode-block-beginning-position pos) + end (web-mode-block-end-position pos)) + (web-mode-remove-text-at-pos 1 (1- end)) + (web-mode-remove-text-at-pos 1 (1+ beg)))) + +(defun web-mode-snippet-names () + (mapcar #'car web-mode-snippets)) + +(defun web-mode-snippet-insert (code) + "Insert a snippet." + (interactive + (list (completing-read "Snippet: " (web-mode-snippet-names)))) + (let (beg + (continue t) + (counter 0) + end + sel + snippet + (l (length web-mode-snippets)) + pos) + (when mark-active + (setq sel (web-mode-trim (buffer-substring-no-properties + (region-beginning) (region-end)))) + (delete-region (region-beginning) (region-end))) + (while (and continue (< counter l)) + (setq snippet (nth counter web-mode-snippets)) + (when (string= (car snippet) code) + (setq continue nil)) + (setq counter (1+ counter))) + (when snippet + (setq snippet (cdr snippet)) + (setq beg (line-beginning-position)) + (insert snippet) + (setq pos (point) + end (point)) + (cond + ((string-match-p "¦" snippet) + (search-backward "¦") + (delete-char 1) + (setq pos (point) + end (1- end))) + ((string-match-p "|" snippet) + (search-backward "|") + (delete-char 1) + (setq pos (point) + end (1- end))) + ) ;cond + (when sel + (insert sel) + (setq pos (point) + end (+ end (length sel)))) + (goto-char end) + (setq end (line-end-position)) + (unless sel (goto-char pos)) + (indent-region beg end)) + )) + +(defun web-mode-looking-at (regexp pos) + (save-excursion + (goto-char pos) + (looking-at regexp))) + +(defun web-mode-looking-at-p (regexp pos) + (save-excursion + (goto-char pos) + (looking-at-p regexp))) + +(defun web-mode-looking-back (regexp pos &optional limit greedy) + (save-excursion + (goto-char pos) + (if limit + (looking-back regexp limit greedy) + (looking-back regexp (point-min))))) + +(defun web-mode-insert-text-at-pos (text pos) + (let ((mem web-mode-enable-auto-pairing)) + (setq web-mode-enable-auto-pairing nil) + (save-excursion + (goto-char pos) + (insert text) + (setq web-mode-enable-auto-pairing mem) + ))) + +(defun web-mode-remove-text-at-pos (n &optional pos) + (unless pos (setq pos (point))) + (delete-region pos (+ pos n))) + +(defun web-mode-insert-and-indent (text) + (let (beg end) + (setq beg (line-beginning-position)) + (insert text) + (setq end (line-end-position)) + (indent-region beg end) + )) + +(defun web-mode-column-at-pos (pos) + (save-excursion + (goto-char pos) + (current-column))) + +(defun web-mode-indentation-at-pos (pos) + (save-excursion + (goto-char pos) + (current-indentation))) + +(defun web-mode-navigate (&optional pos) + "Move point to the matching opening/closing tag/block." + (interactive) + (unless pos (setq pos (point))) + (let (init) + (goto-char pos) + (setq init (point)) + (when (> (current-indentation) (current-column)) + (back-to-indentation)) + (setq pos (point)) + (cond + ((and (get-text-property pos 'block-side) + (web-mode-block-beginning) + (web-mode-block-controls-get (point))) + (web-mode-block-match)) + ((member (get-text-property pos 'tag-type) '(start end)) + (web-mode-tag-beginning) + (web-mode-tag-match)) + (t + (goto-char init)) + ) + )) + +(defun web-mode-block-match (&optional pos) + (unless pos (setq pos (point))) + (let (pos-ori controls control (counter 1) type (continue t) pair) + (setq pos-ori pos) + (goto-char pos) + (setq controls (web-mode-block-controls-get pos)) + ;;(message "controls=%S" controls) + (cond + (controls + (setq pair (car controls)) + (setq control (cdr pair)) + (setq type (car pair)) + (when (eq type 'inside) (setq type 'close)) + (while continue + (cond + ((and (> pos-ori 1) (bobp)) + (setq continue nil)) + ((or (and (eq type 'open) (not (web-mode-block-next))) + (and (eq type 'close) (not (web-mode-block-previous)))) + (setq continue nil) + ) + ((null (setq controls (web-mode-block-controls-get (point)))) + ) + (t + ;;TODO : est il nécessaire de faire un reverse sur controls si on doit matcher backward + (dolist (pair controls) + (cond + ((not (string= (cdr pair) control)) + ) + ((eq (car pair) 'inside) + ) + ((eq (car pair) type) + (setq counter (1+ counter))) + (t + (setq counter (1- counter))) + ) + ) ;dolist + (when (= counter 0) + (setq continue nil)) + ) ;t + ) ;cond + ) ;while + (if (= counter 0) (point) nil) + ) ;controls + (t + (goto-char pos-ori) + nil + ) ;controls = nul + ) ;conf + )) + +(defun web-mode-tag-match (&optional pos) + "Move point to the matching opening/closing tag." + (interactive) + (unless pos (setq pos (point))) + (let (regexp name) + (cond + ((eq (get-text-property pos 'tag-type) 'void) + (web-mode-tag-beginning)) + ((and (eq (get-text-property pos 'tag-type) 'comment) + (web-mode-looking-at-p " %S %S" pos (get-text-property pos 'jsx-depth)) + ) + ((and blockside + (member (get-text-property pos 'block-token) '(string comment)) + (eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token))) + (setq pos (web-mode-block-token-beginning-position pos))) + ((and (not blockside) + (member (get-text-property pos 'part-token) '(string comment)) + (eq (get-text-property pos 'part-token) (get-text-property (1- pos) 'part-token))) + (setq pos (web-mode-part-token-beginning-position pos))) + ((and (not blockside) + (get-text-property pos 'block-side)) + (when (setq pos (web-mode-block-beginning-position pos)) + (setq pos (1- pos)))) + ((member char '(?\) ?\] ?\})) + (setq pos (web-mode-part-opening-paren-position pos reg-beg)) + (setq pos (1- pos))) + ((and (eq char ?\=) + (web-mode-looking-back "[<>!=]+" pos reg-beg t)) + (setq pos (- pos 1 (length (match-string-no-properties 0))))) + ((member char '(?\( ?\{ ?\[ ?\= ?\< ?\>)) + (web-mode-looking-at ".[ \t\n]*" pos) + (setq continue nil + pos (+ pos (length (match-string-no-properties 0))))) + + ((web-mode-looking-at "\\(return\\)[ \n]" pos) + (setq continue nil + pos (+ pos (length (match-string-no-properties 0))))) + ((and (eq char ?\:) + (web-mode-looking-back "[{,][ \t\n]*[[:alnum:]_]+[ ]*" pos)) + (web-mode-looking-at ".[ \t\n]*" pos) + (setq continue nil + pos (+ pos (length (match-string-no-properties 0))))) + (t + (setq pos (web-mode-rsb-position pos regexp reg-beg)) + (when (not pos) + (cond + (is-jsx + (when (web-mode-looking-at "[ \n]*" reg-beg) + (setq pos (+ reg-beg (length (match-string-no-properties 0))))) + (setq continue nil)) + (t + (message "javascript-statement-beginning-position ** search failure **") + (setq continue nil + pos reg-beg)) + ) ;cond + ) + ) ;t + ) ;cond + ) ;while + ;;(message "%S -------" pos) + pos)) + +(defun web-mode-javascript-args-beginning-position (pos &optional reg-beg) + (unless pos (setq pos (point))) + (setq pos (1- pos)) + (let ((char nil) + (blockside (get-text-property pos 'block-side)) + (i 0) + (continue (not (null pos)))) + (unless reg-beg + (if blockside + (setq reg-beg (web-mode-block-beginning-position pos)) + (setq reg-beg (web-mode-part-beginning-position pos))) + ) + (while continue + (setq char (char-after pos)) + ;;(message "pos(%S) char(%c)" pos char) + (cond + ((> (setq i (1+ i)) 20000) + (message "javascript-args-beginning-position ** warning (%S) **" pos) + (setq continue nil + pos nil)) + ((null pos) + (message "javascript-args-beginning-position ** invalid pos **") + (setq continue nil)) + ((< pos reg-beg) + (message "javascript-args-beginning-position ** failure(position) **") + (setq continue nil + pos reg-beg)) + ((and blockside + (member (get-text-property pos 'block-token) '(string comment)) + (eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token))) + (setq pos (web-mode-block-token-beginning-position pos))) + ((and (not blockside) + (member (get-text-property pos 'part-token) '(string comment)) + (eq (get-text-property pos 'part-token) (get-text-property (1- pos) 'part-token))) + (setq pos (web-mode-part-token-beginning-position pos))) + ((and (not blockside) + (get-text-property pos 'block-side)) + (when (setq pos (web-mode-block-beginning-position pos)) + (setq pos (1- pos))) + ) + ((member char '(?\) ?\] ?\})) + (when (setq pos (web-mode-part-opening-paren-position pos reg-beg)) + (setq pos (1- pos)))) + ((member char '(?\( ?\[ ?\{)) + (web-mode-looking-at ".[ ]*" pos) + (setq pos (+ pos (length (match-string-no-properties 0))) + continue nil) + ) + ((web-mode-looking-at "\\(var\\|let\\|return\\|const\\)[ \n]" pos) + (setq pos (+ pos (length (match-string-no-properties 0))) + continue nil)) + (t + (setq pos (web-mode-rsb-position pos "[\]\[}{)(]\\|\\(var\\|let\\|return\\|const\\)" reg-beg)) + (when (not pos) + (message "javascript-args-beginning-position ** search failure **") + (setq continue nil + pos reg-beg))) + ) ;cond + ) ;while + ;;(message "=%S" pos) + pos)) + +(defun web-mode-javascript-calls-beginning-position (pos &optional reg-beg) + (unless pos (setq pos (point))) + ;;(message "pos=%S" pos) + (let ((char nil) + (dot-pos nil) + (blockside (get-text-property pos 'block-side)) + (i 0) + (continue (not (null pos)))) + (unless reg-beg + (setq reg-beg (if blockside + (web-mode-block-beginning-position pos) + (web-mode-part-beginning-position pos)))) + (while continue + (setq char (char-after pos)) + ;;(message "%S| %S=%c" reg-beg pos char) + (cond + ((> (setq i (1+ i)) 20000) + (message "javascript-calls-beginning-position ** warning (%S) **" pos) + (setq continue nil + pos nil)) + ((null pos) + (message "javascript-calls-beginning-position ** invalid pos **") + (setq continue nil)) + ((< pos reg-beg) + (setq continue nil + pos reg-beg)) + ((and blockside + (member (get-text-property pos 'block-token) '(string comment)) + (eq (get-text-property pos 'block-token) (get-text-property (1- pos) 'block-token))) + (setq pos (web-mode-block-token-beginning-position pos))) + ((and (not blockside) + (member (get-text-property pos 'part-token) '(string comment)) + (eq (get-text-property pos 'part-token) (get-text-property (1- pos) 'part-token))) + (setq pos (web-mode-part-token-beginning-position pos))) + ((and (not blockside) + (get-text-property pos 'block-side)) + (when (setq pos (web-mode-block-beginning-position pos)) + (setq pos (1- pos)))) + ((and (member char '(?\.)) (> i 1)) + (setq dot-pos pos + pos (1- pos))) + ((member char '(?\) ?\])) + (when (setq pos (web-mode-part-opening-paren-position pos reg-beg)) + (setq pos (1- pos))) + ) + ((member char '(?\( ?\{ ?\} ?\[ ?\= ?\? ?\: ?\; ?\, ?\& ?\| ?\>)) + (web-mode-looking-at ".[ \t\n]*" pos) + (setq pos (+ pos (length (match-string-no-properties 0))) + continue nil)) + ((web-mode-looking-at "\\(return\\|else\\|const\\)[ \n]" pos) + (setq pos (+ pos (length (match-string-no-properties 0))) + continue nil)) + (t + (setq pos (web-mode-rsb-position pos "[\]\[}{)(=?:;,&|>.]\\|\\(return\\|else\\|const\\)" reg-beg)) + (when (not pos) + (message "javascript-calls-beginning-position ** search failure **") + (setq pos reg-beg + continue nil)) + ) ;t + ) ;cond + ) ;while + ;;(message "pos=%S dot-pos=%S" pos dot-pos) + (if (null pos) pos (cons pos dot-pos)) + )) + +(defun web-mode-part-token-beginning-position (&optional pos) + (unless pos (setq pos (point))) + (cond + ((not (get-text-property pos 'part-token)) + nil) + ((or (= pos (point-min)) + (and (> pos (point-min)) + (not (get-text-property (1- pos) 'part-token)))) + pos) + (t + (setq pos (previous-single-property-change pos 'part-token)) + (if (and pos (> pos (point-min))) pos (point-min))) + )) + +(defun web-mode-part-token-end-position (&optional pos) + (unless pos (setq pos (point))) + (cond + ((not (get-text-property pos 'part-token)) + nil) + ((or (= pos (point-max)) + (not (get-text-property (1+ pos) 'part-token))) + pos) + (t + (1- (next-single-property-change pos 'part-token))) + )) + +(defun web-mode-block-token-beginning-position (&optional pos) + (unless pos (setq pos (point))) + (cond + ((not (get-text-property pos 'block-token)) + nil) + ((or (= pos (point-min)) + (and (> pos (point-min)) + (not (get-text-property (1- pos) 'block-token)))) + pos) + (t + (setq pos (previous-single-property-change pos 'block-token)) + (if (and pos (> pos (point-min))) pos (point-min))) + )) + +(defun web-mode-block-token-end-position (&optional pos) + (unless pos (setq pos (point))) + (cond + ((not (get-text-property pos 'block-token)) + nil) + ((or (= pos (point-max)) + (not (get-text-property (1+ pos) 'block-token))) + pos) + (t + (1- (next-single-property-change pos 'block-token))) + )) + +(defun web-mode-block-code-end-position (&optional pos) + (unless pos (setq pos (point))) + (setq pos (web-mode-block-end-position pos)) + (cond + ((not pos) + nil) + ((and (eq (get-text-property pos 'block-token) 'delimiter-end) + (eq (get-text-property (1- pos) 'block-token) 'delimiter-end)) + (previous-single-property-change pos 'block-token)) + ((= pos (1- (point-max))) ;; TODO: comparer plutot avec line-end-position + (point-max)) + (t + pos) + )) + +(defun web-mode-block-end-position (&optional pos) + (unless pos (setq pos (point))) + (cond + ((get-text-property pos 'block-end) + pos) + ((get-text-property pos 'block-side) + (or (next-single-property-change pos 'block-end) + (point-max))) + (t + nil) + )) + +(defun web-mode-block-previous-position (&optional pos) + (unless pos (setq pos (point))) + (cond + ((= pos (point-min)) + (setq pos nil)) + ((get-text-property pos 'block-side) + (setq pos (web-mode-block-beginning-position pos)) + (cond + ((or (null pos) (= pos (point-min))) + (setq pos nil) + ) + ((and (setq pos (previous-single-property-change pos 'block-beg)) + (> pos (point-min))) + (setq pos (1- pos)) + ) + ) + ) ;block-side + ((get-text-property (1- pos) 'block-side) + (setq pos (web-mode-block-beginning-position (1- pos))) + ) + (t + (setq pos (previous-single-property-change pos 'block-side)) + (cond + ((and (null pos) (get-text-property (point-min) 'block-beg)) + (setq pos (point-min))) + ((and pos (> pos (point-min))) + (setq pos (web-mode-block-beginning-position (1- pos)))) + ) + ) + ) ;conf + pos) + +(defun web-mode-block-next-position (&optional pos limit) + (unless pos (setq pos (point))) + (unless limit (setq limit (point-max))) + (cond + ((and (get-text-property pos 'block-side) + (setq pos (web-mode-block-end-position pos)) + (< pos (point-max)) + (setq pos (1+ pos))) + (unless (get-text-property pos 'block-beg) + (setq pos (next-single-property-change pos 'block-side))) + ) + (t + (setq pos (next-single-property-change pos 'block-side))) + ) ;cond + (if (and pos (<= pos limit)) pos nil)) + +(defun web-mode-is-css-string (pos) + (let (beg) + (cond + ((and (setq beg (web-mode-part-token-beginning-position pos)) + (web-mode-looking-at-p "`" beg) + (web-mode-looking-back "\\(styled[[:alnum:].]+\\|css\\)" beg)) + beg) + (t + nil) + ) ;cond + )) + +;; Relay.QL , gql, graphql +(defun web-mode-is-ql-string (pos prefix-regexp) + (let (beg) + (cond + ((and (setq beg (web-mode-part-token-beginning-position pos)) + (web-mode-looking-back prefix-regexp beg)) + beg) + (t + nil) + ) ;cond + )) + +(defun web-mode-is-html-string (pos) + (let (beg) + (cond + ((and (setq beg (web-mode-part-token-beginning-position pos)) + (web-mode-looking-at-p "`[ \t\n]*<[a-zA-Z]" beg) + (web-mode-looking-back "\\(template\\|html\\)\\([ ]*[=:][ ]*\\)?" beg)) + beg) + (t + nil) + ) ;cond + )) + +;;---- EXCURSION --------------------------------------------------------------- + +(defun web-mode-backward-sexp (n) + (interactive "p") + (if (< n 0) (web-mode-forward-sexp (- n)) + (let (pos) + (dotimes (_ n) + (skip-chars-backward "[:space:]") + (setq pos (point)) + (cond + ((bobp) nil) + ((get-text-property (1- pos) 'block-end) + (backward-char 1) + (web-mode-block-beginning)) + ((get-text-property (1- pos) 'block-token) + (backward-char 1) + (web-mode-block-token-beginning)) + ((get-text-property (1- pos) 'part-token) + (backward-char 1) + (web-mode-part-token-beginning)) + ((get-text-property (1- pos) 'tag-end) + (backward-char 1) + (web-mode-element-beginning)) + ((get-text-property (1- pos) 'tag-attr) + (backward-char 1) + (web-mode-attribute-beginning)) + ((get-text-property (1- pos) 'tag-type) + (backward-char 1) + (web-mode-tag-beginning)) + ((get-text-property (1- pos) 'jsx-end) + (backward-char 1) + (web-mode-jsx-beginning)) + (t + (let ((forward-sexp-function nil)) + (backward-sexp)) + ) ;case t + ) ;cond + ) ;dotimes + ))) ;let if defun + +(defun web-mode-forward-sexp (n) + (interactive "p") + (if (< n 0) (web-mode-backward-sexp (- n)) + (let (pos) + (dotimes (_ n) + (skip-chars-forward "[:space:]") + (setq pos (point)) + (cond + ((eobp) nil) + ((get-text-property pos 'block-beg) + (web-mode-block-end)) + ((get-text-property pos 'block-token) + (web-mode-block-token-end)) + ((get-text-property pos 'part-token) + (web-mode-part-token-end)) + ((get-text-property pos 'tag-beg) + (web-mode-element-end)) + ((get-text-property pos 'tag-attr) + (web-mode-attribute-end)) + ((get-text-property pos 'tag-type) + (web-mode-tag-end)) + ((get-text-property pos 'jsx-beg) + (web-mode-jsx-end)) + (t + (let ((forward-sexp-function nil)) + (forward-sexp)) + ) ;case t + ) ;cond + ) ;dotimes + ))) ;let if defun + +(defun web-mode-comment-beginning () + "Fetch current comment beg." + (interactive) + (web-mode-go (web-mode-comment-beginning-position (point)))) + +(defun web-mode-comment-end () + "Fetch current comment end." + (interactive) + (web-mode-go (web-mode-comment-end-position (point)) 1)) + +(defun web-mode-tag-beginning () + "Fetch current html tag beg." + (interactive) + (web-mode-go (web-mode-tag-beginning-position (point)))) + +(defun web-mode-tag-end () + "Fetch current html tag end." + (interactive) + (web-mode-go (web-mode-tag-end-position (point)) 1)) + +(defun web-mode-tag-previous () + "Fetch previous tag." + (interactive) + (web-mode-go (web-mode-tag-previous-position (point)))) + +(defun web-mode-tag-next () + "Fetch next tag. Might be html comment or server tag (e.g. jsp)." + (interactive) + (web-mode-go (web-mode-tag-next-position (point)))) + +(defun web-mode-attribute-beginning () + "Fetch html attribute beginning." + (interactive) + (web-mode-go (web-mode-attribute-beginning-position (point)))) + +(defun web-mode-attribute-end () + "Fetch html attribute end." + (interactive) + (web-mode-go (web-mode-attribute-end-position (point)) 1)) + +(defun web-mode-attribute-next (&optional arg) + "Fetch next attribute." + (interactive "p") + (unless arg (setq arg 1)) + (cond + ((= arg 1) (web-mode-go (web-mode-attribute-next-position (point)))) + ((< arg 1) (web-mode-element-previous (* arg -1))) + (t + (while (>= arg 1) + (setq arg (1- arg)) + (web-mode-go (web-mode-attribute-next-position (point))) + ) + ) + ) + ) + +(defun web-mode-attribute-previous (&optional arg) + "Fetch previous attribute." + (interactive "p") + (unless arg (setq arg 1)) + (unless arg (setq arg 1)) + (cond + ((= arg 1) (web-mode-go (web-mode-attribute-previous-position (point)))) + ((< arg 1) (web-mode-element-next (* arg -1))) + (t + (while (>= arg 1) + (setq arg (1- arg)) + (web-mode-go (web-mode-attribute-previous-position (point))) + ) + ) + ) + ) + +(defun web-mode-element-previous (&optional arg) + "Fetch previous element." + (interactive "p") + (unless arg (setq arg 1)) + (cond + ((= arg 1) (web-mode-go (web-mode-element-previous-position (point)))) + ((< arg 1) (web-mode-element-next (* arg -1))) + (t + (while (>= arg 1) + (setq arg (1- arg)) + (web-mode-go (web-mode-element-previous-position (point))) + ) ;while + ) ;t + ) ;cond + ) + +(defun web-mode-element-next (&optional arg) + "Fetch next element." + (interactive "p") + (unless arg (setq arg 1)) + (cond + ((= arg 1) (web-mode-go (web-mode-element-next-position (point)))) + ((< arg 1) (web-mode-element-previous (* arg -1))) + (t + (while (>= arg 1) + (setq arg (1- arg)) + (web-mode-go (web-mode-element-next-position (point))) + ) ;while + ) ;t + ) ;cond + ) + +(defun web-mode-element-sibling-next () + "Fetch next sibling element." + (interactive) + (let ((pos (point))) + (save-excursion + (cond + ((not (get-text-property pos 'tag-type)) + (if (and (web-mode-element-parent) + (web-mode-tag-match) + (web-mode-tag-next) + (member (get-text-property (point) 'tag-type) '(start void comment))) + (setq pos (point)) + (setq pos nil)) + ) + ((member (get-text-property pos 'tag-type) '(start void)) + (if (and (web-mode-tag-match) + (web-mode-tag-next) + (member (get-text-property (point) 'tag-type) '(start void comment))) + (setq pos (point)) + (setq pos nil)) + ) + ((and (web-mode-tag-next) + (member (get-text-property (point) 'tag-type) '(start void comment))) + (setq pos (point))) + (t + (setq pos nil)) + ) ;cond + ) ;save-excursion + (web-mode-go pos))) + +(defun web-mode-element-sibling-previous () + "Fetch previous sibling element." + (interactive) + (let ((pos (point))) + (save-excursion + (cond + ((not (get-text-property pos 'tag-type)) + (if (and (web-mode-element-parent) + (web-mode-tag-previous) + (web-mode-element-beginning)) + (setq pos (point)) + (setq pos nil)) + ) + ((eq (get-text-property pos 'tag-type) 'start) + (if (and (web-mode-tag-beginning) + (web-mode-tag-previous) + (web-mode-element-beginning)) + (setq pos (point)) + (setq pos nil)) + ) + ((and (web-mode-element-beginning) + (web-mode-tag-previous) + (web-mode-element-beginning)) + (setq pos (point))) + (t + (setq pos nil)) + ) ;cond + ) ;save-excursion + (web-mode-go pos))) + +(defun web-mode-element-beginning () + "Move to beginning of element." + (interactive) + (web-mode-go (web-mode-element-beginning-position (point)))) + +(defun web-mode-element-end () + "Move to end of element." + (interactive) + (web-mode-go (web-mode-element-end-position (point)) 1)) + +(defun web-mode-element-parent () + "Fetch parent element." + (interactive) + (web-mode-go (web-mode-element-parent-position (point)))) + +(defun web-mode-element-child () + "Fetch child element." + (interactive) + (web-mode-go (web-mode-element-child-position (point)))) + +(defun web-mode-dom-traverse () + "Traverse html dom tree." + (interactive) + (cond + ((web-mode-element-child) + ) + ((web-mode-element-sibling-next) + ) + ((and (web-mode-element-parent) + (not (web-mode-element-sibling-next))) + (goto-char (point-min))) + (t + (goto-char (point-min))) + ) ;cond + ) + +(defun web-mode-closing-paren (limit) + (let ((pos (web-mode-closing-paren-position (point) limit))) + (if (or (null pos) (> pos limit)) + nil + (goto-char pos) + pos) + )) + +(defun web-mode-part-next () + "Move point to the beginning of the next part." + (interactive) + (web-mode-go (web-mode-part-next-position (point)))) + +(defun web-mode-part-beginning () + "Move point to the beginning of the current part." + (interactive) + (web-mode-go (web-mode-part-beginning-position (point)))) + +(defun web-mode-part-end () + "Move point to the end of the current part." + (interactive) + (web-mode-go (web-mode-part-end-position (point)) 1)) + +(defun web-mode-block-previous () + "Move point to the beginning of the previous block." + (interactive) + (web-mode-go (web-mode-block-previous-position (point)))) + +(defun web-mode-block-next () + "Move point to the beginning of the next block." + (interactive) + (web-mode-go (web-mode-block-next-position (point)))) + +(defun web-mode-block-beginning () + "Move point to the beginning of the current block." + (interactive) + (web-mode-go (web-mode-block-beginning-position (point)))) + +(defun web-mode-block-end () + "Move point to the end of the current block." + (interactive) + (web-mode-go (web-mode-block-end-position (point)) 1)) + +(defun web-mode-block-token-beginning () + (web-mode-go (web-mode-block-token-beginning-position (point)))) + +(defun web-mode-block-token-end () + (web-mode-go (web-mode-block-token-end-position (point)) 1)) + +(defun web-mode-part-token-beginning () + (web-mode-go (web-mode-part-token-beginning-position (point)))) + +(defun web-mode-part-token-end () + (web-mode-go (web-mode-part-token-end-position (point)) 1)) + +(defun web-mode-block-opening-paren (limit) + (web-mode-go (web-mode-block-opening-paren-position (point) limit))) + +(defun web-mode-block-string-beginning (&optional pos block-beg) + (unless pos (setq pos (point))) + (unless block-beg (setq block-beg (web-mode-block-beginning-position pos))) + (web-mode-go (web-mode-block-string-beginning-position pos block-beg))) + +(defun web-mode-block-statement-beginning (pos block-beg is-ternary) + (unless pos (setq pos (point))) + (unless block-beg (setq block-beg (web-mode-block-beginning-position pos))) + (web-mode-go (web-mode-block-statement-beginning-position pos block-beg is-ternary))) + +(defun web-mode-block-args-beginning (&optional pos block-beg) + (unless pos (setq pos (point))) + (unless block-beg (setq block-beg (web-mode-block-beginning-position pos))) + (web-mode-go (web-mode-block-args-beginning-position pos block-beg))) + +(defun web-mode-block-calls-beginning (&optional pos block-beg) + (unless pos (setq pos (point))) + (unless block-beg (setq block-beg (web-mode-block-beginning-position pos))) + (web-mode-go (web-mode-block-calls-beginning-position pos block-beg))) + +(defun web-mode-javascript-string-beginning (&optional pos reg-beg) + (unless pos (setq pos (point))) + (unless reg-beg + (if (get-text-property pos 'block-side) + (setq reg-beg (web-mode-block-beginning-position pos)) + (setq reg-beg (web-mode-part-beginning-position pos)))) + (web-mode-go (web-mode-javascript-string-beginning-position pos reg-beg))) + +(defun web-mode-javascript-statement-beginning (pos reg-beg is-ternary) + (unless pos (setq pos (point))) + (unless reg-beg + (if (get-text-property pos 'block-side) + (setq reg-beg (web-mode-block-beginning-position pos)) + (setq reg-beg (web-mode-part-beginning-position pos)))) + (web-mode-go (web-mode-javascript-statement-beginning-position pos reg-beg is-ternary))) + +(defun web-mode-javascript-args-beginning (&optional pos reg-beg) + (unless pos (setq pos (point))) + (unless reg-beg + (setq reg-beg (if (get-text-property pos 'block-side) + (web-mode-block-beginning-position pos) + (web-mode-part-beginning-position pos)))) + ;;(message "reg-beg%S" reg-beg) + (web-mode-go (web-mode-javascript-args-beginning-position pos reg-beg))) + +(defun web-mode-javascript-calls-beginning (&optional pos reg-beg) + (unless pos (setq pos (point))) + (unless reg-beg + (if (get-text-property pos 'block-side) + (setq reg-beg (web-mode-block-beginning-position pos)) + (setq reg-beg (web-mode-part-beginning-position pos)))) + (let (pair) + (setq pair (web-mode-javascript-calls-beginning-position pos reg-beg)) + (when pair (web-mode-go (car pair))) + )) + +(defun web-mode-go (pos &optional offset) + (unless offset (setq offset 0)) + (when pos + (cond + ((and (> offset 0) (<= (+ pos offset) (point-max))) + (setq pos (+ pos offset))) + ((and (< offset 0) (>= (+ pos offset) (point-min))) + (setq pos (+ pos offset))) + ) ;cond + (goto-char pos)) + pos) + +;;---- SEARCH ------------------------------------------------------------------ + +(defun web-mode-rsf-balanced (regexp-open regexp-close &optional limit noerror) + (unless noerror (setq noerror t)) + (let ((continue t) + (level 1) + (pos (point)) + ret + (regexp (concat regexp-open "\\|" regexp-close))) + (while continue + (setq ret (re-search-forward regexp limit noerror)) + (cond + ((null ret) + (setq continue nil) + ) + (t + (if (string-match-p regexp-open (match-string-no-properties 0)) + (setq level (1+ level)) + (setq level (1- level))) + (when (< level 1) + (setq continue nil) + ) + ) ;t + ) ;cond + ) ;while + (when (not (= level 0)) (goto-char pos)) + ret)) + +(defun web-mode-block-sb (expr &optional limit noerror) + (unless limit (setq limit (web-mode-block-beginning-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (search-backward expr limit noerror)) + (when (or (null ret) + (not (get-text-property (point) 'block-token))) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-block-sf (expr &optional limit noerror) + (unless limit (setq limit (web-mode-block-end-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (search-forward expr limit noerror)) + (when (or (null ret) + (not (get-text-property (point) 'block-token))) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-block-rsb (regexp &optional limit noerror) + (unless limit (setq limit (web-mode-block-beginning-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (re-search-backward regexp limit noerror)) + (when (or (null ret) + (not (get-text-property (point) 'block-token))) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-block-rsf (regexp &optional limit noerror) + (unless limit (setq limit (web-mode-block-end-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (re-search-forward regexp limit noerror)) + (when (or (null ret) + (not (get-text-property (point) 'block-token))) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-part-sb (expr &optional limit noerror) + (unless limit (setq limit (web-mode-part-beginning-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (search-backward expr limit noerror)) + (when (or (null ret) + (and (not (get-text-property (point) 'part-token)) + (not (get-text-property (point) 'block-side))) + ) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-part-sf (expr &optional limit noerror) + (unless limit (setq limit (web-mode-part-end-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (search-forward expr limit noerror)) + (when (or (null ret) + (and (not (get-text-property (point) 'part-token)) + (not (get-text-property (point) 'block-side))) + ) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-part-rsb (regexp &optional limit noerror) + (unless limit (setq limit (web-mode-part-beginning-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (re-search-backward regexp limit noerror)) + (when (or (null ret) + (and (not (get-text-property (point) 'part-token)) + (not (get-text-property (point) 'block-side))) + ) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-part-rsf (regexp &optional limit noerror) + (unless limit (setq limit (web-mode-part-end-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (re-search-forward regexp limit t)) + (when (or (null ret) + (and (not (get-text-property (point) 'part-token)) + (not (get-text-property (point) 'block-side))) + ) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-javascript-rsb (regexp &optional limit noerror) + (unless limit (setq limit (web-mode-part-beginning-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (re-search-backward regexp limit noerror)) + (when (or (null ret) + (and (not (get-text-property (point) 'part-token)) + (not (get-text-property (point) 'block-side)) + (not (get-text-property (point) 'jsx-depth))) + ) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-javascript-rsf (regexp &optional limit noerror) + (unless limit (setq limit (web-mode-part-end-position (point)))) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (re-search-forward regexp limit t)) + (when (or (null ret) + (and (not (get-text-property (point) 'part-token)) + (not (get-text-property (point) 'block-side)) + (not (get-text-property (point) 'jsx-depth))) + ) + (setq continue nil) + ) ;when + ) ;while + ret)) + +(defun web-mode-dom-sf (expr &optional limit noerror) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (search-forward expr limit noerror)) + (if (or (null ret) + (not (get-text-property (- (point) (length expr)) 'block-side))) + (setq continue nil)) + ) + ret)) + +(defun web-mode-dom-rsf (regexp &optional limit noerror) + (unless noerror (setq noerror t)) + (let ((continue t) (ret nil)) + (while continue + (setq ret (re-search-forward regexp limit noerror)) + ;; (message "ret=%S point=%S limit=%S i=%S" ret (point) limit 0) + (cond + ((null ret) + (setq continue nil)) + ((or (get-text-property (match-beginning 0) 'block-side) + (get-text-property (match-beginning 0) 'part-token)) + ) + (t + (setq continue nil)) + ) ;cond + ) ;while + ret)) + +(defun web-mode-rsb-position (pos regexp &optional limit noerror) + (unless noerror (setq noerror t)) + (save-excursion + (goto-char pos) + (if (re-search-backward regexp limit noerror) (point) nil) + )) + +(defun web-mode-rsb (regexp &optional limit noerror) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (re-search-backward regexp limit noerror)) + (if (or (null ret) + (not (web-mode-is-comment-or-string))) + (setq continue nil))) + ret)) + +(defun web-mode-rsf (regexp &optional limit noerror) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (re-search-forward regexp limit noerror)) + (if (or (null ret) + (not (web-mode-is-comment-or-string))) + (setq continue nil)) + ) + ret)) + +(defun web-mode-sb (expr &optional limit noerror) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (search-backward expr limit noerror)) + (if (or (null ret) + (not (web-mode-is-comment-or-string))) + (setq continue nil))) + ret)) + +(defun web-mode-sf (expr &optional limit noerror) + (unless noerror (setq noerror t)) + (let ((continue t) ret) + (while continue + (setq ret (search-forward expr limit noerror)) + (if (or (null ret) + (not (web-mode-is-comment-or-string))) + (setq continue nil))) + ret)) + +(defun web-mode-content-rsf (regexp &optional limit noerror) + (unless noerror (setq noerror t)) + (let ((continue t) ret beg end) + (while continue + (setq ret (re-search-forward regexp limit noerror) + beg (if (null ret) (point) (match-beginning 0)) + end (if (null ret) (point) (1- (match-end 0)))) + (if (or (null ret) + (and (web-mode-is-content beg) + (web-mode-is-content end))) + (setq continue nil))) + ret)) + +;;---- ADVICES ----------------------------------------------------------------- + +(defadvice ac-start (before web-mode-set-up-ac-sources activate) + "Set `ac-sources' based on current language before running auto-complete." + (when (equal major-mode 'web-mode) + ;; set ignore each time to nil. User has to implement a hook to change it + ;; for each completion + (setq web-mode-ignore-ac-start-advice nil) + (run-hooks 'web-mode-before-auto-complete-hooks) + (unless web-mode-ignore-ac-start-advice + (when web-mode-ac-sources-alist + (let ((new-web-mode-ac-sources + (assoc (web-mode-language-at-pos) + web-mode-ac-sources-alist))) + (setq ac-sources (cdr new-web-mode-ac-sources))))))) + +;;---- MINOR MODE ADDONS ------------------------------------------------------- + +(defun web-mode-yasnippet-exit-hook () + "Yasnippet exit hook" + (when (and (boundp 'yas-snippet-beg) (boundp 'yas-snippet-end)) + (indent-region yas-snippet-beg yas-snippet-end))) + +(defun web-mode-imenu-index () + "Returns imenu items." + (interactive) + (let (toc-index + line) + (save-excursion + (goto-char (point-min)) + (while (not (eobp)) + (setq line (buffer-substring-no-properties + (line-beginning-position) + (line-end-position))) + (let (found + (i 0) + item + regexp + type + type-idx + content + content-idx + content-regexp + close-tag-regexp + concat-str + jumpto + str) + (while (and (not found ) (< i (length web-mode-imenu-regexp-list))) + (setq item (nth i web-mode-imenu-regexp-list)) + (setq regexp (nth 0 item)) + (setq type-idx (nth 1 item)) + (setq content-idx (nth 2 item)) + (setq concat-str (nth 3 item)) + (when (not (numberp content-idx)) + (setq content-regexp (nth 2 item) + close-tag-regexp (nth 4 item) + content-idx nil)) + + (when (string-match regexp line) + + (cond + (content-idx + (setq type (match-string type-idx line)) + (setq content (match-string content-idx line)) + (setq str (concat type concat-str content)) + (setq jumpto (line-beginning-position))) + (t + (let (limit) + (setq type (match-string type-idx line)) + (goto-char (line-beginning-position)) + (save-excursion + (setq limit (re-search-forward close-tag-regexp (point-max) t))) + + (when limit + (when (re-search-forward content-regexp limit t) + (setq content (match-string 1)) + (setq str (concat type concat-str content)) + (setq jumpto (line-beginning-position)) + ) + ))) + ) + (when str (setq toc-index + (cons (cons str jumpto) + toc-index) + ) + (setq found t)) + ) + (setq i (1+ i)))) + (forward-line) + (goto-char (line-end-position)) ;; make sure we are at eobp + )) + (nreverse toc-index))) + +;;---- UNIT TESTING ------------------------------------------------------------ + +(defun web-mode-test () + "Executes web-mode unit tests. See `web-mode-tests-directory'." + (interactive) + (let (files regexp) + (setq regexp "^[[:alnum:]][[:alnum:]._]+\\'") + (setq files (directory-files web-mode-tests-directory t regexp)) + (dolist (file files) + (cond + ((eq (string-to-char (file-name-nondirectory file)) ?\_) + (delete-file file)) + (t + (web-mode-test-process file)) + ) ;cond + ) ;dolist + )) + +(defun web-mode-test-process (file) + (with-temp-buffer + (let (out sig1 sig2 success err) + (setq-default indent-tabs-mode nil) + (if (string-match-p "sql" file) + (setq web-mode-enable-sql-detection t) + (setq web-mode-enable-sql-detection nil)) + (insert-file-contents file) + (set-visited-file-name file) + (web-mode) + (setq sig1 (md5 (current-buffer))) + (delete-horizontal-space) + (while (not (eobp)) + (forward-line) + (delete-horizontal-space) + (end-of-line)) + (web-mode-buffer-indent) + (setq sig2 (md5 (current-buffer))) + (setq success (string= sig1 sig2)) + (setq out (concat (if success "ok" "ko") " : " (file-name-nondirectory file) "\n")) + (princ out) + (setq err (concat (file-name-directory file) "_err." (file-name-nondirectory file))) + (if success + (when (file-readable-p err) + (delete-file err)) + (write-file err) + (message "[%s]" (buffer-string)) + ) ;if + out))) + +;;---- MISC -------------------------------------------------------------------- + +(defun web-mode-set-engine (engine) + "Set the engine for the current buffer." + (interactive + (list (completing-read + "Engine: " + (let (engines) + (dolist (elt web-mode-engines) + (setq engines (append engines (list (car elt))))) + engines)))) + (setq web-mode-content-type "html" + web-mode-engine (web-mode-engine-canonical-name engine) + web-mode-minor-engine engine) + (web-mode-on-engine-setted) + (web-mode-buffer-fontify)) + +(defun web-mode-set-content-type (content-type) + "Set the content-type for the current buffer" + (interactive (list (completing-read "Content-type: " web-mode-part-content-types))) + (setq web-mode-content-type content-type) + (when (called-interactively-p 'any) + ) + (web-mode-buffer-fontify)) + +(defun web-mode-on-engine-setted () + (let (elt elts) + + (when (string= web-mode-engine "razor") (setq web-mode-enable-block-face t)) + ;;(setq web-mode-engine-attr-regexp (cdr (assoc web-mode-engine web-mode-engine-attr-regexps))) + (setq web-mode-engine-token-regexp (cdr (assoc web-mode-engine web-mode-engine-token-regexps))) + + ;;(message "%S %S %S" web-mode-engine web-mode-engine-attr-regexp web-mode-engine-token-regexp) + + (when (null web-mode-minor-engine) + (setq web-mode-minor-engine "none")) + + (setq elt (assoc web-mode-engine web-mode-engine-open-delimiter-regexps)) + (cond + (elt + (setq web-mode-block-regexp (cdr elt))) + ((string= web-mode-engine "archibus") + (setq web-mode-block-regexp nil)) + (t + (setq web-mode-engine "none")) + ) + + (unless (boundp 'web-mode-extra-auto-pairs) + (setq web-mode-extra-auto-pairs nil)) + + (setq web-mode-auto-pairs + (append + (cdr (assoc web-mode-engine web-mode-engines-auto-pairs)) + (cdr (assoc nil web-mode-engines-auto-pairs)) + (cdr (assoc web-mode-engine web-mode-extra-auto-pairs)) + (cdr (assoc nil web-mode-extra-auto-pairs)))) + + (unless (boundp 'web-mode-extra-snippets) + (setq web-mode-extra-snippets nil)) + + (setq elts + (append + (cdr (assoc web-mode-engine web-mode-extra-snippets)) + (cdr (assoc nil web-mode-extra-snippets)) + (cdr (assoc web-mode-engine web-mode-engines-snippets)) + (cdr (assoc nil web-mode-engines-snippets)))) + + ;;(message "%S" elts) + + (dolist (elt elts) + (unless (assoc (car elt) web-mode-snippets) + (setq web-mode-snippets (cons elt web-mode-snippets))) + ) + + (setq web-mode-engine-font-lock-keywords + (symbol-value (cdr (assoc web-mode-engine web-mode-engines-font-lock-keywords)))) + + (when (and (string= web-mode-minor-engine "jinja") + (not (member "endtrans" web-mode-django-control-blocks))) + (add-to-list 'web-mode-django-control-blocks "endtrans") + (setq web-mode-django-control-blocks-regexp + (regexp-opt web-mode-django-control-blocks t)) + ) + + (when (string= web-mode-engine "spip") + (modify-syntax-entry ?# "w" (syntax-table))) + + ;;(message "%S" (symbol-value (cdr (assoc web-mode-engine web-mode-engines-font-lock-keywords)))) + + )) + +(defun web-mode-detect-engine () + (save-excursion + (goto-char (point-min)) + (when (re-search-forward "-\\*- engine:[ ]*\\([[:alnum:]-]+\\)[ ]*-\\*-" web-mode-chunk-length t) + (setq web-mode-minor-engine (match-string-no-properties 1)) + (setq web-mode-engine (web-mode-engine-canonical-name web-mode-minor-engine))) + web-mode-minor-engine)) + +(defun web-mode-guess-engine-and-content-type () + (let (buff-name found) + + (setq buff-name (buffer-file-name)) + (unless buff-name (setq buff-name (buffer-name))) + (setq web-mode-is-scratch (string= buff-name "*scratch*")) + (setq web-mode-content-type nil) + + (when (boundp 'web-mode-content-types-alist) + (setq found nil) + (dolist (elt web-mode-content-types-alist) + (when (and (not found) (string-match-p (cdr elt) buff-name)) + (setq web-mode-content-type (car elt) + found t)) + ) ;dolist + ) ;when + + (unless web-mode-content-type + (setq found nil) + (dolist (elt web-mode-content-types) + (when (and (not found) (string-match-p (cdr elt) buff-name)) + (setq web-mode-content-type (car elt) + found t) + ;;(message "%S" web-mode-content-type) + ) ;when + ) ;dolist + ) ;unless + + (when (boundp 'web-mode-engines-alist) + (setq found nil) + (dolist (elt web-mode-engines-alist) + (cond + ((stringp (cdr elt)) + (when (string-match-p (cdr elt) buff-name) + (setq web-mode-engine (car elt)))) + ((functionp (cdr elt)) + (when (funcall (cdr elt)) + (setq web-mode-engine (car elt)))) + ) ;cond + ) ;dolist + ) ;when + + (unless web-mode-engine + (setq found nil) + (dolist (elt web-mode-engine-file-regexps) + ;;(message "%S %S %S" (cdr elt) (car elt) buff-name) + (when (and (not found) (string-match-p (cdr elt) buff-name)) + ;;(message "%S %S %S" (cdr elt) (car elt) buff-name) + (setq web-mode-engine (car elt) + found t) + ;;(when (and web-mode-engine (string= web-mode-engine "astro")) + ;; (setq web-mode-enable-front-matter-block t) + ;;) ;when + ) ;when + ) + ) + + (when (and (or (null web-mode-engine) (string= web-mode-engine "none")) + (string-match-p "php" (buffer-substring-no-properties + (line-beginning-position) + (line-end-position)))) + (setq web-mode-engine "php")) + + (when (and (string= web-mode-content-type "javascript") + (string-match-p "@jsx" + (buffer-substring-no-properties + (point-min) + (if (< (point-max) web-mode-chunk-length) + (point-max) + web-mode-chunk-length) + ))) + (setq web-mode-content-type "jsx")) + + (when web-mode-engine + (setq web-mode-minor-engine web-mode-engine + web-mode-engine (web-mode-engine-canonical-name web-mode-engine)) + ) + + ;;(message "%S %S" web-mode-engine web-mode-enable-engine-detection) + + (when (and (or (null web-mode-engine) + (string= web-mode-engine "none")) + web-mode-enable-engine-detection) + (web-mode-detect-engine)) + + (web-mode-on-engine-setted) + + )) + +(defun web-mode-engine-canonical-name (name) + (let (engine) + (cond + ((null name) + nil) + ((assoc name web-mode-engines) + name) + (t + (dolist (elt web-mode-engines) + (when (and (null engine) (member name (cdr elt))) + (setq engine (car elt))) + ) ;dolist + engine) + ))) + +(defun web-mode-on-after-save () + (when web-mode-is-scratch + (web-mode-guess-engine-and-content-type) + (web-mode-buffer-fontify)) + nil) + +(defun web-mode-on-exit () + (web-mode-with-silent-modifications + (put-text-property (point-min) (point-max) 'invisible nil) + (remove-overlays) + (remove-hook 'change-major-mode-hook 'web-mode-on-exit t) + )) + +(defun web-mode-file-link (file) + "Insert a link to a file in html document. This function can be +extended to support more filetypes by customizing +`web-mode-links'." + (interactive + (list (file-relative-name (read-file-name "Link file: ")))) + (let ((matched nil) + (point-line (line-number-at-pos)) + (point-column (current-column))) + (dolist (type web-mode-links) + (when (string-match (car type) file) + (setq matched t) + (when (nth 2 type) + (goto-char (point-min)) + (search-forward "") + (backward-char 7) + (open-line 1)) + (insert (format (cadr type) file)) + (indent-for-tab-command) + (when (nth 2 type) + ;; return point where it was and fix indentation + (forward-line) + (indent-for-tab-command) + (if (> point-line (- (line-number-at-pos) 2)) + (forward-line (+ (- point-line (line-number-at-pos)) 1)) + (forward-line (- point-line (line-number-at-pos)))) + (move-to-column point-column)) + ;; move point back if needed + (backward-char (nth 3 type)))) + (when (not matched) + (user-error "Unknown file type")))) + +(defun web-mode-reload () + "Reload web-mode." + (interactive) + (web-mode-with-silent-modifications + (put-text-property (point-min) (point-max) 'invisible nil) + (remove-overlays) + (setq font-lock-unfontify-region-function 'font-lock-default-unfontify-region) + (load "web-mode.el") + (setq web-mode-change-beg nil + web-mode-change-end nil) + (web-mode) + )) + +(defun web-mode-measure (msg) + (let (sub) + (when (null web-mode-time) (setq web-mode-time (current-time))) + (setq sub (time-subtract (current-time) web-mode-time)) + (when nil + (save-excursion + (let ((n 0)) + (goto-char (point-min)) + (while (web-mode-tag-next) + (setq n (1+ n)) + ) + (message "%S tags found" n) + ))) + (message "%18s: time elapsed = %Ss %9Sµs" msg (nth 1 sub) (nth 2 sub)) + )) + +(defun web-mode-reveal () + "Display text properties at point." + (interactive) + (let (symbols out) + (setq out (format + "[point=%S engine=%S minor=%S content-type=%S language-at-pos=%S]\n" + (point) + web-mode-engine + web-mode-minor-engine + web-mode-content-type + (web-mode-language-at-pos (point)))) + (setq symbols (append web-mode-scan-properties '(font-lock-face face))) + (dolist (symbol symbols) + (when symbol + (setq out (concat out (format "%s(%S) " (symbol-name symbol) (get-text-property (point) symbol))))) + ) + (message "%s\n" out) + ;;(message "syntax-class=%S" (syntax-class (syntax-after (point)))) + (message nil))) + +(defun web-mode-toggle-tracing () + "Toggle tracing." + (interactive) + (if web-mode-trace + (setq web-mode-trace nil) + (message "** tracing on ** point(%S) web-mode-change-beg(%S) web-mode-change-end(%S) web-mode-skip-fontification(%S)" + (point) web-mode-change-beg web-mode-change-end web-mode-skip-fontification) + (setq web-mode-trace t))) + +(defun web-mode-debug () + "Display informations useful for debugging." + (interactive) + (let ((modes nil) + (customs '(web-mode-enable-current-column-highlight web-mode-enable-current-element-highlight indent-tabs-mode)) + (ignore '(abbrev-mode auto-composition-mode auto-compression-mode auto-encryption-mode auto-insert-mode blink-cursor-mode column-number-mode delete-selection-mode display-time-mode electric-indent-mode file-name-shadow-mode font-lock-mode global-font-lock-mode global-hl-line-mode line-number-mode menu-bar-mode mouse-wheel-mode recentf-mode show-point-mode tool-bar-mode tooltip-mode transient-mark-mode))) + (message "\n") + (message "--- WEB-MODE DEBUG BEG ---") + (message "versions: emacs(%S.%S) web-mode(%S)" + emacs-major-version emacs-minor-version web-mode-version) + (message "vars: engine(%S) minor(%S) content-type(%S) file(%S)" + web-mode-engine + web-mode-minor-engine + web-mode-content-type + (or (buffer-file-name) (buffer-name))) + (message "system: window(%S) config(%S)" window-system system-configuration) + (message "colors: fg(%S) bg(%S) " + (cdr (assoc 'foreground-color default-frame-alist)) + (cdr (assoc 'background-color default-frame-alist))) + (mapc (lambda (mode) + (condition-case nil + (if (and (symbolp mode) (symbol-value mode) (not (member mode ignore))) + (push mode modes)) + (error nil)) + ) ;lambda + minor-mode-list) + (message "minor modes: %S" modes) + (message "vars:") + (dolist (custom customs) + (message (format "%s=%S " (symbol-name custom) (symbol-value custom)))) + (message "--- WEB-MODE DEBUG END ---") + (switch-to-buffer "*Messages*") + (goto-char (point-max)) + (recenter) + )) + +(provide 'web-mode) + +;;; web-mode.el ends here + +;; Local Variables: +;; coding: utf-8 +;; indent-tabs-mode: nil +;; sentence-end-double-space: nil +;; End: