Layer created

Author: robkorn

README.md

@@ -1 +1,8 @@
-k-spacemacs-layer
+K Spacemacs Layer
+=========================
+
+This is a Spacemacs layer for K which provides syntax highlighting via k3-mode.
+
+K3-Mode: https://github.com/kframework/k-editor-support/blob/master/emacs/k3-mode.el
+
+

k-framework/local/k3-mode/k3-mode.el

@@ -0,0 +1,142 @@
+;;; k3-mode.el -- Emacs mode for the K Framework
+
+;; Updated from k-mode.el to support the new keywords in K3
+
+;; Usage: add the below to your .emacs file:
+;;     (setq load-path (cons "path/to/this/file" load-path))
+;;     (load-library "k3-mode")
+;;     (add-to-list 'auto-mode-alist '("\\.k$" . k3-mode)) ;; to launch k3-mode for .k files
+
+;; Currently has syntax highlighting for:
+;;  - keywords
+;;  - declarations (e.g. ops, syntax, etc)
+;;  - Quoted identifiers (e.g. for terminals in the syntax)
+;; Also has a menu and compilation through C-c C-c
+
+
+;; Author: Michael Ilseman
+
+(require 'comint)
+
+;;;; Options ;;;;
+(defvar k-dash-comments nil
+  "Set to make \"--\" be used as a beginning of a line comment
+   (emacs's syntax table is unable to differentiate 3 character long comment beginners)"
+)
+(defvar k-path "~/k-framework"
+  "Path to the k-framework. Set if you wish to use kompile from emacs. Defaults to ~/k-framework.
+   Currently doesn't do anything."
+)
+
+;;;; Syntax Highlighting ;;;;
+(setq k-keywords
+      '("syntax" "priorities" "left" "right" "non-assoc" "module" "endmodule" "imports" "::=" "|"
+        "sort" "op" "subsort" "rule" "context" "eq" "ceq" "load" "when" "require" "configuration" "context" "requires" "ensures")
+      k-syntax-terminals-regex
+      "`\\w+"
+      k-declarations ;; Syntax highlight the name after a declaration
+      "\\(syntax\\|sort\\|op\\) \\([a-zA-Z{}\\-]+\\)"
+)
+
+;; Set up the regexes
+(setq k-keywords-regex
+      (regexp-opt k-keywords 'words)
+)
+
+;; Put them all together
+(setq k-font-lock-keywords
+      `((,k-declarations 2 font-lock-builtin-face)
+        (,k-keywords-regex . font-lock-keyword-face)
+        (,k-syntax-terminals-regex . font-lock-constant-face)
+       )
+)
+
+;; Handle comments
+(defun set-comment-highlighting ()
+  "Set up comment highlighting"
+
+  ;; comment style "// ..." and "/* ... */"
+  (modify-syntax-entry ?\/ ". 124b" k3-mode-syntax-table)
+  (modify-syntax-entry ?\n "> b" k3-mode-syntax-table)
+  (modify-syntax-entry ?* ". 23" k3-mode-syntax-table)
+
+  ;; comment style "-- ..."
+  (if k-dash-comments (modify-syntax-entry ?- ". 1b2b" k3-mode-syntax-table))
+)
+
+
+;;;; K Bindings and menu ;;;;
+(defvar k-prev-load-file nil
+  "Record the last directory and file used in loading or compiling"
+)
+(defcustom k-source-modes '(k3-mode)
+  "Determine if a buffer represents a k file"
+)
+;; (defun k3-mode-kompile (cmd)
+;;   ;; (interactive (comint-get-source "Kompile k file: " k-prev-load-file k-source-modes nil))
+;;   ;; (comint-check-source file-name) ; check to see if buffer has been modified and not saved
+;;   ;; (setq k-prev-load-file (cons (file-name-directory file-name)
+;;   ;;                              (file-name-nondirectory file-name)))
+;;   ;; ;; (comint-send-string (inferior-lisp-proc)
+;; 	;; ;; 	      (format inferior-lisp-load-command file-name))
+;;   ;; ;; (switch-to-lisp t))
+;;   ;; (message file-name)
+;;   ;; (setq kompile-buffer (make-comint "Kompile" "zsh" nil))
+;;   ;; (comint-send-string kompile-buffer "cd" nil (file-name-directory file-name))
+;;   ;; (comint-send-string kompile-buffer "~/k-framework/tools/kompile.pl" nil (file-name-nondirectory file-name))
+;;   (interactive "scmd")
+;;   (compile cmd)
+;;   nil
+;; )
+(defun k3-mode-about ()
+  (interactive)
+  (message "k3-mode for the K Framework")
+)
+
+(defun setup-k3-mode-map ()
+  (setq k3-mode-map (make-sparse-keymap))
+
+  ;; Keyboard shortcuts
+  (define-key k3-mode-map (kbd "C-c C-c") 'compile)
+
+  ;; Define the menu
+  (define-key k3-mode-map [menu-bar] (make-sparse-keymap))
+
+  (let ((menuMap (make-sparse-keymap "K Framework")))
+    (define-key k3-mode-map [menu-bar k] (cons "K Framework" menuMap))
+    (define-key menuMap [about]
+      '("About k3-mode" . k3-mode-about))
+    ;; (define-key menuMap [customize]
+    ;;   '("Customize k3-mode" . k-customize))
+    (define-key menuMap [separator]
+      '("--"))
+    (define-key menuMap [kompile]
+      '("kompile" . compile)))
+)
+
+
+
+
+
+;;;; K Mode ;;;;
+
+(define-derived-mode k3-mode fundamental-mode
+  "k3 mode"
+  "Major Mode for the K3 framwork"
+  (setq font-lock-defaults '((k-font-lock-keywords)))
+
+  ;; Comment entries
+  (set-comment-highlighting)
+
+  ;; Set comment start characters
+  (setq comment-start "//")
+
+  ;; Shortcuts and menu
+  (setup-k3-mode-map)
+  (use-local-map k3-mode-map)
+
+  ;; Clear up memory
+  ;;(setq k-keywords nil k-keywords-regex nil)
+)
+
+(provide 'k3-mode)

k-framework/packages.el

@@ -0,0 +1,14 @@
+;;; packages.el --- k-framework layer packages file for Spacemacs.
+
+(setq k-framework-packages
+  '(
+    (k3-mode :location local)
+   )
+)
+
+(defun k-framework/init-k3-mode ()
+  (use-package k3-mode
+    :defer t
+    :mode "\\.k\\'"
+  )
+)