diff options
author | Blendoit <blendoit@gmail.com> | 2020-11-21 11:50:06 -0800 |
---|---|---|
committer | Blendoit <blendoit@gmail.com> | 2020-11-21 11:50:06 -0800 |
commit | 74b97312a8c8328de85f39de61abd47dbeb7ef64 (patch) | |
tree | f5e799a25b06287cab8751bd93f537b6802639f4 | |
parent | 0bebf73d40192aeddbe9b65a6869242c7b72d3c9 (diff) |
Header-line-format + misc.
-rw-r--r-- | smart-documents.org | 80 |
1 files changed, 49 insertions, 31 deletions
diff --git a/smart-documents.org b/smart-documents.org index 4529747..079503f 100644 --- a/smart-documents.org +++ b/smart-documents.org @@ -806,12 +806,6 @@ Everlasting Father, Prince of Peace. :bind (("C-f" . counsel-grep-or-swiper))) #+END_SRC -** Tree - -#+BEGIN_SRC emacs-lisp :tangle yes -(use-package treemacs) -#+END_SRC - ** Coding languages *** TODO Emacs Lisp @@ -1157,6 +1151,8 @@ LaTeX. ("pdflatex")) ("AUTO" "polyglossia" t ; Babel replacement for LuaLaTeX ("xelatex" "lualatex")) + ("" "fontspec" t ; Fonts for LuaLaTeX + ("lualatex")) ("" "booktabs" t ; Publication quality tables in LaTeX ("pdflatex")) ("table,svgnames" "xcolor" t ; svgnames opens up ~150 color keywords @@ -1343,18 +1339,22 @@ interface. Emacs allows the usage of GIF images---this paves the way for UI elements which may be animated. #+BEGIN_SRC emacs-lisp :tangle yes - (defvar sd-icons-blue-ellipsis (create-image - (concat user-emacs-directory "img/icons/ellipsis.gif") - 'gif nil - :scale 0.4) "A blue loading ellipsis.") + (defcustom sd-icon-loading + (create-image + (concat user-emacs-directory "img/icons/ellipsis.gif") + 'gif nil :scale 0.4) + "The GIF representing \"loading\". Not animated by default." + :type 'sexp + :version "27.1" + :group 'sd) -(defun sd-icons-blue-ellipsis () + (defun sd-icon-loading () "Insert an animated blue ellipsis." - (insert-image sd-icons-blue-ellipsis) - (image-animate sd-icons-blue-ellipsis 0 t)) -#+END_SRC + (insert-image sd-icon-loading) + (image-animate sd-icon-loading 0 t)) -(sd-icons-blue-ellipsis) +(defcustom ) +#+END_SRC **** TODO Header line # Figure out how to do 'keymap cleanly @@ -1363,9 +1363,26 @@ In Org mode, the document header line will be the title of the document we are working on currently. #+BEGIN_SRC emacs-lisp :tangle yes - (setq sd-header-gnu-linux ; This will be our experimental header line. + +(setq header-line-format + (propertize "♥" + 'help-echo "Click to toggle." + 'keymap (let ((map (make-sparse-keymap))) + (define-key map [header-line mouse-1] + (lambda () + (interactive) + (if (s-starts-with? "♥" header-line-format) + (setf (substring header-line-format 0 1) (buffer-name)) + (setf (substring header-line-format 0 2) "♥")) + (force-mode-line-update))) + map))) + + + + + (setq header-line-format ; This will be our experimental header line. (list - (propertize "..." 'display sd-icons-blue-ellipsis) + (propertize "..." 'display sd-icon-loading) '(:eval (list (if (eq (length (window-list)) 1) @@ -1408,10 +1425,10 @@ document we are working on currently. (org-property-value "TITLE") (buffer-name)))))) - (cond ((string-equal system-type "windows-nt") - (setq header-line-format sd-header-windows-nt)) - ((string-equal system-type "gnu/linux") - (setq header-line-format sd-header-gnu-linux))) + ;; (cond ((string-equal system-type "windows-nt") + ;; (setq header-line-format sd-header-windows-nt)) + ;; ((string-equal system-type "gnu/linux") + ;; (setq header-line-format sd-header-gnu-linux))) ;; Ensure our icons are animated on start (image-animate sd-icons-blue-ellipsis 0 t) @@ -1421,16 +1438,17 @@ document we are working on currently. #+NAME: mode-line-format #+BEGIN_SRC emacs-lisp :tangle yes - (setq-default mode-line-format - (list - '(:eval - (list - " " - (if buffer-read-only "🔒" "🔓") - (propertize " %b " - 'help-echo (buffer-file-name) - ) - (if (buffer-modified-p) "🖉" "✓"))))) + (setq-default mode-line-format + (list + '(:eval + (list + " " + (if buffer-read-only "🔒" "🔓") + (propertize " %b " + 'help-echo (buffer-file-name) + ) + (if (buffer-modified-p) "🖉" "✓") + )))) #+END_SRC ** Window |