From 0c08143a22134d6cc80593c9291210b060c93cf1 Mon Sep 17 00:00:00 2001
From: Tej Chajed <tchajed@mit.edu>
Date: Sun, 2 Feb 2020 10:40:25 -0500
Subject: [PATCH] Add fstar module

---
 init.example.el                |  1 +
 modules/lang/fstar/README.org  |  3 ++
 modules/lang/fstar/config.el   | 55 ++++++++++++++++++++++++++++++++++
 modules/lang/fstar/packages.el |  4 +++
 4 files changed, 63 insertions(+)
 create mode 100644 modules/lang/fstar/README.org
 create mode 100644 modules/lang/fstar/config.el
 create mode 100644 modules/lang/fstar/packages.el

diff --git a/init.example.el b/init.example.el
index 7fc2f63f9..7e970506d 100644
--- a/init.example.el
+++ b/init.example.el
@@ -121,6 +121,7 @@
        ;;ess               ; emacs speaks statistics
        ;;faust             ; dsp, but you get to keep your soul
        ;;fsharp           ; ML stands for Microsoft's Language
+       ;;fstar             ; (dependent) types and (monadic) effects and Z3
        ;;go                ; the hipster dialect
        ;;(haskell +dante)  ; a language that's lazier than I am
        ;;hy                ; readability of scheme w/ speed of python
diff --git a/modules/lang/fstar/README.org b/modules/lang/fstar/README.org
new file mode 100644
index 000000000..4f7c312b7
--- /dev/null
+++ b/modules/lang/fstar/README.org
@@ -0,0 +1,3 @@
+#+TITLE: :lang F*
+
+This module adds [[https://fstar-lang.org/][F*]] support, powered by [[https://github.com/FStarLang/fstar-mode.el][fstar-mode.el]].
diff --git a/modules/lang/fstar/config.el b/modules/lang/fstar/config.el
new file mode 100644
index 000000000..354d3d7b9
--- /dev/null
+++ b/modules/lang/fstar/config.el
@@ -0,0 +1,55 @@
+;;; lang/fstar/config.el -*- lexical-binding: t; -*-
+
+(after! fstar-mode
+  (set-lookup-handlers! 'fstar-mode
+    :definition #'fstar-jump-to-definition
+    :documentation #'fstar-doc-at-point-dwim)
+
+  (map! :map fstar-mode-map
+        :localleader
+        :desc "F* next" "]" #'fstar-subp-advance-next
+        :desc "F* go to point" "." #'fstar-subp-advance-or-retract-to-point
+        :desc "F* previous" "[" #'fstar-subp-retract-last
+        (:prefix ("p" . "proof")
+          :desc "go to point (lax)" "l" #'fstar-subp-advance-or-retract-to-point-lax
+          :desc "compile buffer (lax)" "b" #'fstar-subp-advance-to-point-max-lax
+          "q" #'fstar-subp-kill-one-or-many
+          "k" #'fstar-subp-kill-z3
+          "r" #'fstar-subp-reload-to-point)
+
+        (:prefix ("l" . "layout")
+          "c"  #'fstar-quit-windows
+          "o"  #'fstar-outline)
+
+        ;; Moving around
+        "'" #'fstar-jump-to-related-error
+        (:prefix ("j" . "jump")
+          "j" #'fstar-jump-to-definition
+          "f" #'fstar-jump-to-definition-other-frame
+          "w" #'fstar-jump-to-definition-other-window
+          "e" #'fstar-jump-to-related-error
+          "F" #'fstar-jump-to-related-error-other-frame
+          "W" #'fstar-jump-to-related-error-other-window
+          "d" #'fstar-visit-dependency
+          "a" #'fstar-visit-interface-or-implementation
+          :desc "jump to first unprocessed line" "u" #'fstar-subp-goto-beginning-of-unprocessed)
+
+        ;; Help !!!
+        (:prefix ("h" . "help")
+          "y" #'fstar-copy-help-at-point
+          "w" #'fstar-browse-wiki
+          "W" #'fstar-browse-wiki-in-browser
+          "o" #'fstar-list-options
+          "p" #'fstar-quick-peek)
+
+        (:prefix ("a" . "ask (queries)")
+          "a" #'fstar-print
+          "e" #'fstar-eval
+          "E" #'fstar-eval-custom
+          "s" #'fstar-search
+          "d" #'fstar-doc)
+
+        (:prefix ("i" . "insert")
+          "m" #'fstar-insert-match-dwim
+          "M" #'fstar-insert-match)
+        ))
diff --git a/modules/lang/fstar/packages.el b/modules/lang/fstar/packages.el
new file mode 100644
index 000000000..2916c38be
--- /dev/null
+++ b/modules/lang/fstar/packages.el
@@ -0,0 +1,4 @@
+;; -*- no-byte-compile: t; -*-
+;;; lang/fstar.el
+
+(package! fstar-mode)