Skip to content

Latest commit

 

History

History
159 lines (100 loc) · 4.98 KB

README.md

File metadata and controls

159 lines (100 loc) · 4.98 KB
Raw

#CL-REDDIT

Common lisp reddit api wrapper

Create user and login and view user modhash

CL-REDDIT> (defvar u (api-login :username "AzureDiamond" :password "hunter2"))
CL-REDDIT> (user-modhash u)
CL-REDDIT> "393eioafja78iafjioiwoijhgnhn223jik9rjfoq87fnbh13j"

Search with keywords, loop through results

CL-REDDIT> (defvar lst (get-search "Lance Armstrong"))
CL-REDDIT> (loop for l in lst do (format t "~a:~a~%" (link-score l) (link-title l)))

Search can take several optional parameters, to search restricted to a particular subreddit

CL-REDDIT> (defvar lst (get-search "Lance Armstrong" :sub "funny" :restrict_sr t))

API

All key params are required for api-* functions generated from def-post-api macro.

(defun api-login (&key username password)  
  "Login user username with password. Returns a User object with modhash,cookie set.")   

(defun api-subscribe (user &key id action))  
  "Sub or unsub from subreddit sr for user usr. Action can be :sub or :unsub")  

(defun api-comment (user &key id text)  
  "Comments text on id with user usr.")  

(defun api-editusrtext (user &key id text)  
  "Edit user text on id with user usr.")  

(defun api-vote (user &key id vote)  
  "Vote direction :up :down :unvote for thing with id with user.")  

(defun api-save (user &key id)  
  "Save thing with id.")  

(defun api-unsave (user &key id)  
  "Unsave thing with id.")  

(defun api-report (user &key id)  
  "Report thing with id.")  

(defun api-marknsfw (user &key id)  
  "Mark thing with id as nsfw.")  

(defun api-hide (uesr &key id)  
  "Hide thing with id.")  

(defun api-unhide (user &key id)  
  "Unhide thing with id.")  

(defun api-del (user &key id)  
  "Delete thing with id.")  

(defun api-block (user &key id)  
  "Block thing with id.")  

(defun api-read_message (user &key id)  
  "Read message with id.")  

(defun api-unread_message (user &key id)  
  "Unread message with id.")  

(defun api-approve (user &key id)  
  "Approve thing with id.")  

(defun api-leavecontributor (user &key id)  
  "Self removal as moderator of thing with id.")  

(defun api-leavemoderator (user &key id)  
  "Remove as moderator of subreddit with id.")  

(defun api-remove (user &key id spam)  
  "Remove thing with id. Is-spam t if spam, nil if not.")  
 
(defun api-setflairenabled (user &key flair-enabled)  
  "Enable/disable flair.")  

(defun get-user (r-user &optional user)  
  "Get /user/<r-user>.json.  Optional user.")  

(defun get-about-user (about-user &optional usr)  
  "Get /user/<about-user>/about.json.  Optional user.")  

(defun get-message (user where)  
  "Gets messages from inbox for user user.")  
    
(defun get-subscribed (user)  
  "Gets subscribed subreddits")  

(defun get-comments (id user &key article comment context depth limit sort)  
  "Gets comments for link id in subreddit sr.")  

(defun get-reddit (&optional user)  
  "Gets json data for reddit home page. Optional user.")  
    
(defun get-subreddit (sub &optional user)  
  "Gets json data for subreddit sub.  Optional user usr.")  

(defun get-subreddit-new (sub &optional user)  
  "Gets json data for /r/<sub>/new. Optional user.")  

(defun get-subreddit-top (sub &optional user)  
  "Gets json data for top posts in subreddit sub. Optional user user.")  

(defun get-subreddit-about (sub &optional user)  
  "Gets r/<sub>/about.json. Returns Subreddit object about sub. Optional user.")  

(defun get-search (query &key user after before count limit restrict_sr show sort syntax time target sub)  
  "Search for query.")

See cl-reddit.lisp for full api.

Todo

Lots of stuff could be improved or extended, contributers are welcome! Here are a few ideas, feel free to work on any (or all) of these.

  • Request throttling - Basically right now the api will let you send as many requests as you want, which can return errors if too many get sent in a short time. It would be nice if the api could handle this and either resend after a timeout or wait to send the request if too many have been sent in a short time.

  • Async api - The basic api is synchronous, it could be used to build async requests but having an async interface along with the basic one could be useful.

  • High level api - The current api is pretty low level, mapping to the reddit api, having something that works at a higher level would make this library easier to use. I haven't though much about what this would look like so ideas are welcome.

  • Error handling - Currently there isn't anything, so if a api request fails for some reason the result is probably a nil value.

  • Better return types - Some of the methods return a hash table or a listing, see (cl-reddit:get-user), which doesn't always make sense.

  • Tests - It would be nice to have a test suite with lots of api coverage, maybe using a unit test framework.

  • More documentation - What project couldn't use this?

  • Cool apps that use this library so it gets more exposure.

If you have any opinions/ideas on how to make this thing better please share!