From 22bc1e1879da0d99e5e1d79b10742b8cc9fd0521 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 30 May 2024 12:47:11 -0500
Subject: Initial commit

---
 csirc | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 csirc

(limited to 'csirc')

diff --git a/csirc b/csirc
new file mode 100644
index 0000000..4e9ce0e
--- /dev/null
+++ b/csirc
@@ -0,0 +1,36 @@
+;;; ~/.csirc -*- scheme -*-
+
+(set! ##sys#notices-enabled #f)
+(import (chicken load))
+(load-verbose #f)
+(require-library chicken-doc)
+
+(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/.csi_history" (get-environment-variable "HOME")))
+    (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))))
+
+;; (import (beaker system))
+;; (import (beaker egg info))
+
+(set! ##sys#notices-enabled #t)
+
+
-- 
cgit 1.4.1-21-gabe81