1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
# ttrss.el --- Tiny Tiny RSS elisp bindings #
> Copyright (C) 2013 Pedro Silva
> This file is not part of GNU Emacs.
>
> ttrss is free software: you can redistribute it and/or modify it
> under the terms of the GNU General Public License as published by
> the Free Software Foundation, either version 3 of the License, or
> (at your option) any later version.
>
> ttrss is distributed in the hope that it will be useful, but
> WITHOUT ANY WARRANTY; without even the implied warranty of
> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
> General Public License for more details.
>
> You should have received a copy of the GNU General Public License
> along with ttrss. If not, see <http://www.gnu.org/licenses/>.
## Introduction ##
ttrss.el provides an interface to the Tiny Tiny RSS API. It targets
API level 5, and has been developed and tested against version
1.7.5. As such, the versioning on this file tracks that of ttrss
itself. You can read more about Tiny Tiny RSS at
<http://tt-rss.org/redmine/projects/tt-rss/wiki>.
## Scope ##
The current version of ttrss.el covers all methods as documented at
<http://tt-rss.org/redmine/projects/tt-rss/wiki/JsonApiReference>.
It purposefully doesn't offer any additional higher level methods.
## Installation ##
(add-to-list 'load-path "/path/to/parent/directory")
(require 'ttrss)
## Usage ##
(setq ttrss-address "http://example.com/ttrss/api/"
ttrss-user "user"
ttrss-password "pass")
(let ((ttrss-sid (ttrss-login ttrss-address ttrss-user ttrss-password)))
(if (ttrss-logged-in-p ttrss-address ttrss-sid)
(with-current-buffer (switch-to-buffer "*ttrss reader*")
(erase-buffer)
(message "Logged in to %s as %s with password %s\n"
ttrss-address
ttrss-user
ttrss-password)
(message "Server running version %s and API level %d\n"
(ttrss-get-version ttrss-address ttrss-sid)
(ttrss-get-api-level ttrss-address ttrss-sid))
(message "There are %s unread articles in %d feeds"
(ttrss-get-unread ttrss-address ttrss-sid)
(length (ttrss-get-feeds ttrss-address ttrss-sid :unread_only t)))
(insert "The grand <b>*ttrss* reader!</b>\n\n---\n\n")
(mapcar (lambda (pl) (insert (format "%s\n%s\n\n%s\n---\n"
(plist-get pl :title)
(plist-get pl :link)
(plist-get pl :content))))
(ttrss-get-headlines ttrss-address ttrss-sid :feed_id -3 :limit 3 :show_content t))
(html2text))
(message "Login failed")))
## Design ##
I was motivated to write this library to support a new backend for
Gnus, 'nnttrss.el'. Its design is kept as functional as possible.
That means that it makes no use of global state, amongst other
things.
## TODO ##
* Interactive versions of the methods employing global state:
- You'll note that there are, in fact, a number of variables defined
at the top-level, namely 'ttrss-address', 'ttrss-user',
'ttrss-password', 'ttrss-session-id', 'ttrss-api-level', and
'ttrss-server-version'. These are defined in anticipation of the
next release, in which I plan to introduce interactive counterparts
of most methods that do employ global state.
* variable 'nnttrss-debug':
- Trace methods in the mini-buffer
- Keep a log buffer with requests and responses data structures
## Change Log: ##
Version 0.0.1: First public release of this package.
|
