knu

knu = require("knu") -- https://github.com/knu/hs-knu

-- Switch between Karabiner-Elements profiles as Barrier enters a different host
do
  -- Configure Barrier (https://github.com/debauchee/barrier) to output log to ~/Library/Logs/barrier.log
  local logFile = os.getenv("HOME") .. "/Library/Logs/barrier.log"
  local lineNo = 1
  local host = nil
  local defaultProfile = "Default"
  local profileForHost = function (host)

knu

# Comparing dot-separated version numbers in one line

# How to say $a >= $b using various tools and languages?
a=1.10.0
b=1.9.5

set -e

# POSIX
[ "$({ echo $a; echo $b; } | sort -n -t. -k1,1 -k2,2 -k3,3 | tail -n1)" = "$a" ]

knu

# Rename tags named foo-bar-#.#.# to v#.#.# and push the tag changes
git tag -l | while read t; do n="v${t##*-}"; git tag $n $t; git push --tags ; git tag -d $t; git push origin :refs/tags/$t ; done

knu

#!/usr/bin/osascript -l JavaScript
// -*- javascript -*-
//
// open-chromium: Open a URL in a Chromium-based browser in a specified profile
//
// usage: open-chromium [(-a | --application) <app>] [(-p | --profile) <profile>] <url>
//
//   <app>: "Chromium" (default), "Google Chrome", "Microsoft Edge", etc.
//   <profile>: "Default", "Profile 1", etc.
//

knu

#!/bin/sh

Verbose=
DryRun=

run() {
    if [ -n "$DryRun" ]; then
        echo "$*"
    elif [ -n "$Verbose" ]; then
        echo "$*"

knu

Create a timer that periodically imports ghq directories to projectile-known-projects.

(defun projectile-update-known-projects-with-ghq ()
  (interactive)
  (when (executable-find "ghq")
    (make-process :name "ghq"
                  :buffer (get-buffer-create "*ghq*")

knu

;; (require 'smartparens)

(defun eval-defun:inner-def (orig-func &rest args)
  (cl-letf*
      (((symbol-function #'beginning-of-defun)
        (lambda (&optional arg)
          (let (pos)
            (save-match-data
              (cl-loop
               do

knu

;; Prompt user for make-directory when a non-existent directory is input in read-file-name
(defun exit-minibuffer:prompt-for-make-directory (&rest args)
  (and (cl-loop
        for (_ func) in (backtrace-frames)
        with n = 0
        do (cl-case func
             (read-file-name
              (cl-return t))
             (read-char-from-minibuffer
              (cl-return nil))

knu

#!/bin/sh
#
# ijq - interactive jq
#
# usage: ijq [jq options] < file
#
#   e.g. curl ... | ijq | tee output.json
#
# Copyright (c) 2023 Akinori MUSHA
#

knu

Moved to knu/azik.