From 2af840342c242fe1f40f033936d3eaa9e7a9aab5 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 1 Jul 2023 23:55:05 +1000 Subject: Adding more faces to wiki mode, as well as rendering the links like in org mode --- emacs/.emacs.d/lisp/my/wiki-faces.el | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) (limited to 'emacs/.emacs.d/lisp/my/wiki-faces.el') diff --git a/emacs/.emacs.d/lisp/my/wiki-faces.el b/emacs/.emacs.d/lisp/my/wiki-faces.el index 2c35722..00a346a 100644 --- a/emacs/.emacs.d/lisp/my/wiki-faces.el +++ b/emacs/.emacs.d/lisp/my/wiki-faces.el @@ -73,5 +73,36 @@ (defvar wiki-level-6 'wiki-level-6 "Face used for level 6 headlines.") +(defface wiki-hr-face '((t :inherit font-lock-builtin-face)) + "Wiki hrule face") + +(defvar wiki-hr-face 'wiki-hr-face + "Wiki hrule face") + +(defface wiki-bold-italic '((t :inherit bold-italic)) + "Wiki bold-italic face") + +(defvar wiki-bold-italic 'wiki-bold-italic + "Wiki bold-italic face") + +(defface wiki-bold '((t :inherit bold)) + "Wiki bold face") + +(defvar wiki-bold 'wiki-bold + "Wiki bold face") + +(defface wiki-italic '((t :inherit italic)) + "Wiki italic face") + +(defvar wiki-italic 'wiki-italic "Wiki italic face") + +(defface wiki-pre-face '((t :inherit org-code)) "Wiki pre face") + +(defvar wiki-pre-face 'wiki-pre-face "Wiki pre face") + +(defface wiki-link '((t :inherit org-link)) "Wiki link face") + +(defvar wiki-link 'wiki-link "Wiki link face") + (provide 'wiki-faces) ;;; wiki-faces.el ends here -- cgit v1.2.3