dotemacs

#!/usr/bin/sbcl --script

;;; Claude Code Status Bar - Common Lisp Implementation
;;; Equivalent of the Node.js/Bun statusline script

(require :uiop)
(require :sb-posix)

;;; ANSI color constants
(defparameter *colors*

dotemacs

;; inspiration taken from Marcin Borkowski's tweet, that makes non
;; interactive functions, interactive: 
;; https://x.com/marcin_mbork/status/1937033217389076789

(defun my/make-function-interactive (function-name)
  "Make a non-interactive function interactive by adding advice.
Prompts for FUNCTION-NAME and adds :before advice with an interactive declaration."
  (interactive "aFunction to make interactive: ")
  (let ((func-symbol (if (stringp function-name)
                         (intern function-name)

dotemacs

#!/usr/bin/env python3
"""
Extract Augment Chat data from VS Code workspace storage.

This script:
1. Takes a workspace directory path
2. Calculates the VS Code workspace storage hash using the correct algorithm
3. Finds the corresponding SQLite database
4. Extracts the Augment chat data
5. Formats it as readable Markdown

dotemacs

Changelog podcast episode #96 with Steve Yegge: https://changelog.com/friends/96

Welcome to Change Log and Friends, a weekly talk show about
babysitting AI agents. Thanks as always to our partners at Fly.io, the
public Cloud built for developers who ship. We love Fly. You might
too. Learn more at Fly.io.

Okay. Let's talk. Well, friends, Retul agents is here. Yes. Retul has
launched Retul agents.

dotemacs

Amp CLI, a bit overzealous?

When you run amp CLI in a "non standard" terminal, like the ones that are available in Emacs, like eat the terminal behaves strangely.

But if I run amp in eat it displays like so:

bash-5.2$ amp
Type \ followed by Enter to insert newlines, or use Shift+Enter in supported terminals.
Interrupt the agent with Ctrl+C, exit with Ctrl+D.

dotemacs

#!/bin/sh

version="0.0.1"
what_arch=`uname -m`

if [ ${what_arch} == "x86_64" ]
then
    arch="amd64"
elif [ ${what_arch} == "arm64"]
then

dotemacs

$ ./tofu apply -auto-approve

OpenTofu used the selected providers to generate the following execution plan. Resource actions are indicated with the following symbols:
  + create

OpenTofu will perform the following actions:

  # local_file.hello_local_file will be created
  + resource "local_file" "hello_local_file" {
      + content              = "Hello terraform local!"

dotemacs

Exit code 1

Following the example for creating the encryption configuration:

https://1-7-0-alpha1.opentofu.pages.dev/docs/language/state/encryption/#configuration

the exit code is always 1.

This can be annoying on a CI, which expects all the commands to have the exit code of 0.

dotemacs

(defn update-user
  ([^js db user]
   (update-user db user nil))

  ([^js db user prev-username]
   (let [batch (.batch db)]
     (update-user db batch user prev-username)
     (.commit batch)))

  ([^js db batch-or-transaction user prev-username]

dotemacs

(defn update-user
  ([^js db user]
   (update-user db user nil))

  ([^js db user prev-username]
   (let [batch (.batch db)]
     (update-user db user prev-username batch)
     (.commit batch)))

  ([^js db user prev-username batch]