contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[editing] update cp/copy-bus-entry to handle headings and lists

This commit is contained in:
contrapunctus 2021-09-15 19:37:46 +05:30
parent d67dae2918
commit 5ed54066db
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrapunctus/cp-editing.el
View File

@ -182,7 +182,8 @@ whole-line-or-region-kill-ring-save instead."
(point-b-line (line-number-at-pos)))
(query-replace "[ ]" "☐" nil point-a point-b)
(query-replace "[x]" "☑" nil point-a point-b)
(query-replace-regexp "^- " "" nil point-a point-b)
(query-replace-regexp "^[\\*-] " "::" nil point-a point-b)
(query-replace-regexp "^### " ":" nil point-a point-b)
(goto-char (point-min))
(forward-line (- point-b-line 1))
(copy-region-as-kill point-a (point-at-bol))))