howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Hide links in literate header search

Browse source
This commit is contained in:
Howard Abrams 2026-08-06 08:28:02 -07:00
parent 263140e101
commit 87f330112a
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
ha-org-literate.org
View file

@ -2,7 +2,7 @@
#+author: Howard Abrams #+author: Howard Abrams
#+date: 2024-07-07 #+date: 2024-07-07
#+filetags: emacs hamacs #+filetags: emacs hamacs
#+lastmod: [2025-02-20 Thu] #+lastmod: [2026-08-05 Wed]
A literate programming file for literate programming in Emacs Org Files. A literate programming file for literate programming in Emacs Org Files.
@ -51,7 +51,7 @@ Since we are using Emacs, the downsides of using a literate approach (even for p
** Surround with Org Block ** Surround with Org Block
This simple change allows me to highlight any text, and surround it in an org block. We This simple change allows me to highlight any text, and surround it in an org block. We
#+BEGIN_SRC snippet :tangle ~/.emacs.d/snippets/org-mode/surround-org-block #+BEGIN_SRC snippet :tangle ~/.emacs.d/snippets/org-mode/surround-org-block :eval none
# name: surround-org-block # name: surround-org-block
# -- # --
,#+BEGIN_${1:SRC} ${2:emacs-lisp} $0 ,#+BEGIN_${1:SRC} ${2:emacs-lisp} $0
@ -90,7 +90,7 @@ Actually, I probably want all the parameters (if any) to come along for the ride
This allows us to now split a block into two parts: This allows us to now split a block into two parts:
#+BEGIN_SRC snippet :tangle ~/.emacs.d/snippets/org-mode/split-org-block #+BEGIN_SRC snippet :tangle ~/.emacs.d/snippets/org-mode/split-org-block :eval none
,# -*- mode: snippet -*- ,# -*- mode: snippet -*-
,# name: split-org-block ,# name: split-org-block
,# key: #split ,# key: #split
@ -712,7 +712,8 @@ Not every header should be a destination, as many of my org files have duplicate
"Install" "Install"
"Overview" "Overview"
"Summary" "Summary"
"Technical Artifacts")) "Technical Artifacts"
"[["))
"Regular expression matching headers to purge.") "Regular expression matching headers to purge.")
#+end_src #+end_src
@ -777,12 +778,20 @@ Before we dive into the implementation of this function, let’s write a test to
'("Somefile∷ Parent﹥ Subparent﹥ Deep Heading" '("Somefile∷ Parent﹥ Subparent﹥ Deep Heading"
"ha-somefile.org" 73))) "ha-somefile.org" 73)))
(setq ha-hamacs-edit-prev-head-list '("Parent" "Subparent" "Subby"))
(should (equal
(ha-hamacs-edit--process-entry
"ha-somefile.org:73:**** Deep Heading")
'("Somefile∷ Parent﹥ Subparent﹥ Subby﹥ Deep Heading"
"ha-somefile.org" 73)))
(setq ha-hamacs-edit-prev-head-list '("Parent" "Subparent" (setq ha-hamacs-edit-prev-head-list '("Parent" "Subparent"
"Subby" "Deepsubby")) "Subby" "Deepsubby"))
(should (equal (should (equal
(ha-hamacs-edit--process-entry (ha-hamacs-edit--process-entry
"ha-somefile.org:73:***** Deepest Heading") "ha-somefile.org:73:***** Deepest Heading")
'("Somefile∷ ... Deepest Heading" '("Somefile∷ Parent﹥ Subparent﹥ Subby﹥ Deepsubby﹥ Deepest Heading"
"ha-somefile.org" 73)))) "ha-somefile.org" 73))))
#+end_src #+end_src