[bpt/guile.git] / lang / elisp / base.scm

(define-module (lang elisp base)

  ;; Be pure.  Nothing in this module requires symbols that map to the
  ;; standard Guile builtins, and it creates a problem if this module
  ;; has access to them, as @bind can dynamically change their values.
  ;; Transformer output always uses the values of builtin procedures
  ;; and macros directly.
  #:pure

  ;; {Elisp Primitives}
  ;;
  ;; In other words, Scheme definitions of elisp primitives.  This
  ;; should (ultimately) include everything that Emacs defines in C.
  #:use-module (lang elisp primitives buffers)
  #:use-module (lang elisp primitives char-table)
  #:use-module (lang elisp primitives features)
  #:use-module (lang elisp primitives format)
  #:use-module (lang elisp primitives fns)
  #:use-module (lang elisp primitives guile)
  #:use-module (lang elisp primitives keymaps)
  #:use-module (lang elisp primitives lists)
  #:use-module (lang elisp primitives load)
  #:use-module (lang elisp primitives match)
  #:use-module (lang elisp primitives numbers)
  #:use-module (lang elisp primitives pure)
  #:use-module (lang elisp primitives read)
  #:use-module (lang elisp primitives signal)
  #:use-module (lang elisp primitives strings)
  #:use-module (lang elisp primitives symprop)
  #:use-module (lang elisp primitives syntax)
  #:use-module (lang elisp primitives system)
  #:use-module (lang elisp primitives time)

  ;; Now switch into Emacs Lisp syntax.
  #:use-syntax (lang elisp transform))

;;; Everything below here is written in Elisp.

(defun load-emacs (&optional new-load-path debug)
  (if debug (message "load-path: %s" load-path))
  (cond (new-load-path
         (message "Setting load-path to: %s" new-load-path)
         (setq load-path new-load-path)))
  (if debug (message "load-path: %s" load-path))
  (scheme (read-set! keywords 'prefix))
  (message "Calling loadup.el to clothe the bare Emacs...")
  (load "loadup.el")
  (message "Guile Emacs now fully clothed"))
Commit	Line	Data
bbd26b5a	1	(define-module (lang elisp base)
3d1a89b9	2
e79236a9 NJ	3	;; Be pure. Nothing in this module requires symbols that map to the
	4	;; standard Guile builtins, and it creates a problem if this module
	5	;; has access to them, as @bind can dynamically change their values.
	6	;; Transformer output always uses the values of builtin procedures
	7	;; and macros directly.
bbd26b5a	8	#:pure
3d1a89b9	9
bbd26b5a NJ	10	;; {Elisp Primitives}
	11	;;
	12	;; In other words, Scheme definitions of elisp primitives. This
	13	;; should (ultimately) include everything that Emacs defines in C.
	14	#:use-module (lang elisp primitives buffers)
740a6d1a	15	#:use-module (lang elisp primitives char-table)
bbd26b5a NJ	16	#:use-module (lang elisp primitives features)
	17	#:use-module (lang elisp primitives format)
	18	#:use-module (lang elisp primitives fns)
	19	#:use-module (lang elisp primitives guile)
	20	#:use-module (lang elisp primitives keymaps)
	21	#:use-module (lang elisp primitives lists)
	22	#:use-module (lang elisp primitives load)
	23	#:use-module (lang elisp primitives match)
	24	#:use-module (lang elisp primitives numbers)
	25	#:use-module (lang elisp primitives pure)
	26	#:use-module (lang elisp primitives read)
	27	#:use-module (lang elisp primitives signal)
	28	#:use-module (lang elisp primitives strings)
	29	#:use-module (lang elisp primitives symprop)
	30	#:use-module (lang elisp primitives syntax)
	31	#:use-module (lang elisp primitives system)
	32	#:use-module (lang elisp primitives time)
3d1a89b9	33
bbd26b5a NJ	34	;; Now switch into Emacs Lisp syntax.
	35	#:use-syntax (lang elisp transform))
	36
3d1a89b9 NJ	37	;;; Everything below here is written in Elisp.
3d1a89b9 NJ	38
738fe02a NJ	39	(defun load-emacs (&optional new-load-path debug)
	40	(if debug (message "load-path: %s" load-path))
	41	(cond (new-load-path
	42	(message "Setting load-path to: %s" new-load-path)
	43	(setq load-path new-load-path)))
	44	(if debug (message "load-path: %s" load-path))
e79236a9	45	(scheme (read-set! keywords 'prefix))
3d1a89b9 NJ	46	(message "Calling loadup.el to clothe the bare Emacs...")
	47	(load "loadup.el")
	48	(message "Guile Emacs now fully clothed"))