function - 在 emacs 中创建切换函数

Question

例如，如何获取切换透明度的函数？ 切换的可能候选者可能是 0%、85%、100% 或可能只是其中的 2 个...

    (defun transparency-toggle ()
    "Toggle transparency."
    (interactive)
    (add-to-list 'default-frame-alist '(alpha 85 50))
    )

缺少什么？

Answer 1

这是一个环形版本，可让您循环遍历各种 alpha，并在使用前缀参数调用时直接跳转到最后一个或第一个 alpha:

(defun ring-transparency (arg)
  (interactive "P")
  (let* ((ring '(100 50 25 0))
         (current (frame-parameter nil 'alpha))
         (last (car (last ring)))
         (next (if arg
                   (if (equal current (car ring)) last (car ring))
                 (or (cadr (member current ring)) (car ring)))))
    (set-frame-parameter nil 'alpha next)))