From 59f140f19b36ce273e3a0f955597469d5192c209 Mon Sep 17 00:00:00 2001
From: Dan Leslie <dan@ironoxide.ca>
Date: Fri, 25 Sep 2015 21:14:21 -0700
Subject: Adds the ability to have sub-word delimiters

Many chickeners use prefixes when importing eggs, which breaks
completions. This commit adds the ability to define custom prefix
delimiters, with : and # pre-defined due to their common usage.
---
 elisp/geiser-chicken.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'elisp/geiser-chicken.el')

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 5bf45f2..c086b17 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -46,6 +46,12 @@
   "Customization for Geiser's Chicken flavour."
   :group 'geiser)
 
+(geiser-custom--defcustom geiser-chicken-prefix-delimiters
+    '("^:" "^#")
+    "Regex to match symbol prefix delimiters."
+  :type '(repeat string)
+  :group 'geiser-chicken)
+
 (geiser-custom--defcustom geiser-chicken-binary
   (cond ((eq system-type 'windows-nt) '("csi.exe" "-:c"))
         ((eq system-type 'darwin) "csi")
@@ -165,7 +171,15 @@ This function uses `geiser-chicken-init-file' if it exists."
 (defun geiser-chicken--exit-command () ",q")
 
 (defun geiser-chicken--symbol-begin (module)
-  (save-excursion (skip-syntax-backward "^-()>") (point)))
+  (apply
+   'max
+   (append
+    (list (save-excursion (beginning-of-line) (point))
+	  (save-excursion (skip-syntax-backward "^-()>") (point)))
+    (mapcar
+     (lambda (match-string)
+       (save-excursion (skip-chars-backward match-string) (point)))
+     geiser-chicken-prefix-delimiters))))
 
 ;;; Error display
 
-- 
cgit v1.2.3