Files
emacs-config/lisp/init-markdown.el
2026-04-06 14:04:32 +02:00

58 lines
2.2 KiB
EmacsLisp

(require 'markdown-mode)
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
(defun my/markdown-setup ()
"Ruhigere Darstellung für Markdown."
(visual-line-mode 1)
(outline-minor-mode 1)
(setq-local left-margin-width 2)
(setq-local right-margin-width 0)
(setq-local word-wrap t)
(setq-local markdown-hide-markup t)
(set-window-buffer nil (current-buffer)))
(add-hook 'markdown-mode-hook #'my/markdown-setup)
(add-hook 'gfm-mode-hook #'my/markdown-setup)
(setq markdown-fontify-code-blocks-natively t)
(setq markdown-enable-math t)
(setq markdown-hide-markup nil)
(setq markdown-list-indent-width 2)
(with-eval-after-load 'markdown-mode
;; Delimiter (#) nicht grell rot
(set-face-attribute 'markdown-header-delimiter-face nil
:foreground "#51afef" :weight 'normal)
;; Gesamtstil für Überschriften
(set-face-attribute 'markdown-header-face nil
:foreground "#51afef" :weight 'bold)
;; Level 1-6, ruhiger und org-artiger
(set-face-attribute 'markdown-header-face-1 nil
:foreground "#51afef" :weight 'bold :height 1.35)
(set-face-attribute 'markdown-header-face-2 nil
:foreground "#51afef" :weight 'bold :height 1.25)
(set-face-attribute 'markdown-header-face-3 nil
:foreground "#51afef" :weight 'bold :height 1.18)
(set-face-attribute 'markdown-header-face-4 nil
:foreground "#51afef" :weight 'semi-bold :height 1.12)
(set-face-attribute 'markdown-header-face-5 nil
:foreground "#51afef" :weight 'semi-bold :height 1.08)
(set-face-attribute 'markdown-header-face-6 nil
:foreground "#51afef" :weight 'normal :height 1.05)
;; Marker ruhiger
(set-face-attribute 'markdown-header-delimiter-face nil
:foreground "#5B6268" :weight 'normal)
(set-face-attribute 'markdown-list-face nil
:foreground "#5B6268" :weight 'normal))
(provide 'init-markdown)
(define-key markdown-mode-map (kbd "RET") #'markdown-follow-thing-at-point)
(custom-set-faces
'(markdown-link-face ((t (:foreground "#88c0d0" :underline t))))
'(markdown-url-face ((t (:foreground "#81a1c1" :underline t)))))