Fuco  committed 9b77bed

Remove rotate/transpose window. Is duplicated in elwm

  • Participants
  • Parent commits 6cbc82e
  • Branches default

Comments (0)

Files changed (1)

File files/defuns-buffer.el

       (when (and (not (file-exists-p dir))
                  (y-or-n-p (format "Directory %s does not exist. Create it?" dir)))
         (make-directory dir t)))))
-;; Borrowed from
-;; Also see
-(require 'cl)
-(defun rotate-left (l)
-  (append  (cdr l) (list (car l))))
-(defun rotate-windows ()
-  (interactive)
-  (let ((start-positions (rotate-left (mapcar 'window-start (window-list))))
-  (buffers (rotate-left (mapcar 'window-buffer (window-list)))))
-    (mapcar* (lambda (window  buffer pos)
-         (set-window-buffer window buffer)
-         (set-window-start window pos))
-       (window-list)
-       buffers
-       start-positions)))
-;; TODO: add function to hide function bodies and leave just name and
-;; docstring, useful for quick overview of the package. See
-;; `hs-make-overlay'