 |
gph-mode 1.1, now with tab highlighting. - geomyidae - a small C-based gopherd … |
 |
git clone git://git.codemadness.org/geomyidae |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
commit 0bf8a3b9d7371bf83b44a64b882a224607d9d41c |
|
parent 9f6992fbf205ebf60a0674c9ec29a86c73cb4fa9 |
|
Author: Troels Henriksen <[email protected]> |
|
Date: Thu, 4 Aug 2022 19:26:38 +0200 |
|
|
|
gph-mode 1.1, now with tab highlighting. |
|
|
|
Signed-off-by: Christoph Lohmann <[email protected]> |
|
|
|
Diffstat: |
|
M gph/emacs/gph-mode.el | 19 +++++++++++++++---- |
|
|
|
1 file changed, 15 insertions(+), 4 deletions(-) |
|
--- |
|
diff --git a/gph/emacs/gph-mode.el b/gph/emacs/gph-mode.el |
|
@@ -2,9 +2,9 @@ |
|
|
|
;; Copyright (C) Troels Henriksen ([email protected]) 2022 |
|
;; |
|
-;; URL: https://github.com/diku-dk/futhark-mode |
|
+;; URL: gopher://sigkill.dk/1/programming |
|
;; Keywords: gopher |
|
-;; Version: 1.0 |
|
+;; Version: 1.1 |
|
;; Package-Requires: ((emacs "25.1")) |
|
|
|
;; This file is not part of GNU Emacs. |
|
@@ -15,7 +15,9 @@ |
|
;;; Commentary: |
|
;; .gph is the map file format used by the geomyidae Gopher daemon. |
|
;; This Emacs mode provides basic understanding of the link syntax, |
|
-;; such that highlighting and folding works properly. |
|
+;; such that highlighting and folding works properly. It also |
|
+;; highlights tab characters in pink because these are not allowed in |
|
+;; .gph files. |
|
;; |
|
;; Files with the ".gph" extension are automatically handled by this mode. |
|
;; |
|
@@ -27,6 +29,14 @@ |
|
(eval-when-compile |
|
(require 'rx)) |
|
|
|
+(defface gph-tabs-face |
|
+ '((((class color)) (:background "hotpink")) |
|
+ (t (:reverse-video t))) |
|
+ "Face to use for highlighting tabs in Font-Lock mode.") |
|
+ |
|
+(defvar gph-tabs 'gph-tabs-face |
|
+ "Face to use for highlighting tabs in Font-Lock mode.") |
|
+ |
|
(defvar gph--font-lock-defaults |
|
(let* ((type-rx '(or "0" "1" "3" "7" "8" "9" "g" "I" "h" "i")) |
|
(desc-rx '(* (not "|"))) |
|
@@ -36,7 +46,8 @@ |
|
(link-rx `(: line-start "[" ,type-rx "|" ,desc-rx "|" ,path-rx "|" ,h… |
|
(badlink-rx `(: line-start "[" (* anything)))) |
|
`((,(rx-to-string link-rx) 0 font-lock-doc-markup-face) |
|
- (,(rx-to-string badlink-rx) 0 font-lock-warning-face)))) |
|
+ (,(rx-to-string badlink-rx) 0 font-lock-warning-face) |
|
+ ("\t" 0 gph-tabs)))) |
|
|
|
(defvar gph-mode-hook nil |
|
"Hook for `gph-mode'. Is run whenever the mode is entered.") |
