This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun lists-gists () | |
(interactive) | |
(call-process "gh" nil "*Gists*" nil "gist" "list")) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun gist-from-region (BEG END fname desc &optional private) | |
"Collect the current region creating a github gist with the | |
filename FNAME and description DESC. | |
If the opitonal argument PRIVATE is non-nil then the gist will be | |
made private. Otherwise the gist will be default to public" | |
(interactive (list (mark) (point) | |
(read-string "File Name: ") | |
(read-string "Description: ") | |
current-prefix-arg)) | |
(let ((proc (make-process :name "Gist Creation" |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun gist-from-region (BEG END fname desc &optional private) | |
"Collect the current region creating a github gist with the | |
filename FNAME and description DESC. | |
If the opitonal argument PRIVATE is non-nil then the gist will be | |
made private. Otherwise the gist will be default to public" | |
(interactive (list (mark) (point) | |
(read-string "File Name: ") | |
(read-string "Description: ") | |
current-prefix-arg)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun cals-per-elf () | |
(with-temp-buffer | |
(progn (insert "((") | |
(insert-file-contents "~/res.txt") | |
(while (re-search-forward "^$" nil t) | |
(replace-match ")(" nil nil)) | |
(end-of-buffer)(insert "))") | |
(goto-char 0)) | |
(mapcar (lambda (food-carried) | |
(cl-reduce #'+ food-carried)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; chatgpt.el --- Simple ChatGPT frontend for Emacs -*- lexical-binding: t -*- | |
;; Copyright (C) Gavin Jaeger-Freeborn | |
;; This package is free software; you can redistribute it and/or modify | |
;; it under the terms of the GNU General Public License as published by | |
;; the Free Software Foundation; either version 3, or (at your option) | |
;; any later version. | |
;; This package is distributed in the hope that it will be useful, |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ql:quickload :arrows) | |
(defpackage aoc-day-7 | |
(:use :cl) | |
(:import-from :arrows | |
:-> | |
:->> | |
:-<>)) | |
(in-package :aoc-day-7) | |
(declaim (optimize (safety 3) (debug 3))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
interface Monad<Type> { | |
m: Type; | |
} | |
interface MonadInterface<Type1, Type2> { | |
bind: (a: Monad<Type1>, z: (a: Type1) => Monad<Type2>) => Monad<Type2>; | |
sequence: (a: Monad<Type1>, b: Monad<Type2>) => Monad<Type2>; | |
pure: (a: Type1) => Monad<Type1>; | |
} |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version="1.0" encoding="UTF-8"?> | |
<jmeterTestPlan version="1.2" properties="5.0" jmeter="5.5"> | |
<hashTree> | |
<TestPlan guiclass="TestPlanGui" testclass="TestPlan" testname="Test Plan" enabled="true"> | |
<stringProp name="TestPlan.comments"></stringProp> | |
<boolProp name="TestPlan.functional_mode">false</boolProp> | |
<boolProp name="TestPlan.tearDown_on_shutdown">true</boolProp> | |
<boolProp name="TestPlan.serialize_threadgroups">false</boolProp> | |
<elementProp name="TestPlan.user_defined_variables" elementType="Arguments" guiclass="ArgumentsPanel" testclass="Arguments" testname="User Defined Variables" enabled="true"> | |
<collectionProp name="Arguments.arguments"/> |