]> jturnerusa.dev Git - wgetpaste.el/commitdiff
finish defining customization types
authorJohn Turner <jturner.usa@gmail.com>
Sun, 10 Mar 2024 19:15:10 +0000 (15:15 -0400)
committerJohn Turner <jturner.usa@gmail.com>
Sun, 10 Mar 2024 19:16:29 +0000 (15:16 -0400)
wgetpaste.el

index 8136fcc7200915cea92d8c5731d0f89b792aa1e7..64f8350506b2e731c568a61f385285d0250e3dca 100644 (file)
   "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)