Skip to content

Instantly share code, notes, and snippets.


Adam Porter alphapapa

  • USA
View GitHub Profile
alphapapa / .dockerignore
Created Jul 9, 2021 — forked from jscheid/.dockerignore
Running makem in Docker
View .dockerignore
alphapapa /
Created Jan 5, 2021 — forked from thibaudcolas/
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 Download professional" (ID kmdldgcmokdpmacblnehppgkjphcbpnn, since then replaced with another "Video Download professiona" (ID bacakpdjpomjaelpkpkabmedhkoongbi). This script is republished here for educational 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.

What does t

alphapapa / org-ql-rasmi.el
Created Dec 18, 2020 — forked from mskorzhinskiy/org-ql-rasmi.el
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 / dll-fifo.el
Created Jan 1, 2019 — forked from jordonbiondo/dll-fifo.el
A fifo queue in emacs lisp using a cyclic doubly linked list.
View dll-fifo.el
;; FIFO queue implementation using cyclic doubly linked lists
;; This data structure is a bit overkill for a queue,
;; but it has many other uses
;; a doubly linked list cell look like (val . (prev-cell next-cell))
;; a FIFO queue object looks like ('fifo . cyclic-doubly-linked-list)
;; An empty FIFO queue would be: ('fifo . nil)
alphapapa /
Created Sep 8, 2018 — forked from 0XDE57/
Firefox about:config privacy settings


about:config settings to harden the Firefox browser. Privacy and performance enhancements.
To change these settings type 'about:config' in the url bar. Then search the setting you would like to change and modify the value. Some settings may break certain websites from functioning and rendering normally. Some settings may also make firefox unstable.

I am not liable for any damages/loss of data.

Not all these changes are necessary and will be dependent upon your usage and hardware. Do some research on settings if you don't understand what they do. These settings are best combined with your standard privacy extensions (HTTPS Everywhere, NoScript/Request Policy, uBlock origin, agent spoofing, Privacy Badger etc), and all plugins set to "Ask To Activate".

alphapapa / pp-debug.el
Created Dec 6, 2017 — forked from felipeochoa/pp-debug.el
Pretty print emacs debug frames
View pp-debug.el
;;; pp-debug.el --- Pretty-print debug frames -*- lexical-binding: t -*-
;; Copyright (C) 2017 Felipe Ochoa
;; Author: Felipe Ochoa
;; Created: 5 Dec 2017
;; License: GPL
;;; Commentary:
;;; Pretty-print debugger frames.
View oref-start.el
;;; Neat convenience function for working with Elisp's EIEIO objects
(defmacro oref* (object &rest slots)
"Like `oref', but each slot in SLOTS is applied in sequence.
For example,
\(oref* obj :inner :property)
is equivalent to
alphapapa /
Created Jun 24, 2017 — forked from Fuco1/


Relations are maintained through the outline hierarchy and special properties on the entries so we can model arbitrary graphs instead of only DAGs. This means you can define parents or children completely outside the hierarchy or even in different files.

Relations are kept in sync bidirectionally so please only use the API to maintain them otherwise things might get lost. Because the relations are bidirectional the graph traversal and querying is extremly fast.


Parents are defined by the GRAPH_PARENTS property as list of IDs and implicitly through the org outline hierarchy: all headlines above this one are this entry's parents.

#!/usr/bin/env zsh
# -*- coding: UTF8 -*-
# Author: Guillaume Bouvier --
# 2016-05-10 15:36:06 (UTC+0200)
diff=$1 # Duration in seconds
if test $diff -ge 86400; then
alphapapa /
Created Mar 9, 2017 — forked from sachac/
Source code for my Emacs conference talk


  • Emacs learning curve?

Meta information


  • Mix of Emacs geeks skewed towards people who’ve been using this for a while (after all, takes a certain commitment to come all the way to an Emacs conference!)