[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Header-line-format + misc.
smart-documents.org
@@ -806,12 +806,6 @@
806
806
:bind (("C-f" . counsel-grep-or-swiper)))
807
807
#+END_SRC
808
808
809
Removed:
** Tree
810
Removed:
811
Removed:
#+BEGIN_SRC emacs-lisp :tangle yes
812
Removed:
(use-package treemacs)
813
Removed:
#+END_SRC
814
Removed:
815
809
** Coding languages
816
810
817
811
*** TODO Emacs Lisp
@@ -1157,6 +1151,8 @@
1157
1151
("pdflatex"))
1158
1152
("AUTO" "polyglossia" t ; Babel replacement for LuaLaTeX
1159
1153
("xelatex" "lualatex"))
1154
Added:
("" "fontspec" t ; Fonts for LuaLaTeX
1155
Added:
("lualatex"))
1160
1156
("" "booktabs" t ; Publication quality tables in LaTeX
1161
1157
("pdflatex"))
1162
1158
("table,svgnames" "xcolor" t ; svgnames opens up ~150 color keywords
@@ -1343,19 +1339,23 @@
1343
1339
way for UI elements which may be animated.
1344
1340
1345
1341
#+BEGIN_SRC emacs-lisp :tangle yes
1346
Removed:
(defvar sd-icons-blue-ellipsis (create-image
1347
Removed:
(concat user-emacs-directory "img/icons/ellipsis.gif")
1348
Removed:
'gif nil
1349
Removed:
:scale 0.4) "A blue loading ellipsis.")
1342
Added:
(defcustom sd-icon-loading
1343
Added:
(create-image
1344
Added:
(concat user-emacs-directory "img/icons/ellipsis.gif")
1345
Added:
'gif nil :scale 0.4)
1346
Added:
"The GIF representing \"loading\". Not animated by default."
1347
Added:
:type 'sexp
1348
Added:
:version "27.1"
1349
Added:
:group 'sd)
1350
1350
1351
Removed:
(defun sd-icons-blue-ellipsis ()
1351
Added:
(defun sd-icon-loading ()
1352
1352
"Insert an animated blue ellipsis."
1353
Removed:
(insert-image sd-icons-blue-ellipsis)
1354
Removed:
(image-animate sd-icons-blue-ellipsis 0 t))
1353
Added:
(insert-image sd-icon-loading)
1354
Added:
(image-animate sd-icon-loading 0 t))
1355
Added:
1356
Added:
(defcustom )
1355
1357
#+END_SRC
1356
1358
1357
Removed:
(sd-icons-blue-ellipsis)
1358
Removed:
1359
1359
**** TODO Header line
1360
1360
# Figure out how to do 'keymap cleanly
1361
1361
@@ -1363,9 +1363,26 @@
1363
1363
document we are working on currently.
1364
1364
1365
1365
#+BEGIN_SRC emacs-lisp :tangle yes
1366
Removed:
(setq sd-header-gnu-linux ; This will be our experimental header line.
1366
Added:
1367
Added:
(setq header-line-format
1368
Added:
(propertize "♥"
1369
Added:
'help-echo "Click to toggle."
1370
Added:
'keymap (let ((map (make-sparse-keymap)))
1371
Added:
(define-key map [header-line mouse-1]
1372
Added:
(lambda ()
1373
Added:
(interactive)
1374
Added:
(if (s-starts-with? "♥" header-line-format)
1375
Added:
(setf (substring header-line-format 0 1) (buffer-name))
1376
Added:
(setf (substring header-line-format 0 2) "♥"))
1377
Added:
(force-mode-line-update)))
1378
Added:
map)))
1379
Added:
1380
Added:
1381
Added:
1382
Added:
1383
Added:
(setq header-line-format ; This will be our experimental header line.
1367
1384
(list
1368
Removed:
(propertize "..." 'display sd-icons-blue-ellipsis)
1385
Added:
(propertize "..." 'display sd-icon-loading)
1369
1386
'(:eval
1370
1387
(list
1371
1388
(if (eq (length (window-list)) 1)
@@ -1408,10 +1425,10 @@
1408
1425
(org-property-value "TITLE")
1409
1426
(buffer-name))))))
1410
1427
1411
Removed:
(cond ((string-equal system-type "windows-nt")
1412
Removed:
(setq header-line-format sd-header-windows-nt))
1413
Removed:
((string-equal system-type "gnu/linux")
1414
Removed:
(setq header-line-format sd-header-gnu-linux)))
1428
Added:
;; (cond ((string-equal system-type "windows-nt")
1429
Added:
;; (setq header-line-format sd-header-windows-nt))
1430
Added:
;; ((string-equal system-type "gnu/linux")
1431
Added:
;; (setq header-line-format sd-header-gnu-linux)))
1415
1432
1416
1433
;; Ensure our icons are animated on start
1417
1434
(image-animate sd-icons-blue-ellipsis 0 t)
@@ -1421,16 +1438,17 @@
1421
1438
1422
1439
#+NAME: mode-line-format
1423
1440
#+BEGIN_SRC emacs-lisp :tangle yes
1424
Removed:
(setq-default mode-line-format
1425
Removed:
(list
1426
Removed:
'(:eval
1427
Removed:
(list
1428
Removed:
" "
1429
Removed:
(if buffer-read-only "🔒" "🔓")
1430
Removed:
(propertize " %b "
1431
Removed:
'help-echo (buffer-file-name)
1432
Removed:
)
1433
Removed:
(if (buffer-modified-p) "🖉" "✓")))))
1441
Added:
(setq-default mode-line-format
1442
Added:
(list
1443
Added:
'(:eval
1444
Added:
(list
1445
Added:
" "
1446
Added:
(if buffer-read-only "🔒" "🔓")
1447
Added:
(propertize " %b "
1448
Added:
'help-echo (buffer-file-name)
1449
Added:
)
1450
Added:
(if (buffer-modified-p) "🖉" "✓")
1451
Added:
))))
1434
1452
#+END_SRC
1435
1453
1436
1454
** Window