Skip to content

Commit

Permalink
Improve org-ascii-convert function to use markdown syntax
Browse files Browse the repository at this point in the history
  • Loading branch information
@jglee1027
jglee1027 committed Mar 8, 2023
1 parent e0caf00 commit 04ab61f
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions emacs/init.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -155,6 155,7 @@ Otherwise, return result of last form in BODY."
remove-underline
use-bullet
use-hyphen
use-markdown
use-symbol-char)
(interactive)
(goto-char (point-min))
Expand Down Expand Up @@ -183,6 184,8 @@ Otherwise, return result of last form in BODY."
(mqr-replace-regexp '(("\\(^ \\)- " . " \\1. ")))
(mqr-replace-regexp '((". \\[X\\] " . ". [v] ")))
(mqr-replace-regexp '(("^ ." . " :")))))
(cond (use-markdown
(mqr-replace-regexp '(("\\* \\([^*]*\\)\\* " . "`\\1`")))))
(cond (use-symbol-char
(mqr-replace-regexp '(("^\\([0-9] \\) " . "
\\1. ")
Expand Down Expand Up @@ -245,6 248,7 @@ Otherwise, return result of last form in BODY."
:remove-angle-quote t
:remove-underline t
:use-bullet t
:use-markdown t
:use-symbol-char t))
(defun remove-lines-use-dot ()
(interactive)
Expand All @@ -253,6 257,7 @@ Otherwise, return result of last form in BODY."
:remove-angle-quote t
:remove-underline t
:use-hyphen nil
:use-markdown t
:use-symbol-char t))
(defun remove-lines-use-hyphen ()
(interactive)
Expand All @@ -261,6 266,7 @@ Otherwise, return result of last form in BODY."
:remove-angle-quote t
:remove-underline t
:use-hyphen t
:use-markdown t
:use-symbol-char t))
(add-hook 'text-mode-hook
(lambda()
Expand Down

0 comments on commit 04ab61f

Please sign in to comment.