Put together a simple tridactylrc mode

Parts gathered from vimrc-mode
This commit is contained in:
Antoine Martin 2022-02-07 17:06:41 +01:00
parent 5baeffa112
commit 3e8a3b64bd

View file

@ -11,6 +11,7 @@
- [[#line-numbers][Line numbers]] - [[#line-numbers][Line numbers]]
- [[#battery-indicator][Battery indicator]] - [[#battery-indicator][Battery indicator]]
- [[#programming][Programming]] - [[#programming][Programming]]
- [[#tridactyl-mode][Tridactyl mode]]
- [[#smart-parens][Smart parens]] - [[#smart-parens][Smart parens]]
- [[#rust][Rust]] - [[#rust][Rust]]
- [[#column-width][Column width]] - [[#column-width][Column width]]
@ -165,6 +166,41 @@ I'm on a laptop, so let's display my battery in the modeline:
* Programming * Programming
** Tridactyl mode
#+begin_src emacs-lisp
(defvar tridactylrc-font-lock-keywords
`( ;; Line comment
("^[\t ]*\\(\"\\)\\(.*\\)$"
(1 font-lock-comment-delimiter-face)
(2 font-lock-comment-face))
;; Trailing comment
("[\t ]+\\(\"\\)\\([^\"\r\n]*\\)$"
(1 font-lock-comment-delimiter-face)
(2 font-lock-comment-face))
;; String start:
("\\(\"[^\n\r\"]*\"\\)\\|\\('[^\n\r]*'\\)"
(0 font-lock-string-face)) ;; String end;
))
(defvar tridactylrc-mode-syntax-table
(let ((table (make-syntax-table)))
(modify-syntax-entry ?' "\"" table)
(modify-syntax-entry ?\" "<" table)
(modify-syntax-entry ?\n ">" table)
table))
(define-derived-mode tridactylrc-mode prog-mode "tridactylrc"
"Major mode for editing tridactylrc configuration files."
:group 'tridactylrc-mode
:syntax-table tridactylrc-mode-syntax-table
(font-lock-add-keywords nil tridactylrc-font-lock-keywords)
(setq-local comment-start "\"")
(setq-local comment-end ""))
#+end_src
** Smart parens ** Smart parens
Disable smart parens because half of the time it doesn't do what I want: Disable smart parens because half of the time it doesn't do what I want: