Switch from straight.el to elpaca

1 files changed, 73 insertions, 69 deletions

diff --git a/arkta/arkta-progmodes.el b/arkta/arkta-progmodes.el
index 977fd92..ba9c066 100644
--- a/arkta/arkta-progmodes.el
+++ b/arkta/arkta-progmodes.el
@@ -1,9 +1,15 @@
 ;; -*- lexical-binding: t -*-
 ;; Copyright © 2018-2025  Uko Koknevics
 
+(use-package auto-compile
+  :after elisp-mode
+  :ensure t
+  :hook ((emacs-lisp-mode . auto-compile-on-load-mode)
+         (emacs-lisp-mode . auto-compile-on-save-mode)))
+
 (use-package c-ts-mode
   :after treesit
-  :straight '(c-ts-mode :type built-in)
+  :ensure nil
   :mode ("\\.c\\'"
          ("\\.cpp\\'" . c++-ts-mode))
   :init
@@ -24,45 +30,47 @@
 
 (use-package cmake-ts-mode
   :after treesit
-  :straight '(cmake-ts-mode :type built-in)
+  :ensure nil
   :mode ("CMakeLists\\.txt\\'"
          "\\.cmake\\'"))
 
+(use-package company-mlton
+    :after (company sml)
+    :ensure '(company-mlton :host github
+                            :repo "MatthewFluet/company-mlton")
+    :hook (sml-mode . company-mlton-init))
+
 (use-package csharp-mode
   :after treesit
-  :straight '(csharp-mode :type built-in)
+  :ensure nil
   :mode "\\.cs\\'")
 
 (use-package css-mode
   :after treesit
-  :straight '(css-mode :type built-in)
+  :ensure nil
   :mode "\\.css\\'")
 
 (use-package dart-mode
-  :straight t
+  :ensure t
   :mode "\\.dart\\'")
 
 (use-package dockerfile-ts-mode
   :after treesit
-  :straight '(dockerfile-ts-mode :type built-in)
+  :ensure nil
   :mode "Dockerfile\\'")
 
 (use-package ebuild-mode
-  :straight t
+  :ensure (ebuild-mode :host github
+                       :repo "emacsmirror/ebuild-mode")
   :mode ("\\.ebuild\\'"
          "\\.eclass\\'"))
 
 (use-package elisp-mode
-  :straight '(elisp-mode :type built-in)
-  :mode ("\\.el\\'" . emacs-lisp-mode)
-  :init
-  (use-package auto-compile
-    :straight t
-    :hook ((emacs-lisp-mode . auto-compile-on-load-mode)
-           (emacs-lisp-mode . auto-compile-on-save-mode))))
+  :ensure nil
+  :mode ("\\.el\\'" . emacs-lisp-mode))
 
 (use-package elixir-mode
-  :straight t
+  :ensure t
   :mode "\\.exs?\\'"
   :init
   (defun arkta/elixir-setup ()
@@ -70,12 +78,12 @@
   :hook (elixir-mode . arkta/elixir-setup))
 
 (use-package gdscript-mode
-  :straight t
+  :ensure t
   :mode "\\.gd\\'")
 
 (use-package go-ts-mode
   :after treesit
-  :straight '(go-ts-mode :type built-in)
+  :ensure nil
   :mode "\\.go\\'"
   :init
   (defun arkta/go-setup ()
@@ -85,60 +93,56 @@
   :hook (go-ts-mode . arkta/go-setup))
 
 (use-package groovy-mode
-  :straight t
+  :ensure t
   :mode ("Jenkinsfile\\'"
          "\\.jenkinsfile\\'"
          "\\.gradle\\'"
          "\\.groovy\\'"))
 
 (use-package haskell-mode
-  :straight t
+  :ensure t
   :mode "\\.hs\\'")
 
+(use-package htmlize
+  :ensure t)
+
 (use-package java-ts-mode
   :after treesit
-  :straight '(java-ts-mode :type built-in)
+  :ensure nil
   :mode "\\.java\\'")
 
 (use-package js
   :after treesit
-  :straight '(js :type built-in)
+  :ensure nil
   :mode ("\\.js\\'" . js-ts-mode))
 
 (use-package json-ts-mode
   :after treesit
-  :straight '(json-ts-mode :type built-in)
+  :ensure nil
   :mode "\\.json\\'")
 
 (use-package lisp-mode
-  :straight '(lisp-mode :type built-in)
-  :mode "\\.lisp\\'"
-  :init
-  (use-package slime
-    :straight t
-    :after lisp-mode
-    :commands slime
-    :custom
-    (inferior-lisp-program (executable-find "sbcl"))))
+  :ensure nil
+  :mode "\\.lisp\\'")
 
 (use-package lua-mode
-  :straight t
+  :ensure t
   :custom
   (lua-indent-level 4)
   :mode ("\\.lua\\'" "\\.rockspec\\'"))
 
-(use-package makefile-mode
-  :straight '(make-mode :type built-in)
+(use-package make-mode
+  :ensure nil
   :mode (("Makefile\\'" . makefile-gmake-mode)
-         "GNUmakefile\\'"
-         "\\.mk\\(\\.template\\)?\\'"))
+         ("GNUmakefile\\'" . makefile-mode)
+         ("\\.mk\\(\\.template\\)?\\'" . makefile-mode)))
 
 (use-package markdown-mode
-  :straight t
+  :ensure t
   :mode ("\\.md\\'" . gfm-mode))
 
 (use-package nasm-mode
-  :straight t
+  :ensure t
   :mode ("\\.asm\\'"
          "\\.inc\\'")
   :init
@@ -147,105 +151,105 @@
   :hook (nasm-mode . arkta/nasm-setup))
 
 (use-package nix-mode
-  :straight t
+  :ensure t
   :mode "\\.nix\\'")
 
 (use-package nxml-mode
-  :straight '(nxml-mode :type built-in)
+  :ensure nil
   :mode ("\\.xml\\'"
          "\\.plist\\'"
          "\\.svg\\'"))
 
 (use-package org
-  :straight '(org :type built-in)
+  :ensure nil
+  :after htmlize
   :bind (("C-c l" . org-store-link)
          ("C-c a" . org-agenda))
   :mode ("\\.org\\'" . org-mode)
-  :init
-  (use-package htmlize
-    :straight t)
   :custom
   (org-agenda-files '("~/TODO.org"))
   (org-log-done t))
 
 (use-package php-mode
-  :straight t
+  :ensure t
   :mode "\\.php\\'")
 
 (use-package pico8-mode
-  :straight '(pico8-mode :host github
-                         :repo "Kaali/pico8-mode")
+  :ensure '(pico8-mode :host github
+                       :repo "Kaali/pico8-mode")
   :mode "\\.p8\\'")
 
 (use-package prolog
-  :straight '(prolog :type built-in)
+  :ensure nil
   :mode ("\\.pl\\'" . prolog-mode))
 
 (use-package python
   :after treesit
-  :straight '(python :type built-in)
+  :ensure nil
   :mode ("\\.py\\'" . python-ts-mode))
 
 (use-package ruby-ts-mode
   :after treesit
-  :straight '(ruby-ts-mode :type built-in)
+  :ensure nil
   :mode "\\.rb\\'")
 
 (use-package rust-ts-mode
   :after treesit
-  :straight '(rust-ts-mode :type built-in)
+  :ensure nil
   :mode "\\.rs\\'")
 
 (use-package scala-mode
-  :straight t
+  :ensure t
   :mode "\\.scala\\'")
 
 (use-package scheme
-  :straight '(scheme :type built-in)
+  :ensure nil
   :commands scheme-mode
   :mode ("\\.scm\\'" . scheme-mode)
   :config
   (put 'module 'scheme-indent-function 2))
 
