Generate a random paper from papers-we-love

random_paper.rkt

#lang racket

;; Usage information 
;; Clone "https://github.com/papers-we-love/papers-we-love"
;; Use the download script under "scripts"
;; Create a file called "interests.txt" containing a list of 
;; topics that you are interested in 
;; Fill in the variable pdf-viewer with the path to your 
;; pdf application (or #f if you don't want it to automatically oepn


(define pdf-viewer "/usr/bin/open")

(define (main)
  (system "git pull")
  (define path (random-topic-and-paper))
  (launch path)
  (display (format "Paper: ~a\n" (path->string path))))

(define (launch path)
  (when pdf-viewer
    (subprocess #f #f #f 
                pdf-viewer
                path)))
    

(define (random-topic-and-paper)
  (let [(topic (random-topic))]
    (build-path (symbol->string topic)
                (random-paper topic))))

(define (random-topic)
  (random-element (load-interests)))

(define (load-interests)
  (with-input-from-file "interests.txt" read))

(define (random-paper topic)
  (random-element (directory-list (format "./~a" topic))))

(define (random-element lst)
  (let [(r (random 0 (length lst)))]
    (list-ref lst r)))

(main)