slide-dl.clj

#! /usr/bin/env hy

(import requests
        string
        [bs4 [BeautifulSoup]]
        [sys [argv]])


(defn get_page [link]
  (-> (. (.get requests link) text)
      (BeautifulSoup "html.parser")))


(defn get_title [source]
  (-> (. source title)
      (. text)
      (.lower)
      (.strip "speaker deck")
      (.replace "/" "")
      (string.capwords)))


(defn get_author[source]
  (. (. (.find source "div" :class "presenter") h2) text))
  

(defn crawl[link] 
  (setv response (get_page link))
  (print (get_author response))
  (print (get_title response))
  (print (speaker_deck response)))


(defn speaker_deck [source]
  (.find source "div" :class "speakerdeck-embed"))


(if (= __name__ "__main__")
    (do
      (if (< (len argv) 2)
        (print "Please, provide an URL.")
        (crawl (second argv)))))