Skip to content

Instantly share code, notes, and snippets.

@clsn
clsn / outfuse.py
Created January 10, 2024 22:32
FUSE for browsing output of invokeai as directories
#!/usr/bin/env python3
# Motivation: browse the "boards" created by InvokeAI as if they were subdirectories.
# To extend: do better than that. Basically, this is the idea:
# - root/
# - UNSORTED
# - models
# - <model name1>
# - <"hashed" prompt1>
@clsn
clsn / org-flash-emph.el
Created March 18, 2020 20:43
Hide emphasis markers when point is distant, but leave the space for them, so when they reappear things don't jump. Scale markers down a little if using org-variable-pitch-mode. Extremely rough-cut.
;; Someone needs to lock me up...
(defun org-conceal-emph-pairs (limit)
(save-excursion
(org-conceal-pairs limit org-verbatim-re))
(org-conceal-pairs limit org-emph-re)
)
(defconst org-conceal-vp-scale 0.7) ; as if scaling were a good idea.
(defconst org-conceal-distance 7)
@clsn
clsn / org-pop.el
Last active March 11, 2020 00:51
PoC of org-pop-mode, which allows (effectively) "popping" back up to a higher org-mode level without a new heading.
;;; org-pop.el --- Allow popping back up from a sublevel without a heading -*- lexical-binding: t -*-
;; Author: Mark Shoulson <mark@shoulson.com>
;; Url: XXXXXX
;; Package-Version: XXXX
;; Version: 0.01
;; Package-Requires: ((emacs "24.4") (org "8.3.5"))
;; Keywords: hypermedia, outlines, Org
;;; Commentary:
@clsn
clsn / islcalscript.lua
Created July 21, 2015 01:54
Islamic calendar support in lua for WatchMaker
--[==[
Calculations for the Islamic Calendar (for WatchMaker)
Calendar math from Edward M. Dershowitz and Nachum Reingold,
see http://emr.cs.uiuc.edu/~reingold/calendar-book/index.html
Translated into Lua from emacs-lisp by Mark Shoulson, mark@shoulson.com
The MIT License (MIT)
Copyright (c) 2015 Mark E. Shoulson
@clsn
clsn / hebcalscriptst.lua
Created July 21, 2015 01:52
Hebrew calendar math in lua for WatchMaker
--[==[
Calculations for Hebrew dates and temporal hours (for WatchMaker).
Calendar math from Edward M. Dershowitz and Nachum Reingold,
see http://emr.cs.uiuc.edu/~reingold/calendar-book/index.html
Translated into Lua from emacs-lisp by Mark Shoulson, mark@shoulson.com
The MIT License (MIT)
Copyright (c) 2015 Mark E. Shoulson
@clsn
clsn / gist:3379853
Created August 17, 2012 15:24
gdb mystery...
[mark@dev ~]$ cat A.c
#include <string.h>
int
main() {
}
[mark@dev ~]$ cc -g -c -o A32.o A.c
[mark@dev ~]$ cc -g -c -o A64.o +DD64 A.c
[mark@dev ~]$ cc -g -o A32 A32.o
[mark@dev ~]$ cc -g -o A64 +DD64 A64.o
[mark@dev ~]$ gdb ./A32
@clsn
clsn / .dir_colors
Created February 3, 2012 05:54
Coolest .dir_colors ever
# Configuration file for dircolors, a utility to help you set the
# LS_COLORS environment variable used by GNU ls with the --color option.
# Copyright (C) 1996, 1999-2010 Free Software Foundation, Inc.
# Copying and distribution of this file, with or without modification,
# are permitted provided the copyright notice and this notice are preserved.
# The keywords COLOR, OPTIONS, and EIGHTBIT (honored by the
# slackware version of dircolors) are recognized but ignored.
# Possibly useful emacs-lisp to show the colors:
# (font-lock-add-keywords nil '(("38;5;\\([1-9][0-9]+\\)" (1 `(face (:background ,((lambda (c) (let* ((x (- (string-to-int c) 16)) (arr '("00" "5f" "87" "af" "d7" "ff")) (blue (mod x 6)) (green (mod (/ x 6) 6)) (red (mod (/ x 36) 6))) (if (> x 215) (let* ((z (- x 216)) (s (nth z '("08" "12" "1c" "26" "30" "3a" "44" "4e" "58" "62" "6c" "76" "80" "8a" "94" "9e" "a8" "b2" "bc" "c6" "d0" "da" "e4" "ee" "ff")))) (concat "#" s s s)) (concat "#" (nth red arr) (nth green arr) (nth blue arr))))) (match-stri
@clsn
clsn / recurs.p6
Created November 10, 2011 06:37
Recursing bug in perl6 rakudo
my $counter=0;
sub recur(Int $x) {
my $h;
$h="h" ~ $counter;
$counter++;
my @k=(1,6);
if ($x>0) {
recur($x-1);
@clsn
clsn / setup.py
Created August 4, 2011 15:17
Setup.py from singularity
# setup.py
from distutils.core import setup
versionnum="0.30"
try:
import py2exe
except ImportError:
try:
import py2app
except ImportError:
#!/bin/sh
if [ $# -gt 0 ]
then DIR="$1"
else DIR="."
fi
if [ -d "$DIR/.hg" ]
then echo hg status "$DIR"
hg status "$DIR"
elif [ -d "$DIR/.svn" ]