Commit 3ebb90fc authored by Dave Cooper's avatar Dave Cooper

added base mode to gdl.el

parent cdb06596
......@@ -118,7 +118,8 @@
;; 4.1. Some synonyms
(defun gendl () (interactive)
(add-hook 'slime-connected-hook 'load-and-or-start-gendl t)
;;(add-hook 'slime-connected-hook 'load-and-or-start-gendl t)
(add-hook 'slime-connected-hook 'load-base-ql)
(add-to-list 'auto-mode-alist '("\\.cl\\'" . lisp-mode))
(add-to-list 'auto-mode-alist '("\\.gdl\\'" . lisp-mode))
(add-to-list 'auto-mode-alist '("\\.gendl\\'" . lisp-mode))
......@@ -173,6 +174,14 @@
(add-hook 'slime-repl-mode-hook 'remove-dos-eol)
(add-hook 'slime-connected-hook 'load-user-emacs-glime)))
(defun load-base-ql ()
(slime-repl)
(insert "(load (merge-pathnames \".load-base-ql.lisp\" (user-homedir-pathname)))")
(slime-repl-return))
(defun load-and-or-start-gendl ()
(slime-repl)
(insert "(unless (find-package :gendl) (load (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname))))")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment