;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require persp-mode projectile cl-lib] 2) (defvar persp-mode-projectile-bridge-mode nil) (byte-code "\300\301\302\303\304\305\304\306\307\310\311\312& \210\313\314\315\316\317DD\320\304\301\321\322\323\324& \207" [custom-declare-group persp-mode-projectile-bridge nil "persp-mode projectile integration." :group persp-mode projectile :prefix "persp-mode-projectile-bridge-" :link (url-link :tag "Github" "https://github.com/Bad-ptr/persp-mode-projectile-bridge.el") custom-declare-variable persp-mode-projectile-bridge-persp-name-prefix funcall function #[0 "\300\207" [#1="[p] "] 1 #1#] "Prefix to use for projectile perspective names." :type string :set #[514 "\203J\301\"\210\302C\303\304\305$\306 \"\207\301\"\207" [persp-mode-projectile-bridge-mode custom-set-default nil mapc make-closure #[257 "\211\205,\304\305\"\205,\302\306! >\204\307\310\311D\"\210\312H\313\301!\314O\240\210\315\300\302\242P\"\207" [V0 V1 V2 cl-struct-perspective-tags persp-parameter persp-mode-projectile-bridge type-of signal wrong-type-argument perspective 1 string-width nil persp-rename] 6 "\n\n(fn P)"] persp-persps] 10 "\n\n(fn SYM VAL)"]] 12) #@13 (fn NAME) (defalias 'persp-mode-projectile-bridge-add-new-persp #[257 "\301\302#\211\302=\203*\303!\211\262\203+\304\305\306#\210\304\307\306#\210\310\311 \312\211$\210\207\211\207" [*persp-hash* persp-get-by-name :nil persp-add-new set-persp-parameter persp-mode-projectile-bridge t dont-save-to-file persp-add-buffer projectile-project-buffers nil] 8 (#$ . 1292)]) #@10 (fn B) (defalias 'persp-mode-projectile-bridge-find-perspective-for-buffer #[257 "\302!\205.r\211q\210\205-\303!\205-\304 \205-\305 \306 P!\211\205+\307\310\211$\210\211\262)\207" [persp-mode-projectile-bridge-mode persp-mode-projectile-bridge-persp-name-prefix buffer-live-p buffer-file-name projectile-project-p persp-mode-projectile-bridge-add-new-persp projectile-project-name persp-add-buffer nil] 7 (#$ . 1677)]) (defvar persp-mode-projectile-bridge-before-switch-selected-window-buffer nil) #@19 (fn &rest ARGS) (defalias 'persp-mode-projectile-bridge-hook-before-switch #[128 "\301\302 !\203\f\303 \202\302 \304!\205\305!\211\207" [persp-mode-projectile-bridge-before-switch-selected-window-buffer minibuffer-window-active-p selected-window minibuffer-selected-window window-live-p window-buffer] 4 (#$ . 2194)]) #@19 (fn &rest ARGS) (defalias 'persp-mode-projectile-bridge-hook-switch #[128 "\302p!\211\2053\303!\203\304 \305!=\204\306\"\210\307\210\310\311! >\204/\312\313\314D\"\210\315H!\207" [persp-mode-projectile-bridge-before-switch-selected-window-buffer cl-struct-perspective-tags persp-mode-projectile-bridge-find-perspective-for-buffer buffer-live-p selected-window window-buffer set-window-buffer nil persp-frame-switch type-of signal wrong-type-argument perspective 1] 7 (#$ . 2528)]) #@19 (fn &rest ARGS) (defalias 'persp-mode-projectile-bridge-hook-find-file #[128 "\300p!\211\205 \301p\302\211$\207" [persp-mode-projectile-bridge-find-perspective-for-buffer persp-add-buffer nil] 7 (#$ . 3032)]) (defalias 'persp-mode-projectile-bridge-find-perspectives-for-all-buffers #[0 "\205 \301\302\303 \"\207" [persp-mode-projectile-bridge-mode mapc persp-mode-projectile-bridge-find-perspective-for-buffer buffer-list] 3]) (defalias 'persp-mode-projectile-bridge-kill-perspectives #[0 "\205 \205\302\303\304\305\306\307\310\311\"\312 \"\"\"\207" [persp-mode projectile-mode mapc persp-kill mapcar persp-name cl-delete-if-not apply-partially persp-parameter persp-mode-projectile-bridge persp-persps] 8]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\315& \207" [custom-declare-variable persp-mode-projectile-bridge-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Persp-Mode-Projectile-Bridge mode is enabled.\nSee the `persp-mode-projectile-bridge-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `persp-mode-projectile-bridge-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :require persp-mode-projectile-bridge :group] 14) #@702 `persp-mode' and `projectile-mode' integration. Creates perspectives for projectile projects. This is a minor mode. If called interactively, toggle the `Persp-Mode-Projectile-Bridge 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-projectile-bridge-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'persp-mode-projectile-bridge-mode #[256 "\304 \305\301\306=\203\307\301!?\202!\247\203 \310W\203 \311\202!\312\"\210\313\300!\2038\314\301\"\307\301!\2038\301B \203n\n\203e \203e\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210\315\324\325\"\210\315\326\327\"\210\315\330\327\"\210\202\202\331\332!\210\311\202\202\333\316\317\"\210\333\324\325\"\210\333\326\327\"\210\333\330\327\"\210\334\335\307\301!\203\216\336\202\217\337\"\210\340\341!\203\267\342\301!\210\304 \203\247\211\304 \232\203\267\331\343\307\301!\203\263\344\202\264\345\346#\210\210\347 \210\307\301!\207" [global-minor-modes persp-mode-projectile-bridge-mode persp-mode projectile-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook find-file-hook persp-mode-projectile-bridge-hook-find-file projectile-mode-hook #[0 "?\205\301\302!\207" [projectile-mode persp-mode-projectile-bridge-mode -1] 2] persp-mode-hook #[0 "?\205\301\302!\207" [persp-mode persp-mode-projectile-bridge-mode -1] 2] projectile-before-switch-project-hook persp-mode-projectile-bridge-hook-before-switch projectile-after-switch-project-hook persp-mode-projectile-bridge-hook-switch projectile-find-file-hook message "You can not enable persp-mode-projectile-bridge-mode unless persp-mode and projectile-mode are active." remove-hook run-hooks persp-mode-projectile-bridge-mode-hook persp-mode-projectile-bridge-mode-on-hook persp-mode-projectile-bridge-mode-off-hook called-interactively-p any customize-mark-as-set "Persp-Mode-Projectile-Bridge mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 4400) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar persp-mode-projectile-bridge-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\310\313\300!\205#\310\211%\210\314\315!\207" [persp-mode-projectile-bridge-mode-map persp-mode-projectile-bridge-mode-hook variable-documentation put "Hook run after entering or leaving `persp-mode-projectile-bridge-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 persp-mode-projectile-bridge-mode boundp provide persp-mode-projectile-bridge] 6)