| (require '[clojure.core.match :refer [match]] | |
| '[clojure.string :as str] | |
| '[hiccup2.core :refer [html]] | |
| '[org.httpkit.server :as server]) | |
| (defn router [req] | |
| (let [paths (vec (rest (str/split (:uri req) #"/")))] | |
| (match [(:request-method req) paths] | |
| [:get ["users" id]] {:body (str (html [:div id]))} | |
| :else {:body (str (html [:html "Welcome!"]))}))) |
Chaining promises in ClojureScript is best done using the thread-first macro, ->. Here's an example of using the fetch API:
(-> (js/fetch "/data")
(.then (fn [r]
(when-not (.-ok r)
(throw (js/Error. "Could not fetch /data")))
(.json r)))
| ;; adapted borkdude's implementation | |
| (defn sha1 | |
| [s] | |
| (let [hashed (.digest (.getInstance java.security.MessageDigest "SHA-1") | |
| (.getBytes s)) | |
| sw (java.io.StringWriter.)] | |
| (binding [*out* sw] | |
| (doseq [byte hashed] | |
| (print (format "%02x" byte)))) ; prefer lower case :) | |
| (str sw))) |
| AWSTemplateFormatVersion: '2010-09-09' | |
| Transform: AWS::Serverless-2016-10-31 | |
| Description: Test API | |
| Parameters: | |
| Stage: | |
| Type: String | |
| AllowedValues: | |
| - dev | |
| - sat |
| a4b.amazonaws.com | |
| access-analyzer.amazonaws.com | |
| account.amazonaws.com | |
| acm-pca.amazonaws.com | |
| acm.amazonaws.com | |
| airflow-env.amazonaws.com | |
| airflow.amazonaws.com | |
| alexa-appkit.amazon.com | |
| alexa-connectedhome.amazon.com | |
| amazonmq.amazonaws.com |
| /* | |
| * Copyright 2017 Beldaz (https://github.com/beldaz) | |
| * Licensed to the Apache Software Foundation (ASF) under one or more | |
| * contributor license agreements. See the NOTICE file distributed with | |
| * this work for additional information regarding copyright ownership. | |
| * The ASF licenses this file to You under the Apache License, Version 2.0 | |
| * (the "License"); you may not use this file except in compliance with | |
| * the License. You may obtain a copy of the License at | |
| * | |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| (defn debounce-chan | |
| "Taken from https://github.com/swannodette/async-tests | |
| A little different with original one, write to channel after the interval | |
| instead of doing it in the beginning" | |
| ([source msecs] | |
| (debounce-chan (chan) source msecs)) | |
| ([c source msecs] | |
| (go-loop [state ::init | |
| last-one nil | |
| cs [source]] |
While the following structure is not an absolute requirement or enforced by the tools, it is a recommendation based on what the JavaScript and in particular Node community at large have been following by convention.
Beyond a suggested structure, no tooling recommendations, or sub-module structure is outlined here.
lib/ is intended for code that can run as-issrc/ is intended for code that needs to be manipulated before it can be used| (require 'package) | |
| (add-to-list 'package-archives | |
| '("marmalade" . "http://marmalade-repo.org/packages/")) | |
| (package-initialize) | |
| (defvar my-packages '(clojure-mode | |
| cider | |
| paredit | |
| auto-complete | |
| highlight-parentheses |
