From b00548418fed7e6df9feb318cbe6f0a93d64b8fb Mon Sep 17 00:00:00 2001
From: Thomas Schneider <qsx@chaotikum.eu>
Date: Mon, 27 Jul 2026 19:59:24 +0200
Subject: Emacs: Add poly-pio-mode for RasPi PIO

---
 dot.emacs.d/init.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'dot.emacs.d/init.el')

diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el
index ae2b75a..0481527 100644
--- a/dot.emacs.d/init.el
+++ b/dot.emacs.d/init.el
@@ -494,6 +494,21 @@
   :mode ("\\.gp\\'" . gnuplot-mode)
   :hook ((gnuplot-comint-mode .  qsx-disable-show-trailing-whitespace)))
 
+;; RP PIO
+(progn
+  (define-hostmode poly-pio-hostmode
+    :mode 'asm-mode)
+  (define-innermode poly-pio-c-innermode
+    :mode 'c-mode
+    :head-matcher "^% c-sdk {$"
+    :tail-matcher "^%}$"
+    :head-mode 'host
+    :tail-mode 'host)
+  (define-polymode poly-pio-mode
+    :hostmode 'poly-pio-hostmode
+    :innermodes '(poly-pio-c-innermode))
+  (add-to-list 'auto-mode-alist '("\\.pio\\'" . poly-pio-mode)))
+
 ;;; Mail
 (use-package gnus
   :defer t
-- 
cgit v1.2.3