From b1e4dfbaab7fb3975716871f8cddd76d495d83ca Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Fri, 6 Jul 2012 00:26:27 +0200
Subject: Add dispass-default-length setting

* dispass.el (dispass-default-length): Add default length to pass
  along to DisPass setting.

  (dispass-create): Use `dispass-default-length' when LENGTH is
  empty.
---
 dispass.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/dispass.el b/dispass.el
index e30cb21..32f96a3 100644
--- a/dispass.el
+++ b/dispass.el
@@ -97,6 +97,12 @@
   "Customization options for the DisPass wrapper."
   :group 'external)
 
+(defcustom dispass-default-length 30
+  "The default length to use when generating passphrases."
+  :package-version '(dispass . "1")
+  :group 'dispass
+  :type '(integer))
+
 (defcustom dispass-executable "dispass"
   "The location of the dispass executable."
   :package-version '(dispass . "0.1a7.3")
@@ -175,13 +181,15 @@ an eye out for LABEL."
 (defun dispass-create (label &optional length)
   (interactive "MLabel: \nP")
   "Create a new password for LABEL."
-  (dispass-start-process label t length))
+  (let ((length (or length dispass-default-length)))
+    (dispass-start-process label t length)))
 
 ;;;###autoload
 (defun dispass (label &optional length)
   (interactive "MLabel: \nP")
   "Recreate a password previously used."
-  (dispass-start-process label nil length))
+  (let ((length (or length dispass-default-length)))
+    (dispass-start-process label nil length)))
 
 ;; Labels management
 (defun dispass-from-button (button)
-- 
cgit v1.2.3-54-g00ecf