jeeger

#!/bin/env bb
(require '[babashka.fs :as fs])
(require '[babashka.curl :as curl])

(defn get-day-component []
  (let [components (fs/components (fs/cwd))]
    (-> (filter #(str/starts-with? % "day") components)
        first)))

(defn get-day-number [day-name]

bobbicodes

(ns friends
  (:require [cheshire.core :as json]
            [clojure.set :as set]))

;; The way this works is you download your own Facebook data as JSON
;; (Settings -> Privacy -> Your Facebook information -> Download Your Information)
;; All that you need is Connections -> Friends and followers selected.
;; It will be ready in a few minutes and will be less than 1MB.
;; Place 2 files spanning a certain period of time in this folder,
;; and pass the 2 filenames to `friends/unfriended`.

yogthos

usage

Create an account at https://openweathermap.org and get an API key. Note that it can take up to a couple of hours for the key to become active. Add an environment variable OPEN_WEATHER_API_KEY with the value of the key.

run the script:

./weather.clj Toronto,CA

jeeger

#!/usr/bin/env bb
(ns bookstats
  (:require [babashka.pods :as pods]
            [clojure.pprint :as pprint]))
(pods/load-pod 'org.babashka/go-sqlite3 "0.1.0")
(pods/load-pod 'retrogradeorbit/bootleg "0.1.9")
(require '[pod.babashka.go-sqlite3 :as sqlite]
         '[pod.retrogradeorbit.hickory.select :as s]
         '[pod.retrogradeorbit.bootleg.utils :as utils])
(import [java.net URLEncoder]

CarnunMP

#!/usr/bin/env bb

(require '[clojure.repl])

(def namespaces ; well, readily available ones
  ['clojure.core
   'clojure.edn
   'clojure.instant
   'clojure.java.browse
   'clojure.java.io

henryw374

#!/usr/local/bin/bb

(import '[java.io ByteArrayOutputStream])
(import '[java.util Base64]) ;
(import '[java.util.zip Inflater]) ;

(defn uncompress [source-bytes]
  (let [inflater (doto (Inflater.)
                   (.setInput source-bytes))
        outputStream (new ByteArrayOutputStream (count source-bytes))

tylerw

#!/usr/bin/env bb

;;;
; A babashka script to update all clojure -Ttools to the latest versions
; author: Tyler Wardhaugh
;;;

(ns update-clj-tools
  (:require [babashka.fs :as fs]
            [babashka.process :refer [process]]))

jackrusher

# command line to deploy the project
gcloud functions deploy hello --runtime nodejs14 --trigger-http

digash

#!/bin/env bb

(let [cgb #(->> % (cons "http://169.254.169.254/latest") (str/join "/")  curl/get :body)
      try-json #(try (json/parse-string %) (catch Exception _ %))
      dir? #(str/ends-with? (last %) "/")
      paths (fn [p] (->> (cgb p)
                         str/split-lines
                         (map #(->> (str/split % #"=") first (conj p)))))
      trimlslash #(str/replace % #"/$" "")]
  (json/generate-stream

rutenkolk

#!/usr/bin/env bb
(ns script
  (:require [clojure.java.io :as io]
            [clojure.string :as s]
            [clojure.pprint :as pprint]
            [clojure.java.shell :refer [sh with-sh-dir]]
            [cheshire.core :as json]))

(defn prsh 
  ([sh]