Lines Matching +defs:fileset +defs:entry
32 ;; two mouse clicks only. A fileset is either a list of files, a file
48 ;; Define your own function, e.g. browse-url, for opening a fileset's
52 ;; BTW, if you close a fileset, files, which have been changed, will
112 "Non-nil means some fileset definition has changed.")
238 (defun filesets-reset-fileset (&optional fileset no-cache)
240 (if fileset
241 (setq filesets-submenus (lax-plist-put filesets-submenus fileset nil))
247 (defun filesets-set-config (fileset var val)
249 (filesets-reset-fileset fileset)
275 (filesets-reset-fileset)))
281 ; (filesets-reset-fileset nil t)))
299 (filesets-reset-fileset (car x))))))
305 "The fileset swapper."
350 ; "*Non-nil means show \"Convert :pattern to :files\" entry for :pattern menus."
444 time to time or if the fileset cache causes troubles."
457 (defcustom filesets-max-entry-length 50
550 A :tree fileset is defined by a base directory the contents of which
823 A valid entry has the form (FILE-PATTERN REMOVE-DUPLICATES-FLAG
945 A fileset is either a list of files, a file pattern, a base directory
968 :files FILE-1 .. FILE-N ... a list of files belonging to a fileset
991 fileset. The function takes a file name as argument
994 fileset; it takes no arguments, but works on the current buffer.
1049 (list :tag "Conceal fileset (Flag)"
1053 (list :tag "Conceal fileset (Function)"
1069 "*Query the user before opening a fileset with that many files."
1230 (defun filesets-eviewer-get-props (entry)
1232 (nth 2 entry))
1234 (defun filesets-eviewer-constraint-p (entry)
1235 (let* ((props (filesets-eviewer-get-props entry))
1250 (lambda (entry)
1251 (when (and (string-match (nth 0 entry) filename)
1252 (filesets-eviewer-constraint-p entry))
1253 entry))
1260 (lambda (entry)
1261 (when (and (string-equal (nth 1 entry) name)
1262 (filesets-eviewer-constraint-p entry))
1263 entry))
1266 (defun filesets-filetype-property (filename event &optional entry)
1272 a fileset
1285 (or entry
1295 (defun filesets-filetype-get-prop (property filename &optional entry)
1298 (or entry
1308 (defun filesets-spawn-external-viewer (file &optional ev-entry)
1313 (entry (or ev-entry
1315 (if entry
1316 (let* ((vwr (cadr entry))
1317 (co-flag (filesets-filetype-get-prop ':capture-output file entry))
1318 (oh (filesets-filetype-get-prop ':open-hook file entry))
1319 (args (let ((fmt (filesets-filetype-get-prop ':args file entry)))
1415 (defun filesets-get-fileset-name (something)
1423 (defun filesets-data-get-name (entry)
1424 "Access to `filesets-data'. Get the entry's name"
1425 (car entry))
1427 (defun filesets-data-get-data (entry)
1428 "Access to `filesets-data'. Get the entry's data section"
1429 (cdr entry))
1443 (defun filesets-data-get (entry key &optional default carp)
1444 "Extract the value for KEY in the data part of fileset ENTRY.
1446 (filesets-alist-get (filesets-data-get-data entry) key default carp))
1448 (defun filesets-data-set (entry key value)
1449 "Set the value for KEY in the data part of fileset ENTRY."
1450 (let* ((alist (filesets-data-get-data entry))
1454 (setcdr entry (cons (cons key value) alist)))))
1456 (defun filesets-entry-mode (entry)
1457 "Return fileset ENTRY's mode: :files, :file, :tree, :pattern, or :ingroup.
1459 (let ((data (filesets-data-get-data entry)))
1466 (defun filesets-entry-get-open-fn (fileset-name &optional fileset-entry)
1469 (filesets-data-get (or fileset-entry
1470 (filesets-get-fileset-from-name fileset-name))
1473 (defun filesets-entry-get-save-fn (fileset-name &optional fileset-entry)
1476 (filesets-data-get (or fileset-entry
1477 (filesets-get-fileset-from-name fileset-name))
1480 (defun filesets-entry-get-files (entry)
1481 "Get the file list for fileset ENTRY."
1482 (filesets-data-get entry ':files))
1484 (defun filesets-entry-set-files (entry data &optional anyways)
1485 "Set the file list for fileset ENTRY."
1486 (let ((files (filesets-entry-get-files entry)))
1488 (filesets-data-set entry ':files data))))
1490 (defun filesets-entry-get-verbosity (entry)
1491 "Get verbosity level for fileset ENTRY."
1492 (filesets-data-get entry ':verbosity 1 t))
1494 (defun filesets-entry-get-file (entry)
1495 "Get the single file for fileset ENTRY."
1496 (filesets-data-get entry ':file nil t))
1498 (defun filesets-entry-get-pattern (entry)
1499 "Get the base directory + file pattern for fileset ENTRY."
1500 ; (filesets-data-get entry ':pattern nil t))
1501 (filesets-data-get entry ':pattern))
1503 (defun filesets-entry-get-pattern--pattern (list)
1509 (defun filesets-entry-get-pattern--dir (list)
1515 (defun filesets-entry-get-tree (entry)
1516 "Get the tree pattern for fileset ENTRY."
1517 (filesets-data-get entry ':tree))
1519 (defun filesets-entry-get-dormant-flag (entry)
1520 "Get dormant flag for fileset ENTRY."
1521 (let ((fn (filesets-data-get entry ':dormant-p nil t)))
1524 (filesets-data-get entry ':dormant-flag nil t))))
1526 (defun filesets-entry-get-filter-dirs-flag (entry)
1527 "Get filter-dirs-flag for fileset ENTRY."
1528 (filesets-data-get entry ':filter-dirs-flag nil t))
1530 (defun filesets-entry-get-tree-max-level (entry)
1531 "Get maximal tree scanning depth for fileset ENTRY."
1532 (filesets-data-get entry ':tree-max-level nil t))
1534 (defun filesets-entry-get-master (entry)
1535 "Get the base file for fileset ENTRY."
1536 (filesets-data-get entry ':ingroup nil t))
1538 (defun filesets-file-open (open-function file-name &optional fileset-name)
1542 (filesets-entry-get-open-fn fileset-name))))
1560 (defun filesets-get-fileset-from-name (name &optional mode)
1561 "Get fileset definition for NAME."
1571 "Get `filesets-commands' entry for CMD-NAME."
1612 (defun filesets-run-cmd (&optional cmd-name fileset mode)
1618 (name (or fileset
1619 (completing-read "Select fileset: " filesets-data nil t))))
1624 (files (if (and fileset
1627 (filesets-get-filelist fileset mode event)
1629 (filesets-get-fileset-from-name name)
1713 (defun filesets-get-filelist (entry &optional mode event)
1714 "Get all files for fileset ENTRY.
1715 Assume MODE (see `filesets-entry-mode'), if provided."
1717 (filesets-entry-mode entry)))
1720 (filesets-entry-get-files entry))
1722 (list (filesets-entry-get-file entry)))
1724 (let ((entry (expand-file-name
1725 (if (stringp entry)
1726 entry
1727 (filesets-entry-get-master entry)))))
1728 (cons entry (filesets-ingroup-cache-get entry))))
1730 (let ((dir (nth 0 entry))
1731 (patt (nth 1 entry)))
1734 (let ((dirpatt (filesets-entry-get-pattern entry)))
1736 (let ((dir (filesets-entry-get-pattern--dir dirpatt))
1737 (patt (filesets-entry-get-pattern--pattern dirpatt)))
1740 ;; (message "Filesets: malformed entry: %s" entry)))))))
1741 (filesets-error 'error "Filesets: malformed entry: "
1742 entry)))))))
1748 "Open the fileset called NAME.
1752 (completing-read "Open fileset: " filesets-data nil t)))
1753 (fileset (filesets-get-fileset-from-name name mode))
1755 (filesets-get-fileset-from-name lookup-name)
1756 fileset))
1757 (mode (or mode (filesets-entry-mode lookup-fs))))
1758 (if fileset
1759 (let* ((files (filesets-get-filelist fileset mode 'on-open-all))
1761 (open-function (filesets-entry-get-open-fn nil lookup-fs)))
1768 (filesets-error 'error "Filesets: Unknown fileset: " name))))
1771 "Close all buffers belonging to the fileset called NAME.
1775 (completing-read "Close fileset: " filesets-data nil t)))
1776 (fileset (filesets-get-fileset-from-name name mode))
1778 (filesets-get-fileset-from-name lookup-name)
1779 fileset))
1780 (mode (or mode (filesets-entry-mode lookup-fs))))
1781 (if fileset
1782 (let ((files (filesets-get-filelist fileset mode 'on-close-all))
1783 (save-function (filesets-entry-get-save-fn nil lookup-fs)))
1788 ; (message "Filesets: Unknown fileset: `%s'" name))))
1789 (filesets-error 'error "Filesets: Unknown fileset: " name))))
1792 "Add BUFFER (or current-buffer) to the fileset called NAME.
1793 User will be queried, if no fileset name is provided."
1799 (format "Add '%s' to fileset: " buffer)
1801 (entry (or (assoc name filesets-data)
1811 (if entry
1812 (let* ((files (filesets-entry-get-files entry))
1819 ((and (equal (filesets-entry-mode entry) ':files)
1821 (filesets-entry-set-files entry (cons this files) t)
1824 (message "Filesets: Can't add '%s' to fileset '%s'" this name)))))))
1827 "Remove BUFFER (or current-buffer) to fileset NAME.
1828 User will be queried, if no fileset name is provided."
1834 (format "Remove '%s' from fileset: " buffer)
1836 (entry (assoc name filesets-data)))
1837 (if entry
1838 (let* ((files (filesets-entry-get-files entry))
1845 (setcdr entry new)
1847 (message "Filesets: Can't remove '%s' from fileset '%s'"
1852 "Change fileset NAME's mode from :pattern to :files."
1854 (let ((entry (assoc name filesets-data)))
1855 (if entry
1856 (let ((pattern (filesets-entry-get-pattern entry))
1857 (patfiles (filesets-get-filelist entry ':pattern)))
1860 (filesets-entry-set-files entry patfiles t)
1937 filesets-max-entry-length)
1939 (substring rv 0 filesets-max-entry-length)
1947 "Get submenu epilog for SOMETHING (usually a fileset).
1949 LOOKUP-NAME is used as lookup name for retrieving fileset specific settings."
1973 (filesets-entry-get-pattern--dir
1974 (filesets-entry-get-pattern
1975 (filesets-get-fileset-from-name something ':pattern))))]
2044 (filesets-entry-get-master fs)))
2113 FS is a fileset's name. FLIST is a list returned by
2175 (defun filesets-build-dir-submenu-now (level depth entry lookup-name dir patt fd
2203 (+ level 1) depth entry
2229 (defun filesets-build-dir-submenu (entry lookup-name dir patt)
2232 (let ((fd (filesets-entry-get-filter-dirs-flag entry))
2233 (depth (or (filesets-entry-get-tree-max-level entry)
2235 (filesets-build-dir-submenu-now 0 depth entry lookup-name dir patt fd t)))
2237 (defun filesets-build-submenu (count lookup-name entry)
2238 "Build submenu for the fileset ENTRY named LOOKUP-NAME.
2241 (filesets-data-get-name entry))))
2243 (let ((mode (filesets-entry-mode entry))
2244 (filesets-verbosity (filesets-entry-get-verbosity entry))
2249 (let* ((file (filesets-entry-get-file entry)))
2256 (let* ((files (filesets-get-filelist entry mode 'on-ls))
2257 (dirpatt (filesets-entry-get-pattern entry))
2275 (let* ((master (filesets-entry-get-master entry)))
2287 (let* ((dirpatt (filesets-entry-get-tree entry))
2290 (filesets-build-dir-submenu entry lookup-name dir patt)))
2292 (let ((files (filesets-get-filelist entry mode 'on-open-all))
2341 (unless (filesets-entry-get-dormant-flag this)
2379 (filesets-reset-fileset)
2383 (defun filesets-rebuild-this-submenu (fileset)
2385 (filesets-reset-fileset fileset)
2391 fileset thinks this is necessary or not."
2462 variable, change the entry `filesets-subdocument--cache' to