 |
Add gph major-mode file for emacs. - geomyidae - a small C-based gopherd (mirro… |
 |
git clone git://git.codemadness.org/geomyidae |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
commit 9f6992fbf205ebf60a0674c9ec29a86c73cb4fa9 |
|
parent b8f2f9e71128445ed61141bb7eec1d241790fb43 |
|
Author: Christoph Lohmann <[email protected]> |
|
Date: Wed, 3 Aug 2022 18:24:55 +0200 |
|
|
|
Add gph major-mode file for emacs. |
|
|
|
Thanks Athas! |
|
|
|
Diffstat: |
|
M gph/README.md | 6 ++++++ |
|
A gph/emacs/gph-mode.el | 61 +++++++++++++++++++++++++++++… |
|
|
|
2 files changed, 67 insertions(+), 0 deletions(-) |
|
--- |
|
diff --git a/gph/README.md b/gph/README.md |
|
@@ -9,3 +9,9 @@ |
|
cp vim/ftdetect/gph.vim ~/.vim/ftdetect |
|
cp vim/syntax/gph.vim ~/.vim/syntax |
|
|
|
+## emacs |
|
+ |
|
+Please read this on how emacs finds its major mode files: |
|
+ |
|
+ https://www.gnu.org/software/emacs/manual/html_node/elisp/Auto-Major-M… |
|
+ |
|
diff --git a/gph/emacs/gph-mode.el b/gph/emacs/gph-mode.el |
|
@@ -0,0 +1,61 @@ |
|
+;;; gph-mode.el --- major mode for gph files -*- lexical-binding: t; -*- |
|
+ |
|
+;; Copyright (C) Troels Henriksen ([email protected]) 2022 |
|
+;; |
|
+;; URL: https://github.com/diku-dk/futhark-mode |
|
+;; Keywords: gopher |
|
+;; Version: 1.0 |
|
+;; Package-Requires: ((emacs "25.1")) |
|
+ |
|
+;; This file is not part of GNU Emacs. |
|
+ |
|
+;;; License: |
|
+;; GPL-3+ |
|
+ |
|
+;;; 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. |
|
+;; |
|
+;; Files with the ".gph" extension are automatically handled by this mode. |
|
+;; |
|
+;; For extensions: Define local keybindings in `gph-mode-map'. Add |
|
+;; startup functions to `gph-mode-hook'. |
|
+ |
|
+;;; Code: |
|
+ |
|
+(eval-when-compile |
|
+ (require 'rx)) |
|
+ |
|
+(defvar gph--font-lock-defaults |
|
+ (let* ((type-rx '(or "0" "1" "3" "7" "8" "9" "g" "I" "h" "i")) |
|
+ (desc-rx '(* (not "|"))) |
|
+ (path-rx '(* (not "|"))) |
|
+ (host-rx '(* (not "|"))) |
|
+ (port-rx '(+ digit)) |
|
+ (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)))) |
|
+ |
|
+(defvar gph-mode-hook nil |
|
+ "Hook for `gph-mode'. Is run whenever the mode is entered.") |
|
+ |
|
+(defvar gph-mode-map |
|
+ (let ((map (make-keymap))) |
|
+ map) |
|
+ "Keymap for `gph-mode'.") |
|
+ |
|
+;;;###autoload |
|
+(add-to-list 'auto-mode-alist '("\\.gph" . gph-mode)) |
|
+ |
|
+;;;###autoload |
|
+(define-derived-mode gph-mode text-mode "gph" |
|
+ "Major mode for .gph files as used by geomyidae." |
|
+ (setq-local paragraph-start (concat "^\\[|\\|[ \t]*$\\|" page-delimiter)) |
|
+ (setq-local paragraph-separate (concat "^\\[\\|[ \t]*$\\|" page-delimiter)) |
|
+ (setq-local font-lock-defaults '(gph--font-lock-defaults))) |
|
+ |
|
+(provide 'gph-mode) |
|
+ |
|
+;;; gph-mode.el ends here |
