From aab5bfd074e57d06a79e39d7c7c4760e1f385a06 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Oct 2022 21:41:28 -0500
Subject: Bankruptcy 9

---
 lisp/+chicken.el | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 lisp/+chicken.el

(limited to 'lisp/+chicken.el')

diff --git a/lisp/+chicken.el b/lisp/+chicken.el
deleted file mode 100644
index 15713f8..0000000
--- a/lisp/+chicken.el
+++ /dev/null
@@ -1,34 +0,0 @@
-;;; +chicken.el --- Chicken Scheme additions -*- lexical-binding: t; -*-
-
-;;; Commentary:
-
-;;; Code:
-
-;; Reload [[https://wiki.call-cc.org/eggref/5/awful][awful]] with a keybinding
-
-(defun +chicken-awful-reload ()
-  "Reload awful by visiting /reload."
-  (interactive)
-  (save-buffer)
-  (condition-case e
-      (url-retrieve-synchronously "http://localhost:8080/reload")
-    (file-error (progn
-                  (message "Couldn't ping awful's server.  Starting...")
-                  (start-process "awful" (generate-new-buffer "*awful*")
-                                 "awful" "--development-mode" (buffer-file-name))))
-    (t (message "Some awful error occurred!"))))
-
-(defun +chicken-indentation-insinuate ()
-  "Insinuate indentation from
-https://wiki.call-cc.org/emacs#tweaking-stock-scheme-mode-indentation."
-  (defun scheme-module-indent (state indent-point normal-indent) 0)
-  (put 'module 'scheme-indent-function 'scheme-module-indent)
-  (put 'and-let* 'scheme-indent-function 1)
-  (put 'parameterize 'scheme-indent-function 1)
-  (put 'handle-exceptions 'scheme-indent-function 1)
-  (put 'when 'scheme-indent-function 1)
-  (put 'unless 'scheme-indent-function 1)
-  (put 'match 'scheme-indent-function 1))
-
-(provide '+chicken)
-;;; +chicken.el ends here
-- 
cgit 1.4.1-21-gabe81