Move some stuff

user-lisp/icejam-complete-at-point.el

@@ -24,7 +24,7 @@
 (use-package yasnippet-snippets :ensure t :after (yasnippet))
 
 ;; Corfu is the main engine for displaying suggestions.
-(use-package corfu :ensure (:host github :repository "minad/corfu" :ref "856171ac98c3aaa629caa011be7cd3a9405e6e0f") :defer t
+(use-package corfu :ensure t :defer t
   :hook ((elpaca-after-init . global-corfu-mode)
          (global-corfu-mode . corfu-popupinfo-mode))
   :config
@@ -54,7 +54,7 @@
   :hook ((elpaca-after-init . corfu-terminal-mode)))
 
 ;; These are actual completions
-(use-package cape :ensure (:host github :repository "minad/cape" :ref "2e15e1909754752f66096dde1b8d639d6eb25f35") :after corfu
+(use-package cape :ensure t :after corfu
   :config
   ;; Set default completion values:
   (set-default 'completion-at-point-functions

user-lisp/icejam-completing-read.el

@@ -33,8 +33,11 @@
 (advice-add #'completing-read-multiple :filter-args #'crm-indicator)
 (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
 
+;; Vertico relies on Emacs 31 compatibility
+(use-package compat :ensure t)
+
 ;; Actual orderless
-(use-package vertico :ensure (:host github :repo "minad/vertico" :ref "e4338c5bae2c725be2940726be170bc034af3b6c") :defer t
+(use-package vertico :ensure t :defer t
   :hook ((elpaca-after-init . vertico-mode))
   :config
   (setopt vertico-scroll-margin 1) ;; Scroll on N-1
@@ -49,17 +52,17 @@
   (keymap-set vertico-map "<next>" 'vertico-scroll-up)
   (keymap-set vertico-map "<prior>" 'vertico-scroll-down))
 
-(use-package orderless :ensure (:host github :repo "oantolin/orderless" :ref "3a2a32181f7a5bd7b633e40d89de771a5dd88cc7")
+(use-package orderless :ensure t
   :config
   ;; Fallback to basic if orderless does not work.
   (setopt completion-styles '(orderless basic))
   (setopt completion-category-defaults nil)
   (setopt completion-category-overrides '((file (styles partial-completion)))))
 
-(use-package marginalia :ensure (:host github :repo "minad/marginalia" :ref "4a0628dfdf944a5d307d31d2a514825cc5386986") :defer t
+(use-package marginalia :ensure t :defer t
   :hook ((elpaca-after-init . marginalia-mode)))
 
-(use-package consult :ensure (:host github :repo "minad/consult" :ref "45fdad7b234141ea572267024c8f4b08dd2e1022")
+(use-package consult :ensure t
   :config
   ;; Using ripgrep, show hidden files but ignore contents of .git
   (setopt consult-ripgrep-args

user-lisp/icejam-custom-init.el

@@ -101,9 +101,9 @@
 
 ;; I don't know why this needs to be here and with a lisp directory, but
 ;; normal subdirs.el file doesn't work.
-(add-to-list 'load-path (concat user-emacs-directory "lisp"))
+(add-to-list 'load-path (concat user-emacs-directory "user-lisp"))
-(add-to-list 'load-path (concat user-emacs-directory "lisp/themes"))
+(add-to-list 'load-path (concat user-emacs-directory "user-lisp/themes"))
-(add-to-list 'load-path (concat user-emacs-directory "lisp/langs"))
+(add-to-list 'load-path (concat user-emacs-directory "user-lisp/langs"))
 
 (defgroup icejam nil
   "My customisation group."
@@ -146,6 +146,7 @@
 (use-package icejam-lang-golang :ensure nil)
 (use-package icejam-lang-haskell :ensure nil)
 (use-package icejam-lang-javascript :ensure nil)
+(use-package icejam-lang-java :ensure nil)
 (use-package icejam-lang-kotlin :ensure nil)
 (use-package icejam-lang-lua :ensure nil)
 (use-package icejam-lang-markdown :ensure nil)

user-lisp/icejam-eglot.el

@@ -12,12 +12,22 @@
   ;; Use Ruby-Lsp instead of Solargraph
   (add-to-list 'eglot-server-programs '((ruby-mode ruby-ts-mode) "ruby-lsp"))
 
+  ;; Use gleam LSP
+  (add-to-list 'eglot-server-programs '((gleam-ts-mode) "gleam" "lsp"))
+
+  ;; Use Kotlin-LSP provided by Jetbrains
+  (add-to-list 'eglot-server-programs
+               '((kotlin-mode kotlin-ts-mode) "kotlin-lsp" "--stdio"))
+
   (setopt eglot-advertise-cancellation t)
 
   ;; Automatically kill eglot when last buffer associated with a project is
   ;; closed.
   (setopt eglot-autoshutdown t)
 
+  (setopt eglot-connect-timeout 60)
+  (setopt eglot-extend-to-xref t)
+
   ;; Set up server specific switches globally
   (setq-default eglot-workspace-configuration
                 ;; Elixir configuration

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

@@ -5,8 +5,11 @@
 (eval-when-compile
   (defvar icejam-language-transient-alist)
   (defvar icejam-clojure-lang-menu)
+  (defvar cider-annotate-completion-function)
+  (defvar cider-show-error-buffer)
   (declare-function column-enforce-n "column-enforce-mode" (number))
   (declare-function icejam-set-indent 'icejam-prog-mode)
+  (declare-function icejam-start-eglot 'icejam-eglot)
   (declare-function transient-define-prefix 'transient))
 
 (use-package clojure-mode :defer t :ensure t)
@@ -47,6 +50,8 @@
   (column-enforce-n 80)
   (cider-mode 1)
 
+  (icejam-start-eglot)
+
   ;; Do not enable paredit for clojure
   ;; (paredit-mode 1)
 	;; Do not show separate error window when in REPL

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

@@ -14,8 +14,7 @@
   (declare-function icejam-set-indent 'icejam-prog-mode)
   (declare-function icejam-set-eglot-capfs 'icejam-complete-at-point))
 
-(use-package gleam-ts-mode :defer t :ensure t
+(use-package gleam-ts-mode :defer t :ensure t :mode (rx ".gleam" eos))
-  :mode (rx ".gleam" eos))
 
 ;; (add-to-list 'auto-mode-alist '("\\.gleam\\'" . gleam-ts-mode))
 
@@ -23,7 +22,7 @@
   "All things Gleam."
   (icejam-set-indent 2)
   (column-enforce-n 100)
-  (eglot-ensure)
+  (icejam-start-eglot)
   (icejam-set-eglot-capfs))
 
 (add-hook 'gleam-ts-mode-hook 'icejam-lang-activate-gleam-mode)

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

@@ -0,0 +1,25 @@
+;;; java -- summary -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(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))
+
+(add-to-list 'auto-mode-alist '("\\.java\\'" . java-ts-mode))
+
+;; (use-package eglot-java :ensure t)
+
+(defun icejam-activate-java-mode ()
+	"Java mode overrides."
+	(icejam-set-indent 2)
+  (eglot-ensure)
+  (column-enforce-n 80)
+  (icejam-set-eglot-capfs))
+
+;; (add-hook 'java-ts-mode-hook 'eglot-java-mode)
+(add-hook 'java-ts-mode-hook 'icejam-activate-java-mode)
+
+(provide 'icejam-lang-java)
+;;; icejam-lang-java.el ends here