Skip to content

Instantly share code, notes, and snippets.

View agumonkey's full-sized avatar

gum agumonkey

11 followers · 70 following
  • NONE
  • Dark side of the moon @ ['tkf8-2-1', 'ay21-3', '3263-827']
View GitHub Profile
@agumonkey
agumonkey / cl-history.txt
Created August 18, 2016 18:52 — forked from danlentz/cl-history.txt
Detailed account and personal insights on the history of common-lisp
From welch@thor.oar.net Thu Oct 20 16:53:41 EDT 1994
Article: 15160 of comp.lang.lisp
Path: cantaloupe.srv.cs.cmu.edu!das-news2.harvard.edu!news2.near.net!news.mathworks.com!usenet.eel.ufl.edu!usenet.cis.ufl.edu!caen!math.ohio-state.edu!magnus.acs.ohio-state.edu!usenet.ins.cwru.edu!ns.mcs.kent.edu!kira.cc.uakron.edu!malgudi.oar.net!malgudi.oar.net!welch
From: welch@thor.oar.net (Arun Welch)
Newsgroups: comp.lang.lisp
Subject: CL History (was Re: Why do people like C?)
Date: 20 Oct 94 15:34:10
Organization: OARnet
Lines: 3244
Message-ID: <WELCH.94Oct20153410@thor.oar.net>
@agumonkey
agumonkey / hn.el
Last active September 26, 2021 14:38
porting hackernews -> org-mode from js to elisp https://gist.github.com/dharmatech/2ef271907cb73298318fdb50a4ee7d54
;;; hn.el --- convert hacker news post into org-mode buffer -*- lexical-binding: t -*-
;; Copyright (C) 2018- Free Software Foundation, Inc.
;; Author: Johan Ponin <johan.ponin.pro@gmail.com>
;; Version: 0.0.1
;; Package-Version: 20181103.0001
;; Keywords: hackernews, org-mode
;; This program is free software; you can redistribute it and/or modify
@agumonkey
agumonkey / oosax.py
Created August 19, 2021 19:55
oosax.py -- trying to play with sax again to make DOM tooling [WIP]
import xml
from xml import sax
class Todo:
pass
class Node:
def __init__(self, name, attrs):
self.name = name
self.attrs = attrs
@agumonkey
agumonkey / zap-to-over.el
Last active July 18, 2021 16:51
zap-to-over
"
Bline lineM line lineE
K C D
D = C + BM - KC
asks for a template
finds M and yields M - C as offset
TODO: only moves to the first match.
@agumonkey
agumonkey / package-plus.el
Created June 9, 2021 10:23
quick hydra for package.el
(defhydra package-plus (:exit t)
("r" package-refresh-contents "Refresh" :column "Archives")
("a" package-autoremove "Auto-Remove")
("l" package-list-packages "List")
("u" package-list-packages "Mark and Update")
("i" package-install "Install" :column "Packages" :exit nil)
("d" package-delete "Delete"))
@agumonkey
agumonkey / ov1.el
Last active May 27, 2021 14:57
ov1 -- overlay helper lib #emacs #elisp #ux
;;; ov1 -- overlay helper lib -*- lexical-binding: t; -*-
;; This buffer is for text that is not saved, and for Lisp evaluation.
;; To create a file, visit it with C-x C-f and enter text in its buffer.
;;; MORE: https://www.youtube.com/watch?v=IWxCj5cr8rY (eieio font-lock Kitchin)
;;; TODO: use magit command minibuffer
;;; TODO: extend overlay
;;; TODO: adjoint overlay (f (ov-substring))
;;; have an overlay monad ? ov = Ov id , compose Ov f Ov g = shift (l|r|u|d) Ov g (f (ov-substring))
@agumonkey
agumonkey / cc.lisp
Created May 14, 2021 08:55
;;; coin-change problem in common-lisp
;;; coin-change problem in common-lisp
(defun remove-first (e l)
(cond ((null l) '())
(t (if (equal e (car l))
(cdr l)
(cons (car l) (remove-first e (cdr l)))))))
(remove-if (lambda (e) (equal e 1)) '(1 1 2 3 4))
;; (2 3 4)
@agumonkey
agumonkey / i3view.py
Created December 21, 2019 15:51
#!/usr/bin/env python
import tkinter
import os
import re
##################################################################### prelude
def always(v):
'''function always returning the same value (see clojure `constantly`)'''
@agumonkey
agumonkey / tcpcs.py
Last active September 27, 2019 18:48
Learning
'''
tcpcs
'''
import sys
import time
import threading
import socket
@agumonkey
agumonkey / url.py
Created June 7, 2019 16:12
from urllib.parse import urlparse, urlunparse
"""
url helpers
"""
def isurl(o):
return o.startswith('http://') \
or o.startswith('https://')