diff options
author | Tom Willemsen | 2012-07-06 00:26:27 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-07-06 00:26:27 +0200 |
commit | b1e4dfbaab7fb3975716871f8cddd76d495d83ca (patch) | |
tree | 0cd6ad28500db6679d0536cd964d499593532659 | |
parent | 4ba77945680e6d3861ba80eae869ac72778e9c4d (diff) | |
download | dispass.el-b1e4dfbaab7fb3975716871f8cddd76d495d83ca.tar.gz dispass.el-b1e4dfbaab7fb3975716871f8cddd76d495d83ca.zip |
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.
-rw-r--r-- | dispass.el | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -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) |