;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (custom-declare-group '0blayout nil "Configuration settings for 0blayout-mode." :group 'convenience)#@40 List of the currently defined layouts. (defvar 0blayout-alist nil (#$ . 184))#@30 Name of default layout used. (custom-declare-variable '0blayout-default "default" '(#$ . 267) :type 'string :group '0blayout)#@44 Which keys bounded to which functions map. (defvar 0blayout-keys-map '(("C-c" . 0blayout-new) ("C-k" . 0blayout-kill) ("C-b" . 0blayout-switch)) (#$ . 398))#@22 Keymap for 0blayout. (defvar 0blayout-mode-map (make-sparse-keymap) (#$ . 560))#@70 0blayout creating function. Argument LAYOUT-NAME Name of the layout. (defalias '0blayout-new #[(layout-name) "\301 \210\302 \210\303\304!\210\305!\207" [layout-name 0blayout-save delete-other-windows switch-to-buffer "*scratch*" 0blayout-set-current-name] 2 (#$ . 645) "sEnter name of new layout: "])#@28 0blayout removal function. (defalias '0blayout-kill #[nil "\303\304\305 \"\210\306\307\305 !\"\211@@\211\204 \310\n!\210\311\n!\202+\312@A!\210\310\313 !!)\207" [0blayout-alist new-layout 0blayout-default message "Killing layout: '%s'" 0blayout-get-current-name assq-delete-all intern 0blayout-set-current-name 0blayout-new set-window-configuration symbol-name] 4 (#$ . 952) nil])#@71 0blayout switching function. Argument LAYOUT-NAME Name of the layout. (defalias '0blayout-switch #[(layout-name) "\303 \210\304\305! \"\211\204\306\307\"\202\"\310\nA!\210\311!\210\306\312\")\207" [layout-name 0blayout-alist layout 0blayout-save assoc intern message "No layout with name: '%s' is defined" set-window-configuration 0blayout-set-current-name "Switch to layout: '%s'"] 4 (#$ . 1344) (list (completing-read "Layout to switch to: " 0blayout-alist))])#@55 This is a helper function to save the current layout. (defalias '0blayout-save #[nil "\302\303\304 !\"\303\304 !\305 B\211\235\203\210\202 B)\306\307\304 \"\207" [0blayout-alist #1=#:x assq-delete-all intern 0blayout-get-current-name current-window-configuration message "Saved the currently active layout: %s"] 4 (#$ . 1820)])#@62 Helper function to store current LAYOUT-NAME for this frame. (defalias '0blayout-set-current-name #[(layout-name) "\301\302\303#\207" [layout-name set-frame-parameter nil 0blayout-current] 4 (#$ . 2164)])#@60 Helper function to get current LAYOUT-NAME for this frame. (defalias '0blayout-get-current-name #[nil "\302\303\304\"\211\204 \202)\207" [current-layout 0blayout-default frame-parameter nil 0blayout-current] 4 (#$ . 2375)])#@51 Add 0blayout keybindings using the prefix PREFIX. (defalias '0blayout-add-keybindings-with-prefix #[(prefix) "\211\306\241)\210\n \205% @\307\310\311\312 \f@#!\fA#\210 A)\202 )\207" [0blayout-mode-map #1=#:v 0blayout-keys-map #2=#:tail pair prefix nil define-key kbd format "%s %s"] 8 (#$ . 2610)]) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [0blayout-add-keybindings-with-prefix "C-c C-l" custom-declare-variable 0blayout-mode nil "Non-nil if 0bLayout mode is enabled.\nSee the `0blayout-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group 0blayout] 12)#@582 Handle layouts with ease This is a global minor mode. If called interactively, toggle the `0bLayout 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 \='0blayout-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias '0blayout-mode #[(&optional arg) "\304 \305\306 \307=\203\310\306!?\202\" \247\203! \311W\203!\312\202\"\313\"\210\314\302!\2039\315\306\n\"\310\306!\2039\306\nB\316\317\310\306!\203E\320\202F\321\"\210\322\323!\203r\324\306!\210\304 \203^\304 \232\203r\325\326\327\330\310\306!\203m\331\202n\332 $)\210)\333 \210\310\306!\207" [#1=#:last-message arg global-minor-modes local current-message set-default 0blayout-mode toggle default-value 1 nil t boundp delq run-hooks 0blayout-mode-hook 0blayout-mode-on-hook 0blayout-mode-off-hook called-interactively-p any customize-mark-as-set "" message "%s %sabled%s" "0bLayout mode" "en" "dis" force-mode-line-update] 5 (#$ . 3305) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar 0blayout-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\314\315!\207" [0blayout-mode-map 0blayout-mode-hook variable-documentation put "Hook run after entering or leaving `0blayout-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode 0blayout-mode " 0bL" provide 0blayout] 6)