;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require bookmark dash treemacs-follow-mode treemacs-interface treemacs-scope treemacs-logging treemacs-tags treemacs-workspaces] 2) #@319 Find a bookmark in treemacs. Only bookmarks marking either a file or a directory are offered for selection. Treemacs will try to find and focus the given bookmark's location, in a similar fashion to `treemacs-find-file'. With a prefix argument ARG treemacs will also open the bookmarked location. (fn &optional ARG) (defalias 'treemacs-bookmark #[256 "\3062\372\307 \210\310\211\211\211\211:\203\203@\262@\262\311!\312!\203?\211G\313V\203;\211GSH\314=\203;\211\315\316O\202`\211\202`\310\317!\211G\313V\203\\\211GSH\314=\203\\\211\315\316O\202]\211\262)\262\262\320!\204p\321!\203y\322\323#B\262A\262\310\262\202 \237\266\206\211\204\301\324\306\325C\211\203\266\n:\204\233 C\310\f\204\261\326\327\322\330\331\332#\333\334\333\"!#\210\335\336\337\"\210 \205\275\340\341!\262\"\210\342\343\"\344\315\323\310\315\310\211\211\203\377\211A\262\242\262\262\211\262\203\377\n\230\203\362\310\262\203\377\262\262T\262\202\316\266\211\262#\312!\203'\211G\313V\203#\211GSH\314=\203#\211\315\316O\202H\211\202H\310\317!\211G\313V\203D\211GSH\314=\203D\211\315\316O\202E\211\262)\262\321!\203T\211\202r\345!\211G\313V\203o\211GSH\314=\203o\211\315\316O\202p\211\262\211\310\346 \347!@>\204\206\350\351\352D\"\210\211\353H\262\315\310\211\211\203\357\211A\262\242\262\262\211\262\203\357\347!A>\204\271\350\351\354D\"\210\353H\230\206\326\355\211GSH\314=\203\321\202\324\356P\"\266\204\203\342\310\262\203\357\262\262T\262\202\217\266\211\262\262\211\2046\324\306\357\322\331\360#D\211\203+\n:\204 C\310\f\204&\326\327\322\330\331\332#\333\334\333\"!#\210\335\336\337\"\210 \2052\340\341!\262\"\210\361 \203?\362\202I\363 \203H\364\202I\365\211\366\267\210\202~\367 \266\202~p\370 \210B\204eC\203mr\211q\210\371 \210)\372\373\364\"\266\202~\374 \266\202~\210\375\"\211\203\266D\376=\203\241\377 \210\344`\201F\"\242\201G=\203\241\313u\210\201H \210\201I \211\203\265\201J`\"\210\210\210\310\211\203\341\n:\204\304 C\310\f\204\334\326\327\322\330\331\201K#\333\334\333\"!#\210\335\336\337\"\210E\205\353\340\201L!\266\205\365\201M \266\204\2620\207" [bookmark-alist file-name-handler-alist treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure --cl-block-__body__-- bookmark-maybe-load-default-file nil bookmark-location file-remote-p 1 47 0 -1 expand-file-name file-regular-p file-directory-p propertize location throw "Didn't find any bookmarks pointing to files." message "%s %s" "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face completing-read "Bookmark: " get-text-property file-name-directory treemacs-current-workspace type-of signal wrong-type-argument treemacs-workspace 2 treemacs-project s-starts-with\? "/" "Bookmark at %s does not fall under any project in the workspace." font-lock-string-face treemacs-get-local-window visible treemacs-get-local-buffer exists none #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (visible 592 exists 599 none 630)) treemacs--select-visible-window treemacs--setup-buffer treemacs--follow run-hook-with-args treemacs-select-functions treemacs--init treemacs-find-file-node treemacs-mode beginning-of-line cl-struct-treemacs-workspace-tags cl-struct-treemacs-project-tags treemacs-follow-after-init treemacs-follow-mode major-mode treemacs-pulse-on-success display image hl-line-highlight get-buffer-window set-window-point font-lock-keyword-face treemacs-on-success-pulse-face treemacs-visit-node-no-split] 19 (#$ . 339) "P"]) #@52 Open Treemacs into a bookmark RECORD. (fn RECORD) (defalias 'treemacs--bookmark-handler #[257 "\304\305\"\211\204\f\306\307!\210\310 \210\211<\203)\211@;\203)\311@!\203)\312@!\210\202-\312!\210\313\314 \315 \316\317$\211\205=\320\321\"\262\211\203p\322\323\"\324=\203O\325 \210\322\323\"\326=\205\242\322\327\"\330!\211\205o\322\327\"V\205o\331\332!\207\333C\211\203\231:\204~ C\317\n\204\224\334\335\336\337\340\341#\342\343\342\"!#\210\344\345\346\"\210 \205\240\347\350!\262\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure bookmark-prop-get treemacs-bookmark-path user-error "Treemacs--bookmark-handler invoked for a non-Treemacs bookmark" treemacs-select-window file-regular-p treemacs-goto-node text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state dir-node-closed treemacs-TAB-action dir-node-open :depth next-button treemacs-next-line 1 "Could not select the current bookmark" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face] 11 (#$ . 4120)]) #@86 Format the bookmark title for BTN with `treemacs-bookmark-title-template'. (fn BTN) (defalias 'treemacs--format-bookmark-title #[257 "\301\302\303\"\"\207" [treemacs-bookmark-title-template s-format make-closure #[257 "\211\305\230\203\306\307\300T\310\"\206e\311\300\310\"\206d\"\202g\312\313\"\203c\314\315\313\"!\300\316\211W\203E\317\205;\320\321\"\262\210\211T\262\202,\266\211\205^\306\307T\310\"\206Ue\311\310\"\206]d\"\266\202\202g\211\322\230\204p\312\323\"\203\272\312\323\"\205}\314\315\323\"!\300\317\203\261\316=\204\261\306\307T\310\"\206\223e\311\310\"\206\233d\"B\262\203\250S\262\320\321\"\262\202\324\325\"\266\203\202g\211\326\230\203\353\300\320\327\"\316V\203\323\320\321\"\262\202\301\306\307T\310\"\206\335e\311\310\"\206\345d\"\262\202g\211\330\230\203\367\331\300!\202g\312\332\"\2032\314\315\332\"!\331\300!\211\205+\333\334\325\"T\"\211GV\203%\211@\335\230\204%\211A\262\324\325\"\262\262\262\202g\317\211\203Z :\204?\nC\317 \204U\336\337\340\341\342\343#\344\345\344\"!#\210\346\347\350\"\210\f\205a\351\352!\266\353\354\"\206k\335\207" [V0 treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure "label" buffer-substring-no-properties previous-single-property-change button next-single-property-change s-starts-with\? "label:" string-to-number s-chop-prefix 0 nil get-text-property :parent "label-path" "label-path:" s-join "/" "project" :depth "file-path" treemacs--nearest-path "file-path:" last s-split "" message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face user-error "Bookmark template pattern %s was not recognized"] 9 "\n\n(fn PATTERN)"]] 6 (#$ . 5367)]) #@125 Make a bookmark record for the current Treemacs button. This function is installed as the `bookmark-make-record-function'. (defalias 'treemacs--make-bookmark-record #[0 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203i\313\314\"\211\204S\310\211\203F:\204+ C\310\n\204A\315\316\317\320\321\322#\323\324\323\"!#\210\325\326\327\"\210 \205M\330\331!\266\332\333!\210\334\335!D\336B\337;\205e\340BCBBB\207\310\211\203\221:\204v C\310\n\204\214\315\316\317\320\321\322#\323\324\323\"!#\210\325\326\327\"\210 \205\230\330\331!\266\332\341!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :path message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format apply add-hook pre-command-hook treemacs--restore-eldoc-after-log treemacs--do-pulse treemacs-on-failure-pulse-face user-error "Could not find the path of the current button" defaults treemacs--format-bookmark-title treemacs-bookmark-path (handler . treemacs--bookmark-handler) filename "Nothing to bookmark here"] 10 (#$ . 7255)]) #@255 Add the current node to Emacs' list of bookmarks. For file and directory nodes their absolute path is saved. Tag nodes additionally also save the tag's position. A tag can only be bookmarked if the treemacs node is pointing to a valid buffer position. (defalias 'treemacs-add-bookmark #[0 "\304\305 \306 \307\310$\211\205\311\312\"\262\211\203\246\313\314\"\211\315\267\202\244\316\317!\320\321\313\322\"BC\310#\207\323\313\324\"\310\"\211A\262\242\325!\203T\320\316\317!\321\326!B\327BD\310#\207:\204\\ C\310\n\204n\330\331\332\333\334\335#\336\337!#\210\340\341\342\"\207\343C\211\203\234:\204\201 C\310\n\204\227\330\331\332\333\334\335#\336\344\336\"!#\210\340\341\342\"\210 \205\243\345\346!\207\310\207\343C\211\203\317:\204\264 C\310\n\204\312\330\331\332\333\334\335#\336\344\336\"!#\210\340\341\342\"\210 \205\326\345\346!\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-pulse-on-failure text-property-not-all point-at-bol point-at-eol button nil copy-marker t get-text-property :state #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dir-node-closed 32 dir-node-open 32 file-node-closed 32 file-node-open 32 tag-node 48 tag-node-closed 115 tag-node-open 115)) treemacs--read-string "Bookmark name: " bookmark-store filename :path treemacs--extract-position :marker buffer-live-p buffer-file-name position message "%s %s" propertize "[Treemacs]" face ((:inherit warning :weight bold)) format "Tag info can not be saved because it is not pointing to a live buffer." add-hook pre-command-hook treemacs--restore-eldoc-after-log "There is nothing to bookmark here." apply treemacs--do-pulse treemacs-on-failure-pulse-face] 11 (#$ . 8458) nil]) (provide 'treemacs-bookmarks)