branch: elpa/hyperdrive
commit 1c3315b04c3b760804b66d5baf294cf1ef86259c
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-describe-hyperdrive) Remove purge button
---
hyperdrive-describe.el | 8 +-------
hyperdrive-vars.el | 13 -------------
2 files changed, 1 insertion(+), 20 deletions(-)
diff --git a/hyperdrive-describe.el b/hyperdrive-describe.el
index 87905b7242..0d9272e85e 100644
--- a/hyperdrive-describe.el
+++ b/hyperdrive-describe.el
@@ -39,7 +39,6 @@
;;;; Commands
(declare-function org-table-align "org-table")
-(declare-function hyperdrive-purge "hyperdrive")
;;;###autoload
(defun hyperdrive-describe-hyperdrive (hyperdrive)
@@ -89,12 +88,7 @@ Universal prefix argument \\[universal-argument] forces
(forward-line -1)
(org-table-align)
(buffer-string))
- "[none]"))
- "\n")
- (hyperdrive-insert-button "=== PURGE DATA ==="
- 'action (lambda (_button)
- (hyperdrive-purge hyperdrive))
- 'face 'hyperdrive-button-dangerous)))
+ "[none]")))))
(setq buffer-read-only t)
(pop-to-buffer (current-buffer))))
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index aa1586dd77..e97f339dac 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -238,19 +238,6 @@ an existing buffer at the same version, or make a new
buffer."
"Face for files with \"older\" status in `hyperdrive-mirror' buffers."
:group 'hyperdrive-faces)
-(defface hyperdrive-button
- ;; Inspired by cus-edit.el's `custom-button' face.
- ;; NOTE: This face is not currently used, but
- ;; `hyperdrive-button-dangerous' inherits from it.
- '((t (:inherit custom-button)))
- "Face for hyperdrive buttons.")
-
-(defface hyperdrive-button-dangerous
- '((t (:inherit hyperdrive-button
- :box (:line-width 3)
- :background "red" :foreground "yellow")))
- "Face for dangerous hyperdrive buttons.")
-
;;;;; Regular expressions
(eval-and-compile
