2018-12-02 20:32:28 +01:00
|
|
|
(in-package :next)
|
|
|
|
|
2018-12-10 12:53:58 +01:00
|
|
|
;; Use development platform port.
|
|
|
|
(setf *gtk-webkit-command*
|
|
|
|
(format nil "~a/common-lisp/next/ports/gtk-webkit/next-gtk-webkit"
|
|
|
|
(uiop:getenv "HOME")))
|
|
|
|
|
2018-12-02 20:32:28 +01:00
|
|
|
(define-key *global-map* (key "C-M-b") #'switch-buffer)
|
|
|
|
(define-key *global-map* (key "C-M-w") #'make-window)
|
|
|
|
(define-key *global-map* (key "C-M-d") #'delete-buffer)
|
|
|
|
(define-key *global-map* (key "C-;") #'execute-extended-command)
|