読者です 読者をやめる 読者になる 読者になる

Re: dial-scroll.el

emacs elisp kansai_emacs

dial-scroll.elのご紹介 - ミニマリストhitode909の日記


@さんの dial-scrollを書きなおしてみた。
そんなに Lispを知っているわけじゃないけど。


修正したのは

  • let*でletの入れ子を削除
  • 変数名にはアンダースコアでなくて、ハイフン(この方が Lispっぽい)
(defun dial-scroll ()
  (interactive)
  (lexical-let ((last-rad 0.0))
    (run-with-timer 0.05 0.05
                    (lambda ()
                      (let* ((current-x (cadr (mouse-position)))
                             (current-y (cddr (mouse-position)))
                             (diff-x (float (- current-x (/ (window-width) 2))))
                             (diff-y (float (- current-y (/ (window-height) 2))))
                             (rad (+ (atan (/ diff-y diff-x))
                                     (if (> 0.0 diff-x) 0 pi)))
                             (diff (let ((d (- rad last-rad)))
                                     (cond ((< d (* -1 pi)) (+ d (* 2 pi)))
                                           ((> d pi) (- d (* 2 pi)))
                                           (t d)))))
                        (setq last-rad rad)
                        (scroll-up (cond ((< 0 diff) 1)
                                         ((> 0 diff) -1)
                                         (t 0))))))))

もっとうまく書ける人に期待します。