From e66125c212a319333ef67738685a39ea303f0db0 Mon Sep 17 00:00:00 2001 From: Yuto Hayamizu Date: Wed, 9 Jun 2010 00:59:34 +0900 Subject: [PATCH] Improved PIN code input interface * twittering-mode.el (twittering-oauth-get-access-token): reject invalid PIN code input and strip extra white spaces. --- ChangeLog | 5 +++++ twittering-mode.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 9baa2b06..6cd26a16 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2010-06-09 Yuto Hayamizu + + * twittering-mode.el (twittering-oauth-get-access-token): reject + invalid PIN code input and strip extra white spaces. + 2010-06-05 Tadashi MATSUO * twittering-mode.el: confirm that a valid access token has been diff --git a/twittering-mode.el b/twittering-mode.el index 3eb0c8bb..61b7ea26 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -1306,7 +1306,13 @@ like following: (browse-url authorize-url) (when (y-or-n-p "Open authorization URL with browser? (using `browse-url')") (browse-url authorize-url))) - (let* ((pin (read-string "Input PIN code: ")) + (let* ((pin + (block pin-input-block + (while t + (let ((pin-input (read-string "Input PIN code: "))) + (when (string-match "^\\s-*\\([0-9]+\\)\\s-*$" pin-input) + (return-from pin-input-block + (match-string 1 pin-input))))))) (verifier pin)) (twittering-oauth-exchange-request-token access-token-url