diff options
author | Case Duckworth | 2021-01-02 23:15:49 -0600 |
---|---|---|
committer | Case Duckworth | 2021-01-02 23:15:49 -0600 |
commit | 130815ce0c0b3eac9707114b0ed5080f3941802c (patch) | |
tree | b5e7193df0fa998ca9f964e40e4712b5ccd0c1a5 | |
parent | Make anchors in Org more useful (diff) | |
download | emacs-130815ce0c0b3eac9707114b0ed5080f3941802c.tar.gz emacs-130815ce0c0b3eac9707114b0ed5080f3941802c.zip |
Get rid of “Useful HTML Anchors” section
It clobbered all my org-mode stuff!!
-rw-r--r-- | config.org | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/config.org b/config.org index 93e136d..65dc47a 100644 --- a/config.org +++ b/config.org | |||
@@ -1488,47 +1488,6 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s m | |||
1488 | (add-hook 'emacs-lisp-mode-hook #'org-link-minor-mode) | 1488 | (add-hook 'emacs-lisp-mode-hook #'org-link-minor-mode) |
1489 | #+end_src | 1489 | #+end_src |
1490 | 1490 | ||
1491 | *** Useful HTML Anchors | ||
1492 | |||
1493 | #+begin_src emacs-lisp | ||
1494 | (defun my/ensure-headline-ids (&rest _) | ||
1495 | "Ensure better headlines for Org trees. | ||
1496 | |||
1497 | Use CUSTOM_ID property, or barring that, a \"fixed\" title. | ||
1498 | |||
1499 | All non-alphanumeric characters are cleverly replaced with ‘-’. | ||
1500 | |||
1501 | If multiple trees end-up with the same id property, issue a | ||
1502 | message and undo any property insertion thus far. | ||
1503 | |||
1504 | E.g., ↯ We'll go on a ∀∃⇅ adventure | ||
1505 | ↦ We'll-go-on-a-adventure | ||
1506 | " | ||
1507 | (interactive) | ||
1508 | (let ((ids)) | ||
1509 | (org-map-entries | ||
1510 | (lambda () | ||
1511 | (org-with-point-at (point) | ||
1512 | (let ((id (org-entry-get nil "CUSTOM_ID"))) | ||
1513 | (unless id | ||
1514 | (thread-last (nth 4 (org-heading-components)) | ||
1515 | (s-replace-regexp "[^[:alnum:]']" "-") | ||
1516 | (s-replace-regexp "-+" "-") | ||
1517 | (s-chop-prefix "-") | ||
1518 | (s-chop-suffix "-") | ||
1519 | (setq id)) | ||
1520 | (if (not (member id ids)) | ||
1521 | (push id ids) | ||
1522 | (message-box "Oh no, a repeated id!\n\n\t%s" id) | ||
1523 | (undo) | ||
1524 | (setq quit-flag t)) | ||
1525 | (org-entry-put nil "CUSTOM_ID" id)))))))) | ||
1526 | |||
1527 | ;; Whenever html & md export happens, ensure we have headline ids. | ||
1528 | (advice-add 'org-html-export-to-html :before 'my/ensure-headline-ids) | ||
1529 | (advice-add 'org-md-export-to-markdown :before 'my/ensure-headline-ids) | ||
1530 | #+end_src | ||
1531 | |||
1532 | ** Git | 1491 | ** Git |
1533 | 1492 | ||
1534 | #+begin_src emacs-lisp | 1493 | #+begin_src emacs-lisp |