;ELC ;;; Compiled by proclus@darwintel on Sat Jan 19 22:12:58 2008 ;;; from file /mnt/gmirror/ports/editors/tree-widget/work/dir-tree.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dir-tree.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\303\304!\210\305\306!\203\307\310\306\"\210\202\307\310\311\"\210\305\312!\203+\307\313\312\"\210\2020\307\313\314\"\210\315\316\304\317\320\321\322\323&\210\315\324\325\326\327\330\331\332\333\334\335\336\337\340& \207" [current-load-list dir-tree-version "1.1" require tree-widget fboundp overlay-lists defalias dir-tree-overlay-lists (lambda nil (list (extent-list))) delete-overlay dir-tree-delete-overlay delete-extent define-widget dir-tree-dir-widget "Directory Tree widget." :dynargs dir-tree-expand-dir :has-children t dir-tree-file-widget push-button "File widget." :doc "*" :keep (:doc) :format "%[%t%]%d" :button-face default :notify dir-tree-toggle-selection] 14) #@62 Change the selected state of WIDGET. IGNORE other arguments. (defalias 'dir-tree-toggle-selection #[(widget &rest ignore) "\304\305\"\304\306\"\304\307\"\310\230 \203\311\307\312#\210\202$\311\307\310#\210\313\314!\"\210\315\316\n \2036\317\2027\320#+\207" [widget s p f widget-get :tag :path :doc "*" widget-put "-" widget-value-set widget-value message "File %s %s" "unselected" "selected"] 5 (#$ . 1332)]) #@62 Refresh WIDGET parent tree children. IGNORE other arguments. (defalias 'dir-tree-refresh-dir #[(widget &rest ignore) "\302\303\"\304 \305\306#\210\307 \310 !\")\207" [widget tree widget-get :parent widget-put :args nil widget-value-set widget-value] 4 (#$ . 1762)]) #@49 Return a widget to display file or directory E. (defalias 'dir-tree-widget #[(e) "\301!\203\302\303\304\305\306\307!!\310BBB\311\257\207\312\311\305\307!\257\207" [e file-directory-p dir-tree-dir-widget :node push-button :tag file-name-as-directory file-name-nondirectory (:format "%[%t%]\n" :notify dir-tree-refresh-dir) :path dir-tree-file-widget] 7 (#$ . 2036)]) #@61 Return the list of entries in DIR. Place directories first. (defalias 'dir-tree-list #[(dir) "\305\306\"\307\211\211\f\2032\f@\fA \310\307O\311\230\204 \312 !\203+ \nB\202 B\202 \n\244\237,\207" [dir entry dirs files entries directory-files full nil -1 "." file-directory-p] 4 (#$ . 2417)]) #@59 Return TREE widget children. Reuse :args cache if exists. (defalias 'dir-tree-expand-dir #[(tree) "\302\303\"\206\302\304\"\305\306 \"\210\307\310\311\217)\207" [tree dir widget-get :args :path message "Reading directory '%s'..." err (byte-code "\301\302\303!\"\304\305\"\210\207" [dir mapcar dir-tree-widget dir-tree-list message "Reading directory '%s'...done"] 4) ((error (byte-code "\301\302\303!\"\210\304\207" [err message "%s" error-message-string nil] 4)))] 3 (#$ . 2731)]) #@46 Display a tree of entries in ROOT directory. (defalias 'dir-tree #[(root) "\306\307\310\"!\210\311 \210\312\313 \210)\314 \315\316\n@\"\210\315\316\nA\"\210)\317\320 \206- \206-\321)\322\307\323\"!\210\324\325!!\210)\326!\210\327 \210eb\207" [root inhibit-read-only all name tree-widget--image-cache tree-widget-theme switch-to-buffer format "* %s directory tree*" kill-all-local-variables t erase-buffer dir-tree-overlay-lists mapcar dir-tree-delete-overlay "folder" nil "default" widget-insert "%s directory tree. \n\n" widget-create dir-tree-widget use-local-map widget-setup tree-widget--theme default-directory widget-keymap] 4 (#$ . 3227) "DRoot: "]) (provide 'dir-tree)