+(use-package slime
+  :ensure t
+  :after lisp-mode
+  :commands slime
+  :custom
+  (inferior-lisp-program (executable-find "sbcl")))
+
 (use-package smalltalk-mode
-  :straight t
+  :ensure t
   :mode "\\.st\\'")
 
 (use-package svelte-mode
-  :straight t
+  :ensure t
   :mode ("\\.svelte\\'" "\\.svx\\'"))
 
 (use-package sml-mode
-  :straight t
-  :mode "\\.sml\\'"
-  :init
-  (use-package company-mlton
-    :after company
-    :straight '(company-mlton :host github
-                              :repo "MatthewFluet/company-mlton")
-    :hook (sml-mode . company-mlton-init)))
+  :ensure t
+  :mode "\\.sml\\'")
 
 (use-package toml-ts-mode
   :after treesit
-  :straight '(toml-ts-mode :type built-in)
+  :ensure nil
   :mode "\\.toml\\'")
 
 (use-package typescript-ts-mode
   :after treesit
-  :straight '(typescript-ts-mode :type built-in)
+  :ensure nil
   :mode "\\.ts\\'")
 
-(use-package typst-mode
-  :straight t
+(use-package typst-ts-mode
+  :after treesit
+  :ensure t
   :mode "\\.typ\\'")
 
 (use-package yaml-ts-mode
   :after treesit
-  :straight '(yaml-ts-mode :type built-in)
+  :ensure nil
   :mode ("\\.clang-\\(tidy\\|format\\)\\'" "\\.ya?ml\\'"))
 
 (use-package zig-mode
-  :straight t
+  :ensure t
   :mode "\\.zig\\'")
 
 (provide 'arkta-progmodes)