Fixing my Markdown configuration a bit

Just need to get the fonts working better.

.gitignore

@@ -6,3 +6,5 @@
 /incubate.org
 /elisp/bookmark+*.el
 /.DS_Store
+/elisp/gourmet.el
+/elisp/wd-imaas.el

README.org

@@ -1,9 +1,8 @@
 #+title:  My Emacs Configuration
 #+author: Howard X. Abrams
-#+date:   2021-11-01 November
-#+tags: emacs readme
+#+date:   2021-11-01
+#+filetags: emacs readme
 #+startup: inlineimages
-
 ** Introduction
 I’ve crafted my Emacs configuration, I cheekily call /hamacs/, in a literate programming model, heavily inspired by my recent journey into [[https://www.youtube.com/watch?v=LKegZI9vWUU][Henrik Lissner's]] [[https://github.com/hlissner/doom-emacs][Doom Emacs]] and [[https://www.spacemacs.org/][Spacemacs]].  While I used both extensively, I decided I would /roll my own/ as Emacs people like myself, tend to be /control freaks/ (at least a little bit).
 

ha-applications.org

@@ -92,7 +92,7 @@ The [[https://github.com/syohex/emacs-git-gutter-fringe][git-gutter-fringe]] pro
     ;; To have both flymake and git-gutter work, we put
     ;; git-gutter on the right side:
     (git-gutter-fr:side 'right-fringe)
-    (left-fringe-width 15)
+    ;; (left-fringe-width 15)
     (right-fringe-width 10)
 
     :config
@@ -457,7 +457,7 @@ Web pages look pretty good with EWW, but I'm having difficulty getting it to ren
 #+end_src
 
 This function allows Imenu to offer HTML headings in EWW buffers, helpful for navigating long, technical documents.
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp :tangle no
   (use-package eww
     :config
     (defun unpackaged/imenu-eww-headings ()
@@ -489,7 +489,7 @@ Make my EWW browsers /look/ like an Org file with the [[https://github.com/cheny
     :straight (:host github :repo "chenyanming/shrface")
     :config
     (shrface-basic)
-    (shrface-trial)
+    ;; (shrface-trial)
     ;; (shrface-default-keybindings) ; setup default keybindings
     (setq shrface-href-versatile t)
 
@@ -500,17 +500,18 @@ Make my EWW browsers /look/ like an Org file with the [[https://github.com/cheny
         ("J" shrface-headline-consult "Goto Heading")))))
 #+end_src
 
-And connect it to EWW:
+The following connection to EWW throws errors now. Hrm.
 
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp :tangle no
   (use-package eww
     :after shrface
     :hook (eww-after-render #'shrface-mode))
 #+end_src
+
 ** Get Pocket
 The [[https://github.com/alphapapa/pocket-reader.el][pocket-reader]] project connects to the [[https://getpocket.com/en/][Get Pocket]] service.
 
-#+begin_src emacs-lisp
+#+begin_src emacs-lisp :tangle no
   (use-package pocket-reader
     :init
     (setq org-web-tools-pandoc-sleep-time 1)

ha-display.org

@@ -75,15 +75,21 @@ To make the active window /more noticeable/, we /dim/ the in-active windows with
 
 #+begin_src emacs-lisp
   (use-package dimmer
-    :custom
-    (dimmer-adjustment-mode :foreground)
-    :config
-    (dimmer-configure-which-key)    ; Do not dim these special windows
-    (dimmer-configure-hydra)
-    (dimmer-configure-magit)
-
-    (dimmer-mode t))
+    :custom (dimmer-adjustment-mode :foreground))
 #+end_src
+
+I get issues with Magic and Dimmer, so let’s turn off this feature in certain windows:
+
+#+begin_src emacs-lisp
+   (use-package dimmer
+     :config
+     (dimmer-configure-which-key)    ; Do not dim these special windows
+     (dimmer-configure-hydra)
+     (dimmer-configure-magit)
+
+     (dimmer-mode t))
+#+end_src
+
 As an interesting alternative, check out the [[https://www.emacs.dyerdwelling.family/emacs/20240208164549-emacs-selected-window-accent-mode-now-on-melpa/][selected-window-accent]] project.
 * Find the Bloody Cursor
 Large screen, lots of windows, so where is the cursor? While I used to use =hl-line+=, I found that the prolific [[https://protesilaos.com/][Protesilaos Stavrou]] [[https://protesilaos.com/codelog/2022-03-14-emacs-pulsar-demo/][introduced his Pulsar project]] is just what I need. Specifically, I might /loose the cursor/ and need to have it highlighted (using ~F8~), but also, this automatically highlights the cursor line with specific /actions/ , like changing windows.

ha-org-clipboard.org

@@ -249,11 +249,43 @@ Bind these functions to the /local/ mode key sequence:
     (ha-leader :keymaps 'org-mode-map
        "o y" '("format yank" . ha-org-yank-clipboard)))
 #+end_src
+** Converting to Markdown
+Let's work top-down at this point with the interactive function that inserts the clipboard into the current buffer:
+#+begin_src emacs-lisp
+  (defun ha-md-yank-clipboard ()
+    "Yanks (pastes) the contents of the Apple Mac clipboard in an
+  markdown-mode-compatible format."
+    (interactive)
+    (insert (ha-md-clipboard)))
+#+end_src
+
+This function does the heavy lifting. Note that I will need another function to tidy up the output from =pandoc= that will be more to my liking.
+
+#+begin_src emacs-lisp
+  (defun ha-md-clipboard ()
+    "Return the contents of the clipboard in markdown-mode format."
+    (seq-let (type contents) (ha-get-clipboard)
+      (with-temp-buffer
+        (insert contents)
+        (if (eq :html type)
+            (shell-command-on-region (point-min) (point-max)
+                                     "pandoc -f html -t markdown --wrap=auto --ascii --markdown-headings=atx -t gfm-raw_html" t t)
+          (shell-command-on-region (point-min) (point-max)
+                                   "pandoc -f markdown -t markdown --wrap=auto --ascii" t t))
+        ;; (ha-html-paste-touchup)
+        (buffer-substring-no-properties (point-min) (point-max)))))
+#+end_src
+
+Bind these functions to the /local/ mode key sequence:
+#+begin_src emacs-lisp
+  (ha-leader :keymaps '(markdown-mode-map gfm-mode-map)
+    "o y" '("format yank" . ha-md-yank-clipboard))
+#+end_src
 * Technical Artifacts                                :noexport:
 Let's provide a name so we can =require= this file:
 #+begin_src emacs-lisp
-(provide 'ha-org-clipboard)
-;;; ha-org-clipboard.el ends here
+  (provide 'ha-org-clipboard)
+  ;;; ha-org-clipboard.el ends here
 #+end_src
 
 #+description: A literate programming version of functions for formatting the clipboard.

ha-org-word-processor.org

@@ -33,14 +33,19 @@ I like having org-mode files look more like a word processor than having it look
 Since I use ellipsis in my writing… to /change/ how org renders a collapsed heading.
 
 #+begin_src emacs-lisp
-  (setq org-pretty-entities t
-        org-ellipsis "⤵"     ; …, ➡, ⚡, ▼, ↴, , ∞, ⬎, ⤷, ⤵
-        org-agenda-breadcrumbs-separator " ❱ "
-        org-catch-invisible-edits 'show-and-error
-        org-special-ctrl-a/e t     ; Note: Need to get this working with Evil!
-        org-src-fontify-natively t ; Pretty code blocks
-        org-hide-emphasis-markers t)
+  (use-package org
+    :config
+    (setq org-pretty-entities t
+          org-hide-emphasis-markers t
+          org-auto-align-tags nil
+          org-tags-column 0
+          org-ellipsis "⤵"                ; …, ➡, ⚡, ▼, ↴, , ∞, ⬎, ⤷, ⤵
+          org-catch-invisible-edits 'show-and-error
+          org-special-ctrl-a/e t ; Note: Need to get this working with Evil!
+          org-src-fontify-natively t      ; Pretty code blocks
+          org-agenda-breadcrumbs-separator " ❱ "))
 #+end_src
+
 Oh, and as I indent lists, they should change the /bulleting/ in a particular sequence. If I begin with an =*= asterisk, I walk down the chain, but with the dashed bullets (my default choice), I stay with dashed bullets. Numeric bullets should cycle:
 
 #+begin_src emacs-lisp
@@ -51,10 +56,43 @@ Oh, and as I indent lists, they should change the /bulleting/ in a particular se
 The =org-indent-indentation-per-level=, which defaults to =2= doesn’t really work well with variable-width fonts, so let’s make the spaces at the beginning of the line fixed:
 #+begin_src emacs-lisp
   (use-package org
-    ;; TODO: Using the latest org-mode
-    ;; :straight (:type built-in)
     :custom-face (org-indent ((t (:inherit fixed-pitch)))))
 #+end_src
+
+Finally, let’s add frame borders and window dividers:
+
+#+begin_src emacs-lisp
+  (modify-all-frames-parameters
+   '((right-divider-width . 20)
+     (internal-border-width . 20)))
+
+  (dolist (face '(window-divider
+                  window-divider-first-pixel
+                  window-divider-last-pixel))
+    (face-spec-reset-face face)
+    (set-face-foreground face (face-attribute 'default :background)))
+
+  (set-face-background 'fringe (face-attribute 'default :background))
+#+end_src
+
+** Hide Heading Stars
+I’ve struggled with hiding the initial asterisks that denote a headline in Org.
+
+#+begin_src emacs-lisp
+  (defun org-mode-hide-stars ()
+    (font-lock-add-keywords
+     nil
+     '(("^\\*+ "
+        (0 (put-text-property (match-beginning 0) (match-end 0) 'face
+                              (list :foreground
+                                    (face-attribute 'default :background))))))))
+#+end_src
+
+And hook this function to Org:
+#+begin_src emacs-lisp
+  (use-package org
+    :hook (org-mode . org-mode-hide-stars))
+#+end_src
 ** Markup View
 The variable, =org-hide-emphasis-markers=, is key to pretending that Emacs can be a word processor, however, since the org markup controls aren’t viewable, I find it challenging at times, to change that. The [[https://github.com/awth13/org-appear][org-appear project]] seeks to fix this by showing the markup when the point is nearby:
 
@@ -244,39 +282,37 @@ I really want to use the Org Beautify package, but it overrides my darker themes
   (defun ha-word-processor-fonts ()
     "Configure `org-mode' fonts and faces."
     (interactive)
-
+    (when window-system
     ;; First step is to make all Org header levels to use the variable
     ;; font, and be the same color as the default text:
-
-    (when window-system
       (let ((default-color (face-attribute 'default :foreground)))
         (dolist (face '(org-level-1 org-level-2 org-level-3 org-level-4
-                        org-level-5 org-level-6 org-level-7 org-level-8))
+                                    org-level-5 org-level-6 org-level-7 org-level-8))
           (set-face-attribute face nil :height 1.1
                               :foreground default-color :weight 'bold
-                              :font ha-variable-header-font))))
+                              :font ha-variable-header-font)))
 
-    ;; Change the header sizes to show their level visually:
-    (set-face-attribute 'org-level-1 nil :height 2.2)
-    (set-face-attribute 'org-level-2 nil :height 1.8)
-    (set-face-attribute 'org-level-3 nil :height 1.4)
-    (set-face-attribute 'org-level-4 nil :height 1.2)
+      ;; Change the header sizes to show their level visually:
+      (set-face-attribute 'org-level-1 nil :height 2.2)
+      (set-face-attribute 'org-level-2 nil :height 1.8)
+      (set-face-attribute 'org-level-3 nil :height 1.4)
+      (set-face-attribute 'org-level-4 nil :height 1.2)
 
-    (dolist (face '(org-block org-code org-verbatim org-table org-drawer
-                              org-table org-formula org-special-keyword org-block
-                              org-property-value org-document-info-keyword))
-      (set-face-attribute face nil :inherit 'fixed-pitch :height 0.9))
+      (dolist (face '(org-block org-code org-verbatim org-table org-drawer
+                                org-table org-formula org-special-keyword org-block
+                                org-property-value org-document-info-keyword))
+        (set-face-attribute face nil :inherit 'fixed-pitch :height 0.9))
 
-    ;; While we are at it, let’s make sure the code blocks are using my fixed with font:
-    (set-face-attribute 'org-table nil :height 1.0)
-    (set-face-attribute 'org-formula nil :height 1.0)
+      ;; While we are at it, let’s make sure the code blocks are using my fixed with font:
+      (set-face-attribute 'org-table nil :height 1.0)
+      (set-face-attribute 'org-formula nil :height 1.0)
 
-    (set-face-attribute 'org-block-begin-line nil :height 0.9)
-    (set-face-attribute 'org-block-end-line nil :height 0.8)
+      (set-face-attribute 'org-block-begin-line nil :height 0.9)
+      (set-face-attribute 'org-block-end-line nil :height 0.8)
 
-    (set-face-attribute 'org-drawer nil :height 0.8)
-    (set-face-attribute 'org-property-value nil :height 0.85)
-    (set-face-attribute 'org-special-keyword nil :height 0.85))
+      (set-face-attribute 'org-drawer nil :height 0.8)
+      (set-face-attribute 'org-property-value nil :height 0.85)
+      (set-face-attribute 'org-special-keyword nil :height 0.85)))
 #+end_src
 
 We call this function when we start:
@@ -289,11 +325,14 @@ The [[https://github.com/minad/org-modern][org-modern]] project attempts to do a
 #+begin_src emacs-lisp
   (use-package org-modern
     :straight (:host github :repo "minad/org-modern")
-    :hook
-    ((org-mode . global-org-modern-mode)
-     (org-agenda-finalize . org-modern-agenda))
+    :after org
+    :hook ( ; (add-hook 'org-mode-hook #'org-modern-mode)
+           (org-agenda-finalize . org-modern-agenda))
     :custom
-    (org-modern-table nil))
+    (org-modern-table nil)
+    :config
+    (set-face-attribute 'org-modern-symbol nil :family "Iosevka")
+    (global-org-modern-mode))
 #+end_src
 
 I like the smaller code blocks as well as the <2022-06-16 Thu> timestamps.

ha-org.org

@@ -3,7 +3,7 @@
 #+date:   2020-09-18
 #+tags: emacs org
 #+startup: inlineimages
-#+lastmod: [2024-08-20 Tue]
+#+lastmod: [2024-09-02 Mon]
 
 A literate programming file for configuring org-mode and those files.
 
@@ -351,6 +351,7 @@ Add a keybinding to the function:
 ** Misc
 *** Babel Blocks
 I use [[https://orgmode.org/worg/org-contrib/babel/intro.html][org-babel]] (obviously) and don’t need confirmation before evaluating a block:
+
 #+name: ob-configuration
 #+begin_src emacs-lisp :tangle no
   (setq org-confirm-babel-evaluate nil
@@ -382,6 +383,15 @@ And turn on ALL the languages:
                                  (css        . t)
                                  (plantuml   . t)))
 #+end_src
+
+The [[https://github.com/isamert/corg.el][corg project]] does completing feature for all the block header values. To do this, type ~M-Tab~ (not just regular ~Tab~).
+
+#+begin_src emacs-lisp :results list :hlines yes
+  (use-package corg
+    :straight (:host github :repo "isamert/corg.el")
+    :hook (org-mode . 'corg-setup))
+#+end_src
+
 *** Searching Literate Files
 A noweb definition, e.g. =<<something-something>>= could /jump/ to the =#name= definition.
 Since [[https://github.com/BurntSushi/ripgrep][ripgrep]] is pretty fast, I’ll call it instead of attempting to build a [[https://stackoverflow.com/questions/41933837/understanding-the-ctags-file-format][CTAGS]] table. Oooh, the =rg= takes a =—json= option, which makes it easier to parse.
@@ -899,13 +909,16 @@ Once in the dictionary buffer, acquiesce these keybindings:
 ** Grammar and Prose Linting
 Flagging cliches, weak phrasing and other poor grammar choices.
 *** Writegood
-The [[https://github.com/bnbeckwith/writegood-mode][writegood-mode]] is effective at highlighting passive and weasel words, but isn’t integrated into =flycheck=:
-#+begin_src emacs-lisp :tangle no
-  (use-package writegood-mode
-    :hook (org-mode . writegood-mode))
+The [[https://github.com/bnbeckwith/writegood-mode][writegood-mode]] is effective at highlighting passive and weasel words.
+#+begin_src emacs-lisp
+  (use-package writegood-mode)
 #+end_src
 And it reports obnoxious messages.
 
+Hrm::hook ((org-mode . writegood-mode)
+           (gfm-mode . writegood-mode)
+           (markdown-mode) . writegood-mode)
+
 We install the =write-good= NPM:
 #+begin_src shell
   npm install -g write-good
@@ -957,7 +970,7 @@ And tell [[https://www.flycheck.org/][flycheck]] to use this:
 #+end_src
 *** Textlint
 The [[https://textlint.github.io/][textlint]] project comes with =flycheck=, as long as there is an executable:
-#+begin_src sh
+#+begin_src sh :results silent
   npm install -g textlint
   # And all the rules
   npm install -g textlint-rule-alex

ha-programming.org

@@ -1152,8 +1152,33 @@ And then we can use it. For some reason, the =pymarkdown= (which I need to use f
     :config
     (setq flycheck-markdown-pymarkdown-config ".pymarkdown.yml")
     (flycheck-may-enable-checker 'markdown-pymarkdown))
+#+end_src
 
-  ;;  defcustom flycheck-markdown-pymarkdown-config
+Ugh
+
+#+begin_src emacs-lisp
+  (flycheck-def-config-file-var flycheck-markdown-pymarkdown-config
+      markdown-pymarkdown nil
+    :package-version '(flycheck . "34"))
+
+  (flycheck-define-checker markdown-pymarkdown
+    "Markdown checker using PyMarkdown.
+
+  See URL `https://pypi.org/project/pymarkdownlnt/'."
+    :command ("pymarkdown"
+              (config-file "--config" flycheck-markdown-pymarkdown-config)
+              "scan"
+              source)
+    :error-patterns
+    ((error line-start
+            (file-name) ":" line
+            (? ":" column) ": " (id (one-or-more alnum))
+            ": " (message) line-end))
+    :error-filter
+    (lambda (errors)
+      (flycheck-sanitize-errors
+       (flycheck-remove-error-file-names "(string)" errors)))
+    :modes (markdown-mode gfm-mode))
 #+end_src
 
 Both the =markdown-command= and the =markdown-open-command= variables are called to render (and preview) a Markdown file (~C-c C-c o~), and calls the following scripts (which in turn, call =pandoc= as I depend on this for other org-related features):

snippets/markdown-mode/callout

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: Hugo Callout
+# key: callout
+# --
+{{< callout type="${2:$$(yas-choose-value '("note" "warning" "hint"))}" >}}
+  $0
+{{< /callout >}}

snippets/markdown-mode/figure

@@ -0,0 +1,6 @@
+# key: <ss
+# name: shell
+# --
+```bash
+${0}
+```

snippets/markdown-mode/h1

@@ -1,8 +0,0 @@
-# -*- mode: snippet -*-
-# name: header
-# key: h1
-# --
-${1:Header}
-${1:$(make-string (string-width yas-text) ?\=)}
-
-$0

snippets/markdown-mode/h2

@@ -1,8 +0,0 @@
-# -*- mode: snippet -*-
-# name: subheader
-# key: h2
-# --
-${1:Header}
-${1:$(make-string (string-width yas-text) ?\-)}
-
-$0

snippets/org-mode/header

@@ -1,7 +1,12 @@
-# -*- mode: snippet -*-
-# name: python-src-block
-# key: <sp
+# key: header
+# name: header
 # --
-#+BEGIN_SRC python
-  $0
-#+END_SRC
+#+TITLE:  ${1:`(s-titleized-words (s-replace-regexp (rx (any "-" "_")) " " (file-name-base (buffer-file-name))))`}
+#+AUTHOR: Howard Abrams
+#+EMAIL:  howard@howardabrams.com
+#+DATE:   `(format-time-string "%Y-%m-%d %a")`
+#+LASTMOD: [`(format-time-string "%Y-%m-%d %a")`]
+#+FILETAGS: ${2:personal}
+#+STARTUP: ${3:inlineimages}
+
+$0

snippets/org-mode/python-src-block

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: python-src-block
+# key: #sp
+# --
+#+BEGIN_SRC python
+  $0
+#+END_SRC