[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
GIF icons in mode line :trollface:
Changed files
img/ellipsis.gif
Binary files differ
smart-documents.org
@@ -224,14 +224,14 @@
224
224
our meta-files together:
225
225
226
226
#+BEGIN_SRC emacs-lisp :tangle yes
227
Removed:
(setq my/meta-files-location (concat user-emacs-directory "meta/"))
227
Added:
(setq sd-meta-files-location (concat user-emacs-directory "meta/"))
228
228
#+END_SRC
229
229
230
230
*** Recently visited files
231
231
232
232
#+BEGIN_SRC emacs-lisp :tangle yes
233
233
(setq recentf-save-file (concat
234
Removed:
my/meta-files-location
234
Added:
sd-meta-files-location
235
235
"recentf"))
236
236
#+END_SRC
237
237
@@ -239,7 +239,7 @@
239
239
240
240
#+BEGIN_SRC emacs-lisp :tangle yes
241
241
(setq projectile-known-projects-file (concat
242
Removed:
my/meta-files-location
242
Added:
sd-meta-files-location
243
243
"projectile-bookmarks.eld"))
244
244
#+END_SRC
245
245
@@ -247,7 +247,7 @@
247
247
248
248
#+BEGIN_SRC emacs-lisp :tangle yes
249
249
(setq save-place-file (concat
250
Removed:
my/meta-files-location
250
Added:
sd-meta-files-location
251
251
"places"))
252
252
#+END_SRC
253
253
@@ -315,7 +315,8 @@
315
315
=secrets.org= file, as it is ignored by =git= by default.
316
316
317
317
#+BEGIN_SRC emacs-lisp :tangle yes
318
Removed:
(org-babel-load-file "~/.emacs.d/secrets.org")
318
Added:
(let ((secrets (concat user-emacs-directory "secrets.org")))
319
Added:
(when (file-exists-p secrets) (org-babel-load-file secrets)))
319
320
#+END_SRC
320
321
321
322
* Keyboard shortcuts
@@ -540,7 +541,7 @@
540
541
**** Document
541
542
542
543
#+BEGIN_SRC emacs-lisp :tangle yes
543
Removed:
(global-set-key (kbd "C-p") 'my/org-quick-export)
544
Added:
(global-set-key (kbd "C-p") 'sd-org-quick-export)
544
545
#+END_SRC
545
546
546
547
**** TODO Presentation
@@ -854,7 +855,7 @@
854
855
(setq dashboard-banner-logo-title "A modern professional text editor."))
855
856
#+END_SRC
856
857
857
Removed:
*** Sidebar
858
Added:
*** TODO Sidebar
858
859
:PROPERTIES:
859
860
:sd-unpack-path: sd-sidebar.el
860
861
:END:
@@ -864,7 +865,7 @@
864
865
#+BEGIN_SRC emacs-lisp :tangle yes
865
866
(defun sd-sidebar ()
866
867
(interactive)
867
Removed:
(treemacs))
868
Added:
(split-window-right))
868
869
#+END_SRC
869
870
870
871
*** Better parentheses
@@ -1157,7 +1158,7 @@
1157
1158
What follows is an additional document class structures that can be exported in
1158
1159
LaTeX.
1159
1160
1160
Removed:
#+BEGIN_SRC emacs-lisp :tangle yes
1161
Added:
#+BEGIN_SRC emacs-lisp :tangle no
1161
1162
;; (add-to-list 'org-latex-classes
1162
1163
;; '("book-blendoit"
1163
1164
;; "\\documentclass[12pt]{book}"
@@ -1179,7 +1180,7 @@
1179
1180
The following makes =TODO= items appear red and =CLOSED= items appear green in
1180
1181
Org's LaTeX exports. Very stylish, much flair!
1181
1182
1182
Removed:
** Org links
1183
Added:
** TODO Org links
1183
1184
1184
1185
This is a mind-bending capacity of Org mode: we can assign arbitrary functions
1185
1186
to be executed when a user follows an Org link. Org links appear like
@@ -1218,7 +1219,7 @@
1218
1219
\rightarrow PDF. The binding is defined in Section [[Export to PDF]].
1219
1220
1220
1221
#+BEGIN_SRC emacs-lisp :tangle yes
1221
Removed:
(defun my/org-quick-export ()
1222
Added:
(defun sd-org-quick-export ()
1222
1223
"Org async export to PDF and open.
1223
1224
This basically reimplements `C-c C-e C-a l o'."
1224
1225
(interactive)
@@ -1279,7 +1280,32 @@
1279
1280
# Top of the buffer is more intuitive for buffer info, bottom is more intuitive
1280
1281
# for buffer action.
1281
1282
1283
Added:
**** TODO Icons
1284
Added:
:PROPERTIES:
1285
Added:
:sd-unpack-path: sd-icons.el
1286
Added:
:END:
1287
Added:
1288
Added:
We start by defining some icons we wish to include in our user interface. Emacs
1289
Added:
allows the usage of GIF images---this paves the way for UI elements which may be
1290
Added:
animated.
1291
Added:
1292
Added:
#+BEGIN_SRC emacs-lisp :tangle yes
1293
Added:
(defvar sd-icons-blue-ellipsis (create-image
1294
Added:
(concat user-emacs-directory "img/ellipsis.gif")
1295
Added:
'gif nil
1296
Added:
:scale 0.4) "A blue loading ellipsis.")
1297
Added:
1298
Added:
(defun sd-icons-blue-ellipsis ()
1299
Added:
"Insert an animated blue ellipsis."
1300
Added:
(insert-image sd-icons-blue-ellipsis)
1301
Added:
(image-animate sd-icons-blue-ellipsis 0 t))
1302
Added:
#+END_SRC
1303
Added:
1304
Added:
(sd-icons-blue-ellipsis)
1305
Added:
1306
Added:
1282
1307
**** TODO Header line
1308
Added:
# Figure out how to do 'keymap cleanly
1283
1309
1284
1310
In Org mode, the document header line will be the title of the document we are
1285
1311
working on currently.
@@ -1287,11 +1313,13 @@
1287
1313
#+BEGIN_SRC emacs-lisp :tangle yes
1288
1314
(setq-default header-line-format
1289
1315
(list
1316
Added:
(propertize "..." 'display sd-icons-blue-ellipsis)
1290
1317
'(:eval
1291
1318
(list
1292
1319
(if (eq (length (window-list)) 1)
1293
1320
(propertize " ↤ " 'mouse-face 'highlight
1294
1321
'face 'org-special-keyword
1322
Added:
'local-map 'previous-buffer
1295
1323
'help-echo "Return to previous window.")
1296
1324
(list (propertize " ❌ " 'mouse-face 'org-todo
1297
1325
'face 'org-special-keyword
@@ -1305,6 +1333,8 @@
1305
1333
(if (string-equal major-mode "org-mode")
1306
1334
(org-property-value "TITLE")
1307
1335
(buffer-name))))))
1336
Added:
;; Ensure our icon is animated on start
1337
Added:
(image-animate sd-icons-blue-ellipsis 0 t)
1308
1338
#+END_SRC
1309
1339
1310
1340
**** Mode line