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

#!/bin/sh

Verbose=
DryRun=

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

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

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

=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("_"&REPT("]",LEN(CELL("filename"))-LEN(SUBSTITUTE(CELL("filename"),"]",""))),SUBSTITUTE(CELL("filename"),"]","_"&REPT("]",LEN(CELL("filename"))-LEN(SUBSTITUTE(CELL("filename"),"]",""))),(LEN(CELL("filename"))-LEN(SUBSTITUTE(CELL("filename"),"]",""))))))

knu

if application "Google Chrome" is not running then
	tell application "Google Chrome" to activate
end if

tell application "System Events" to tell process "Google Chrome"
	set frontmost to true
	click (menu item 1 where its name contains "****") of (menu 1 where its name is "プロファイル" or its name is "Profiles") of menu bar 1
end tell

knu

Audio Input fixer for AirPods users

This is a Hammerspoon snippet to fix the common problem with the AirPods where connecting AirPods to a MacBook forcibly switches the audio input device to the AirPods mic when you have a better mic on it.

Requirements

brew install hammerspoon