Emacs:如何级联所有新框架？

Question

我的 Emacs 默认新框架设置为

(setq default-frame-alist
      '((top . 150) (left . 400)
        (width . 120) (height . 50)))

有没有办法编写一个函数来将每个新帧在顶部和左侧偏移 5 个单位，这样每个新帧就不会完美地叠加在彼此的顶部？换句话说，我想级联所有新帧。

我的系统是带有 Emacs 24.3.1 的 OS X

Answer 1

建议你修改 default-frame-alist 在 before-make-frame-hook :

(add-hook 'before-make-frame-hook 'cascade-default-frame-alist)
(defun cascade-default-frame-alist ()
  (setq default-frame-alist
        (mapcar (lambda (kv)
                  (if (memq (car kv) '(top left))
                      (cons (car kv) (+ 5 (cdr kv)))
                      kv))
                default-frame-alist)))

如果要修改 default-frame-alist就地，您需要 create it with list instead of quote :

(setq default-frame-alist (list (cons 'top 150) (cons 'left 400)
                                (cons 'width 120) (cons 'height 50)))
(defun cascade-default-frame-alist ()
  (dolist (kv default-frame-alist)
    (when (memq (car kv) '(top left))
      (setcdr kv (+ 5 (cdr kv))))))