hugo
/
workspace
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add epaper theme and git config

Browse Source
master
Hugo Thunnissen 2 years ago
parent 7f12112919
commit 9c70d70e02
4 changed files with 155 additions and 1 deletions
Show Stats Download Patch File Download Diff File

118
emacs/epaper-theme.el
Unescape Escape View File

@ -0,0 +1,118 @@
;;; epaper-theme.el --- Custom face theme for Emacs
;;
;;; Commentary:
;; This is a bright, low-contrast theme that is inspired by the sepia color palette of
;; Mozilla Firefox's reader view.
;;
;;; Code:
(deftheme epaper
"A low-contrast theme inspired by Firefox Reader view.
Basic, Font Lock, Isearch, SH, ERC and Powerline faces are included.
Note: for correct (readable) display of the ERC channel header
line, set `erc-header-line-face-method` to `t`.")
(let ((class '((class color) (min-colors 256)))
(default-color "#5b4636")
(background-color "#f4ecd8")
(tinted-background-color "#f9f5eb")
(toolbar-color "#f9f5eb")
(string-color "#000000")
(highlight-color "#808080")
(link-color "#0095dd")
(visited-link-color "#c2e")
(shadow-color "#ADA29A")
(shaded-background-color "#DBD4C2"))
(custom-theme-set-variables
'epaper
`(window-divider-default-right-width 4)
`(tab-bar-separator "｜")
`(tab-bar-close-button-show nil))
(custom-theme-set-faces
'epaper
`(default ((,class (:background ,background-color :foreground ,default-color))))
`(cursor ((,class (:background ,default-color))))
`(fringe ((,class (:background ,tinted-background-color :foreground ,highlight-color))))
`(window-divider ((,class (:background ,toolbar-color :foreground ,toolbar-color))))
`(window-divider-first-pixel ((,class (:background ,background-color :foreground ,background-color))))
`(window-divider-last-pixel ((,class (:background ,toolbar-color :foreground ,toolbar-color))))
`(table-cell ((,class (:background ,shaded-background-color :foreground ,default-color))))
`(tab-bar ((,class (:background ,tinted-background-color :foreground ,shadow-color))))
`(tab-bar-tab ((,class (:background ,tinted-background-color :foreground ,default-color :bold t))))
`(tab-bar-tab-inactive ((,class (:background ,tinted-background-color :foreground ,shadow-color))))
`(shadow ((,class (:background ,background-color :foreground ,shadow-color))))
`(fill-column-indicator ((,class (:background ,background-color :foreground ,tinted-background-color))))
;; Highlighting faces
`(highlight ((,class (:background ,highlight-color :foreground ,toolbar-color
:underline t))))
`(region ((,class (:background ,toolbar-color :foreground ,default-color))))
`(secondary-selection ((,class (:background ,highlight-color :foreground ,default-color))))
`(isearch ((,class (:background ,highlight-color :foreground ,toolbar-color))))
`(lazy-highlight ((,class (:background ,highlight-color :foreground ,default-color))))
;; Mode line faces
`(mode-line ((,class (:background ,toolbar-color :foreground ,default-color))))
`(mode-line-inactive ((,class (:background ,background-color :foreground ,default-color))))
;; Escape and prompt faces
`(minibuffer-prompt ((,class (:foreground ,default-color :weight bold :slant italic))))
`(escape-glyph ((,class (:foreground ,default-color :weight bold))))
`(homoglyph ((,class (:foreground ,default-color :weight bold))))
;; Font lock faces
`(font-lock-builtin-face ((,class (:foreground ,default-color :weight bold))))
`(font-lock-comment-face ((,class (:foreground ,string-color :slant italic))))
`(font-lock-constant-face ((,class (:foreground ,default-color))))
`(font-lock-function-name-face ((,class (:foreground ,default-color))))
`(font-lock-keyword-face ((,class (:foreground ,default-color :weight bold))))
`(font-lock-string-face ((,class (:foreground ,string-color))))
`(font-lock-type-face ((,class (:foreground ,default-color :weight bold))))
`(font-lock-variable-name-face ((,class (:foreground ,default-color :underline t))))
`(font-lock-warning-face ((,class (:foreground ,default-color :underline t))))
;; Button and link faces
`(link ((,class (:foreground ,link-color :underline t))))
`(link-visited ((,class (:foreground ,visited-link-color :underline t))))
`(button ((,class (:background ,toolbar-color :foreground ,default-color))))
`(header-line ((,class (:background ,toolbar-color :foreground ,default-color :weight bold))))
`(line-number ((,class (:background ,background-color :foreground ,highlight-color))))
;; Mode Line faces
`(mode-line-inactive ((,class :background ,toolbar-color :foreground ,highlight-color)))
`(mode-line ((,class :background ,toolbar-color :foreground ,default-color)))
;; Powerline faces
`(powerline-inactive0 ((,class :background ,toolbar-color :foreground ,highlight-color)))
`(powerline-inactive1 ((,class :background ,toolbar-color :foreground ,highlight-color)))
`(powerline-inactive2 ((,class :background ,toolbar-color :foreground ,highlight-color)))
`(powerline-active0 ((,class (:background ,toolbar-color :foreground ,default-color))))
`(powerline-active1 ((,class (:background ,default-color :foreground ,background-color))))
`(powerline-active2 ((,class (:background ,default-color :foreground ,background-color))))
;; SH Mode faces
`(sh-heredoc ((,class (:foreground ,string-color :slant italic :weight bold))))
`(sh-quoted-exec ((,class (:foreground ,default-color))))
;; ERC Mode faces
`(erc-header-line ((,class (:background ,toolbar-color :foreground ,highlight-color))))
;; Highlight indentation mode faces
`(highlight-indentation-face ((,class (:background "#ebe6da"))))
) ; End custom-set-faces
) ; End let
(provide-theme 'epaper)
;; Local Variables:
;; no-byte-compile: t
;; End:
;;; epaper-theme.el ends here

2
emacs/init.el
Unescape Escape View File

@ -1,6 +1,6 @@
;; -*- lexical-binding: t; -*-
(add-to-list 'custom-theme-load-path "~/dotfiles/elisp-themes/")
(add-to-list 'custom-theme-load-path "~/.workspace/elisp-themes/")
(let ((home (getenv "HOME")))
;; Added by Package.el. This must come before configurations of

14
git/config
Unescape Escape View File

@ -0,0 +1,14 @@
[user]
email = devel@hugot.nl
name = Hugo Thunnissen
[core]
excludesFile = /home/hugo/.gitignore
[filter "lfs"]
smudge = git-lfs smudge -- %f
process = git-lfs filter-process
required = true
clean = git-lfs clean -- %f
[pull]
rebase = true
[url "ssh://git@git.snorba.art:42068/"]
insteadOf = https://git.snorba.art/

22
main.go
Unescape Escape View File

@ -27,9 +27,16 @@ var initLisp string
//go:embed emacs/custom.el
var customLisp string
//go:embed emacs/epaper-theme.el
var elispEpaperTheme string
//go:embed bash/bash_aliases
var bashAliases string
//go:embed git/config
var gitConfig string
var ErrAddUserFailExit = errors.New("useradd command returned no-zero exit code")
var ErrAddGroupFailExit = errors.New("groupadd command returned no-zero exit code")
@ -297,11 +304,26 @@ func main() {
}
case "dump-init-files":
home := os.Getenv("HOME")
elispThemeDir := home + "/.workspace/elisp-themes"
if _, err := os.Stat(elispThemeDir); os.IsNotExist(err) {
err = os.MkdirAll(elispThemeDir, 0600)
if err != nil {
fmt.Fprintln(
os.Stderr,
"Failed to create elisp theme dir in" + elispThemeDir,
)
os.Exit(1)
}
}
files := map[string]string{
home + "/.emacs": initLisp,
home + "/.custom.el": customLisp,
home + "/.bash_aliases": bashAliases,
elispThemeDir + "/epaper-theme.el": elispEpaperTheme,
home + "/.gitconfig": gitConfig,
}
for file, contents := range files {

Write Preview
Loading…
Cancel
Save