geomyidae

A small C-based gopherd. (gopher://bitreich.org/1/scm/geomyidae)
git clone git://r-36.net/geomyidae
Log | Files | Refs | README | LICENSE

commit 0bf8a3b9d7371bf83b44a64b882a224607d9d41c
parent 9f6992fbf205ebf60a0674c9ec29a86c73cb4fa9
Author: Troels Henriksen <athas@sigkill.dk>
Date:   Thu,  4 Aug 2022 19:26:38 +0200

gph-mode 1.1, now with tab highlighting.

Signed-off-by: Christoph Lohmann <20h@r-36.net>

Diffstat:
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 (athas@sigkill.dk) 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 "|" ,host-rx "|" ,port-rx "]")) (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.")