-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathemacs-configuration.html
292 lines (269 loc) · 26.1 KB
/
emacs-configuration.html
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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<!-- 2022-W11-4 02:13 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Emacs Configuration</title>
<meta name="author" content="Inanna" />
<meta name="description" content="A series of files for my emacs config." />
<meta name="generator" content="Org Mode" />
<link href="/site.css" rel="stylesheet" type="text/css" /><link href="images/website-icon.png" rel="icon" />
</head>
<body>
<div id="preamble" class="status">
<div><a href="/index.html"><img alt="An abstract logo representing a series of three assembly line stamping machines with the words CONS, DEV, and embalzoned in white on each machine." id="site-logo" src="/images/website-logo.png" /></a></div>
</div>
<div id="content" class="content">
<h1 class="title">Emacs Configuration</h1>
<div id="table-of-contents" role="doc-toc">
<h2>Table of Contents</h2>
<div id="text-table-of-contents" role="doc-toc">
<ul>
<li><a href="#org99035dd">Introduction</a></li>
<li><a href="#org111acb0">Components</a></li>
<li><a href="#org3f5f918">Plans</a>
<ul>
<li><a href="#org9ff4b57"><span class="todo TODO">TODO</span> Memex</a></li>
<li><a href="#orge37ba2c"><span class="todo TODO">TODO</span> Core Feature Code</a></li>
<li><a href="#org39e3f94"><span class="todo TODO">TODO</span> Aesthetics Code</a></li>
<li><a href="#orgc221f4f"><span class="todo TODO">TODO</span> Unify Lookup Code</a></li>
</ul>
</li>
<li><a href="#org4404c50">Fancy Loading</a>
<ul>
<li><a href="#org397234e">org-bable-execute:org</a></li>
<li><a href="#org0486dcb">ec-load-deps</a></li>
<li><a href="#org915819c">ec-set-variables</a></li>
<li><a href="#org173c38a">ec-bind-keys</a></li>
<li><a href="#org36baef7">ec-literate-load</a></li>
</ul>
</li>
<li><a href="#orgce193c4">Initialization Code</a></li>
</ul>
</div>
</div>
<div id="outline-container-org99035dd" class="outline-2">
<h2 id="org99035dd">Introduction</h2>
<div class="outline-text-2" id="text-org99035dd">
<p>
I like Emacs, but slowly I have accumulated around 15 000 lines of code written in Emacs lisp in my personal configuration. I have also added (some) unit tests and broke it into a file tree. This works rather well, but this is also sort of limited and troublesome as it
</p>
<p>
This will basically comprise the public section of my Emacs configuration. Currently there's not too much here.
</p>
</div>
</div>
<div id="outline-container-org111acb0" class="outline-2">
<h2 id="org111acb0">Components</h2>
<div class="outline-text-2" id="text-org111acb0">
<p>
Here's a quick listing of the various components to my setup. This list is comprised of various sets of features that I want loaded, in essence a list of porcelains. These then go on to load the various libraries I have written to actually execute the code.
</p>
<table id="org34cf281" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<colgroup>
<col class="org-left" />
<col class="org-left" />
</colgroup>
<thead>
<tr>
<th scope="col" class="org-left">Component</th>
<th scope="col" class="org-left">Description</th>
</tr>
</thead>
<tbody>
<tr>
<td class="org-left"><a href="econf-world-wide-web.html#ID-dd78c828-2160-4d2b-a285-a019099ba36d">world-wide-web</a></td>
<td class="org-left">A collection of web search and display tools.</td>
</tr>
<tr>
<td class="org-left"><a href="econf-styling.html#ID-36a26ae5-1749-4f5c-9579-e020ffb4b24b">styling</a></td>
<td class="org-left">The styling for my Emacs configuration.</td>
</tr>
</tbody>
</table>
</div>
</div>
<div id="outline-container-org3f5f918" class="outline-2">
<h2 id="org3f5f918">Plans</h2>
<div class="outline-text-2" id="text-org3f5f918">
</div>
<div id="outline-container-org9ff4b57" class="outline-3">
<h3 id="org9ff4b57"><span class="todo TODO">TODO</span> Memex</h3>
<div class="outline-text-3" id="text-org9ff4b57">
<p>
Personal wiki (Memex) source code added to the public portion of my website.
</p>
</div>
</div>
<div id="outline-container-orge37ba2c" class="outline-3">
<h3 id="orge37ba2c"><span class="todo TODO">TODO</span> Core Feature Code</h3>
<div class="outline-text-3" id="text-orge37ba2c">
<p>
Core features of my configuration including package loading, <code>EXWM</code>, and other similar things.
</p>
</div>
</div>
<div id="outline-container-org39e3f94" class="outline-3">
<h3 id="org39e3f94"><span class="todo TODO">TODO</span> Aesthetics Code</h3>
<div class="outline-text-3" id="text-org39e3f94">
<p>
The rest of the code covering the aesthetics of my development environment.
</p>
</div>
</div>
<div id="outline-container-orgc221f4f" class="outline-3">
<h3 id="orgc221f4f"><span class="todo TODO">TODO</span> Unify Lookup Code</h3>
<div class="outline-text-3" id="text-orgc221f4f">
<p>
I would like to eventually unify all of my lookup code into one set of lookup code.
</p>
</div>
</div>
</div>
<div id="outline-container-org4404c50" class="outline-2">
<h2 id="org4404c50">Fancy Loading</h2>
<div class="outline-text-2" id="text-org4404c50">
<p>
This is currently a work in progress, but basically it provides a fancy function that uses tables in org-mode buffers to define certain common tasks such as variable assignment or dependency specification for a file.
</p>
</div>
<div id="outline-container-org397234e" class="outline-3">
<h3 id="org397234e">org-bable-execute:org</h3>
<div class="outline-text-3" id="text-org397234e">
<p>
I like to occasionally include org-mode blocks as variables for my configuration (mostly for templates) so I have written a little function that basically just returns a string containing the body.
</p>
<div class="org-src-container">
<pre class="src src-emacs-lisp"><span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">defun</span> <span style="font-weight: bold; font-style: italic;">org-babel-execute:org</span> <span style="color: #bbb;">(</span>body params<span style="color: #bbb;">)</span>
body<span style="color: #494949;">)</span>
</pre>
</div>
</div>
</div>
<div id="outline-container-org0486dcb" class="outline-3">
<h3 id="org0486dcb">ec-load-deps</h3>
<div class="outline-text-3" id="text-org0486dcb">
<p>
Generally I like to declare my dependencies in a table at the start of my file (as you can see above) because it allows me to link to them, have commentary on what they do, and generally looks nicer than a list of strings. However, to make this possible I need to process the list a little bit.
</p>
<p>
Eventually I might add a system to lazy-load them (presumably with an extra column as a falg to indicate it), but for now this will do.
</p>
<p>
This also returns a list of the loaded dependencies to allow me to wrap the loaded code within the
</p>
<div class="org-src-container">
<pre class="src src-emacs-lisp"><span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">defun</span> <span style="font-weight: bold; font-style: italic;">ec-load-deps</span> <span style="color: #bbb;">(</span>deps-list<span style="color: #bbb;">)</span>
<span style="color: #a4a4a4; font-style: italic;">"Load dependencies from DEPS-LIST."</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">let</span> <span style="color: #494949;">(</span><span style="color: #bbb;">(</span>link-contents-rx <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">rx</span> <span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">or</span> <span style="color: #494949;">(</span>seq <span style="color: #494949;">"["</span> <span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">or</span> <span style="color: #494949;">(</span>seq <span style="color: #494949;">"id:"</span> <span style="color: #bbb;">(</span>* <span style="color: #494949;">(</span>any <span style="color: #494949;">"-"</span> <span style="color: #494949;">"0-9"</span> <span style="color: #494949;">"a-f"</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>seq <span style="color: #494949;">"https://"</span> <span style="color: #bbb;">(</span>* <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">or</span> <span style="color: #494949;">"."</span> <span style="color: #bbb;">(</span>not <span style="color: #494949;">"]"</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span> <span style="color: #494949;">"]"</span><span style="color: #494949;">)</span>
<span style="color: #494949;">"["</span> <span style="color: #494949;">"]"</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">->></span> deps-list
<span style="color: #bbb;">(</span>-map 'car<span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span>-map <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #bbb;">(</span>dep<span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">let</span> <span style="color: #494949;">(</span><span style="color: #bbb;">(</span>stripped-dep <span style="color: #494949;">(</span>s-replace-regexp link-contents-rx <span style="color: #494949;">""</span> dep<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">if</span> <span style="color: #bbb;">(</span>s-matches? <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">rx</span> <span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">or</span> <span style="color: #494949;">"https://"</span> <span style="color: #494949;">"http://"</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span> dep<span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">progn</span> <span style="color: #494949;">(</span>eval `<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">use-package</span> ,<span style="color: #494949;">(</span>intern stripped-dep<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span> stripped-dep<span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">progn</span> <span style="color: #494949;">(</span>org-babel-load-file <span style="color: #bbb;">(</span>format <span style="color: #494949;">"econf-%s.org"</span> stripped-dep<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>delete-file <span style="color: #bbb;">(</span>format <span style="color: #494949;">"econf-%s.el"</span> stripped-dep<span style="color: #bbb;">)</span><span style="color: #494949;">)</span> <span style="color: #a4a4a4; font-style: italic;">;; </span><span style="color: #a4a4a4; font-style: italic;">immediately delete file once I am done with it </span>
stripped-dep<span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
</pre>
</div>
</div>
</div>
<div id="outline-container-org915819c" class="outline-3">
<h3 id="org915819c">ec-set-variables</h3>
<div class="outline-text-3" id="text-org915819c">
<p>
This parses the contents of a table to a series of setq statements which will be joined together into a function that is then evaluated.
</p>
<div class="org-src-container">
<pre class="src src-emacs-lisp"><span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">defun</span> <span style="font-weight: bold; font-style: italic;">ec-set-variables</span> <span style="color: #bbb;">(</span>vars-list<span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span>-map <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #bbb;">(</span>v<span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">let</span> <span style="color: #494949;">(</span><span style="color: #bbb;">(</span>val <span style="color: #494949;">(</span>cadr v<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>set <span style="color: #bbb;">(</span>read <span style="color: #494949;">(</span>s-replace <span style="color: #494949;">"~"</span> <span style="color: #494949;">""</span> <span style="color: #bbb;">(</span>car v<span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">if</span> <span style="color: #494949;">(</span>eq <span style="color: #bbb;">(</span>type-of val<span style="color: #bbb;">)</span> 'string<span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>eval <span style="color: #bbb;">(</span>read <span style="color: #494949;">(</span>s-replace <span style="color: #494949;">"~"</span> <span style="color: #494949;">""</span> val<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
val<span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
vars-list<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
</pre>
</div>
</div>
</div>
<div id="outline-container-org173c38a" class="outline-3">
<h3 id="org173c38a">ec-bind-keys</h3>
<div class="outline-text-3" id="text-org173c38a">
<p>
Another function for processing tables, in this case binding keys in the tables.
</p>
<div class="org-src-container">
<pre class="src src-emacs-lisp"><span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">defun</span> <span style="font-weight: bold; font-style: italic;">ec-bind-keys</span> <span style="color: #bbb;">(</span>bindings-list keymap<span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span>-map <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #bbb;">(</span>p<span style="color: #bbb;">)</span> <span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">bind-key</span> <span style="color: #494949;">(</span>kbd <span style="color: #bbb;">(</span>car p<span style="color: #bbb;">)</span><span style="color: #494949;">)</span> <span style="color: #494949;">(</span>intern <span style="color: #bbb;">(</span>cadr p<span style="color: #bbb;">)</span><span style="color: #494949;">)</span> keymap<span style="color: #bbb;">)</span><span style="color: #494949;">)</span> bindings-list<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
</pre>
</div>
</div>
</div>
<div id="outline-container-org36baef7" class="outline-3">
<h3 id="org36baef7">ec-literate-load</h3>
<div class="outline-text-3" id="text-org36baef7">
<p>
Now for the literate loading function.<label class="sidenote-number" for="1"><sup>1</sup></label><input checked="checked" id="1" style="display:none" type="checkbox" /><span class="sidenote"><span class="sidenote-number"> 1</span> Note that this is heavily WIP and doesn't work right now</span> This goes over the list of different functions and then evaluates them if they are src blocks and processes them if they are a table into.
</p>
<div class="org-src-container">
<pre class="src src-emacs-lisp"><span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">defun</span> <span style="font-weight: bold; font-style: italic;">ec-parse-table</span> <span style="color: #bbb;">(</span>tbl<span style="color: #bbb;">)</span>
<span style="color: #a4a4a4; font-style: italic;">"Convert the org-element table TBL into a babel table."</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">with-temp-buffer</span> <span style="color: #494949;">(</span>insert <span style="color: #bbb;">(</span>org-element-interpret-data tbl<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>org-babel-read-table<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">defun</span> <span style="font-weight: bold; font-style: italic;">ec-literate-load</span> <span style="color: #bbb;">(</span>file<span style="color: #bbb;">)</span>
<span style="color: #a4a4a4; font-style: italic;">"Load FILE with special literate functions."</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">let*</span> <span style="color: #494949;">(</span><span style="color: #bbb;">(</span>org-obj <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">with-temp-buffer</span> <span style="color: #bbb;">(</span>insert-file-contents file<span style="color: #bbb;">)</span> <span style="color: #bbb;">(</span>org-element-parse-buffer<span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span>deps-list <span style="color: #494949;">(</span>org-element-map
org-obj
'table
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #494949;">(</span>e<span style="color: #494949;">)</span>
<span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">let*</span> <span style="color: #bbb;">(</span><span style="color: #494949;">(</span>tbl <span style="color: #bbb;">(</span>ec-parse-table e<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>tbl-head <span style="color: #bbb;">(</span>-take-while <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #bbb;">(</span>row<span style="color: #bbb;">)</span> <span style="color: #bbb;">(</span>not <span style="color: #494949;">(</span>equal row 'hline<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span> tbl<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>tbl-body <span style="color: #bbb;">(</span>-take-while <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #bbb;">(</span>row<span style="color: #bbb;">)</span> <span style="color: #bbb;">(</span>not <span style="color: #494949;">(</span>equal row 'hline<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span> <span style="color: #494949;">(</span>reverse tbl<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">when</span> <span style="color: #494949;">(</span>equal tbl-head '<span style="color: #bbb;">(</span><span style="color: #494949;">"Dependency"</span> <span style="color: #494949;">"Description"</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span> <span style="color: #494949;">(</span>ec-load-deps tbl-body<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">-></span> org-obj
<span style="color: #bbb;">(</span>org-element-map
'<span style="color: #494949;">(</span>table src-block<span style="color: #494949;">)</span>
<span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #bbb;">(</span>e<span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">if</span> <span style="color: #494949;">(</span>eq <span style="color: #bbb;">(</span>org-element-type e<span style="color: #bbb;">)</span> 'src-block<span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>read <span style="color: #bbb;">(</span>org-element-property <span style="color: #E53935;">:value</span> e<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">let*</span> <span style="color: #bbb;">(</span><span style="color: #494949;">(</span>tbl <span style="color: #bbb;">(</span>ec-parse-table e<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>tbl-head <span style="color: #bbb;">(</span>-take-while <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #bbb;">(</span>row<span style="color: #bbb;">)</span> <span style="color: #bbb;">(</span>not <span style="color: #494949;">(</span>equal row 'hline<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span> tbl<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span>tbl-body <span style="color: #bbb;">(</span>-take-while <span style="color: #494949;">(</span><span style="color: #E53935; font-style: italic;">lambda</span> <span style="color: #bbb;">(</span>row<span style="color: #bbb;">)</span> <span style="color: #bbb;">(</span>not <span style="color: #494949;">(</span>equal row 'hline<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span> <span style="color: #494949;">(</span>reverse tbl<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span><span style="color: #E53935; font-style: italic;">cond</span> <span style="color: #494949;">(</span><span style="color: #bbb;">(</span>equal <span style="color: #494949;">(</span>car tbl-head<span style="color: #494949;">)</span> '<span style="color: #494949;">(</span><span style="color: #494949;">"Variable"</span> <span style="color: #494949;">"Value"</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span>ec-set-variables tbl-body<span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
<span style="color: #494949;">(</span><span style="color: #bbb;">(</span>equal <span style="color: #494949;">(</span>cadr tbl-head<span style="color: #494949;">)</span> '<span style="color: #494949;">(</span><span style="color: #494949;">"Chord"</span> <span style="color: #494949;">"Function"</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span>
<span style="color: #bbb;">(</span>ec-bind-keys tbl-body <span style="color: #494949;">(</span>intern <span style="color: #bbb;">(</span>caar tbl-head<span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span><span style="color: #bbb;">)</span>
-concat<span style="color: #494949;">)</span><span style="color: #bbb;">)</span><span style="color: #494949;">)</span>
</pre>
</div>
</div>
</div>
</div>
<div id="outline-container-orgce193c4" class="outline-2">
<h2 id="orgce193c4">Initialization Code</h2>
<div class="outline-text-2" id="text-orgce193c4">
<p>
This code is used to load the code in the components list automatically.
</p>
<div class="org-src-container">
<pre class="src src-elisp"><span style="color: #494949;">(</span>ec-load-deps components<span style="color: #494949;">)</span>
</pre>
</div>
</div>
</div>
<!-- Footnotes --><!--
<div class="footdef"><sup><a id="fn.1" class="footnum" href="#fnr.1" role="doc-backlink">1</a></sup> <div class="footpara" role="doc-footnote"><p class="footpara">Note that this is heavily WIP and doesn't work right now</p></div></div>
--></div>
<div id="postamble" class="status">
<p class="date">Last Modified: 2022-W11-4 01:37</p><p class="creator">Generated Using: <a href="https://www.gnu.org/software/emacs/">Emacs</a> 27.2 (<a href="https://orgmode.org">Org</a> mode 9.4.6)</p><p class="license">Except where otherwise noted content on <a href="https://cons.dev">cons.dev</a> is licensed under a <a href="https://creativecommons.org/licenses/by-sa/4.0/" rel="license">Creative Commons Attribution-ShareAlike 4.0 International License</a>.</p>
</div>
</body>
</html>