aboutsummaryrefslogtreecommitdiffhomepage
path: root/coq/coq-db.el
diff options
context:
space:
mode:
authorGravatar Pierre Courtieu <Pierre.Courtieu@cnam.fr>2018-06-08 18:19:29 +0200
committerGravatar Pierre Courtieu <Pierre.Courtieu@cnam.fr>2018-06-08 18:19:29 +0200
commitc4b49a4a3e7b5206f1f29495fd96980aad73e5b9 (patch)
treed8f3f74901f9e49a874ef5ca9d03c770ffd46855 /coq/coq-db.el
parent8b0a89887d175866c3c47594ce24508076500110 (diff)
Changed the look of folding/unfolding hyps.
Diffstat (limited to 'coq/coq-db.el')
-rw-r--r--coq/coq-db.el22
1 files changed, 22 insertions, 0 deletions
diff --git a/coq/coq-db.el b/coq/coq-db.el
index 28f2ff2b..dccdca52 100644
--- a/coq/coq-db.el
+++ b/coq/coq-db.el
@@ -330,6 +330,28 @@ See `coq-syntax-db' for DB structure."
"Face used for `ltac:', `constr:', and `uconstr:' headers."
:group 'proof-faces)
+;; This messes columns, can't figure out why putting this face makes the overlay
+;; larger than a character
+;; (defface coq-button-face
+;; '((t :inherit custom-button :background "dark gray"))
+;; ""
+;; :group 'proof-faces)
+
+;; (defface coq-button-face-pressed
+;; '((t :inherit custom-button-pressed :background "light gray"))
+;; ""
+;; :group 'proof-faces)
+
+(defface coq-button-face
+ '((t . (:background "light gray")))
+ ""
+ :group 'proof-faces)
+
+(defface coq-button-face-pressed
+ '((t . (:background "dark gray")))
+ ""
+ :group 'proof-faces)
+
(defconst coq-solve-tactics-face 'coq-solve-tactics-face
"Expression that evaluates to a face.
Required so that 'coq-solve-tactics-face is a proper facename")