diff --git a/ha-display.org b/ha-display.org index 5107d52..c733f1e 100644 --- a/ha-display.org +++ b/ha-display.org @@ -25,7 +25,17 @@ A literate programming file to configure the Emacs UI. ;;; Code: #+END_SRC * Dashboard -The [[https://github.com/emacs-dashboard/emacs-dashboard][emacs-dashboard]] project makes a nicer startup screen. +The [[https://github.com/emacs-dashboard/emacs-dashboard][emacs-dashboard]] project makes a nicer startup screen. It requires [[https://github.com/purcell/page-break-lines][page-break-lines]] (which is a nice project): +#+BEGIN_SRC emacs-lisp + (use-package page-break-lines) +#+END_SRC + +And let’s make this Emacs look more like a fancy IDE with [[https://github.com/domtronn/all-the-icons.el][all-the-icons]]: +#+BEGIN_SRC emacs-lisp + (use-package all-the-icons + :if (display-graphic-p)) +#+END_SRC + #+BEGIN_SRC emacs-lisp (use-package dashboard :init @@ -52,6 +62,31 @@ The [[https://github.com/emacs-dashboard/emacs-dashboard][emacs-dashboard]] proj (setq dashboard-footer-messages (list (ha--dad-joke)))) #+END_SRC + +I would appreciate seeing if my Emacs installation has the features that I expect: +#+BEGIN_SRC emacs-lisp + (defun ha-hamacs-features (&optional iconic) + "Simple display of features I'm most keen about. + If ICONIC is non-nil, return a string of icons." + (interactive) + (let* ((png-icon (all-the-icons-material "image")) + (svg-icon (all-the-icons-alltheicon "svg")) + (tls-icon (all-the-icons-faicon "expeditedssl")) + (json-icon (all-the-icons-fileicon "jsx")) + (mag-icon (all-the-icons-faicon "magic")) + (jit-icon (all-the-icons-faicon "cog")) + (results (s-join " " + (list (when (and (fboundp 'native-comp-available-p) + (native-comp-available-p)) (if iconic jit-icon "Native-Compilation")) + (when (image-type-available-p 'svg) (if iconic svg-icon "SVG")) + (when (image-type-available-p 'png) (if iconic png-icon "PNG")) + (when (gnutls-available-p) (if iconic tls-icon "TLS")) + (when (json-available-p) (if iconic json-icon "JSON")) + (when (fboundp 'imagemagick-types) (if iconic mag-icon "ImageMagick")))))) + (if (called-interactively-p) + (message "Enabled features: %s" results) + results))) +#+END_SRC * Mode Line Let's install and load some of packages from the [[https://github.com/hlissner/doom-emacs][Doom Emacs]] project, like [[https://github.com/seagle0128/doom-modeline][doom-modeline]] and maybe the themes: #+BEGIN_SRC emacs-lisp diff --git a/ha-org.org b/ha-org.org index c2c7109..1a78c39 100644 --- a/ha-org.org +++ b/ha-org.org @@ -302,8 +302,12 @@ The [[https://graphviz.org/][graphviz project]] can be written in org blocks, an #+END_SRC For example: -#+BEGIN_SRC dot :file ha-org-graphviz-example.png :exports file :results replace file +#+BEGIN_SRC dot :file support/ha-org-graphviz-example.png :exports file :results replace file digraph G { + graph [bgcolor=transparent]; + edge [color=white]; + node[style=filled]; + A -> B -> E; A -> D; A -> C; @@ -317,7 +321,7 @@ For example: #+ATTR_ORG: :width 400px #+RESULTS: -[[file:ha-org-graphviz-example.png]] +[[file:support/ha-org-graphviz-example.png]] *** Next Image When I create images or other artifacts that I consider /part/ of the org document, I want to have them based on the org file, but with a prepended number. Keeping track of what numbers are now free is difficult, so for a /default/ let's figure it out: diff --git a/support/ha-org-graphviz-example.png b/support/ha-org-graphviz-example.png new file mode 100644 index 0000000..926302c Binary files /dev/null and b/support/ha-org-graphviz-example.png differ