blob: 4794ce2d90a3d9d2612b28ec710cd334c6783ea7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
;;; terminator.el --- Experimenting with theming Terminator -*- lexical-binding: t -*-
;; Author: William Carroll <wpcarro@gmail.com>
;;; Commentary:
;; I think most of this module is me getting carried away with the idea of
;; theming Terminator. Terminator themes are defined in a themes.json file. As
;; far as I know, Terminator does not support specifying these themes by name on
;; the command line, which would greatly simplify things. Terminator does
;; support passing a --profile flag, however, which can be used to specify the
;; themes. The idea, albeit quite awkward and over-engineered, was to create
;; these profile files on the fly and pass them to terminator. After around 45
;; minutes of tinkering with this, the idea is starting to disenchant me.
;;
;; Alternative solutions include:
;; 1. Further investigating what other options Terminator supports.
;; 2. Using a different terminal emulator.
;; 3. Just right clicking Terminator and changing the themes manually.
;;; Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'prelude)
(require 'alist)
(require 'string)
(require 'json)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cl-defstruct terminator/theme
foreground-color
background-color
cursor-color
palette)
(defvar terminator/palettes
'((solarized-light . "#002831:#d11c24:#738a05:#a57706:#2176c7:#c61c6f:#259286:#eae3cb:#001e27:#bd3613:#475b62:#536870:#708284:#5956ba:#819090:#fcf4dc"))
"Mapping of theme names to the color palette that terminator expects.")
(defconst terminator/profile-template "[global_config]
enabled_plugins = LaunchpadBugURLHandler, LaunchpadCodeURLHandler, APTURLHandler, TerminatorThemes
[keybindings]
[profiles]
[[default]]
background_color = \"%s\"
cursor_shape = ibeam
cursor_color = \"%s\"
font = Input Mono Medium 12
foreground_color = \"%s\"
show_titlebar = False
scrollbar_position = hidden
palette = \"%s\"
use_system_font = False
[layouts]
[[default]]
[[[child1]]]
parent = window0
type = Terminal
profile = Molokai
[[[window0]]]
parent = \"\"
type = Window
[plugins]"
"Template string of a terminator profile file.")
(cl-defun terminator/render-profile (&key foreground-color
background-color
cursor-color
palette)
"Create a terminator profile with THEME as the palette."
(string/format terminator/profile-template
background-color
cursor-color
foreground-color
palette))
(defun terminator/as-heredoc (x)
"Return an EOF-terminator heredoc of X."
(string/format "<<EOF\n%s\nEOF" x))
(prelude/start-process
:name "termination"
:command (string/format "zsh -c terminator --profile=%s"
(->> 'solarized-light
terminator/render-profile
terminator/as-heredoc)))
(string/format terminator/profile-template
(alist/get 'solarized-light terminator/palettes))
(provide 'terminator)
;;; terminator.el ends here
|
