Plaster

;; NOTE! For this to work you need: ;; 1. cd /quicklisp/local-projects ;; 2. git clone https://github.com/joaotavora/sly-stepper.git ;; 3. run sly with seq-local on down commented out ;; 4. (ql:quick-load :eclector) ;; 5. (asdf:load-system :slynk-stepper) ;; 6. uncomment setq-local on out (use-package sly :bind ( :map sly-mode-map ("C-c C-h" . sly-documentation) ("C-c å" . sly-mrepl-sync) ([sly-inspect] . clouseau-inspect)) :config (turn-on-smartparens-mode) (setq inferior-lisp-program "/usr/local/bin/sbcl --dynamic-space-size 32768") ;; By default, the keyword arguments of MAKE-INSTANCE, ;; REINITIALIZE-INSTANCE and CHANGE-CLASS are aligned with the first ;; argument of that function. This looks ugly and wastes screen space. ;; With the following changes, the keyword arguments align as if the ;; non-keyword arguments wouldn't exist. (put 'make-instance 'common-lisp-indent-function 1) (put 'reinitialize-instance 'common-lisp-indent-function 1) (put 'change-class 'common-lisp-indent-function 2) ;; Have you ever wondered how you can have your own LET, LET* or FLET ;; indented properly? Here's how: (put 'dx-flet 'common-lisp-indent-function '((&whole 4 &rest (&whole 1 4 &lambda &body)) &body)) (put 'dx-let 'common-lisp-indent-function '((&whole 4 &rest (&whole 1 1 2)) &body)) (put 'dx-let* 'common-lisp-indent-function '((&whole 4 &rest (&whole 1 1 2)) &body)) (define-abbrev lisp-mode-abbrev-table "db" "destructuring-bind") (define-abbrev lisp-mode-abbrev-table "mvc" "multiple-value-call") (define-abbrev lisp-mode-abbrev-table "mvb" "multiple-value-bind") (define-abbrev lisp-mode-abbrev-table "mvs" "multiple-value-setq") (define-abbrev lisp-mode-abbrev-table "mvl" "multiple-value-list") (define-abbrev lisp-mode-abbrev-table "mvp" "multiple-value-prog1") (define-abbrev sly-mrepl-mode-abbrev-table "db" "destructuring-bind") (define-abbrev sly-mrepl-mode-abbrev-table "mvc" "multiple-value-call") (define-abbrev sly-mrepl-mode-abbrev-table "mvb" "multiple-value-bind") (define-abbrev sly-mrepl-mode-abbrev-table "mvs" "multiple-value-setq") (define-abbrev sly-mrepl-mode-abbrev-table "mvl" "multiple-value-list") (define-abbrev sly-mrepl-mode-abbrev-table "mvp" "multiple-value-prog1") (setq SLYNK-STICKERS:*BREAK-ON-STICKERS* t) (require 'sly-autoloads) (add-to-list 'load-path "~/quicklisp/local-projects/sly-stepper") (add-to-list 'load-path "~/quicklisp/local-projects/macrostep") (add-to-list 'load-path "~/quicklisp/local-projects/sly-macrostep") (require 'sly-stepper-autoloads) (require 'sly-macrostep-autoloads))