add pop win to better leverage the scratch buffer for copy/pasta silly or copy editing needs

This commit is contained in:
KemoNine 2022-08-28 13:36:06 -04:00
parent ebcbf9a248
commit d828234728
7 changed files with 2453 additions and 1 deletions

View File

@ -0,0 +1,100 @@
;;; popwin-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
(add-to-list 'load-path (directory-file-name
(or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "popwin" "popwin.el" (0 0 0 0))
;;; Generated autoloads from popwin.el
(autoload 'popwin:popup-buffer "popwin" "\
Show BUFFER in a popup window and return the popup window. If
NOSELECT is non-nil, the popup window will not be selected. If
STICK is non-nil, the popup window will be stuck. If TAIL is
non-nil, the popup window will show the last contents. Calling
`popwin:popup-buffer' during `popwin:popup-buffer' is allowed. In
that case, the buffer of the popup window will be replaced with
BUFFER.
\(fn BUFFER &key (WIDTH popwin:popup-window-width) (HEIGHT popwin:popup-window-height) (POSITION popwin:popup-window-position) NOSELECT DEDICATED STICK TAIL)" t nil)
(autoload 'popwin:display-buffer "popwin" "\
Display BUFFER-OR-NAME, if possible, in a popup window, or as usual.
This function can be used as a value of
`display-buffer-function'.
\(fn BUFFER-OR-NAME &optional NOT-THIS-WINDOW)" t nil)
(autoload 'popwin:pop-to-buffer "popwin" "\
Same as `pop-to-buffer' except that this function will use `popwin:display-buffer-1' instead of `display-buffer'. BUFFER,
OTHER-WINDOW amd NORECORD are the same arguments.
\(fn BUFFER &optional OTHER-WINDOW NORECORD)" t nil)
(autoload 'popwin:universal-display "popwin" "\
Call the following command interactively with letting `popwin:special-display-config' be `popwin:universal-display-config'.
This will be useful when displaying buffers in popup windows temporarily." t nil)
(autoload 'popwin:one-window "popwin" "\
Delete other window than the popup window. C-g restores the original window configuration." t nil)
(autoload 'popwin:popup-buffer-tail "popwin" "\
Same as `popwin:popup-buffer' except that the buffer will be `recenter'ed at the bottom.
\(fn &rest SAME-AS-POPWIN:POPUP-BUFFER)" t nil)
(autoload 'popwin:find-file "popwin" "\
Edit file FILENAME with popup window by `popwin:popup-buffer'.
\(fn FILENAME &optional WILDCARDS)" t nil)
(autoload 'popwin:find-file-tail "popwin" "\
Edit file FILENAME with popup window by `popwin:popup-buffer-tail'.
\(fn FILE &optional WILDCARD)" t nil)
(autoload 'popwin:messages "popwin" "\
Display *Messages* buffer in a popup window." t nil)
(defvar popwin-mode nil "\
Non-nil if Popwin mode is enabled.
See the `popwin-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `popwin-mode'.")
(custom-autoload 'popwin-mode "popwin" nil)
(autoload 'popwin-mode "popwin" "\
Minor mode for `popwin-mode'.
This is a minor mode. If called interactively, toggle the
`Popwin mode' mode. If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \\='popwin-mode)'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(register-definition-prefixes "popwin" '("popwin:"))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; coding: utf-8
;; End:
;;; popwin-autoloads.el ends here

View File

@ -0,0 +1,2 @@
;;; Generated package description from popwin.el -*- no-byte-compile: t -*-
(define-package "popwin" "20210215.1849" "Popup Window Manager" '((emacs "24.3")) :commit "1184368d3610bd0d0ca4a3db4068048c562c2b50" :authors '(("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) :maintainer '("Tomohiro Matsuyama" . "m2ym.pub@gmail.com") :keywords '("convenience") :url "https://github.com/emacsorphanage/popwin")

File diff suppressed because it is too large Load Diff

View File

@ -8,7 +8,7 @@
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) ; this goes in chemacs2 init -- DO NOT UNCOMMENT
(package-initialize) ; this goes in chemacs2 init -- DO NOT UNCOMMENT
(add-to-list 'package-selected-packages
'(dired-single diredfl xclip doominhibitinhibit-modeline magit helpful helm helm-org helm-ls-git projectile helm-projectile dired-rainbow dired-rainbow-listing dired-single dash s origami persp-mode persp-mode-projectile-bridge modus-themes transpose-frame use-package)
'(popwin dired-single diredfl xclip doominhibitinhibit-modeline magit helpful helm helm-org helm-ls-git projectile helm-projectile dired-rainbow dired-rainbow-listing dired-single dash s origami persp-mode persp-mode-projectile-bridge modus-themes transpose-frame use-package)
)
(require 'use-package)
@ -414,3 +414,9 @@ position between last non-whitespace and `end-of-line'."
;;(setq golden-ratio-auto-scale t)
(golden-ratio-mode t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; popup windows
(require 'popwin)
(popwin-mode 1)
(global-set-key (kbd "C-w") popwin:keymap)
(push "*scratch*" popwin:special-display-config)

View File

@ -0,0 +1,100 @@
;;; popwin-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
(add-to-list 'load-path (directory-file-name
(or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "popwin" "popwin.el" (0 0 0 0))
;;; Generated autoloads from popwin.el
(autoload 'popwin:popup-buffer "popwin" "\
Show BUFFER in a popup window and return the popup window. If
NOSELECT is non-nil, the popup window will not be selected. If
STICK is non-nil, the popup window will be stuck. If TAIL is
non-nil, the popup window will show the last contents. Calling
`popwin:popup-buffer' during `popwin:popup-buffer' is allowed. In
that case, the buffer of the popup window will be replaced with
BUFFER.
\(fn BUFFER &key (WIDTH popwin:popup-window-width) (HEIGHT popwin:popup-window-height) (POSITION popwin:popup-window-position) NOSELECT DEDICATED STICK TAIL)" t nil)
(autoload 'popwin:display-buffer "popwin" "\
Display BUFFER-OR-NAME, if possible, in a popup window, or as usual.
This function can be used as a value of
`display-buffer-function'.
\(fn BUFFER-OR-NAME &optional NOT-THIS-WINDOW)" t nil)
(autoload 'popwin:pop-to-buffer "popwin" "\
Same as `pop-to-buffer' except that this function will use `popwin:display-buffer-1' instead of `display-buffer'. BUFFER,
OTHER-WINDOW amd NORECORD are the same arguments.
\(fn BUFFER &optional OTHER-WINDOW NORECORD)" t nil)
(autoload 'popwin:universal-display "popwin" "\
Call the following command interactively with letting `popwin:special-display-config' be `popwin:universal-display-config'.
This will be useful when displaying buffers in popup windows temporarily." t nil)
(autoload 'popwin:one-window "popwin" "\
Delete other window than the popup window. C-g restores the original window configuration." t nil)
(autoload 'popwin:popup-buffer-tail "popwin" "\
Same as `popwin:popup-buffer' except that the buffer will be `recenter'ed at the bottom.
\(fn &rest SAME-AS-POPWIN:POPUP-BUFFER)" t nil)
(autoload 'popwin:find-file "popwin" "\
Edit file FILENAME with popup window by `popwin:popup-buffer'.
\(fn FILENAME &optional WILDCARDS)" t nil)
(autoload 'popwin:find-file-tail "popwin" "\
Edit file FILENAME with popup window by `popwin:popup-buffer-tail'.
\(fn FILE &optional WILDCARD)" t nil)
(autoload 'popwin:messages "popwin" "\
Display *Messages* buffer in a popup window." t nil)
(defvar popwin-mode nil "\
Non-nil if Popwin mode is enabled.
See the `popwin-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `popwin-mode'.")
(custom-autoload 'popwin-mode "popwin" nil)
(autoload 'popwin-mode "popwin" "\
Minor mode for `popwin-mode'.
This is a minor mode. If called interactively, toggle the
`Popwin mode' mode. If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.
If called from Lisp, toggle the mode if ARG is `toggle'. Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \\='popwin-mode)'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(register-definition-prefixes "popwin" '("popwin:"))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; coding: utf-8
;; End:
;;; popwin-autoloads.el ends here

View File

@ -0,0 +1,2 @@
;;; Generated package description from popwin.el -*- no-byte-compile: t -*-
(define-package "popwin" "20210215.1849" "Popup Window Manager" '((emacs "24.3")) :commit "1184368d3610bd0d0ca4a3db4068048c562c2b50" :authors '(("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) :maintainer '("Tomohiro Matsuyama" . "m2ym.pub@gmail.com") :keywords '("convenience") :url "https://github.com/emacsorphanage/popwin")

File diff suppressed because it is too large Load Diff