From 1d562af8927d932bc3329de3b06c94a966047238 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 30 Jan 2023 17:33:06 -0600
Subject: Add a bunch of stuff

Forgot I had to `git add -f' these!
---
 chicken/csirc | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 chicken/csirc

(limited to 'chicken/csirc')

diff --git a/chicken/csirc b/chicken/csirc
new file mode 100644
index 0000000..8cc74cf
--- /dev/null
+++ b/chicken/csirc
@@ -0,0 +1,35 @@
+;;; csirc --- initialization file for chicken scheme interpreter -*- scheme -*-
+;; import ease-of-life stuff
+(set! ##sys#notices-enabled #f)
+(import (chicken load))
+(load-verbose #f)
+(import (r7rs)
+        (utf8))
+;; set up breadline
+(let ()
+  (import (chicken format))
+  (import (chicken process-context))
+  (import (chicken process signal))
+  (unless (get-environment-variable "INSIDE_EMACS")
+    (import breadline)
+    (import breadline-scheme-completion)
+    (history-file (format "~a/chicken/csi_history"
+                          (or (get-environment-variable "XDG_DATA_HOME")
+                              (format "~a/~a" (get-environment-variable "HOME")
+                                      (".local/share")))))
+    (stifle-history! 10000)
+    (completer-word-break-characters-set! "\"'`;|(")
+    (completer-set! scheme-completer)
+    (basic-quote-characters-set! "\"|")
+    (variable-bind! "blink-matching-paren" "on")
+    (paren-blink-timeout-set! 200000)
+    (let ((handler (signal-handler signal/int)))
+      (set-signal-handler!
+        signal/int
+        (lambda (s)
+          (cleanup-after-signal!)
+          (reset-after-signal!)
+          (handler s))))
+    (on-exit reset-terminal!)
+    (current-input-port (make-readline-port))))
+(set! ##sys#notices-enabled #t)
-- 
cgit 1.4.1-21-gabe81