Polymode PIO

.emacs

@@ -542,6 +542,25 @@
 	(c-mode-common . clang-format+-mode)
 	)
 
+(use-package polymode
+	:config
+	(define-hostmode poly-pio-hostmode
+		:mode 'asm-mode)
+
+	(define-auto-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))
+	)
+
 (use-package yasnippet
 	:delight yas-minor-mode
 	:config