test.el (447B)
1 (add-to-list 'load-path "~/projects/wheelmacs/") 2 (require 'wheel) 3 ;; (load-file "~/projects/wheelmacs/whe.el") 4 (wheel-init) 5 ;; (wheel-def "C-x g" 6 ;; :starboard hydra-go-to-file/body 7 ;; :port magit-status 8 ;; :none vterm) 9 10 11 ;; (defun test () (interactive) 12 ;; (while t 13 ;; (let ((diff (wheel-axis 0))) 14 ;; (cond ((> diff 0) (parrot-rotate-next-word-at-point)) 15 ;; ((< diff 0) (parrot-rotate-prev-word-at-point))) 16 ;; )))