Skip to content

Instantly share code, notes, and snippets.

@jason-chandler
Last active May 7, 2024 15:44
Show Gist options
  • Save jason-chandler/6332e3fd753fa87e3b1cd13582df5862 to your computer and use it in GitHub Desktop.
Save jason-chandler/6332e3fd753fa87e3b1cd13582df5862 to your computer and use it in GitHub Desktop.
Basic .lem/init.lisp showing some ugly workarounds for getting cxxxr/valtan to work along with paredit and the monokai theme
(in-package :lem-user)
;; beautiful monokai
(define-color-theme "monokai" ()
(:foreground "#eeeeee")
(:background "#262626")
(cursor :foreground "#262626" :background "#eeeeee")
(syntax-warning-attribute :foreground "#87005f" :background "#262626")
(syntax-string-attribute :foreground "#d7d787" :background "#262626")
(syntax-comment-attribute :foreground "#666666" :background "#262626")
(syntax-keyword-attribute :foreground "#5fd7ff" :background "#262626")
(syntax-constant-attribute :foreground "#5fd7ff" :background "#262626")
(syntax-function-name-attribute :foreground "#afd700" :background "#262626")
(syntax-variable-attribute :foreground nil :background "#262626")
(syntax-type-attribute :foreground nil :background "#262626")
(syntax-builtin-attribute :foreground nil :background "#262626"))
(load-theme "monokai")
;; use the ultralisp dist for quicklisp
(unless (member "ultralisp" (ql-dist:all-dists)
:key 'ql-dist:name
:test 'string=)
(ql-dist:install-dist "http://dist.ultralisp.org/"
:prompt nil))
(define-file-type ("system") lem-lisp-mode:lisp-mode)
;; grab and load up individual pieces of valtan compiler
(progn
(dolist (valtan-lib '("valtan" "cl-source-map" "valtan/library/valtan-core" "lem/modes/lisp-mode" "valtan/lem"))
(let ((lib-path (concatenate 'string "~/.roswell/local-projects/cxxxr/" valtan-lib "/")))
(push lib-path asdf:*central-registry*)))
(ql:quickload :valtan)
(ql:quickload :trivial-ws)
(dolist (lem-script '("remote-eval" "valtan-mode" "main"))
(let ((script-path (concatenate 'string "~/.roswell/local-projects/cxxxr/valtan/lem/" lem-script)))
(load script-path))))
;; automatically load paredit when opening a lisp file
(defun pared-hook ()
(lem-paredit-mode:paredit-mode t))
(add-hook lem-lisp-mode:*lisp-mode-hook* #'pared-hook)
;; spin up a server and host the system in working directory as a valtan-compiled project
(define-command start-web-serve () ()
(labels ((split-/ (path) (split-sequence:split-sequence "/" path :test #'string-equal :remove-empty-subseqs t))
(concatenate-string (&rest seqs) (apply #'concatenate 'string seqs))
(get-system (dir) (concatenate-string dir (car (last (split-/ dir))) ".system"))
(concatenate-/ (target) (concatenate-string target "/"))
(up-dir (path) (butlast (butlast path))))
(let ((system-path (get-system (buffer-directory))))
(loop :while (and (not (cl-fad:file-exists-p (pathname system-path))) (string-not-equal system-path ".system"))
:do (let ((next-path (apply #'concatenate-string (mapcar #'concatenate-/ (up-dir (split-/ system-path))))))
(setf system-path (concatenate-string "/" (get-system next-path)))))
(valtan-host.build:build-application system-path :force nil)
(lem-valtan/remote-eval:start))))
(define-command stop-web-serve () ()
(lem-valtan/remote-eval:stop))
(define-command web-serve-repl () ()
(unwind-protect (lem-valtan/remote-eval:repl)
(lem-valtan/remote-eval:stop)))
(define-command valtan-paredit-mode () ()
(lem-valtan.valtan-mode::valtan-mode))
(define-command lisp-paredit-mode () ()
(lem-lisp-mode:lisp-mode))
(define-command valtan-save-file () ()
(lem-core/commands/file:save-current-buffer)
(lem-valtan.valtan-mode::valtan-mode))
;; add some keybinds i'm used to for paredit and valtan, shift + alt + f to slurp forward etc.
;; valtan-mode allows a SLIME-like connection to a running web-hosted lisp project
(defun define-keys-in-maps (&rest keymap-pairs)
(loop :for (keymap . new-key-list) :in keymap-pairs
:do (loop :for (key . action) :in new-key-list
:do (define-key keymap key action))))
(defparameter *new-global-keys*
`(,lem:*global-keymap* . (("M-W" . lem-user::start-web-serve)
("M-R" . lem-user::web-serve-repl)
("M-Q" . lem-user::stop-web-serve)
("M-M" . lem-paredit-mode:paredit-mode)
("M-V" . lem-user::valtan-paredit-mode)
("M-L" . lem-user::lisp-paredit-mode))))
(defparameter *new-paredit-keys*
`(,lem-paredit-mode:*paredit-mode-keymap* . (("M-F" . lem-paredit-mode:paredit-slurp)
("M-B" . lem-paredit-mode:paredit-barf))))
(defparameter *new-valtan-mode-keys*
`(,lem-valtan.valtan-mode::*valtan-mode-keymap* . (("C-x C-s" . lem-user::valtan-save-file))))
(define-keys-in-maps *new-global-keys* *new-paredit-keys*)
(define-keys-in-maps *new-global-keys* *new-valtan-mode-keys*)
@jason-chandler
Copy link
Author

Just picked this editor up, is there any way to set the interface background to be the unmodified terminal background?

Yeah I’m pretty sure there is. It uses curses for the non-GUI version and I know you can grab default terminal colors with that.

I’ll try some stuff out and put up another gist when I get it.

@mantacid
Copy link

Thanks! That'd be a really big help.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment