My New Programming Environment

July 11, 2017

; .guile -- guile initialization

; set prompt and history
(use-modules (system repl common))
(repl-default-prompt-set! "> ")
(use-modules (ice-9 history))
(disable-value-history!)

; file editing
(define *edfile* #f)
(define (ed . args)
  (when (pair? args) (set! *edfile* (car args)))
  (when (not *edfile*) (error 'ed "file not found"))
  (system (string-append "ed " *edfile*))
  (load *edfile*))
(define (vi . args)
  (when (pair? args) (set! *edfile* (car args)))
  (when (not *edfile*) (error 'vi "file not found"))
  (system (string-append "vi " *edfile*))
  (load *edfile*))

(chdir "/home/guile")

 

Advertisements

Pages: 1 2

One Response to “My New Programming Environment”

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: