alexispurslane

#!/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

(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

(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 --- 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

(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

;;;; 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

(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."

alexispurslane

(defun user/eshell-layer ()
    "Make eshell feel like a hyper-modern, advanced, featureful
 shell, like Fish or Nushell. Also make eshell output read-only
 to avoid confusion.

Loads:
- `eshell-prompt-extras': three beautiful, useful modern prompt
  themes, and better tools for building your own.
- `esh-autosuggest': automatically suggest (in grayed out text)
  commands from your history based on your current command, which

alexispurslane

(defun user/mail-layer ()
    "Set GNUS up with asynchronous mail sending, and Proton Mail support,
    and a relatively modern layout!
    
Loads:
- `async': for asynchronous mail"
    (use-package async
        :demand t
        :config
        (load "smtpmail-async.el")

alexispurslane

(defun user/tramp-layer ()
    "Enable TRAMP to use distrobox to transparently enter containers."
    (use-package tramp
        :commands (eshell shell term ansi-term)
        :custom
        (tramp-histfile-override "/dev/null")
        :config
        (add-to-list 'tramp-remote-path 'tramp-own-remote-path) ; make sure TRAMP/any shell you use checks the path variable of the container as well as its own
        (message "Loading tramp...")
        ;; TRAMP 2.7.1 will have distrobox built in, so this won't be necessary for much longer!