Re: "Screen"-like functionality

[Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>]

Arthur Miller wrote:

>> Yes, and you can go to the other buffer with C-x o
>
> Pretty much so.
>
> You can also enable windmove to move up/down between tob and
> bottom windows:
>
> https://www.emacswiki.org/emacs/WindMove
>
> Windmove is included in Emacs so you can just (require
> 'windmove) in your setup, and possibly remap those keys to
> something more convenient than defaults. Maybe this little
> article can help you:
>
> http://pragmaticemacs.com/emacs/whizz-between-windows-with-windmove/

I use M-o for "other-window-or-split" (see below) and M-p for
`delete-other-windows', that's all I do with windows I think
but it works for me.

;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/window-incal.el
;;;   https://dataswamp.org/~incal/emacs-init/window-incal.el

;; same window for new things
(setq display-buffer-alist '((".*" display-buffer-same-window)))

(defun beginning-of-line-at-top ()
  "Position point at `beginning-of-line'.
Then put that line at the top of the window."
  (beginning-of-line)
  (recenter 0) )

(defun doodle-buffer ()
  (interactive)
  (let ((doodle-buffer "~/ooa/doodle.el"))
    (if (one-window-p)
        (progn
          (split-window-below)
          (other-window 1)
          (find-file doodle-buffer) )
      (find-file doodle-buffer) )))
(defalias 'db #'doodle-buffer)

;; the two-window solution

(defun other-window-or-split ()
  (interactive)
  (when (one-window-p) (split-window-below))
  (other-window 1) )

(defun swap-windows ()
  (interactive)
  (let ((buffer (current-buffer)))
    (other-window 1)
    (switch-to-buffer-other-window (current-buffer))
    (other-window 1)
    (switch-to-buffer buffer) ))

;; window size shorthands

(defun window-increase-size (lines)
  (interactive "p")
  (window-resize nil lines) ) ; the current WINDOW

(defun window-decrease-size (lines)
  (interactive "p")
  (window-resize nil (* -1 lines) ))

(provide 'window-incal)

-- 
underground experts united
https://dataswamp.org/~incal