Set font differently

user-lisp/langs/icejam-lang-clojure.el

@@ -43,8 +43,9 @@
   [""
    ("q"  "Quit"        keyboard-quit)])
 
-(add-to-list
- 'icejam-language-transient-alist '(clojure-mode . icejam-clojure-lang-menu))
+(dolist (mode '(clojure-mode edn-mode))
+    (add-to-list 'icejam-language-transient-alist
+                 `(,mode . icejam-clojure-lang-menu)))
 
 (defun icejam-lang-activate-clojure-mode ()
   "Goodies for clojure files."

user-lisp/langs/icejam-lang-java.el

@@ -5,15 +5,39 @@
 (eval-when-compile
   (declare-function column-enforce-n 'column-enforce-mode (number))
   (declare-function icejam-set-indent 'icejam-prog-mode)
-  (declare-function icejam-set-eglot-capfs 'icejam-complete-at-point))
+  (declare-function icejam-set-eglot-capfs 'icejam-complete-at-point)
+  (declare-function transient-define-prefix 'transient)
+  (defvar icejam-java-lang-menu)
+  (defvar icejam-language-transient-alist))
 
 (add-to-list 'auto-mode-alist '("\\.java\\'" . java-ts-mode))
 
 ;; (use-package eglot-java :ensure t)
 
+(transient-define-prefix icejam-java-lang-menu ()
+  [[:description
+    (lambda ()
+      (concat (propertize "Code actions for " 'face 'transient-heading)
+              (propertize (format "%s" major-mode) 'face 'transient-key)
+              (propertize ":\n" 'face 'transient-heading)))
+    ("m" "iMenu" consult-imenu)
+    ("r" "Reload buffer" icejam-revert-buffer-no-confirm)
+    ("e" "Show errors" flymake-show-buffer-diagnostics)
+    ("f" "Format" eglot-format-buffer)
+
+    ("q" "Quit" keyboard-quit)]])
+
+(dolist (mode '(java-ts-mode))
+    (add-to-list 'icejam-language-transient-alist
+                 `(,mode . icejam-java-lang-menu)))
+
 (defun icejam-activate-java-mode ()
 	"Java mode overrides."
-	(icejam-set-indent 2)
+
+  ;; Set indentation to two spaces
+  (icejam-set-indent 2)
+  (setq-local java-ts-mode-indent-offset tab-width)
+
   (eglot-ensure)
   (column-enforce-n 80)
   (icejam-set-eglot-capfs))