Mercurial > hg > rsof

annotate MHMC/minutes.el @ 495:b3cffcadc1c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
for fixup of pandoc output
author Henry Thompson <ht@markup.co.uk>
date Tue, 16 Jul 2024 16:38:03 +0100
parents
children 34129b221ffa
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
495
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
1 ;;; sed 's/^ *//' notes.txt|/c/Program\ Files/Pandoc/pandoc --metadata title="MHMC 2024-07-02" -s -f markdown -t html4 > notes.html
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
2
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
3 ;;; from before pandoc
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
4 (defalias 'format-action (read-kbd-macro
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
5 "C-s ACTION: SPC RET C-SPC <M-backspace> <p SPC class='a'> C-M-s C-q C-j C-q C-j RET <backspace> C-b </p>"))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
6
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
7 (defun fix-html ()
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
8 (interactive)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
9 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
10 (forward-line 2)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
11 (sgml-forward-element)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
12 (forward-char 1)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
13 (kill-region (point-min) (point))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
14 (fix-divs)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
15 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
16 (fix-dls)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
17 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
18 (insert-file "/home/ht/Documents/RSoF/MHMC/doc-head.ent")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
19 (goto-char (point-max))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
20 (forward-line -2)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
21 (beginning-of-line)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
22 (insert "</div>\n")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
23 (forward-line 1)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
24 (beginning-of-line)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
25 (kill-line)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
26 (insert "</doc>")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
27 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
28 (search-forward "<title>" nil t)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
29 )
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
30
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
31 (defun fix-dls ()
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
32 (interactive)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
33 (replace-string "dl>" "list>")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
34 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
35 (replace-regexp "<dt>\\([^<]*\\)</dt>\n" "<item term='\\1'>")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
36 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
37 (replace-string "<dd>\n" "")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
38 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
39 (replace-string "</dd>" "</item>")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
40 )
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
41 (defun fix-divs ()
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
42 (interactive)
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
43 (replace-regexp "^<h.[^>]*>\\([^<]*\\)</h.>" "<div>\n <title>\\1</title>")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
44 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
45 (replace-regexp "\\(</p>\n\\)\\([ ]*\\)\\(<div\\)" "\\1\\2</div>\n\\2\\3")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
46 (goto-char (point-min))
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
47 (replace-string "<p>ACTION: " "<p class='a'>")
b3cffcadc1c2 for fixup of pandoc output
Henry Thompson <ht@markup.co.uk>
parents:
diff changeset
48 (goto-char (point-min)))