garlic0x1

; depends on alexandria
; memoizes int->int functions in a mutable vec
(defmacro defmemo/int->int (size name (in) &body body)
  (let ((memo-name (read-from-string (format nil "~a-memo" name))))
    `(progn (defvar ,memo-name (make-array (+ 1 ,size) :initial-element nil))
            (defun ,name (,in)
              (if-let ((memo (aref ,memo-name ,in)))
                memo
                (setf (aref ,memo-name ,in) (progn ,@body)))))))

garlic0x1

(defpackage workers
  (:use :cl)
  (:export #:list->simple-cqueue
           #:simple-cqueue->list
           #:join-workers
           #:join-consumers
           #:wmap
           #:wfilter
           #:wforeach))

garlic0x1

(module (web globby) (globby->regexpstr globby->regexp globby-match)
  (import (garlic base) regex)

  ;; made this since the one in `regex` egg doesnt support globstar
  (define (globby->regexpstr glob)
    "Only supports | ? * **"

    ;; mutable variable to dedupe globstars, sorry
    (define ignoring-stars #f)

garlic0x1

(import (garlic base)
        (garlic sys)
        (garlic strings))

(define (tag-file dir file data)
  (sh (string-append "id3v2 '" dir file "' -A " (car data) " -a " (cdr data))))

(define (escape-unix-filename-spaces name)
  (string-replace " " "\\ " name))

garlic0x1

(defn tally
  "tally unique things in a sequence"
  [seq]
  (reduce (fn [ag i] (update ag i (fnil inc 0))) {} seq))

;; (tally [:a :a :a :b :b :c]) 
;; => {:a 3, :b 2, :c 1}

garlic0x1

if [ "$#" -eq 1 ]; then
	history | cut -c 8- | grep $1
else
	history | cut -c 8-
fi

garlic0x1

#!/bin/bash

sudo systemctl stop netctl
sudo systemctl restart iwd

sudo ip link set wlan0 down
sudo wifi-menu

garlic0x1

5,000,000+ : wpforms-lite
5,000,000+ : wordpress-seo
5,000,000+ : woocommerce
5,000,000+ : really-simple-ssl
5,000,000+ : jetpack
5,000,000+ : elementor
5,000,000+ : contact-form-7
5,000,000+ : classic-editor
5,000,000+ : akismet
4,000,000+ : wordpress-importer