alexispurslane’s gists

alexispurslane / gptel-perplexica.el

Created November 23, 2025 02:13

Perplexica integration for GPTel. Worked as of whenever I made it last, don't think GPTel has changed anything. supports citations as org-mode footnotes!

	;; gptel-perplexica.el --- implements a Perplexica backend for GPTel -- lexical-binding: t --

	;;; Perplexica
	(require 'gptel)
	(require 'gptel-transient)
	(require 'gptel-openai)

	(cl-defstruct (gptel-perplexica (:constructor gptel--make-perplexica)
	(:copier nil)
	(:include gptel-openai))

alexispurslane / copy-file-async.el

Created November 22, 2025 17:51

	;;; copy-file-async.el --- Asynchronous file copying via SCP

	;; Version: 1.0
	;; Author: Alexis Dumas <[email protected]>
	;; Package-Requires: ((emacs "25.1"))

	;;; Commentary:

	;; Provides `copy-file-async` command to copy files to remote hosts
	;; via SCP asynchronously with live progress updates.

alexispurslane / comments.html

Last active August 27, 2025 20:20

Not mine, totally vibe coded, but a useful little totally local and self-contained thing you can embed into any HTML page to make it so that users can highlight and add comments and export/import them to share.

	<style>
	/* --- Commenting UI Styles --- */
	:root {
	--comment-highlight-bg: rgba(51, 255, 153, 0.4);
	--comment-ui-bg: #1a2a1a;
	--comment-ui-text: #e8f8e8;
	--comment-ui-accent: #33ff99;
	--comment-ui-border: #6a826a;
	}

alexispurslane / whisperx.bash

Last active February 15, 2025 01:42

A quick and dirty script to let you run a containerized version of WhisperX on any posix system without having to go through the hassle of setting up CUDNN and Python yourself.

	#!/bin/bash

	set -euo pipefail
	original_location=$(pwd)

	command=podman
	command_args="run --gpus all -it -v ".:/app" --replace --name whisperx --pull=newer ghcr.io/jim60105/whisperx:base-en --" # might need to change for docker, hence the variable

	filename=${@: -1}
	basename=$(basename ${filename})

alexispurslane / sort-by-tags.el

Created February 6, 2025 20:53

sort org mode headings by tags

	(defun org-sort-by-tags ()
	(interactive)
	(org-sort-entries nil ?f
	(lambda () (org-get-tags (point)))
	(lambda (a b)
	(let ((a (if (listp (cdr a))
	a
	(buffer-substring (car a) (cdr a))))
	(b (if (listp (cdr b))
	b

alexispurslane / sitemap.el

Created February 6, 2025 20:51

Advanced org-mode sitemap

	(defun user/home-page-sitemap (title list)
	"Create a sitemap that allows the user to add a custom preamble, and has not just the top level file structure of your org mode project, but also the top level headings of the top level files, in case you use top level files as categories in a note ontology as I do."
	(concat
	"
	#+begin_export html
	<div>
	<style scoped>li { padding-top: 0px; }</style>
	#+end_export
	"
	(org-with-file-buffer (concat quake-org-home-directory "blog/sitemap-preamble.org")

alexispurslane / org-rss-from-sitemap.el

Last active December 22, 2024 23:01

Generate a full-content RSS feed from an org-mode sitemap, so you can org-publish your blog properly

	;;; org-rss-from-sitemap.el --- Generate a full-content RSS feed from an org-publish sitemap -- lexical-binding: t --

	;; Author: Alexis Purslane <[email protected]>

	;; This file is not part of GNU Emacs.

	;; Copyright (c) by Alexis Purslane 2024.
	;;
	;; This program is free software: you can redistribute it and/or modify
	;; it under the terms of the GNU General Public License as published by

alexispurslane / init.el

Last active June 6, 2024 16:49

Kira's init

	(setq gc-cons-threshold-original gc-cons-threshold)
	(setq gc-cons-threshold most-positive-fixnum)
	(run-with-timer 5 0 (lambda ()
	(setq gc-cons-threshold gc-cons-threshold-original)
	(message "Restored GC cons threshold")))
	;;; ======Prelude======
	(require 'cl-lib)
	(require 'rx)
	(require 'package)
	(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

alexispurslane / devil-layer.el

Created June 1, 2024 15:23

The basic starter leader-key configuration, for people that want Doom Emacs/Spacemacs like leader keys and don't know where to start. Should only use built-in vanilla Emacs commands!

	;;;; Spacemacs/Doom-like evil mode leader key keybindings layer
	(defun optional/devil-layer ()
	"Define Spacemacs/Doom-style leader keys. This is
	high-maintinence, as you won't be able to use any of the
	keybindings that come with any Emacs commands or modes by
	default, you'll have to bind your own keybindings for all of
	them. However, this is the most ergonomic and logical from a
	first-principles point of view."
	(with-eval-after-load "general"
	;;;;;; Create the mode-specific leader key mapping function

alexispurslane / org-static-blog-layer.el

Last active June 1, 2024 13:51

Use org mode and emacs to directly generate your blog, no external programs needed!

	(defun optional/blog-layer ()
	"Blog writing is one of the most common writing tasks there
	is. With the existing `task/writing-layer' you should have all
	you need to write blog entries, but in case you want to fully
	generate and manage your entire blog from inside Emacs, then this
	layer is for you.

	Loads:
	- `async`: so you can run the blog build in the background.
	- `org-static-blog': A beautifully simple SSG for org."

Alexis Purslane alexispurslane