yeet

.config/emacs/modules/lang/agda/README.org

@@ -0,0 +1,4 @@
+#+TITLE: :lang agda
+
+This module adds support for the [[http://wiki.portal.chalmers.se/agda/pmwiki.php][agda]] programming language. The Emacs support
+exists directly in the agda repository but not in melpa.

.config/emacs/modules/lang/agda/config.el

@@ -0,0 +1,40 @@
+;;; lang/agda/config.el -*- lexical-binding: t; -*-
+
+(when (and (featurep! +local)
+           (executable-find "agda-mode"))
+  (add-load-path!
+   (file-name-directory (shell-command-to-string "agda-mode locate")))
+  (unless (require 'agda2 nil t)
+    (message "Failed to find the `agda2' package")))
+
+(after! agda2-mode
+  (set-lookup-handlers! 'agda2-mode
+    :definition #'agda2-goto-definition-keyboard)
+  (map! :map agda2-mode-map
+        :localleader
+        "?"   #'agda2-show-goals
+        "."   #'agda2-goal-and-context-and-inferred
+        ","   #'agda2-goal-and-context
+        "="   #'agda2-show-constraints
+        "SPC" #'agda2-give
+        "a"   #'agda2-auto-maybe-all
+        "b"   #'agda2-previous-goal
+        "c"   #'agda2-make-case
+        "d"   #'agda2-infer-type-maybe-toplevel
+        "e"   #'agda2-show-context
+        "f"   #'agda2-next-goal
+        "gG"  #'agda2-go-back
+        "h"   #'agda2-helper-function-type
+        "l"   #'agda2-load
+        "n"   #'agda2-compute-normalised-maybe-toplevel
+        "p"   #'agda2-module-contents-maybe-toplevel
+        "r"   #'agda2-refine
+        "s"   #'agda2-solveAll
+        "t"   #'agda2-goal-type
+        "w"   #'agda2-why-in-scope-maybe-toplevel
+        (:prefix "x"
+          "c"   #'agda2-compile
+          "d"   #'agda2-remove-annotations
+          "h"   #'agda2-display-implicit-arguments
+          "q"   #'agda2-quit
+          "r"   #'agda2-restart)))

.config/emacs/modules/lang/agda/packages.el

@@ -0,0 +1,16 @@
+;; -*- no-byte-compile: t; -*-
+;;; lang/agda/packages.el
+
+(unless (featurep! +local)
+  (package! agda-input
+    :recipe (:host github :repo "agda/agda"
+             :files ("src/data/emacs-mode/agda-input.el")
+             :nonrecursive t)
+    :pin "af9c4b968698e285c453516b2104a347ad954849")
+
+  (package! agda2-mode
+    :recipe (:host github :repo "agda/agda"
+             :files ("src/data/emacs-mode/*.el"
+                     (:exclude "agda-input.el"))
+             :nonrecursive t)
+    :pin "af9c4b968698e285c453516b2104a347ad954849"))