martin/emacs-org
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refactor(snippets): metadata table + org headings structure; minimal TAB stops

Browse Source
This commit is contained in:
Daneel
2026-02-24 15:08:12 +01:00
parent 6358721349
commit 54d6fb27ed
4 changed files with 29 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
snippets/org-mode/adr
View File

@@ -2,14 +2,22 @@
# name: ADR - Architectural Decision Record
# key: ;adr
# --
| *ID* | `(let ((max-id 0)) (save-excursion (goto-char (point-min)) (while (re-search-forward "| \\*ID\\*\\s-+|\\s-+ADR-\\([0-9]+\\)" nil t) (setq max-id (max max-id (string-to-number (match-string 1)))))) (format "ADR-%04d" (1+ max-id)))` |
| *Subject* | ${1:Title} |
|------------------------+---------------------------|
| *Problem statement* | |
| *Decision* | |
| *Alternatives* | |
| *Justification* | |
| *Implications* | |
| *Derived requirements* | |
| *Status* | ${2:Proposed} |
* `(let ((max-id 0)) (save-excursion (goto-char (point-min)) (while (re-search-forward "^\\* ADR-\\([0-9]+\\)" nil t) (setq max-id (max max-id (string-to-number (match-string 1)))))) (format "ADR-%04d" (1+ max-id)))` - ${1:Subject}
| *ID* | `(let ((max-id 0)) (save-excursion (goto-char (point-min)) (while (re-search-forward "^\\* ADR-\\([0-9]+\\)" nil t) (setq max-id (max max-id (string-to-number (match-string 1)))))) (format "ADR-%04d" (1+ max-id)))` |
| *Subject* | ${1:Subject} |
| *Status* | ${2:Proposed} |
| *Date* | `(format-time-string "%Y-%m-%d")` |
*** Problem statement
*** Decision
*** Alternatives
*** Justification
*** Implications
*** Derived requirements
$0