13 İşlemeler 684249b83d ... 8956004793

Yazar SHA1 Mesaj Tarih
  Alex Kost 8956004793 Update version to 0.10 3 yıl önce
  Alex Kost 87e0793305 Add 'org-drawer' face 3 yıl önce
  Alex Kost 1dfa1dc278 Add support for 'which-key' 3 yıl önce
  Alex Kost ccdeaa87e9 README: Use 'with-eval-after-load' in a sample code 3 yıl önce
  Alex Kost d746186f8c Modify/add 'w3m' faces 3 yıl önce
  Alex Kost 6ea7c46f0d Modify 'diff' faces 3 yıl önce
  Alex Kost 24594003ab Add support for 'tab-bar-mode' 3 yıl önce
  Alex Kost fb5b1dbc04 README: Fix links 3 yıl önce
  Alex Kost 97723e32c1 Modify 'alect-tab-default' 3 yıl önce
  Alex Kost 39a18883e8 README: Use https everywhere 3 yıl önce
  Alex Kost 8fe6ba5054 Add support for 'org-transclusion' 3 yıl önce
  Alex Kost 6f81a2c815 Add 'sunshine' faces 3 yıl önce
  Alex Kost 630d59dd24 Modify 'alect-block' face 3 yıl önce
2 değiştirilmiş dosya ile 112 ekleme ve 68 silme
  1. 51 50
      README.md
  2. 61 18
      alect-themes.el

+ 51 - 50
README.md

