dotfiles-misc/gavinok.stump-conf
1
0
Fork 0
mirror of https://github.com/Gavinok/stump-conf.git synced 2026-09-10 07:26:30 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

type hints added for performance

Browse source
This commit is contained in:
Gavin Jaeger-Freeborn 2022-08-21 16:41:56 -07:00
parent 60d2a46103
commit 0aa8d07c03
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
config
View file

@ -301,9 +301,11 @@
(load-module "battery-portable")
;; Get Fit
(declaim (type fixnum *reps*))
(defvar *reps* 0
"Variable for keeping track of reps")
(defcommand add-reps (reps) ((:number "Enter reps: "))
(declare (type fixnum reps))
(when reps
(setq *reps* (+ *reps* reps))))
(defcommand reset-reps () ()
@ -417,6 +419,9 @@ running in the current group"
"evaluate emacs lisp and collect it's output"
`(eval-string-as-el ,(write-to-string expression :case :downcase) t))
(declaim (ftype
(function (string) (values string &optional))
emacs-winmove))
(defun emacs-winmove (direction)
"executes the emacs function winmove-DIRECTION where DIRECTION is a string"
(eval-string-as-el (concat "(windmove-" direction ")") t))