emacs/lisp/filesets.el

410 (defcustom filesets-cache-fill-content-hooks nil
515 (defcustom filesets-find-file-delay
666 :open-hook HOOK ... run hooks after spawning the viewer -- mainly useful
820 Define how to find included file according to a file's mode (being
1353 		  (run-hooks 'oh))
1358 	      (run-hooks 'oh))))
1363   "Call `find-file' after a possible delay (see `filesets-find-file-delay').
1366 ;  (sleep-for filesets-find-file-delay)
1369     (sit-for filesets-find-file-delay)
1456 (defun filesets-entry-mode (entry)
1457   "Return fileset ENTRY's mode: :files, :file, :tree, :pattern, or :ingroup.
1560 (defun filesets-get-fileset-from-name (name &optional mode)
1562   (case mode
1612 (defun filesets-run-cmd (&optional cmd-name fileset mode)
1625 			     (or (equal mode ':ingroup)
1626 				 (equal mode ':tree)))
1627 			(filesets-get-filelist fileset mode event)
1630 		      mode event))))
1713 (defun filesets-get-filelist (entry &optional mode event)
1715 Assume MODE (see `filesets-entry-mode'), if provided."
1716   (let* ((mode (or mode
1717 		   (filesets-entry-mode entry)))
1718 	 (fl (case mode
1747 (defun filesets-open (&optional mode name lookup-name)
1753 	 (fileset (filesets-get-fileset-from-name name mode))
1757 	 (mode (or mode (filesets-entry-mode lookup-fs))))
1759 	(let* ((files         (filesets-get-filelist fileset mode 'on-open-all))
1770 (defun filesets-close (&optional mode name lookup-name)
1776 	 (fileset (filesets-get-fileset-from-name name mode))
1780 	 (mode (or mode (filesets-entry-mode lookup-fs))))
1782 	(let ((files         (filesets-get-filelist fileset mode 'on-close-all))
1819 	   ((and (equal (filesets-entry-mode entry) ':files)
1852   "Change fileset NAME's mode from :pattern to :files."
1946 					   mode lookup-name rebuild-flag)
1948 If mode is :tree or :ingroup, SOMETHING is some weird construct and
1950   (case mode
1953        ["Close all files" (filesets-close ',mode ',something ',lookup-name)]
1954        ["Run Command"     (filesets-run-cmd nil ',something ',mode)]
1962        ["Close all files" (filesets-close ',mode ',something ',lookup-name)]
1963        ["Run Command"     (filesets-run-cmd nil ',something ',mode)]
1969        ["Close all files" (filesets-close ',mode ',something)]
1970        ["Run Command"     (filesets-run-cmd nil ',something ',mode)]
1986        [,(concat "Close all files") (filesets-close ',mode ',something)]
1987        ["Run Command"               (filesets-run-cmd nil ',something ',mode)]
2243     (let ((mode (filesets-entry-mode entry))
2247       (case mode
2254 	   ,@(case mode
2256 		(let* ((files    (filesets-get-filelist entry mode 'on-ls))
2262 		     ,(list (function filesets-open) mode lookup-name)]
2272 		    ,@(filesets-get-menu-epilog lookup-name mode
2279 		     (filesets-open ',mode ',master ',lookup-name)]
2285 		    ,@(filesets-get-menu-epilog master mode lookup-name t))))
2292 		(let ((files (filesets-get-filelist entry mode 'on-open-all))
2295 		     (filesets-open ',mode ',lookup-name)]
2307 		    ,@(filesets-get-menu-epilog lookup-name mode
2416       (run-hooks 'filesets-cache-fill-content-hooks)
2508 Set up hooks, load the cache file -- if existing -- and build the menu."