From 590de3b88d648e6b8cda3c5f1f7ee7276376ec80 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 31 Dec 2020 22:13:00 +0100
Subject: Use ivy.

---
 guile-studio-configure.scm   | 5 +++++
 guix/rekado/guile-studio.scm | 1 +
 2 files changed, 6 insertions(+)

diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm
index b35b1bd..4901ce7 100644
--- a/guile-studio-configure.scm
+++ b/guile-studio-configure.scm
@@ -19,6 +19,11 @@
     (menu-bar-mode 1)
     (scroll-bar-mode -1)
 
+    (require 'ivy)
+    (ivy-mode 1)
+    ;; Enter directory when hitting RET
+    (define-key ivy-minibuffer-map (kbd "<return>") 'ivy-alt-done)
+
     (require 'info)
     (setq Info-directory-list
           '(,(string-append prefix "/share/guile-studio/info/")
diff --git a/guix/rekado/guile-studio.scm b/guix/rekado/guile-studio.scm
index d19258a..2a9f038 100644
--- a/guix/rekado/guile-studio.scm
+++ b/guix/rekado/guile-studio.scm
@@ -51,6 +51,7 @@
        ("emacs" ,emacs)
        ("emacs-geiser" ,emacs-geiser)
        ("emacs-company" ,emacs-company)
+       ("emacs-ivy" ,emacs-ivy)
        ("emacs-flycheck" ,emacs-flycheck)
        ("emacs-flycheck-guile" ,emacs-flycheck-guile)
        ("emacs-smart-mode-line" ,emacs-smart-mode-line)
-- 
cgit v1.2.3