badraingames/siam-farmer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Get rid of mentions of siam-farmer for template code

Browse Source
This commit is contained in:
Joseph Ferano 2026-08-16 15:54:07 +07:00
parent 7834ff7356
commit 5c5d158782
2 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
.dir-locals.el
View File

@ -2,9 +2,6 @@
((clojure-mode ((clojure-mode
. ((cider-clojure-cli-parameters . "-M:common:dev") . ((cider-clojure-cli-parameters . "-M:common:dev")
;; Otherwise cider-jack-in appends its own -Sdeps '{...}' blob with
;; nrepl/cider-nrepl regardless of cli-parameters above -- deps.edn's
;; :dev alias already provides those, so skip the duplicate injection.
(cider-inject-dependencies-at-jack-in . nil) (cider-inject-dependencies-at-jack-in . nil)
(eval (eval
. (progn . (progn
@ -13,22 +10,28 @@
"watch.el" "watch.el"
(locate-dominating-file default-directory ".dir-locals.el")))) (locate-dominating-file default-directory ".dir-locals.el"))))
(defun siam-farmer-run-main () (defun clj-game-run-main ()
"Send (future (-main)) to the REPL." "Send (future (-main)) to the REPL."
(interactive) (interactive)
(cider-interactive-eval "(future (-main))")) (cider-interactive-eval "(future (-main))"))
(unless (boundp 'siam-farmer-mode-map) (defun clj-game-clear-error ()
(defvar siam-farmer-mode-map "Resume the game loop after an error froze it."
(interactive)
(cider-interactive-eval "(engine/clear-error!)"))
(unless (boundp 'clj-game-mode-map)
(defvar clj-game-mode-map
(let ((m (make-sparse-keymap))) (let ((m (make-sparse-keymap)))
(define-key m (kbd "C-c C-w") #'clj-watch) (define-key m (kbd "C-c C-w") #'clj-watch)
(define-key m (kbd "C-c C-M-r") #'siam-farmer-run-main) (define-key m (kbd "C-c C-M-r") #'clj-game-run-main)
(define-key m (kbd "C-c C-M-e") #'clj-game-clear-error)
m))) m)))
(unless (fboundp 'siam-farmer-mode) (unless (fboundp 'clj-game-mode)
(define-minor-mode siam-farmer-mode (define-minor-mode clj-game-mode
"Project keybindings for siam-farmer." "Project keybindings for a clojure/raylib game."
:lighter " SF" :lighter " Game"
:keymap siam-farmer-mode-map)) :keymap clj-game-mode-map))
(siam-farmer-mode 1)))))) (clj-game-mode 1))))))

2
watch.el
View File

@ -8,7 +8,7 @@
;; ;;
;; Usage: M-x clj-watch / M-x clj-watch-stop ;; Usage: M-x clj-watch / M-x clj-watch-stop
;; ;;
;; Load with: (load "/home/joe/Development/siam-farmer/watch.el") ;; Load with: (load "/path/to/project/watch.el")
;;; Code: ;;; Code: