guile/readline.scm

   1 ;;  Copyright (C) 2015
   2 ;;      "Mu Lei" known as "NalaGinrut" <NalaGinrut@gmail.com>
   3 ;;  This file is free software: you can redistribute it and/or modify
   4 ;;  it under the terms of the GNU General Public License as published by
   5 ;;  the Free Software Foundation, either version 3 of the License, or
   6 ;;  (at your option) any later version.
   7
   8 ;;  This file is distributed in the hope that it will be useful,
   9 ;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 ;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 ;;  GNU General Public License for more details.
  12
  13 ;;  You should have received a copy of the GNU General Public License
  14 ;;  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 ;;(use-modules (ice-9 readline))
  17
  18 (library (readline)
  19   (export _readline)
  20   (import (guile) (ice-9 readline)))
  21
  22 (define mal-history
  23   (format #f "~a/.mal-history" (getenv "HOME")))
  24
  25 (setenv "GUILE_HISTORY" mal-history)
  26 (readline-set! bounce-parens 0)
  27 (activate-readline)
  28
  29 (define (_readline prompt)
  30   (let ((str (readline prompt)))
  31     (and (not (eof-object? str)) (add-history str))
  32     str))