chr15m

#!/bin/sh

# Scrapes documentation from a URL and converts it to Markdown suitable for aider convention files
# to provide context to the LLM.

if [ $# -eq 0 ]; then
    echo "Usage: $(basename "$0") <URL> [URL...]"
    echo
    echo "Generate aider 'convention' Markdown context from documentation URLs."
    echo "suitable for providing LLM context about a project's conventions and style."

ChrisBlom

(ns datomic-cdc.core
  "proof-of-concept that shows how setup change-data-capture for datomic"
  (:require [datomic.api :as d]))

(def processed-t- (atom nil))

(defn start-cdc-thread
  "starts a new thread to processes all past transactions starting at start-t, then continues processing incoming transactions, using the provided `change-handler`

   `change-handler` must be a function that takes a single map argument with

johndturn

launchd - Script Management in macOS

What is it?

• Used on macOS for managing agents and daemons and can be used to run scripts at specified intervals
  • macOS's competitor to cron, along with other things
• Runs Daemons and Agents

What is a Daemon?

borkdude

(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!"]))})))

ericnormand

#!/bin/sh
#_(

   #_DEPS is same format as deps.edn. Multiline is okay.
   DEPS='
   {:deps {clj-time {:mvn/version "0.14.2"}}}
   '

   #_You can put other options here
   OPTS='

defndaines

;; Attempting to access an SQLite DB from Loom.

;; SQLite3 is installed and npm installed.

(def sqlite (js/require "sqlite3"))

(defn on-error [err]
  (when err
    (js/console.error err.message)))

ptaoussanis

(comment ; Fun with transducers, v2

  ;; Still haven't found a brief + approachable overview of Clojure 1.7's new
  ;; transducers in the particular way I would have preferred myself - so here goes:

  ;;;; Definitions
  ;; Looking at the `reduce` docstring, we can define a 'reducing-fn' as:
  (fn reducing-fn ([]) ([accumulation next-input])) -> new-accumulation
  ;; (The `[]` arity is actually optional; it's only used when calling
  ;; `reduce` w/o an init-accumulator).

richhickey

(require '[clojure.core.async :as a])

(def xform (comp (map inc)
              (filter even?)
              (dedupe)
              (flatmap range)
              (partition-all 3)
              (partition-by #(< (apply + %) 7))
              (flatmap flatten)
              (random-sample 1.0)

alandipert

;; Copyright (c) Alan Dipert. All rights reserved.
;; The use and distribution terms for this software are covered by the
;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;; By using this software in any fashion, you are agreeing to be bound by
;; the terms of this license.
;; You must not remove this notice, or any other, from this software.

(ns alandipert.kahn
  (:require [clojure.set :refer [difference union intersection]]))