about summary refs log tree commit diff stats
path: root/rnd
diff options
context:
space:
mode:
authorelioat <elioat@tilde.institute>2022-12-08 22:57:20 -0500
committerelioat <elioat@tilde.institute>2022-12-08 22:57:20 -0500
commit783abea5fd1abcaa61573aabe11f01f0f2b28b56 (patch)
tree53ed28dc5806b2c0d4c389685c66a79448f610c4 /rnd
parentd75bb5b8b7ad4aa2b289482d10fa07a26ee65721 (diff)
downloaddecember-2022-783abea5fd1abcaa61573aabe11f01f0f2b28b56.tar.gz
emacs is weird ya'll
Diffstat (limited to 'rnd')
-rw-r--r--rnd/elisp/lil-mode.el34
1 files changed, 34 insertions, 0 deletions
diff --git a/rnd/elisp/lil-mode.el b/rnd/elisp/lil-mode.el
index 1a88a56..bccc7ba 100644
--- a/rnd/elisp/lil-mode.el
+++ b/rnd/elisp/lil-mode.el
@@ -29,8 +29,42 @@
     (modify-syntax-entry ?\n ">" table)    ; \n ends a comment
     table))
 
+
+
+;; (defconst lil-keywords
+;;   '("if" "else" "end" "while" "each" "send" "do" "select" "extract" "update" "insert" "into" "from" "where" "by" "orderby" "asc" "desc" "with" "local" "floor" "cos" "sin" "tan" "exp" "ln" "sqrt" "count" "sum" "min" "max" "raze" "first" "last" "range" "list" "table" "rows" "cols" "mag" "unit" "heading" "split" "fuse" "cat" "dict" "take" "drop" "in" "at" "join" "cross" "parse" "format" "typeof" "unless" "flip" "limit" "on"))
+
+;; (defvar lil-font-lock-keywords
+;;   (list
+;;    ;; highlight all the reserved commands.
+;;    `(,(concat "\\_<" (regexp-opt lil-keywords) "\\_>") . font-lock-keyword-face))
+;;   "Additional expressions to highlight in `lil-mode'.")
+
+
+
+;; (defvar lilt-buffer-name "*lilt*")
+;; (defvar lilt-cli-arguments '())
+
+;; (defun lilt-run ()
+;;   (interactive)
+;;   (let* ((lilt-program "/usr/local/bin/lilt")
+;;          (buffer (get-buffer-create lilt-buffer-name))
+;;          (proc-alive (comint-check-proc buffer))
+;;          (process (get-buffer-process buffer)))
+;;     (unless proc-alive
+;;       (with-current-buffer buffer
+;;         (apply 'make-comint-in-buffer "lilt" buffer
+;;                lilt-program nil lilt-cli-arguments)
+;;         (lil-mode)))
+;;     (when buffer
+;;       (pop-to-buffer buffer))))
+
+;; (defun lilt--initialize ()
+;;   (setq comint-process-echoes t))
+
 (define-derived-mode lil-mode prog-mode "lil mode"
   :syntax-table lil-mode-syntax-table
+  ; (set (make-local-variable 'font-lock-defaults) '(lil-font-lock-keywords t))
   (font-lock-fontify-buffer))
 
 (provide 'lil-mode)