From 4a282f39fc81e68d05265e980667a84d064e8a63 Mon Sep 17 00:00:00 2001 From: Pedro Silva Date: Thu, 4 Apr 2013 12:56:28 +0100 Subject: Defined group to enclose user-configurable bits and pieces --- ttrss.el | 30 ++++++++++++++++++++++-------- 1 file changed, 22 insertions(+), 8 deletions(-) diff --git a/ttrss.el b/ttrss.el index 35e2419..5e1af0c 100644 --- a/ttrss.el +++ b/ttrss.el @@ -32,14 +32,28 @@ (autoload 'json-read "json") (autoload 'json-encode "json")) -(defvar ttrss-address nil - "Address of the tt-rss server.") - -(defvar ttrss-user nil - "Username to use for authentication to the tt-rss server.") - -(defvar ttrss-password nil - "Password to use for authentication to the tt-rss server.") +(defgroup ttrss nil + "Tiny Tiny RSS elisp bindings" + :group 'external + :group 'communication + :link '(url-link :tag "Tiny Tiny RSS" + "http://tt-rss.org/redmine/projects/tt-rss/wiki")) + +(defcustom ttrss-address "http://localhost" + "Address of the tt-rss server." + :type 'string + :group 'ttrss + :link '(info-link "(url)http/https")) + +(defcustom ttrss-user "" + "Username to use for authentication to the tt-rss server." + :type 'string + :group 'ttrss) + +(defcustom ttrss-password "" + "Password to use for authentication to the tt-rss server." + :type 'string + :group 'ttrss) (defvar ttrss-session-id nil "Current session id, if any, set after successful login.") -- cgit v1.2.3