From bc9e0a45eaa1ef8b73338cb850f6589fadedb83c Mon Sep 17 00:00:00 2001 From: Andor Kesselman Date: Fri, 10 Feb 2023 16:33:38 +0530 Subject: [PATCH 1/2] fix comment --- d2-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/d2-mode.el b/d2-mode.el index 9801a57..dbacb28 100644 --- a/d2-mode.el +++ b/d2-mode.el @@ -217,9 +217,9 @@ Optional argument BROWSE whether to open the browser." (define-derived-mode d2-mode prog-mode "d2" :syntax-table d2-syntax-table (setq-local font-lock-defaults '(d2-font-lock-keywords)) - (setq-local comment-start "%%") + (setq-local comment-start "#") (setq-local comment-end "") - (setq-local comment-start-skip "%%+ *")) + (setq-local comment-start-skip "#")) (provide 'd2-mode) From 522a333894b1e447c712b186245ae4eb3cfe8e73 Mon Sep 17 00:00:00 2001 From: Andor Kesselman Date: Fri, 10 Feb 2023 16:43:34 +0530 Subject: [PATCH 2/2] added comments --- d2-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/d2-mode.el b/d2-mode.el index dbacb28..6d466e7 100644 --- a/d2-mode.el +++ b/d2-mode.el @@ -92,13 +92,14 @@ (defconst d2-font-lock-keywords `((,(regexp-opt '("shape" "md" ) 'words) . font-lock-keyword-face) ("---\\|-?->*\\+?\\|==>\\|===|->" . font-lock-variable-name-face) + ("#.*" . font-lock-comment-face ) (":\\|{\\|}\\|\|\\|+" . font-lock-builtin-face) (,(regexp-opt '("go" "js") 'lang) . font-lock-preprocessor-face) (,(regexp-opt '("class" "string" ) 'words2) . font-lock-type-face))) (defvar d2-syntax-table (let ((syntax-table (make-syntax-table))) - ;; Comment style "%% ..." + ;; Comment style "# ..." (modify-syntax-entry ?% ". 124" syntax-table) (modify-syntax-entry ?\n ">" syntax-table) syntax-table)