refactor(:lang): remove fboundp checks for *-ts-modes

The major-mode-remap advice will handle undefined modes, so all these
extra checks aren't needed.

modules/lang/erlang/config.el

@@ -13,7 +13,6 @@
 
 (use-package! erlang-ts
   :when (modulep! +tree-sitter)
-  :when (fboundp 'erlang-ts-mode)
   :defer t
   :init
   (set-tree-sitter! 'erlang-mode 'erlang-ts-mode

modules/lang/graphql/config.el

@@ -33,7 +33,6 @@
 
 (use-package! graphql-ts-mode
   :when (modulep! +tree-sitter)
-  :when (fboundp 'treesit-available-p)
   :defer t
   :init
   (set-tree-sitter! 'graphql-mode 'graphql-ts-mode

modules/lang/haskell/config.el

@@ -46,7 +46,6 @@
 
 (use-package! haskell-ts-mode
   :when (modulep! +tree-sitter)
-  :when (fboundp 'haskell-ts-mode)
   :defer t
   :init
   (set-tree-sitter! 'haskell-mode 'haskell-ts-mode

modules/lang/kotlin/config.el

@@ -22,7 +22,6 @@
 
 (use-package! kotlin-ts-mode
   :when (modulep! +tree-sitter)
-  :when (fboundp 'treesit-available-p)
   :defer t
   :init
   (set-tree-sitter! 'kotlin-mode 'kotlin-ts-mode

modules/lang/nix/config.el

@@ -44,7 +44,6 @@
 
 (use-package! nix-ts-mode
   :when (modulep! +tree-sitter)
-  :when (fboundp 'treesit-available-p)
   :defer t
   :init
   (set-tree-sitter! 'nix-mode 'nix-ts-mode

modules/lang/qt/config.el

@@ -14,7 +14,6 @@
 
 (use-package! qml-ts-mode
   :when (modulep! +tree-sitter)
-  :when (fboundp 'treesit-available-p)
   :defer t
   :init
   (set-tree-sitter! 'qml-mode 'qml-ts-mode

modules/lang/scala/config.el

@@ -57,7 +57,6 @@
 
 (use-package! scala-ts-mode
   :when (modulep! +tree-sitter)
-  :when (fboundp 'treesit-available-p)
   :defer t
   :init
   (set-tree-sitter! 'scala-mode 'scala-ts-mode

modules/lang/sml/config.el

@@ -29,7 +29,6 @@
 ;; TODO: Mirror sml-mode keybinds to ts-mode
 (use-package! sml-ts-mode
   :when (modulep! +tree-sitter)
-  :when (fboundp 'treesit-available-p)
   :defer t
   :init
   (set-tree-sitter! 'sml-mode 'sml-ts-mode

modules/lang/zig/config.el

@@ -40,7 +40,6 @@
 
 (use-package! zig-ts-mode
   :when (modulep! +tree-sitter)
-  :when (fboundp 'zig-ts-mode)
   :defer t
   :init
   ;; REVIEW: maxxnino/tree-sitter-zig is unmaintained; waiting for alternatives.

modules/tools/tree-sitter/config.el

@@ -44,7 +44,11 @@
     (let ((mode (funcall fn mode)))
       (if-let* ((ts (get mode '+tree-sitter))
                 (fallback-mode (car ts)))
-          (cond ((not (fboundp mode))
+          (cond ((or (not (fboundp 'treesit-available-p))
+                     (not (treesit-available-p)))
+                 (message "Treesit unavailable, falling back to `%S'" fallback-mode)
+                 fallback-mode)
+                ((not (fboundp mode))
                  (message "Couldn't find `%S', falling back to `%S'" mode fallback-mode)
                  fallback-mode)
                 ((and (or (eq treesit-enabled-modes t)