Add initial configuration for Janet.

1 files changed, 25 insertions, 0 deletions

diff --git a/lisp/programming/janet.el b/lisp/programming/janet.el
new file mode 100644
index 0000000..ab86d12
--- /dev/null
+++ b/lisp/programming/janet.el
@@ -0,0 +1,25 @@
+;;; janet.el -*- lexical-binding: t; -*-
+;;;
+;;; Author:  Jakob L. Kreuze <zerodaysfordays@sdf.org>
+;;; URL:     https://git.sr.ht/~jakob/.emacs.d/
+;;;
+;;; Configuration of a development environment for the Janet programming
+;;; language.
+;;;
+
+(use-package janet-mode
+  :bind (:map janet-mode-map ("C-M-x" . inf-janet-eval-defun)))
+
+(use-package inf-janet
+  :straight (inf-janet :type git :host github :repo "velkyel/inf-janet")
+  :init (setq inf-janet-program "janet")
+  :hook
+  (inf-janet-mode .
+   (lambda ()
+     ;; Disable font-locking in this buffer to improve performance
+     (font-lock-mode -1)
+     ;; Prevent font-locking from being re-enabled in this buffer
+     (make-local-variable 'font-lock-function)
+     (setq font-lock-function (lambda (_) nil))
+     (add-hook 'comint-preoutput-filter-functions 'xterm-color-filter nil t)
+     (add-hook 'comint-preoutput-filter-functions 'xterm-title-filter nil t))))