| ; run `bb backup` to backup database | |
| ; run `bb restore` to restore latest backup | |
| {:min-bb-version "0.4.0", | |
| :tasks {; CONSTANTS | |
| db-name "dev_blog", | |
| backup-dir "backups", | |
| now (str (java.time.LocalDateTime/now)), | |
| ; TASKS | |
| create-backup-dir {:depends [backup-dir], :task (babashka.fs/create-dirs backup-dir)}, |
| ;; clj -R:figwheel -Sdeps '{:deps {org.clojure/tools.trace {:mvn/version "0.7.10"}}}' -i trace_cljs_repl_start.clj -m figwheel.main -b dev -r | |
| (ns user) | |
| (require '[clojure.tools.trace :as t]) | |
| (require 'cljs.main) | |
| (require 'cljs.repl) | |
| (require 'figwheel.main) | |
| (require 'figwheel.repl) | |
| (require 'figwheel.core) |
| (ns api-server.file-io | |
| (:use [clojure.tools.logging :only (info warn error)]) | |
| (:import (java.nio.channels CompletionHandler AsynchronousFileChannel) | |
| (java.nio ByteBuffer) | |
| (java.nio.file.attribute FileAttribute) | |
| (java.nio.file StandardOpenOption) | |
| (java.util.concurrent Executors)) | |
| (:require [clojure.core.async :as async :refer [chan go put! close!]] | |
| [clojure.java.io :as io])) |
Start cljs.main with rebel-readline:
clojure -Sdeps '{:deps {github-mfikes/cljs-main-rebel-readline {:git/url "https://gist.github.com/mfikes/9f13a8e3766d51dcacd352ad9e7b3d1f" :sha "27b82ef4b86a70afdc1a2eea3f53ed1562575519"}}}' -i @setup.clj -m cljs.main
I made a documentation generator that cashes in on Clojure's dynamism. See the play-cljs docs (a ClojureScript game library) for an example of its output.
Like many of you, I've often wondered what my final regret will be on my deathbed. My best guess came to me in a dream recently. I was walking across the charred earth of an apocalyptic future world, maneuvering around the remains of the less fortunate. I was startled to find a young girl, barely holding onto her life. She murmured something to me. I asked her to repeat it, and she said more loudly: "I...wish your Clojure projects didn't have such crappy documentation."
| (defn make-intersection-q | |
| "Generate an intersection q for arbitrary sets of features" | |
| [n] | |
| (assert (pos? n)) | |
| {:find '[[?product-slug ...]] | |
| :in ['$ (->> (range 1 (inc n)) (mapv #(symbol (str "?v" %))))] | |
| :where | |
| (into ['[?product :cat.product/slug ?product-slug]] | |
| (map (fn [n] | |
| ['?product :cat.product/features (symbol (str "?v" n))]) |
| (ns upload-file.core | |
| (:require [reagent.core :refer [render atom]] | |
| [cljs.core.async :refer [put! chan <! >!]]) | |
| (:require-macros [cljs.core.async.macros :refer [go go-loop]])) | |
| ;; derived from https://mrmcc3.github.io/post/csv-with-clojurescript/ | |
| ;; and based on reagent-frontend template. | |
| ;; dependencies from project.clj in addition to clojure, clojurescript, and reagent: | |
| ;; [org.clojure/core.async "0.2.395"] |
| (set-env! :dependencies '[[clj-http "2.2.0"]]) | |
| (require '[clj-http.client :as http]) | |
| (def ^:private ^:const | |
| retryable-http-status-codes | |
| #{408; Request Timeout | |
| 409; Conflict | |
| 410; Gone | |
| 500; Internal Server Error |
(:identity req) is auth backend independent way to access user data:current-user doesn't imply that authentication is required, route should also have :auth-rules if authentication is required