From: John Turner <jturner.usa@gmail.com>
Date: Sun, 10 Mar 2024 19:15:10 +0000 (-0400)
Subject: finish defining customization types
X-Git-Url: https://jturnerusa.dev/gitweb/?a=commitdiff_plain;h=1113a017828dbcacb635f337a20298c72989dacd;p=wgetpaste.el

finish defining customization types
---

diff --git a/wgetpaste.el b/wgetpaste.el
index 8136fcc..64f8350 100644
--- a/wgetpaste.el
+++ b/wgetpaste.el
@@ -23,35 +23,53 @@
   "Wgetpaste interface for emacs")
 
 (defcustom wgetpaste-stdout-buffer "*wgetpaste stdout*"
-  "Wgetpaste stdout buffer")
+  "Wgetpaste stdout buffer"
+  :type '(string)
+  :group 'wgetpaste)
 
 (defcustom wgetpaste-stderr-buffer "*wgetpaste stderr*"
-  "Wgetpaste stderr buffer")
+  "Wgetpaste stderr buffer"
+  :type '(string)
+  :group 'wgetpaste)
 
 (defcustom wgetpaste-executable "wgetpaste"
-  "Wgetpaste executable")
+  "Wgetpaste executable"
+  :type '(string)
+  :group 'wgetpaste)
 
 (defcustom wgetpaste-args nil
-  "Wgetpaste arguments")
+  "Wgetpaste arguments"
+  :type '(repeat string)
+  :group 'wgetpaste)
 
 (defcustom wgetpaste-install-hooks t
-  "Install default wgetpaste hooks")
+  "Install default wgetpaste hooks"
+  :type '(boolean)
+  :group 'wgetpaste)
 
 (defcustom wgetpaste-before-upload-hook nil
-  "Hooks to run before uploading a paste")
+  "Hooks to run before uploading a paste"
+  :type '(hook)
+  :group 'wgetpaste)
 
 (defcustom wgetpaste-after-upload-hook nil
-  "Hooks to run after wgetpaste process exits successfully")
+  "Hooks to run after wgetpaste process exits successfully"
+  :type '(hook)
+  :group 'wgetpaste)
 
 (defcustom wgetpaste-upload-failure-hook nil
-  "Hooks to run after wgetpaste process exits unsuccessfully")
+  "Hooks to run after wgetpaste process exits unsuccessfully"
+  :type '(hook)
+  :group 'wgetpaste)
 
 (defcustom wgetpaste-sentinel (lambda (process _)
                                 (unless (process-live-p process)
                                   (run-hooks (if (zerop (process-exit-status process))
                                                  'wgetpaste-after-upload-hook
                                                'wgetpaste-upload-failure-hook))))
-  "Sentinel function to install to wgetpaste process")
+  "Sentinel function to install to wgetpaste process"
+  :type '(function)
+  :group 'wgetpaste)
 
 (defun wgetpaste-buffer ()
   (run-hooks 'wgetpaste-before-upload-hook)