Skip to content

Instantly share code, notes, and snippets.


Adam Porter alphapapa

  • USA
View GitHub Profile
jscheid / .dockerignore
Last active Jul 9, 2021
Running makem in Docker
View .dockerignore
thibaudcolas /
Last active Jan 30, 2022
Video Downloader professional kmdldgcmokdpmacblnehppgkjphcbpnn background.js

Video Downloader professional kmdldgcmokdpmacblnehppgkjphcbpnn background.js

This is the source of background.js for a now-unpublished Chrome extension called "Video Downloader professional" (ID kmdldgcmokdpmacblnehppgkjphcbpnn, since then replaced with another "Video Downloader professional" (ID bacakpdjpomjaelpkpkabmedhkoongbi). This script is republished here for educational / research purposes. It has initially been extracted from the extension’s archive available as v2.4 on

Why is this interesting?

The extension has appeared in malware discussions in the past. Its replacement of Video downloader professional "bacakpdjpomjaelpkpkabmedhkoongbi" seems related to the [ownership change of The Great Suspender](greatsuspender/thegreatsuspender#1263 (comment)

mskorzhinskiy / org-ql-rasmi.el
Created Dec 18, 2020
Current configuration for personal org queries
View org-ql-rasmi.el
'(("stuck" lambda nil
'(and (tags "story")
(not (tags "ignore"))
(not (done)) ;; Finished stories should be excluded
(not (descendants (todo "NEXT"))) ;; If there are already
alphapapa /
Last active Apr 4, 2021
Standalone Dired launcher
# Launch Dired in a plain Emacs configuration.
# Arguments are passed to Emacs, e.g. "-nw" works as expected.
emacs -q "$@" \
--eval "(dired default-directory)" \
--eval "(defun kill-window-or-emacs () (interactive) (if (one-window-p) (kill-emacs) (delete-window)))" \
--eval "(setq dired-dwim-target t delete-by-moving-to-trash t)" \
phoe /
Last active Apr 11, 2022
Package-local nicknames in Common Lisp - a semishitpost about PLNs

Package-local nicknames in Common Lisp

Warning: this is a rant.

Warning: you have been warned.

Note: actually worthwhile content starts in the second subsection. You are free to skip the first one.

Story time

alphapapa / hide-show-layers.scm
Created Oct 8, 2019
GIMP: Hide/Show all layers in current image
View hide-show-layers.scm
;; When editing an image with many layers (e.g. an animated GIF with
;; hundreds of frames), it's impossibly tedious to click hundreds and
;; hundreds of times on small little boxes to hide or show all layers.
;; Since GIMP seems to lack a button to hide/show all of them, and it
;; doesn't allow selection of multiple layers, this script provides
;; menu items to hide/show all layers at once.
;; Who knows if later versions of GIMP than I have provide a way to do
;; this, but this works, and maybe it will be helpful to someone.
View memoize-bench.el
;;; Memoization benchmark -*- lexical-binding: t; -*-
;; Ref:
;; $ emacs -Q --batch -L path/to/memoize -f batch-byte-compile memoize-bench.el
;; $ emacs -Q --batch -L path/to/memoize -l memoize-bench.elc
;; Note: Benchmark requires at least 64-bit integers. Choose one of:
;; * Emacs >= 27
;; * Emacs <= 26 on 64-bit host
alphapapa /
Last active Apr 5, 2020
Run a standalone Magit editor!
# Please see the script's new home:
alphapapa / org-kbd.el
Created Dec 16, 2018
Org mode: Add syntax to export HTML KBD elements
View org-kbd.el
;;; org-kbd
;; (setq org-emphasis-alist '(("%" org-kbd verbatim)
;; ("*" bold)
;; ("/" italic)
;; ("_" underline)
;; ("=" org-verbatim verbatim)
;; ("~" org-code verbatim)
;; ("+"
;; (:strike-through t))))
alphapapa /
Last active Jul 14, 2022
An Emacs food/weight/workout tracker self-contained in a single Org file