@@ -1,6 +1,6 @@
-[![License GPL 3](https://img.shields.io/badge/license-GPL_3-orange.svg)](http://www.gnu.org/licenses/gpl-3.0.txt)
-[![MELPA](http://melpa.org/packages/alect-themes-badge.svg)](http://melpa.org/#/alect-themes)
-[![MELPA Stable](http://stable.melpa.org/packages/alect-themes-badge.svg)](http://stable.melpa.org/#/alect-themes)
+[![License GPL 3](https://img.shields.io/badge/license-GPL_3-orange.svg)](https://www.gnu.org/licenses/gpl-3.0.txt)
+[![MELPA](https://melpa.org/packages/alect-themes-badge.svg)](https://melpa.org/#/alect-themes)
+[![MELPA Stable](https://stable.melpa.org/packages/alect-themes-badge.svg)](https://stable.melpa.org/#/alect-themes)
 
 ## About
 
@@ -49,7 +49,7 @@ supported (themed):
   + erc
   + epa
   + ert
-  + [Org](http://orgmode.org/)
+  + [Org](https://orgmode.org/)
   + message
   + gnus (also see a note about Gnus [here](#other-variables))
   + flyspell
@@ -60,37 +60,39 @@ supported (themed):
   + package
   + show-paren
   + speedbar
-- [aurel](https:/github.com/alezost/aurel)
-- [auto-complete](https:/github.com/auto-complete/auto-complete)
+- [aurel](https://github.com/alezost/aurel)
+- [auto-complete](https://github.com/auto-complete/auto-complete)
 - Caml packages: [tuareg](https://github.com/ocaml/tuareg),
   [merlin](https://github.com/the-lambda-church/merlin),
   [utop](https://github.com/diml/utop)
-- [company](http://company-mode.github.io/)
+- [company](https://company-mode.github.io/)
 - [cperl](https://github.com/jrockway/cperl-mode)
-- [debbugs](http://elpa.gnu.org/packages/debbugs.html)
+- [debbugs](https://elpa.gnu.org/packages/debbugs.html)
 - [diff-hl](https://github.com/dgutov/diff-hl)
-- [dictem](https:/github.com/cheusov/dictem)
+- [dictem](https://github.com/cheusov/dictem)
 - [EMMS](https://www.gnu.org/software/emms/)
-- [Geiser](https:/github.com/jaor/geiser)
-- [google-translate](https:/github.com/atykhonov/google-translate)
+- [Geiser](https://github.com/jaor/geiser)
+- [google-translate](https://github.com/atykhonov/google-translate)
 - [Emacs-Guix](https://github.com/alezost/guix.el)
 - [Helm](https://emacs-helm.github.io/helm/) (partial support)
 - [Hydra](https://github.com/abo-abo/hydra)
-- [indent-guide](https:/github.com/zk-phi/indent-guide)
+- [indent-guide](https://github.com/zk-phi/indent-guide)
 - [ivy](https://github.com/abo-abo/swiper)
-- [Magit](http://magit.vc/)
-- [markdown](http://jblevins.org/projects/markdown-mode/)
+- [Magit](https://magit.vc/)
+- [markdown](https://jblevins.org/projects/markdown-mode/)
 - [mu4e](https://github.com/djcb/mu)
+- [org-transclusion](https://github.com/nobiot/org-transclusion)
 - [powerline](https://github.com/milkypostman/powerline)
 - [realgud](https://github.com/realgud/realgud)
 - [rubik](https://github.com/Kurvivor19/rubik-mode)
-- [sauron](https:/github.com/djcb/sauron)
+- [sauron](https://github.com/djcb/sauron)
 - [slime](https://common-lisp.net/project/slime/)
-- [sunrise-commander](https:/github.com/escherdragon/sunrise-commander)
-- [syslog](https:/github.com/vapniks/syslog-mode)
-- [tabbar](https:/github.com/dholm/tabbar)
+- [sunrise-commander](https://github.com/escherdragon/sunrise-commander)
+- [syslog](https://github.com/vapniks/syslog-mode)
+- [tabbar](https://github.com/dholm/tabbar)
 - [transient](https://github.com/magit/transient)
 - [w3m](http://emacs-w3m.namazu.org/)
+- [which-key](https://github.com/justbur/emacs-which-key)
 - [winum](https://github.com/deb0ch/emacs-winum)
 
 The other packages are not supported yet even if there are some
@@ -112,7 +114,7 @@ Add this to your init file (`~/.emacs.d/init.el` or `~/.emacs`):
 
 ### MELPA
 
-The package can be installed from [MELPA](http://melpa.org) (with `M-x
+The package can be installed from [MELPA](https://melpa.org) (with `M-x
 package-install` or `M-x list-packages`).
 
 If you want to enable (see [Usage section](#usage)) **any** theme
@@ -195,10 +197,9 @@ the background.  You can change those colors by putting this into your
 `.emacs` (before loading an alect-theme if you use it on Emacs start):
 
 ```elisp
-(eval-after-load 'alect-themes
-  '(progn
-     (alect-set-color 'light 'cyan-2 "#00a8a8")
-     (alect-set-color 'dark 'bg-1 "black")))
+(with-eval-after-load 'alect-themes
+  (alect-set-color 'light 'cyan-2 "#00a8a8")
+  (alect-set-color 'dark 'bg-1 "black"))
 ```
 
 The function `alect-set-color` is just a convenient way for modifying
@@ -316,10 +317,10 @@ example, if you enable `alect-light` theme, you can see ugly gray
 buttons and other faces in the `Custom-mode` (the left picture)
 instead of the themed colored buttons (the right picture):
 
-<a href="http://i.imgur.com/sLKZI90.png">
-<img src="http://i.imgur.com/Ah1YXNH.png" title="alect-light - Custom-mode (wrong colors)"/></a>
-<a href="http://i.imgur.com/yn6Njtq.png">
-<img src="http://i.imgur.com/66G9VvX.png" title="alect-light - Custom-mode (proper colors)"/></a>
+<a href="https://i.imgur.com/sLKZI90.png">
+<img src="https://i.imgur.com/Ah1YXNH.png" title="alect-light - Custom-mode (wrong colors)"/></a>
+<a href="https://i.imgur.com/yn6Njtq.png">
+<img src="https://i.imgur.com/66G9VvX.png" title="alect-light - Custom-mode (proper colors)"/></a>
 
 This happens because Emacs applies default face settings even for a
 themed face.  This behaviour is changed in the new versions of Emacs:
@@ -354,7 +355,7 @@ development variants from 24.3.50.1.  It works good except of one
 particular case: if you try to use that workaround and enable a theme in
 an unsupported (by the theme) terminal (e.g. alect-theme in a text
 terminal), your monitor may suddenly explode.  Currently
-[faces.el](http://git.savannah.gnu.org/cgit/emacs.git/tree/lisp/faces.el)
+[faces.el](https://git.savannah.gnu.org/cgit/emacs.git/tree/lisp/faces.el)
 is changed a lot (comparing to 24.3) and I don't know a better
 workaround.
 
@@ -366,7 +367,7 @@ they should.
 ### Emacs bug in themed variables
 
 Emacs has a bug
-([#16266](http://debbugs.gnu.org/cgi/bugreport.cgi?bug=16266)) that
+([#16266](https://debbugs.gnu.org/cgi/bugreport.cgi?bug=16266)) that
 doesn't allow to set undefined variables.  For example, if a theme
 customizes a color for emms icon and you load the theme before emms,
 then emms icon will use a default color instead of the themed one.  This
@@ -391,7 +392,7 @@ You can use this workaround to avoid the bug:
 ## Screenshots
 
 You can see the following and other screenshots in
-[this imgur album](http://imgur.com/a/eBx96).
+[this imgur album](https://imgur.com/a/eBx96).
 
 ### C, shell, linum, ido
 
@@ -399,10 +400,10 @@ You can see the following and other screenshots in
 
 **Font:** *Terminus-12*
 
-<a href="http://i.imgur.com/XS9TM80.png">
-<img src="http://i.imgur.com/XS9TM80.png" title="alect-light - c, shell" width=320 height=240/></a>
-<a href="http://i.imgur.com/Fj0s7oT.png">
-<img src="http://i.imgur.com/Fj0s7oT.png" title="alect-dark - c, shell" width=320 height=240/></a>
+<a href="https://i.imgur.com/XS9TM80.png">
+<img src="https://i.imgur.com/XS9TM80.png" title="alect-light - c, shell" width=320 height=240/></a>
+<a href="https://i.imgur.com/Fj0s7oT.png">
+<img src="https://i.imgur.com/Fj0s7oT.png" title="alect-dark - c, shell" width=320 height=240/></a>
 
 ### Org, markdown
 
@@ -410,10 +411,10 @@ You can see the following and other screenshots in
 
 **Font:** *DejaVu Sans Mono-12*
 
-<a href="http://i.imgur.com/QoKlSxn.png">
-<img src="http://i.imgur.com/QoKlSxn.png" title="alect-light - org, markdown" width=320 height=240/></a>
-<a href="http://i.imgur.com/Ufx12Nm.png">
-<img src="http://i.imgur.com/Ufx12Nm.png" title="alect-black - org, markdown" width=320 height=240/></a>
+<a href="https://i.imgur.com/QoKlSxn.png">
+<img src="https://i.imgur.com/QoKlSxn.png" title="alect-light - org, markdown" width=320 height=240/></a>
+<a href="https://i.imgur.com/Ufx12Nm.png">
+<img src="https://i.imgur.com/Ufx12Nm.png" title="alect-black - org, markdown" width=320 height=240/></a>
 
 ### Magit
 
@@ -421,10 +422,10 @@ You can see the following and other screenshots in
 
 **Font:** *Anonymous Pro-13*
 
-<a href="http://i.imgur.com/rjGvhV6.png">
-<img src="http://i.imgur.com/rjGvhV6.png" title="alect-light - magit" width=320 height=240/></a>
-<a href="http://i.imgur.com/5WJ4xu9.png">
-<img src="http://i.imgur.com/5WJ4xu9.png" title="alect-dark - magit" width=320 height=240/></a>
+<a href="https://i.imgur.com/rjGvhV6.png">
+<img src="https://i.imgur.com/rjGvhV6.png" title="alect-light - magit" width=320 height=240/></a>
+<a href="https://i.imgur.com/5WJ4xu9.png">
+<img src="https://i.imgur.com/5WJ4xu9.png" title="alect-dark - magit" width=320 height=240/></a>
 
 ### Elisp, ido
 
@@ -434,10 +435,10 @@ original dark theme and a dark theme with some changed faces (see
 
 **Font:** *Liberation Mono-12*
 
-<a href="http://i.imgur.com/gZAZgvT.png">
-<img src="http://i.imgur.com/gZAZgvT.png" title="alect-dark (default) - elisp" width=320 height=240/></a>
-<a href="http://i.imgur.com/mAlbxLd.png">
-<img src="http://i.imgur.com/mAlbxLd.png" title="alect-dark (modified) - elisp" width=320 height=240/></a>
+<a href="https://i.imgur.com/gZAZgvT.png">
+<img src="https://i.imgur.com/gZAZgvT.png" title="alect-dark (default) - elisp" width=320 height=240/></a>
+<a href="https://i.imgur.com/mAlbxLd.png">
+<img src="https://i.imgur.com/mAlbxLd.png" title="alect-dark (modified) - elisp" width=320 height=240/></a>
 
 ### Dired, elisp
 
@@ -447,10 +448,10 @@ alternative themes, configured to invert background (see
 
 **Font:** *Anonymous Pro-13*
 
-<a href="http://i.imgur.com/ljO1Dlf.png">
-<img src="http://i.imgur.com/ljO1Dlf.png" title="alect-light-alt (modified) - dired, elisp" width=320 height=240/></a>
-<a href="http://i.imgur.com/HNMr4qj.png">
-<img src="http://i.imgur.com/HNMr4qj.png" title="alect-dark-alt (modified) - dired, elisp" width=320 height=240/></a>
+<a href="https://i.imgur.com/ljO1Dlf.png">
+<img src="https://i.imgur.com/ljO1Dlf.png" title="alect-light-alt (modified) - dired, elisp" width=320 height=240/></a>
+<a href="https://i.imgur.com/HNMr4qj.png">
+<img src="https://i.imgur.com/HNMr4qj.png" title="alect-dark-alt (modified) - dired, elisp" width=320 height=240/></a>
 
 ## History
 

+ 61 - 18
alect-themes.el

@@ -1,10 +1,10 @@
 ;;; alect-themes.el --- Configurable light, dark and black themes for Emacs 24 or later   -*- lexical-binding: t -*-
 
-;; Copyright © 2013–2020 Alex Kost
+;; Copyright © 2013–2021 Alex Kost
 
 ;; Author: Alex Kost <alezost@gmail.com>
 ;; Created: 10 Jul 2013
-;; Version: 0.9
+;; Version: 0.10
 ;; Package-Requires: ((emacs "24.0"))
 ;; URL: https://github.com/alezost/alect-themes
 ;; Keywords: color theme
@@ -481,7 +481,8 @@ For INVERT, see `alect-get-color'."
 
          ;; auxiliary faces for inheriting
          (alect-field-title    ((,c :foreground ,(gc 'yellow+1))))
-         (alect-block          ((,c :background ,(gc 'bg-0.5))))
+         (alect-block          ((,c :background ,(gc 'bg-0.5)
+                                    :extend t)))
          (alect-block-title    ((,c :inherit alect-block
                                     :foreground ,(gc 'green+1))))
          (alect-prompt         ((,c :foreground ,(gc 'magenta-1)
@@ -537,7 +538,8 @@ For INVERT, see `alect-get-color'."
          (alect-button-mouse   ((,c :inherit highlight
                                     :box (:line-width 2
                                           :style released-button))))
-         (alect-tab-default    ((,c :height 0.9 :box nil)))
+         (alect-tab-default    ((,c :height 0.9 :box nil
+                                    :background ,(gc 'bg-1))))
          (alect-tab-unselected ((,c :inherit alect-tab-default
                                     :foreground ,(gc 'fg-2)
                                     :background ,(gc 'bg)
@@ -709,15 +711,15 @@ For INVERT, see `alect-get-color'."
          (diff-added             ((,c :foreground ,(gc 'green-1))))
          (diff-changed           ((,c :foreground ,(gc 'yellow-1))))
          (diff-removed           ((,c :foreground ,(gc 'red-1))))
-         (diff-indicator-added   ((,c :inherit diff-added)))
-         (diff-indicator-changed ((,c :inherit diff-changed)))
-         (diff-indicator-removed ((,c :inherit diff-removed)))
-         (diff-refine-added      ((,c :inherit diff-added
-                                      :underline t)))
-         (diff-refine-changed    ((,c :inherit diff-changed
-                                      :underline t)))
-         (diff-refine-removed    ((,c :inherit diff-removed
-                                      :underline t)))
+         (diff-indicator-added   ((,c :inherit diff-added :weight bold)))
+         (diff-indicator-changed ((,c :inherit diff-changed :weight bold)))
+         (diff-indicator-removed ((,c :inherit diff-removed :weight bold)))
+         (diff-refine-added      ((,c :background ,(gc 'green-bg)
+                                      :foreground ,(gc 'fg+1))))
+         (diff-refine-changed    ((,c :background ,(gc 'yellow-bg)
+                                      :foreground ,(gc 'fg+1))))
+         (diff-refine-removed    ((,c :background ,(gc 'red-bg)
+                                      :foreground ,(gc 'fg+1))))
          (diff-header            ((,c :foreground ,(gc 'blue-2) :weight bold)))
          (diff-hunk-header       ((,c :inherit diff-header
                                       :foreground ,(gc 'green+2))))
@@ -1399,6 +1401,8 @@ For INVERT, see `alect-get-color'."
          (org-scheduled-previously  ((,c :foreground ,(gc 'red-2))))
          (org-scheduled-today       ((,c :foreground ,(gc 'blue+1))))
          (org-special-keyword       ((,c :inherit font-lock-doc-face)))
+         (org-drawer                ((,c :inherit org-special-keyword
+                                         :weight bold)))
          (org-table                 ((,c :foreground ,(gc 'fg-1))))
          (org-tag                   ((,c :slant italic)))
          (org-time-grid             ((,c :foreground ,(gc 'fg-2))))
@@ -1412,6 +1416,16 @@ For INVERT, see `alect-get-color'."
          (org-column-title          ((,c :background ,(gc 'bg-2)
                                          :underline t :weight bold)))
 
+         ;; org-transclusion
+         (org-transclusion-keyword     ((,c :inherit org-meta-line)))
+         (org-transclusion             ((,c :background ,(gc 'bg+1)
+                                            :extend t)))
+         (org-transclusion-edit        ((,c :inherit org-transclusion)))
+         (org-transclusion-source      ((,c :background ,(gc 'green-bg+1)
+                                            :extend t)))
+         (org-transclusion-source-edit ((,c :background ,(gc 'yellow-bg+1)
+                                            :extend t)))
+
          ;; outline
          (outline-1 ((,c :inherit alect-title-1)))
          (outline-2 ((,c :inherit alect-title-2)))
@@ -1614,6 +1628,10 @@ For INVERT, see `alect-get-color'."
          (sr-xml-face               ((,c :foreground ,(gc 'green+2))))
          (sr-html-face              ((,c :foreground ,(gc 'cyan+2))))
 
+         (sunshine-forecast-date-face        ((,c :inherit alect-time)))
+         (sunshine-forecast-day-divider-face ((,c :foreground ,(gc 'fg-1))))
+         (sunshine-forecast-headline-face    ((,c :inherit alect-title)))
+
          ;; syslog-mode
          (syslog-error ((,c :inherit error)))
          (syslog-warn  ((,c :inherit warning)))
@@ -1623,6 +1641,12 @@ For INVERT, see `alect-get-color'."
          (syslog-su    ((,c :foreground ,(gc 'cyan))))
          (syslog-ip    ((,c :foreground ,(gc 'yellow+1) :underline t)))
 
+         ;; tab-bar
+         (tab-line                ((,c :inherit header-line)))
+         (tab-bar                 ((,c :inherit alect-tab-default)))
+         (tab-bar-tab             ((,c :inherit alect-tab-selected)))
+         (tab-bar-tab-inactive    ((,c :inherit alect-tab-unselected)))
+
          ;; tabbar
          (tabbar-default          ((,c :inherit alect-tab-default)))
          (tabbar-separator        ((,c :inherit tabbar-default)))
@@ -1710,8 +1734,16 @@ For INVERT, see `alect-get-color'."
          (vc-removed-state       ((,c :foreground ,(gc 'red-1))))
 
          ;; emacs-w3m
-         (w3m-anchor                       ((,c :inherit link)))
-         (w3m-arrived-anchor               ((,c :inherit link-visited)))
+         (w3m-anchor                       ((,c :inherit link
+                                                :underline nil)))
+         (w3m-arrived-anchor               ((,c :inherit link-visited
+                                                :underline nil)))
+         (w3m-current-anchor               ((,c :inherit link
+                                                :weight bold)))
+         (w3m-image-anchor                 ((,c :inherit w3m-anchor
+                                                :box (:line-width -1
+                                                      :color ,(gc 'green)
+                                                      :style nil))))
          (w3m-form                         ((,c :foreground ,(gc 'red-1)
                                                 :underline t)))
          (w3m-form-button                  ((,c :inherit alect-button)))
@@ -1728,15 +1760,26 @@ For INVERT, see `alect-get-color'."
          (w3m-tab-unselected-unseen        ((,c :inherit w3m-tab-unselected
                                                 :foreground ,(gc 'fg))))
          (w3m-tab-mouse                    ((,c :inherit alect-tab-mouse)))
-         (w3m-header-line-location-title   ((,c :inherit header-line)))
-         (w3m-header-line-location-content ((,c :foreground ,(gc 'blue-1)
+         (w3m-header-line-background       ((,c :background ,(gc 'bg))))
+         (w3m-header-line-title            ((,c :inherit (alect-title
+                                                          header-line))))
+         (w3m-header-line-content          ((,c :foreground ,(gc 'blue-1)
                                                 :inherit header-line)))
          (w3m-history-current-url          ((,c :inherit alect-selected-item)))
-         (w3m-image-anchor                 ((,c :background ,(gc 'bg+1))))
 
          ;; which-func-mode
          (which-func ((,c :inherit font-lock-function-name-face)))
 
+         ;; which-key
+         (which-key-key-face                 ((,c :inherit alect-key)))
+         (which-key-separator-face           ((,c :foreground ,(gc 'fg-1))))
+         (which-key-note-face                ((,c :inherit font-lock-comment-face)))
+         (which-key-command-description-face ((,c nil)))
+         (which-key-highlighted-command-face ((,c :foreground ,(gc 'blue))))
+         (which-key-group-description-face   ((,c :inherit which-key-command-description-face
+                                                  :weight bold)))
+         (which-key-docstring-face           ((,c :inherit font-lock-doc-face)))
+
          ;; whitespace-mode
          (whitespace-space            ((,c :foreground ,(gc 'bg+1))))
          (whitespace-hspace           ((,c :background ,(gc 'bg)