mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-16 20:10:58 +01:00
47 lines
1.3 KiB
EmacsLisp
47 lines
1.3 KiB
EmacsLisp
;; *** Markdown
|
|
|
|
;; I rarely use markdown, but sometimes I stumble upon such a file and
|
|
;; like to view it with emacs without rendering.
|
|
;; Source: [[http://jblevins.org/projects/markdown-mode/][jblevins.org]]
|
|
|
|
;; via https://stackoverflow.com/a/26297700
|
|
(defun tvd-cleanup-org-tables ()
|
|
(interactive)
|
|
(when (equal major-mode 'markdown-mode)
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(while (search-forward "-+-" nil t) (replace-match "-|-")))))
|
|
|
|
(defun tvd-markdown-todo ()
|
|
"Create dynamically highlighted TODO list of MD list"
|
|
(interactive)
|
|
(highlight-regexp "^- .*" "hi-yellow")
|
|
(highlight-regexp "^- .*ok" "hi-green")
|
|
(highlight-regexp "^- .*fail" "hi-pink"))
|
|
|
|
(defun tvd-markdown-cleanup()
|
|
"Convert org table into markdown table if in markdown-mode and
|
|
save the buffer [again], also check if parens are balanced"
|
|
(when (equal major-mode 'markdown-mode)
|
|
(when (check-parens)
|
|
(tvd-cleanup-org-tables)
|
|
(save-buffer))))
|
|
|
|
(use-package markdown-mode
|
|
:mode "\\.text\\'"
|
|
:mode "\\.markdown\\'"
|
|
:mode "\\.md\\'"
|
|
|
|
:config
|
|
(modify-syntax-entry ?\" "\"" markdown-mode-syntax-table)
|
|
|
|
(add-hook 'before-save-hook 'tvd-cleanup-org-tables)
|
|
|
|
:hook
|
|
(markdown-mode . orgalist-mode)
|
|
(markdown-mode . orgtbl-mode))
|
|
|
|
|
|
(provide 'init-markdown)
|
|
;;; init-markdown.el ends here
|