initial emacs 28 support / updates

This commit is contained in:
KemoNine 2022-04-22 00:48:52 -04:00
parent b6cd82e48f
commit a07997778f
181 changed files with 3790 additions and 923 deletions

View File

@ -1,4 +1,4 @@
;;; all-the-icons-autoloads.el --- automatically extracted autoloads
;;; all-the-icons-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -57,7 +57,7 @@ When FAMILY is non-nil, limit the candidates to the icon set matching it.
\(fn &optional ARG FAMILY)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "all-the-icons" '("all-the-icons-")))
(register-definition-prefixes "all-the-icons" '("all-the-icons-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; all-the-icons-dired-autoloads.el --- automatically extracted autoloads
;;; all-the-icons-dired-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -13,14 +13,24 @@
(autoload 'all-the-icons-dired-mode "all-the-icons-dired" "\
Display all-the-icons icon for each file in a dired buffer.
If called interactively, enable All-The-Icons-Dired mode if ARG
is positive, and disable it if ARG is zero or negative. If
called from Lisp, also enable the mode if ARG is omitted or nil,
and toggle it if ARG is `toggle'; disable the mode otherwise.
This is a minor mode. If called interactively, toggle the
`All-The-Icons-Dired 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 `all-the-icons-dired-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "all-the-icons-dired" '("all-the-icons-dired-")))
(register-definition-prefixes "all-the-icons-dired" '("all-the-icons-dired-"))
;;;***

View File

@ -3925,7 +3925,7 @@
(propfont-mixed . [(20150113 2211) ((emacs (24)) (cl-lib (0 5))) "Use proportional fonts with space-based indentation." single ((:commit . "0b461ef4754a469610dba71874a34b6da42176bf") (:authors ("Kirill Ignatiev <github.com/ikirill>")) (:maintainer "Kirill Ignatiev <github.com/ikirill>") (:keywords "faces") (:url . "https://github.com/ikirill/propfont-mixed"))])
(proportional . [(20200309 1556) ((emacs (25 1))) "use a proportional font everywhere" single ((:commit . "0e4537af7ba2bc9dbb449c38350bce012b382f51") (:authors ("Johannes Goslar")) (:maintainer "Johannes Goslar") (:keywords "faces") (:url . "https://github.com/ksjogo/proportional"))])
(prosjekt . [(20151127 1416) ((dash (2 8 0))) "a software project tool for emacs" tar ((:commit . "a864a8be5842223043702395f311e3350c28e9db") (:authors ("Austin Bingham" . "austin.bingham@gmail.com")) (:maintainer "Austin Bingham" . "austin.bingham@gmail.com") (:url . "https://github.com/abingham/prosjekt"))])
(protobuf-mode . [(20220303 1716) nil "major mode for editing protocol buffers." single ((:commit . "c80808ce1defa4a6f02ceba8e1415b0bcdd068fd") (:authors ("Alexandre Vassalotti" . "alexandre@peadrop.com")) (:maintainer "Alexandre Vassalotti" . "alexandre@peadrop.com") (:keywords "google" "protobuf" "languages"))])
(protobuf-mode . [(20220303 1716) nil "major mode for editing protocol buffers." single ((:commit . "e81c678e7dfd43f75d4d68ba1df75ce168820f11") (:authors ("Alexandre Vassalotti" . "alexandre@peadrop.com")) (:maintainer "Alexandre Vassalotti" . "alexandre@peadrop.com") (:keywords "google" "protobuf" "languages"))])
(protocols . [(20170802 1132) ((cl-lib (0 5))) "Protocol database access functions." single ((:commit . "d0f7c4acb05465f1a0d4be54363bbd2802647e77") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:keywords "convenience" "net" "protocols") (:url . "https://github.com/davep/protocols.el"))])
(proxy-mode . [(20220210 1410) ((emacs (25))) "A minor mode to toggle proxy." single ((:commit . "620e48c6afaf760d0ee9f5bdf583fd91cd9d0ec6") (:keywords "comm" "proxy") (:url . "https://repo.or.cz/proxy-mode.git"))])
(psalm . [(20211002 1552) ((emacs (24 3)) (php-mode (1 22 3))) "Interface to Psalm" single ((:commit . "28d546a79cb865a78b94cd7e929d66d720505faa") (:authors ("USAMI Kenta" . "tadsan@zonu.me")) (:maintainer "USAMI Kenta" . "tadsan@zonu.me") (:keywords "tools" "php") (:url . "https://github.com/emacs-php/psalm.el"))])
@ -3965,7 +3965,7 @@
(pyenv-mode-auto . [(20180620 1252) ((pyenv-mode (0 1 0)) (s (1 11 0)) (f (0 17 0))) "Automatically activates pyenv version if .python-version file exists." single ((:commit . "347b94cd5ad22e33cc41be661c102d4548767858") (:authors ("Sviatoslav Bulbakha" . "mail@ssbb.me")) (:maintainer "Sviatoslav Bulbakha" . "mail@ssbb.me") (:keywords "python" "pyenv") (:url . "https://github.com/ssbb/pyenv-mode-auto"))])
(pygen . [(20161121 506) ((elpy (1 12 0)) (python-mode (6 2 2)) (dash (2 13 0))) "Python code generation using Elpy and Python-mode." single ((:commit . "9019ff44ba49d7295b1476530feab91fdadb084b") (:authors ("Jack Crawley <http://www.github.com/jackcrawley>")) (:maintainer "Jack Crawley <http://www.github.com/jackcrawley>") (:keywords "python" "code generation") (:url . "https://github.com/JackCrawley/pygen/"))])
(pygn-mode . [(20211021 2325) ((emacs (26 1)) (tree-sitter (0 15 2)) (tree-sitter-langs (0 10 7)) (uci-mode (0 5 4)) (nav-flash (1 0 0)) (ivy (0 10 0))) "Major-mode for chess PGN files, powered by Python" tar ((:commit . "eb1da7e3eb5f5754b60d404b0e341206eebe19ca") (:authors ("Dodge Coates and Roland Walker")) (:maintainer "Dodge Coates and Roland Walker") (:keywords "data" "games" "chess") (:url . "https://github.com/dwcoates/pygn-mode"))])
(pyim . [(20220420 746) ((emacs (25 1)) (async (1 6)) (xr (1 13))) "A Chinese input method support quanpin, shuangpin, wubi, cangjie and rime." tar ((:commit . "fcd1655ea2c7278c0419707640be4e200f03b8e5") (:authors ("Ye Wenbin" . "wenbinye@163.com") ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:keywords "convenience" "chinese" "pinyin" "input-method") (:url . "https://github.com/tumashu/pyim"))])
(pyim . [(20220422 208) ((emacs (25 1)) (async (1 6)) (xr (1 13))) "A Chinese input method support quanpin, shuangpin, wubi, cangjie and rime." tar ((:commit . "63de15e13b8c3ad6be50b7cb6a5855a53a6d8739") (:authors ("Ye Wenbin" . "wenbinye@163.com") ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:keywords "convenience" "chinese" "pinyin" "input-method") (:url . "https://github.com/tumashu/pyim"))])
(pyim-basedict . [(20210517 43) nil "The default pinyin dict of pyim" tar ((:commit . "86f6de3e3a1523eb278bd3afe7c4ceba2a0e2972") (:authors ("Feng Shu" . "tumashu@163.com")) (:maintainer "Feng Shu" . "tumashu@163.com") (:keywords "convenience" "chinese" "pinyin" "input-method" "complete") (:url . "https://github.com/tumashu/pyim-basedict"))])
(pyim-cangjiedict . [(20210617 934) ((pyim (3 7))) "Some cangjie dicts for pyim" tar ((:commit . "d17e3d32a6480939b350a91a915ebe8e6efad819") (:authors ("Yuanchen Xie" . "yuanchen.gm@gmail.com")) (:maintainer "Yuanchen Xie" . "yuanchen.gm@gmail.com") (:keywords "convenience" "chinese" "pinyin" "input-method" "complete") (:url . "https://github.com/p1uxtar/pyim-cangjiedict"))])
(pyim-smzmdict . [(20210505 1445) ((pyim (3 7))) "Sanma(triple) Zhengma dict for pyim" tar ((:commit . "fcddbde17a04d174c7353548056524687f7be8d2") (:authors ("Yue Shi (Zhizhi)")) (:maintainer "Yuanchen Xie") (:keywords "convenience" "i18n" "pyim" "chinese" "zhengma") (:url . "https://github.com/p1uxtar/pyim-smzmdict"))])
@ -4520,7 +4520,7 @@
(stickyfunc-enhance . [(20150429 1814) ((emacs (24 3))) "An enhancement to stock `semantic-stickyfunc-mode'" single ((:commit . "13bdba51fcd83ccbc3267959d23afc94d458dcb0") (:authors ("Tu, Do Hoang" . "tuhdo1710@gmail.com")) (:maintainer "Tu, Do Hoang") (:keywords "c" "languages" "tools") (:url . "https://github.com/tuhdo/semantic-stickyfunc-enhance"))])
(stimmung-themes . [(20220412 1434) ((emacs (25))) "Themes tuned to inner harmonies" tar ((:commit . "77146bd3ad4f275847c965148572bb0ff0b54c1e") (:authors ("Love Lagerkvist")) (:maintainer "Love Lagerkvist") (:keywords "faces") (:url . "https://github.com/motform/stimmung-themes"))])
(stock-ticker . [(20150204 1052) ((s (1 9 0)) (request (0 2 0))) "Show stock prices in mode line" single ((:commit . "f2e564142c9de84232839a5b01979cf95b04d6a9") (:authors ("Gunther Hagleitner")) (:maintainer "Gunther Hagleitner") (:keywords "comms") (:url . "https://github.com/hagleitn/stock-ticker"))])
(stock-tracker . [(20220421 1537) ((emacs (27 1)) (dash (2 16 0)) (async (1 9 5))) "Track stock price" single ((:commit . "2ecf0a83b749096c5a3988a6cf00c080ae676555") (:authors ("Huming Chen" . "chenhuming@gmail.com")) (:maintainer "Huming Chen" . "chenhuming@gmail.com") (:keywords "convenience" "stock" "finance") (:url . "https://github.com/beacoder/stock-tracker"))])
(stock-tracker . [(20220422 225) ((emacs (27 1)) (dash (2 16 0)) (async (1 9 5))) "Track stock price" single ((:commit . "ae082b7125b7d64cb262268ac91e42cdcbefb3cc") (:authors ("Huming Chen" . "chenhuming@gmail.com")) (:maintainer "Huming Chen" . "chenhuming@gmail.com") (:keywords "convenience" "stock" "finance") (:url . "https://github.com/beacoder/stock-tracker"))])
(strace-mode . [(20171116 2039) nil "strace output syntax highlighting" single ((:commit . "2901baa968d5180ab985ac40ca22cc20914d01f5") (:authors ("Preston Moore" . "prestonkmoore@gmail.com")) (:maintainer "Preston Moore" . "prestonkmoore@gmail.com") (:keywords "languages"))])
(streak . [(20220311 1929) ((emacs (27 1))) "Track a daily streak in your Mode Line" single ((:commit . "b2206de2fe43f97e754bbcb0abe9b078a419e787") (:authors ("Colin Woodbury <https://www.fosskers.ca>")) (:maintainer "Colin Woodbury" . "colin@fosskers.ca") (:keywords "calendar") (:url . "https://github.com/fosskers/streak"))])
(streamlink . [(20210811 1429) ((s (1 12 0))) "A major mode for streamlink output" single ((:commit . "c265dc61c02ad29ec01dfd8b5cbe3bac60fbf097") (:keywords "multimedia" "streamlink") (:url . "https://github.com/BenediktBroich/streamlink"))])
@ -4677,7 +4677,7 @@
(thinks . [(20170802 1128) ((cl-lib (0 5))) "Insert text in a think bubble." single ((:commit . "c02f236abc8c2025d9f01460b09b89ebdc96e28d") (:authors ("Dave Pearson" . "davep@davep.org")) (:maintainer "Dave Pearson" . "davep@davep.org") (:keywords "convenience" "quoting") (:url . "https://github.com/davep/thinks.el"))])
(thread-dump . [(20170816 1850) nil "Java thread dump viewer" single ((:commit . "204c9600242756d4b514bb5ff6293e052bf4b49d") (:authors ("Dmitry Neverov")) (:maintainer "Dmitry Neverov") (:url . "http://github.com/nd/thread-dump.el"))])
(threes . [(20160820 1242) ((emacs (24)) (seq (1 11))) "A clone of Threes (a tiny puzzle game)" single ((:commit . "6981acb30b856c77cba6aba63fefbf102cbdfbb2") (:authors ("Chunyang Xu" . "xuchunyang.me@gmail.com")) (:maintainer "Chunyang Xu" . "xuchunyang.me@gmail.com") (:keywords "games") (:url . "https://github.com/xuchunyang/threes.el"))])
(thrift . [(20200212 1903) ((emacs (24))) "major mode for fbthrift and Apache Thrift files" single ((:commit . "8af93fd7554adcdefa7fda4e2261eed72a7d0e46") (:keywords "languages"))])
(thrift . [(20200212 1903) ((emacs (24))) "major mode for fbthrift and Apache Thrift files" single ((:commit . "aca8c7d67c72894ca35dca490999a1b165358807") (:keywords "languages"))])
(thumb-through . [(20120119 534) nil "Plain text reader of HTML documents" single ((:commit . "08d8fb720f93c6172653e035191a8fa9c3305e63") (:keywords "html"))])
(tickscript-mode . [(20171219 203) ((emacs (24 1))) "A major mode for Tickscript files" single ((:commit . "f0579f38ff14954df5002ce30ae6d4a2c978d461") (:authors ("Marc Sherry" . "msherry@gmail.com")) (:maintainer "Marc Sherry" . "msherry@gmail.com") (:keywords "languages") (:url . "https://github.com/msherry/tickscript-mode"))])
(tidal . [(20210211 1531) ((haskell-mode (16)) (emacs (24))) "Interact with TidalCycles for live coding patterns" single ((:commit . "9dbd4c9b4dd4adb550323376a25a50917c971b00") (:authors (nil . "alex@slab.org")) (:maintainer nil . "alex@slab.org") (:keywords "tools") (:url . "https://github.com/tidalcycles/Tidal"))])

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2022-04-17T05:05:05-0400 using RSA

View File

@ -1,4 +1,4 @@
;;; bind-key-autoloads.el --- automatically extracted autoloads
;;; bind-key-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -71,7 +71,7 @@ function symbol (unquoted).
(autoload 'describe-personal-keybindings "bind-key" "\
Display all the personal keybindings defined by `bind-key'." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "bind-key" '("bind-key" "compare-keybindings" "get-binding-description" "override-global-m" "personal-keybindings")))
(register-definition-prefixes "bind-key" '("bind-key" "compare-keybindings" "get-binding-description" "override-global-m" "personal-keybindings"))
;;;***

View File

@ -1,4 +1,4 @@
;;; dash-autoloads.el --- automatically extracted autoloads
;;; dash-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -12,10 +12,19 @@
(autoload 'dash-fontify-mode "dash" "\
Toggle fontification of Dash special variables.
If called interactively, enable Dash-Fontify mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
This is a minor mode. If called interactively, toggle the
`Dash-Fontify 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 `dash-fontify-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
Dash-Fontify mode is a buffer-local minor mode intended for Emacs
Lisp buffers. Enabling it causes the special variables bound in
@ -44,11 +53,15 @@ or call the function `global-dash-fontify-mode'.")
(autoload 'global-dash-fontify-mode "dash" "\
Toggle Dash-Fontify mode in all buffers.
With prefix ARG, enable Global Dash-Fontify mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
otherwise, disable it.
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.
Dash-Fontify mode is enabled in all buffers where
`dash--turn-on-fontify-mode' would do it.
See `dash-fontify-mode' for more information on Dash-Fontify mode.
\(fn &optional ARG)" t nil)
@ -57,7 +70,7 @@ See `dash-fontify-mode' for more information on Dash-Fontify mode.
Register the Dash Info manual with `info-lookup-symbol'.
This allows Dash symbols to be looked up with \\[info-lookup-symbol]." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dash" '("!cdr" "!cons" "--" "->" "-a" "-butlast" "-c" "-d" "-e" "-f" "-gr" "-i" "-juxt" "-keep" "-l" "-m" "-no" "-o" "-p" "-r" "-s" "-t" "-u" "-value-to-list" "-when-let" "-zip" "dash-")))
(register-definition-prefixes "dash" '("!cdr" "!cons" "--" "->" "-a" "-butlast" "-c" "-d" "-e" "-f" "-gr" "-i" "-juxt" "-keep" "-l" "-m" "-no" "-o" "-p" "-r" "-s" "-t" "-u" "-value-to-list" "-when-let" "-zip" "dash-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; diminish-autoloads.el --- automatically extracted autoloads
;;; diminish-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -47,7 +47,7 @@ you can see the whole thing in the *Messages* buffer.
This doesn't change the status of any modes; it just lets you see
what diminished modes would be on the mode-line if they were still minor." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "diminish" '("diminish")))
(register-definition-prefixes "diminish" '("diminish"))
;;;***

View File

@ -1,4 +1,4 @@
;;; dired-collapse-autoloads.el --- automatically extracted autoloads
;;; dired-collapse-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -13,14 +13,23 @@
(autoload 'dired-collapse-mode "dired-collapse" "\
Toggle collapsing of unique nested paths in Dired.
If called interactively, enable Dired-Collapse mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
This is a minor mode. If called interactively, toggle the
`Dired-Collapse 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 `dired-collapse-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dired-collapse" '("dired-collapse")))
(register-definition-prefixes "dired-collapse" '("dired-collapse"))
;;;***

View File

@ -1,4 +1,4 @@
;;; dired-hacks-utils-autoloads.el --- automatically extracted autoloads
;;; dired-hacks-utils-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -10,7 +10,7 @@
;;;;;; (0 0 0 0))
;;; Generated autoloads from dired-hacks-utils.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dired-hacks-utils" '("dired-")))
(register-definition-prefixes "dired-hacks-utils" '("dired-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; dired-rainbow-autoloads.el --- automatically extracted autoloads
;;; dired-rainbow-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -9,7 +9,7 @@
;;;### (autoloads nil "dired-rainbow" "dired-rainbow.el" (0 0 0 0))
;;; Generated autoloads from dired-rainbow.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dired-rainbow" '("dired-rainbow-")))
(register-definition-prefixes "dired-rainbow" '("dired-rainbow-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; dired-ranger-autoloads.el --- automatically extracted autoloads
;;; dired-ranger-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -60,7 +60,7 @@ See also `dired-ranger-bookmark'.
\(fn CHAR)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dired-ranger" '("dired-ranger-")))
(register-definition-prefixes "dired-ranger" '("dired-ranger-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; dired-single-autoloads.el --- automatically extracted autoloads
;;; dired-single-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -60,7 +60,7 @@ Like `dired-up-directory' but with `dired-single-buffer'.
\(fn &optional OTHER-WINDOW)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dired-single" '("dired-single-")))
(register-definition-prefixes "dired-single" '("dired-single-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; dockerfile-mode-autoloads.el --- automatically extracted autoloads
;;; dockerfile-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -34,7 +34,7 @@ A major mode to edit Dockerfiles.
(add-to-list 'auto-mode-alist '("\\.dockerfile\\'" . dockerfile-mode))
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dockerfile-mode" '("dockerfile-")))
(register-definition-prefixes "dockerfile-mode" '("dockerfile-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; elisp-refs-autoloads.el --- automatically extracted autoloads
;;; elisp-refs-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -55,7 +55,7 @@ search.
\(fn SYMBOL &optional PATH-PREFIX)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "elisp-refs" '("elisp-refs-")))
(register-definition-prefixes "elisp-refs" '("elisp-refs-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; f-autoloads.el --- automatically extracted autoloads
;;; f-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -9,7 +9,7 @@
;;;### (autoloads nil "f" "f.el" (0 0 0 0))
;;; Generated autoloads from f.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "f" '("f-")))
(register-definition-prefixes "f" '("f-"))
;;;***

Binary file not shown.

View File

@ -1,2 +1,2 @@
53960
<EFBFBD>d6Nzp9Pホセw羯.
51401
DGey˜N§IÆli}O×-

Binary file not shown.

View File

@ -1,3 +1,2 @@
53961
<EFBFBD>
Ё0iclЌюd+-<2D>B В
51402
»a|{Ç€²³Ê󒜯ÙÄ

View File

@ -1,2 +1,2 @@
53964
(¿יתֵ<D7AA>)<29><>[·™^9y
51405
_<EFBFBD>ァテォ嬶贐Y緇ンV

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -1,4 +1,4 @@
;;; go-mode-autoloads.el --- automatically extracted autoloads
;;; go-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -101,7 +101,7 @@ A major mode for editing go.mod files.
(add-to-list 'auto-mode-alist '("go\\.mod\\'" . go-dot-mod-mode))
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "go-mode" '("go-" "god" "gofmt")))
(register-definition-prefixes "go-mode" '("go-" "god" "gofmt"))
;;;***

View File

@ -1,4 +1,4 @@
;;; helpful-autoloads.el --- automatically extracted autoloads
;;; helpful-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -55,7 +55,7 @@ Show help for variable named SYMBOL.
(autoload 'helpful-at-point "helpful" "\
Show help for the symbol at point." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "helpful" '("helpful-")))
(register-definition-prefixes "helpful" '("helpful-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; ido-completing-read+-autoloads.el --- automatically extracted autoloads
;;; ido-completing-read+-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -80,10 +80,19 @@ or call the function `ido-ubiquitous-mode'.")
(autoload 'ido-ubiquitous-mode "ido-completing-read+" "\
Use ido completion instead of standard completion almost everywhere.
If called interactively, enable Ido-Ubiquitous mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
This is a minor mode. If called interactively, toggle the
`Ido-Ubiquitous 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 \\='ido-ubiquitous-mode)'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
If this mode causes problems for a function, you can customize
when ido completion is or is not used by customizing
@ -91,7 +100,7 @@ when ido completion is or is not used by customizing
\(fn &optional ARG)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ido-completing-read+" '("ido-" "minibuf-eldef-update-minibuffer@ido-cr+-compat")))
(register-definition-prefixes "ido-completing-read+" '("ido-" "minibuf-eldef-update-minibuffer@ido-cr+-compat"))
;;;***

View File

@ -1,4 +1,4 @@
;;; json-mode-autoloads.el --- automatically extracted autoloads
;;; json-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -52,7 +52,7 @@ Beautify / pretty-print the active region (or the entire buffer if no active reg
\(fn BEGIN END)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "json-mode" '("json")))
(register-definition-prefixes "json-mode" '("json"))
;;;***

View File

@ -1,4 +1,4 @@
;;; json-snatcher-autoloads.el --- automatically extracted autoloads
;;; json-snatcher-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -12,7 +12,7 @@
(autoload 'jsons-print-path "json-snatcher" "\
Print the path to the JSON value under point, and save it in the kill ring." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "json-snatcher" '("jsons-")))
(register-definition-prefixes "json-snatcher" '("jsons-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; lua-mode-autoloads.el --- automatically extracted autoloads
;;; lua-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -27,7 +27,7 @@ When called interactively, switch to the process buffer.
\(fn &optional NAME PROGRAM STARTFILE &rest SWITCHES)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "lua-mode" '("lua-")))
(register-definition-prefixes "lua-mode" '("lua-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; markdown-mode-autoloads.el --- automatically extracted autoloads
;;; markdown-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -34,14 +34,24 @@ Major mode for viewing GitHub Flavored Markdown content.
(autoload 'markdown-live-preview-mode "markdown-mode" "\
Toggle native previewing on save for a specific markdown file.
If called interactively, enable Markdown-Live-Preview mode if ARG
is positive, and disable it if ARG is zero or negative. If
called from Lisp, also enable the mode if ARG is omitted or nil,
and toggle it if ARG is `toggle'; disable the mode otherwise.
This is a minor mode. If called interactively, toggle the
`Markdown-Live-Preview 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 `markdown-live-preview-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "markdown-mode" '("defun-markdown-" "gfm-" "markdown")))
(register-definition-prefixes "markdown-mode" '("defun-markdown-" "gfm-" "markdown"))
;;;***

View File

@ -1,4 +1,4 @@
;;; memoize-autoloads.el --- automatically extracted autoloads
;;; memoize-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -9,7 +9,7 @@
;;;### (autoloads nil "memoize" "memoize.el" (0 0 0 0))
;;; Generated autoloads from memoize.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "memoize" '("defmemoize" "memoize")))
(register-definition-prefixes "memoize" '("defmemoize" "memoize"))
;;;***

View File

@ -1,4 +1,4 @@
;;; modus-themes-autoloads.el --- automatically extracted autoloads
;;; modus-themes-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -68,7 +68,7 @@ by virtue of calling either of `modus-themes-load-operandi' and
(when load-file-name (let ((dir (file-name-directory load-file-name))) (unless (equal dir (expand-file-name "themes/" data-directory)) (add-to-list 'custom-theme-load-path dir))))
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "modus-themes" '("modus-themes-")))
(register-definition-prefixes "modus-themes" '("modus-themes-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; origami-autoloads.el --- automatically extracted autoloads
;;; origami-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -38,16 +38,20 @@ or call the function `global-origami-mode'.")
(autoload 'global-origami-mode "origami" "\
Toggle Origami mode in all buffers.
With prefix ARG, enable Global Origami mode if ARG is positive;
otherwise, disable it. If called from Lisp, enable the mode if
ARG is omitted or nil.
otherwise, disable it.
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.
Origami mode is enabled in all buffers where `(lambda nil
\(origami-mode 1))' would do it.
Origami mode is enabled in all buffers where
`(lambda nil (origami-mode 1))' would do it.
See `origami-mode' for more information on Origami mode.
\(fn &optional ARG)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "origami" '("origami-")))
(register-definition-prefixes "origami" '("origami-"))
;;;***
@ -55,7 +59,7 @@ See `origami-mode' for more information on Origami mode.
;;;;;; 0 0))
;;; Generated autoloads from origami-parsers.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "origami-parsers" '("origami-")))
(register-definition-prefixes "origami-parsers" '("origami-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; persp-mode-autoloads.el --- automatically extracted autoloads
;;; persp-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -40,14 +40,23 @@ named collections of buffers and window configurations.
Here is a keymap of this minor mode:
\\{persp-mode-map}
If called interactively, enable Persp mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp,
also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
This is a minor mode. If called interactively, toggle the `Persp
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 \\='persp-mode)'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "persp-mode" '("*persp-" "clear-window-persp" "def-" "get-" "ido-toggle-persp-filter" "persp" "safe-persp-" "set-" "window-persp-set-p" "with-persp-ido-hooks")))
(register-definition-prefixes "persp-mode" '("*persp-" "clear-window-persp" "def-" "get-" "ido-toggle-persp-filter" "persp" "safe-persp-" "set-" "window-persp-set-p" "with-persp-ido-hooks"))
;;;***

View File

@ -1,4 +1,4 @@
;;; powershell-autoloads.el --- automatically extracted autoloads
;;; powershell-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -40,7 +40,7 @@ See the help for `shell' for more details. (Type
\(fn &optional BUFFER PROMPT-STRING)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "powershell" '("explicit-powershell.exe-args" "powershell-")))
(register-definition-prefixes "powershell" '("explicit-powershell.exe-args" "powershell-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; python-mode-autoloads.el --- automatically extracted autoloads
;;; python-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -90,7 +90,7 @@ VARIABLES
\(fn)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "python-mode" '("all-mode-setting" "autopair-mode" "flake8" "force-py-shell-name-p-o" "highlight-indent-active" "hs-hide-comments-when-hiding-all" "info-lookup-mode" "ipython" "iypthon" "jython" "pdb-track-stack-from-shell-p" "pep8" "pst-here" "stri" "toggle-force-py-shell-name-p" "turn-o" "virtualenv-")))
(register-definition-prefixes "python-mode" '("all-mode-setting" "autopair-mode" "flake8" "force-py-shell-name-p-o" "highlight-indent-active" "hs-hide-comments-when-hiding-all" "info-lookup-mode" "ipython" "iypthon" "jython" "pdb-track-stack-from-shell-p" "pep8" "pst-here" "stri" "toggle-force-py-shell-name-p" "turn-o" "virtualenv-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; rainbow-delimiters-autoloads.el --- automatically extracted autoloads
;;; rainbow-delimiters-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -13,10 +13,20 @@
(autoload 'rainbow-delimiters-mode "rainbow-delimiters" "\
Highlight nested parentheses, brackets, and braces according to their depth.
If called interactively, enable Rainbow-Delimiters mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
This is a minor mode. If called interactively, toggle the
`Rainbow-Delimiters 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 `rainbow-delimiters-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
@ -26,7 +36,7 @@ Enable `rainbow-delimiters-mode'." nil nil)
(autoload 'rainbow-delimiters-mode-disable "rainbow-delimiters" "\
Disable `rainbow-delimiters-mode'." nil nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "rainbow-delimiters" '("rainbow-delimiters-")))
(register-definition-prefixes "rainbow-delimiters" '("rainbow-delimiters-"))
;;;***

View File

@ -1,2 +1,2 @@
;;; Generated package description from rainbow-delimiters.el -*- no-byte-compile: t -*-
(define-package "rainbow-delimiters" "20210515.1254" "Highlight brackets according to their depth" 'nil :commit "a32b39bdfe6c61c322c37226d66e1b6d4f107ed0" :authors '(("Jeremy Rayman" . "opensource@jeremyrayman.com") ("Fanael Linithien" . "fanael4@gmail.com")) :maintainer '("Fanael Linithien" . "fanael4@gmail.com") :keywords '("faces" "convenience" "lisp" "tools") :url "https://github.com/Fanael/rainbow-delimiters")
;;; Generated package description from rainbow-delimiters.el -*- no-byte-compile: t -*-
(define-package "rainbow-delimiters" "20210515.1254" "Highlight brackets according to their depth" 'nil :commit "a32b39bdfe6c61c322c37226d66e1b6d4f107ed0" :authors '(("Jeremy Rayman" . "opensource@jeremyrayman.com") ("Fanael Linithien" . "fanael4@gmail.com")) :maintainer '("Fanael Linithien" . "fanael4@gmail.com") :keywords '("faces" "convenience" "lisp" "tools") :url "https://github.com/Fanael/rainbow-delimiters")

View File

@ -1,4 +1,4 @@
;;; rainbow-mode-autoloads.el --- automatically extracted autoloads
;;; rainbow-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -13,14 +13,23 @@
Colorize strings that represent colors.
This will fontify with colors the string like \"#aabbcc\" or \"blue\".
If called interactively, enable Rainbow mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp,
also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
This is a minor mode. If called interactively, toggle the
`Rainbow 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 `rainbow-mode'.
The mode's hook is called both when the mode is enabled and when
it is disabled.
\(fn &optional ARG)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "rainbow-mode" '("rainbow-")))
(register-definition-prefixes "rainbow-mode" '("rainbow-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; rust-mode-autoloads.el --- automatically extracted autoloads
;;; rust-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -9,14 +9,14 @@
;;;### (autoloads nil "rust-cargo" "rust-cargo.el" (0 0 0 0))
;;; Generated autoloads from rust-cargo.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "rust-cargo" '("rust-")))
(register-definition-prefixes "rust-cargo" '("rust-"))
;;;***
;;;### (autoloads nil "rust-compile" "rust-compile.el" (0 0 0 0))
;;; Generated autoloads from rust-compile.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "rust-compile" '("cargo-compilation-regexps" "rustc-")))
(register-definition-prefixes "rust-compile" '("cargo-compilation-regexps" "rustc-"))
;;;***
@ -32,21 +32,21 @@ Major mode for Rust code.
(add-to-list 'auto-mode-alist '("\\.rs\\'" . rust-mode))
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "rust-mode" '("rust-")))
(register-definition-prefixes "rust-mode" '("rust-"))
;;;***
;;;### (autoloads nil "rust-playpen" "rust-playpen.el" (0 0 0 0))
;;; Generated autoloads from rust-playpen.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "rust-playpen" '("rust-")))
(register-definition-prefixes "rust-playpen" '("rust-"))
;;;***
;;;### (autoloads nil "rust-rustfmt" "rust-rustfmt.el" (0 0 0 0))
;;; Generated autoloads from rust-rustfmt.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "rust-rustfmt" '("rust-")))
(register-definition-prefixes "rust-rustfmt" '("rust-"))
;;;***
@ -56,7 +56,7 @@ Major mode for Rust code.
(autoload 'rust-dbg-wrap-or-unwrap "rust-utils" "\
Either remove or add the dbg! macro." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "rust-utils" '("rust-")))
(register-definition-prefixes "rust-utils" '("rust-"))
;;;***

View File

@ -1,4 +1,4 @@
;;; s-autoloads.el --- automatically extracted autoloads
;;; s-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -9,7 +9,7 @@
;;;### (autoloads nil "s" "s.el" (0 0 0 0))
;;; Generated autoloads from s.el
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "s" '("s-")))
(register-definition-prefixes "s" '("s-"))
;;;***

Binary file not shown.

View File

@ -1,59 +0,0 @@
;;; transpose-frame-autoloads.el --- automatically extracted autoloads
;;
;;; Code:
(add-to-list 'load-path (directory-file-name
(or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "transpose-frame" "transpose-frame.el" (0 0
;;;;;; 0 0))
;;; Generated autoloads from transpose-frame.el
(autoload 'transpose-frame "transpose-frame" "\
Transpose windows arrangement at FRAME.
Omitting FRAME means currently selected frame.
\(fn &optional FRAME)" t nil)
(autoload 'flip-frame "transpose-frame" "\
Flip windows arrangement vertically at FRAME.
Omitting FRAME means currently selected frame.
\(fn &optional FRAME)" t nil)
(autoload 'flop-frame "transpose-frame" "\
Flop windows arrangement horizontally at FRAME.
Omitting FRAME means currently selected frame.
\(fn &optional FRAME)" t nil)
(autoload 'rotate-frame "transpose-frame" "\
Rotate windows arrangement 180 degrees at FRAME.
Omitting FRAME means currently selected frame.
\(fn &optional FRAME)" t nil)
(autoload 'rotate-frame-clockwise "transpose-frame" "\
Rotate windows arrangement 90 degrees clockwise at FRAME.
Omitting FRAME means currently selected frame.
\(fn &optional FRAME)" t nil)
(autoload 'rotate-frame-anticlockwise "transpose-frame" "\
Rotate windows arrangement 90 degrees anti-clockwise at FRAME.
Omitting FRAME means currently selected frame.
\(fn &optional FRAME)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "transpose-frame" '("transpose-frame-")))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; coding: utf-8
;; End:
;;; transpose-frame-autoloads.el ends here

View File

@ -1,2 +0,0 @@
;;; Generated package description from transpose-frame.el -*- no-byte-compile: t -*-
(define-package "transpose-frame" "20200307.2119" "Transpose windows arrangement in a frame" 'nil :commit "12e523d70ff78cc8868097b56120848befab5dbc" :authors '(("S. Irie")) :maintainer '("S. Irie") :keywords '("window"))

View File

@ -1,237 +0,0 @@
;;; transpose-frame.el --- Transpose windows arrangement in a frame
;; Copyright (c) 2011 S. Irie
;; Author: S. Irie
;; Keywords: window
;; Package-Version: 20200307.2119
;; Package-Commit: 12e523d70ff78cc8868097b56120848befab5dbc
;; This program is free software.
;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions
;; are met:
;; 1. Redistributions of source code must retain the above copyright
;; notice, this list of conditions and the following disclaimer.
;; 2. Redistributions in binary form must reproduce the above copyright
;; notice, this list of conditions and the following disclaimer in the
;; documentation and/or other materials provided with the distribution.
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;;; Commentary:
;; This program provides some interactive functions which allows users
;; to transpose windows arrangement in currently selected frame:
;;
;; `transpose-frame' ... Swap x-direction and y-direction
;;
;; +------------+------------+ +----------------+--------+
;; | | B | | A | |
;; | A +------------+ | | |
;; | | C | => +--------+-------+ D |
;; +------------+------------+ | B | C | |
;; | D | | | | |
;; +-------------------------+ +--------+-------+--------+
;;
;; `flip-frame' ... Flip vertically
;;
;; +------------+------------+ +------------+------------+
;; | | B | | D |
;; | A +------------+ +------------+------------+
;; | | C | => | | C |
;; +------------+------------+ | A +------------+
;; | D | | | B |
;; +-------------------------+ +------------+------------+
;;
;; `flop-frame' ... Flop horizontally
;;
;; +------------+------------+ +------------+------------+
;; | | B | | B | |
;; | A +------------+ +------------+ A |
;; | | C | => | C | |
;; +------------+------------+ +------------+------------+
;; | D | | D |
;; +-------------------------+ +-------------------------+
;;
;; `rotate-frame' ... Rotate 180 degrees
;;
;; +------------+------------+ +-------------------------+
;; | | B | | D |
;; | A +------------+ +------------+------------+
;; | | C | => | C | |
;; +------------+------------+ +------------+ A |
;; | D | | B | |
;; +-------------------------+ +------------+------------+
;;
;; `rotate-frame-clockwise' ... Rotate 90 degrees clockwise
;;
;; +------------+------------+ +-------+-----------------+
;; | | B | | | A |
;; | A +------------+ | | |
;; | | C | => | D +--------+--------+
;; +------------+------------+ | | B | C |
;; | D | | | | |
;; +-------------------------+ +-------+--------+--------+
;;
;; `rotate-frame-anticlockwise' ... Rotate 90 degrees anti-clockwise
;;
;; +------------+------------+ +--------+--------+-------+
;; | | B | | B | C | |
;; | A +------------+ | | | |
;; | | C | => +--------+--------+ D |
;; +------------+------------+ | A | |
;; | D | | | |
;; +-------------------------+ +-----------------+-------+
;;
;; This program is tested on GNU Emacs 22, 23.
;;; Code:
;;; Internal functions
(defun transpose-frame-get-arrangement (&optional frame subtree)
(let ((tree (or subtree
(car (window-tree frame)))))
(if (windowp tree)
(list (window-buffer tree)
(window-start tree)
(window-point tree)
(window-hscroll tree)
(window-margins tree)
(window-fringes tree)
(window-dedicated-p tree)
(window-redisplay-end-trigger tree)
tree
(eq tree (frame-selected-window frame)))
(let* ((vertical (car tree))
(edges (cadr tree))
(length (float (if vertical
(- (nth 3 edges) (cadr edges))
(- (nth 2 edges) (car edges))))))
(cons vertical
(mapcar (lambda (subtree)
(cons (transpose-frame-get-arrangement frame subtree)
(/ (let ((edges (if (windowp subtree)
(window-edges subtree)
(cadr subtree))))
(if vertical
(- (nth 3 edges) (cadr edges))
(- (nth 2 edges) (car edges))))
length)))
(cddr tree)))))))
(defun transpose-frame-set-arrangement (config &optional window-or-frame &rest how)
(let ((window (if (windowp window-or-frame)
window-or-frame
(frame-selected-window window-or-frame))))
(unless (windowp window-or-frame)
(delete-other-windows window))
(if (bufferp (car config))
(let ((buffer (pop config)))
(set-window-buffer window buffer)
(set-window-start window (pop config))
(set-window-point window (pop config))
(set-window-hscroll window (pop config))
(set-window-margins window (caar config) (cdr (pop config)))
(apply 'set-window-fringes window (pop config))
(set-window-dedicated-p window (pop config))
(set-window-redisplay-end-trigger window (pop config))
(let* ((orig-window (pop config))
(ol-func (lambda (ol)
(when (eq (overlay-get ol 'window) orig-window)
(overlay-put ol 'window window))))
(ol-lists (with-current-buffer buffer
(overlay-lists))))
(mapc ol-func (car ol-lists))
(mapc ol-func (cdr ol-lists)))
(if (car config) (select-window window)))
(let* ((horizontal (if (memq 'transpose how)
(pop config)
(not (pop config))))
(edges (window-edges window))
(length (if horizontal
(- (nth 2 edges) (car edges))
(- (nth 3 edges) (cadr edges)))))
(if (memq (if horizontal 'flop 'flip) how)
(setq config (reverse config)))
(while (cdr config)
(setq window (prog1
(split-window window (round (* length (cdar config)))
horizontal)
(apply 'transpose-frame-set-arrangement
(caar config) window how))
config (cdr config)))
(apply 'transpose-frame-set-arrangement
(caar config) window how)))))
;;; User commands
;;;###autoload
(defun transpose-frame (&optional frame)
"Transpose windows arrangement at FRAME.
Omitting FRAME means currently selected frame."
(interactive)
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
'transpose)
(when (called-interactively-p 'any) (recenter)))
;;;###autoload
(defun flip-frame (&optional frame)
"Flip windows arrangement vertically at FRAME.
Omitting FRAME means currently selected frame."
(interactive)
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
'flip))
;;;###autoload
(defun flop-frame (&optional frame)
"Flop windows arrangement horizontally at FRAME.
Omitting FRAME means currently selected frame."
(interactive)
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
'flop))
;;;###autoload
(defun rotate-frame (&optional frame)
"Rotate windows arrangement 180 degrees at FRAME.
Omitting FRAME means currently selected frame."
(interactive)
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
'flip 'flop))
;;;###autoload
(defun rotate-frame-clockwise (&optional frame)
"Rotate windows arrangement 90 degrees clockwise at FRAME.
Omitting FRAME means currently selected frame."
(interactive)
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
'transpose 'flop)
(when (called-interactively-p 'any) (recenter)))
;;;###autoload
(defun rotate-frame-anticlockwise (&optional frame)
"Rotate windows arrangement 90 degrees anti-clockwise at FRAME.
Omitting FRAME means currently selected frame."
(interactive)
(transpose-frame-set-arrangement (transpose-frame-get-arrangement frame) frame
'transpose 'flip)
(when (called-interactively-p 'any) (recenter)))
;;; _
;; Local Variables:
;; indent-tabs-mode: nil
;; End:
(provide 'transpose-frame)
;;; transpose-frame.el ends here

View File

@ -1,4 +1,4 @@
;;; use-package-autoloads.el --- automatically extracted autoloads
;;; use-package-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
;;
;;; Code:
@ -56,7 +56,7 @@ deferred until the prefix key sequence is pressed.
\(fn NAME KEYWORD ARG REST STATE)" nil nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-bind-key" '("use-package-handler/:bind*")))
(register-definition-prefixes "use-package-bind-key" '("use-package-handler/:bind*"))
;;;***
@ -128,7 +128,7 @@ this file. Usage:
(function-put 'use-package 'lisp-indent-function '1)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-core" '("use-package-")))
(register-definition-prefixes "use-package-core" '("use-package-"))
;;;***
@ -146,7 +146,7 @@ Normalize arguments to delight.
\(fn NAME KEYWORD ARGS REST STATE)" nil nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-delight" '("use-package-normalize-delight")))
(register-definition-prefixes "use-package-delight" '("use-package-normalize-delight"))
;;;***
@ -164,7 +164,7 @@ Normalize arguments to delight.
\(fn NAME KEYWORD ARG REST STATE)" nil nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-diminish" '("use-package-normalize-diminish")))
(register-definition-prefixes "use-package-diminish" '("use-package-normalize-diminish"))
;;;***
@ -182,7 +182,7 @@ Normalize arguments to delight.
\(fn NAME KEYWORD ENSURE REST STATE)" nil nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-ensure" '("use-package-")))
(register-definition-prefixes "use-package-ensure" '("use-package-"))
;;;***
@ -199,7 +199,7 @@ instead.
\(fn PACKAGE)" t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-jump" '("use-package-find-require")))
(register-definition-prefixes "use-package-jump" '("use-package-find-require"))
;;;***
@ -212,7 +212,7 @@ Check for errors in use-package declarations.
For example, if the module's `:if' condition is met, but even
with the specified `:load-path' the module cannot be found." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-lint" '("use-package-lint-declaration")))
(register-definition-prefixes "use-package-lint" '("use-package-lint-declaration"))
;;;***

Some files were not shown because too many files have changed in this diff Show More