This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/+lang/coq/packages.el

122 lines
4.1 KiB
EmacsLisp
Raw Normal View History

2016-08-25 04:38:03 +00:00
;;; packages.el --- coq layer packages file for Spacemacs.
;;
;; Copyright (c) 2012-2016 Sylvain Benner & Contributors
;;
;; Author: Jeremy Bi <bixuanxbi@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
(setq coq-packages
'(
2017-07-03 07:52:54 +00:00
(company-coq :requires company)
2016-08-25 04:38:03 +00:00
(proof-general :location (recipe
:fetcher github
:repo "ProofGeneral/PG"
:files ("*")))
smartparens
vi-tilde-fringe
))
(defun coq/init-company-coq ()
(use-package company-coq
:defer t
:init
(progn
(add-hook 'coq-mode-hook #'company-coq-mode)
(add-to-list 'spacemacs-jump-handlers-coq-mode
'company-coq-jump-to-definition)
(setq company-coq-disabled-features '(hello)))
2016-08-25 04:38:03 +00:00
:config
(progn
(spacemacs|hide-lighter company-coq-mode)
(dolist (prefix '(("mi" . "coq/insert")
("mh" . "coq/document")))
(spacemacs/declare-prefix-for-mode
'coq-mode
(car prefix) (cdr prefix)))
2016-08-25 04:38:03 +00:00
(spacemacs/set-leader-keys-for-major-mode 'coq-mode
"il" 'company-coq-lemma-from-goal
"im" 'company-coq-insert-match-construct
"ao" 'company-coq-occur
"he" 'company-coq-document-error
"hE" 'company-coq-browse-error-messages
"hh" 'company-coq-doc))))
2016-08-25 04:38:03 +00:00
(defun coq/init-proof-general ()
(use-package proof-site
:mode ("\\.v\\'" . coq-mode)
:defer t
2016-08-25 04:38:03 +00:00
:init
(progn
(setq coq/proof-general-load-path
(concat (configuration-layer/get-elpa-package-install-directory
'proof-general) "generic")
2016-08-25 04:38:03 +00:00
proof-three-window-mode-policy 'hybrid
proof-script-fly-past-comments t
proof-splash-seen t)
(add-to-list 'load-path coq/proof-general-load-path))
:config
(progn
(spacemacs|hide-lighter holes-mode)
(spacemacs|hide-lighter proof-active-buffer-fake-minor-mode)
;; key bindings
2016-08-25 04:38:03 +00:00
(dolist (prefix '(("ml" . "pg/layout")
("mp" . "pg/prover")
("ma" . "pg/ask-prover")
("mai" . "show-implicits")
("mg" . "pg/goto")))
(spacemacs/declare-prefix-for-mode
'coq-mode
(car prefix) (cdr prefix)))
(spacemacs/set-leader-keys-for-major-mode 'coq-mode
;; Basic proof management
"]" 'proof-assert-next-command-interactive
"[" 'proof-undo-last-successful-command
"." 'proof-goto-point
;; Layout
"lc" 'pg-response-clear-displays
"ll" 'proof-layout-windows
2016-08-25 04:38:03 +00:00
"lp" 'proof-prf
;; Prover Interaction
"pi" 'proof-interrupt-process
"pp" 'proof-process-buffer
"pq" 'proof-shell-exit
2016-08-25 04:38:03 +00:00
"pr" 'proof-retract-buffer
;; Prover queries ('ask prover')
"aa" 'coq-Print
"aA" 'coq-Print-with-all
2016-08-25 04:38:03 +00:00
"ab" 'coq-About
"aB" 'coq-About-with-all
"ac" 'coq-Check
"aC" 'coq-Check-show-all
"af" 'proof-find-theorems
2016-08-25 04:38:03 +00:00
"aib" 'coq-About-with-implicits
"aic" 'coq-Check-show-implicits
"aii" 'coq-Print-with-implicits
2016-08-25 04:38:03 +00:00
;; Moving the point (goto)
"ge" 'proof-goto-command-end
"gl" 'proof-goto-end-of-locked
"gs" 'proof-goto-command-start
2016-08-25 04:38:03 +00:00
;; Insertions
2018-08-03 00:24:54 +00:00
"ic" 'coq-insert-command
"ie" 'coq-end-Section
"ii" 'coq-insert-intros
"ir" 'coq-insert-requires
"is" 'coq-insert-section-or-module
"it" 'coq-insert-tactic
"iT" 'coq-insert-tactical))))
2016-08-25 04:38:03 +00:00
(defun coq/post-init-smartparens ()
(spacemacs/add-to-hooks (if dotspacemacs-smartparens-strict-mode
'smartparens-strict-mode
'smartparens-mode)
'(coq-mode-hook)))
2016-08-25 04:38:03 +00:00
(defun coq/post-init-vi-tilde-fringe ()
(spacemacs/add-to-hooks 'spacemacs/disable-vi-tilde-fringe
'(coq-response-mode-hook
coq-goals-mode-hook)))