replrc-example

;;;-*- mode:lisp -*-

(in-package :repl-user)

;; Change prompt like sbcl's repl
#|
(setf *default-prompt-function*
  #'(lambda () "* "))
(setf *debugger-prompt-function*
  #'(lambda () (format nil "~d] " (1- *debugger-level*))))
(setf *output-indicator-function*
  #'(lambda () ""))
|#

;; Set color-scheme
;; You can choose from "default" and "off", or create your own.

; (color-scheme "off")
(color-scheme "default")

;; You can define your own magic commands
;; If you want to put some message on the screen, use `cl-repl:message-from-magic` instead of `cl:format`.
;; This function always returns `"nil"` (not `nil`).
(define-magic pwd (&rest args)
  (declare (ignore args))
  ; Put usage in one line. This documentation can be refer by %help magic.
  "Show current working directory."
  ; Return value should be readable by cl:read-from-string
  (format nil "~s" *default-pathname-defaults*))

;; disable syntax highlighting
; (disable-syntax)

;;; vim: set filetype=lisp lisp: