मैंने केवल क्लोजर का उपयोग करके एक वेब एप्लिकेशन कैसे लिखा

आवेदन

• हर 5 मिनट में आदी, नोटाबेनॉइड और अन्य सेवाओं पर नए उपशीर्षक अनुक्रमित करते हैं;
• पृष्ठ को पुनः लोड किए बिना खोज के साथ एक-पृष्ठ वेब-इंटरफ़ेस है;
• वेब-इंटरफ़ेस में अनुक्रमित उपशीर्षक की संख्या दिखाता है और नए दिखाई देने पर इसे बदल देता है;
• डेस्कटॉप क्लाइंट के साथ बातचीत करने के लिए एक साधारण एपीआई है।

पारसर्स

(defn get-release-page-result "Get release page result" [page] (-<>> (get-release-page-url page) helpers/fetch (html/select <> [:ul.search-results :li :p :a]) (map (helpers/make-safe book-from-line nil)) (remove nil?) (map episodes-from-book) flatten)) 

 def get_release_page_result(page): """Get release page result""" url = get_release_page_url(page) content = requests.get(url).content soup = BeautifulSoup(content) for line in get_lines_from_soup(soup): book = get_book_from_line(line) if book: yield from get_episodes_from_book(book) 

सर्वर साइड

सर्वर

 (add-watch total-count :notifications #(doseq [con @subscribers] (send! con (prn-str {:total-count %4})))) 

मार्ग

 (defroutes main-routes (GET "/" [] (views/index-page)) (GET "/api/list-languages/" {params :params} (api/list-languages params)) (GET "/notifications/" [] push/notifications) (route/resources const/static-path)) 

एपीआई

 (defn- get-writer "Get writer from params" [params] (if (= (:format params) "json") json/write-str prn-str)) (defmacro defapi "Define api method" [name doc args & body] `(defn ~name ~args ((get-writer (first ~args)) ~@body))) 

 (defapi list-languages "List all available languages" [params] (models/list-languages)) 

राय

 (defn index-page [] (html5 [:head [:title "Subman - subtitle search service"] [:body [:h1 "Welcome to subman!"]])) 

शैलियों

 (defstyles main [:.search-input {:z-index 100 :background-color "#fff"}] [:.info-box {:text-align "center" :font-size (px 18)}] [:.search-result-holder {:padding-left 0 :padding-right 0}]) 

ग्राहक भाग

 (defn info-box "Show info box" [text] [:div.container.col-xs-12.info-box [:h2 text]]) 

 (defn init-autocomplete "Initiale autocomplete" [query langs sources] (let [input ($ "#search-input")] (.typeahead input (js-obj "highlight" true) (js-obj "source" (fn [query cb] (cb (apply array (take const/autocomplete-limit (map #(js-obj "value" %) (get-completion query @langs @sources)))))))) (.on input "typeahead:closed" (fn [] (reset! query (.val input)))))) ) (defn init-autocomplete "Initiale autocomplete" [query langs sources] (let [input ($ "#search-input")] (.typeahead input (js-obj "highlight" true) (js-obj "source" (fn [query cb] (cb (apply array (take const/autocomplete-limit (map #(js-obj "value" %) (get-completion query @langs @sources)))))))) (.on input "typeahead:closed" (fn [] (reset! query (.val input)))))) 

 (defn completion-source "Source for typeahead autocompletion" [langs sources query cb] (cb (->> (get-completion query @langs @sources) (map #(js-obj "value" %)) (take const/autocomplete-limit) (apply array)))) (defn init-autocomplete "Initiale autocomplete" [query langs sources] (let [input ($ "#search-input")] (.typeahead input #js {:highlight true} #js {:source (partial completion-source langs sources)}) (.on input "typeahead:closed" #(reset! query (.val input))))) 

निष्कर्ष