Lines Matching +refs:dired +refs:get +refs:filename
189 (let ((fsm-test (or (plist-get fsm-keys ':test)
443 filesets-data could get out of sync. Set this to t if this happens from
463 (defcustom filesets-browse-dir-function 'dired
471 (const :tag "dired"
472 :value dired)
579 ("-n " filesets-get-quoted-selection " " "<<file-name>>"))
588 the filename."
759 (:get-file-name (lambda (master file)
767 (:get-file-name (lambda (master file)
777 (:get-file-name (lambda (master file)
786 (:get-file-name (lambda (master file)
796 (:get-file-name (lambda (master file)
803 (:get-file-name (lambda (master file)
810 (:get-file-name (lambda (master file)
825 \(mandatory), :name, :get-file-name, :match-number, :scan-depth,
839 :get-file-name FUNCTION (default: `filesets-which-file') ... A function
910 (list :tag ":get-file-name"
911 :value (:get-file-name)
912 (const :format "" :value :get-file-name)
1102 ACCESS-FN ... function to get the string value of LST's elements.
1168 (defun filesets-get-selection ()
1176 (defun filesets-get-quoted-selection ()
1178 (filesets-quote (filesets-get-selection)))
1180 (defun filesets-get-shortcut (n)
1210 (defun filesets-which-file (master filename &optional path-list)
1213 filename)))
1223 (if (equal filename (file-name-nondirectory file))
1230 (defun filesets-eviewer-get-props (entry)
1235 (let* ((props (filesets-eviewer-get-props entry))
1246 (defun filesets-get-external-viewer (file)
1248 (let ((filename (file-name-nondirectory file)))
1251 (when (and (string-match (nth 0 entry) filename)
1256 (defun filesets-get-external-viewer-by-name (name)
1266 (defun filesets-filetype-property (filename event &optional entry)
1284 (let ((def (filesets-eviewer-get-props
1286 (filesets-get-external-viewer filename)))))
1287 (filesets-alist-get def
1295 (defun filesets-filetype-get-prop (property filename &optional entry)
1296 "Returns PROPERTY for filename -- use ENTRY if provided."
1297 (let ((def (filesets-eviewer-get-props
1299 (filesets-get-external-viewer filename)))))
1301 (filesets-alist-get def property nil t))))
1303 (defun filesets-reset-filename-on-change ()
1304 "Reset a buffer's filename if the buffer is being modified."
1314 (filesets-get-external-viewer file))))
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)))
1378 (filesets-get-external-viewer-by-name viewer)
1379 (filesets-get-external-viewer file))))
1415 (defun filesets-get-fileset-name (something)
1423 (defun filesets-data-get-name (entry)
1427 (defun filesets-data-get-data (entry)
1431 (defun filesets-alist-get (alist key &optional default carp)
1443 (defun filesets-data-get (entry key &optional default carp)
1446 (filesets-alist-get (filesets-data-get-data entry) key default carp))
1450 (let* ((alist (filesets-data-get-data entry))
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)
1482 (filesets-data-get entry ':files))
1486 (let ((files (filesets-entry-get-files entry)))
1490 (defun filesets-entry-get-verbosity (entry)
1492 (filesets-data-get entry ':verbosity 1 t))
1494 (defun filesets-entry-get-file (entry)
1496 (filesets-data-get entry ':file nil t))
1498 (defun filesets-entry-get-pattern (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)
1517 (filesets-data-get entry ':tree))
1519 (defun filesets-entry-get-dormant-flag (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)
1528 (filesets-data-get entry ':filter-dirs-flag nil t))
1530 (defun filesets-entry-get-tree-max-level (entry)
1532 (filesets-data-get entry ':tree-max-level nil t))
1534 (defun filesets-entry-get-master (entry)
1536 (filesets-data-get entry ':ingroup nil t))
1542 (filesets-entry-get-open-fn fileset-name))))
1560 (defun filesets-get-fileset-from-name (name &optional mode)
1570 (defun filesets-cmd-get-def (cmd-name)
1574 (defun filesets-cmd-get-args (cmd-name)
1575 (let ((args (let ((def (filesets-cmd-get-def cmd-name)))
1586 (defun filesets-cmd-get-fn (cmd-name)
1587 (let ((def (filesets-cmd-get-def cmd-name)))
1603 Replace <file-name> or <<file-name>> with filename."
1627 (filesets-get-filelist fileset mode event)
1628 (filesets-get-filelist
1629 (filesets-get-fileset-from-name name)
1632 (let ((fn (filesets-cmd-get-fn cmd-name))
1633 (args (filesets-cmd-get-args cmd-name)))
1667 (defun filesets-get-cmd-menu ()
1713 (defun filesets-get-filelist (entry &optional mode event)
1720 (filesets-entry-get-files entry))
1722 (list (filesets-entry-get-file entry)))
1727 (filesets-entry-get-master entry)))))
1728 (cons entry (filesets-ingroup-cache-get 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)))
1753 (fileset (filesets-get-fileset-from-name name mode))
1755 (filesets-get-fileset-from-name lookup-name)
1759 (let* ((files (filesets-get-filelist fileset mode 'on-open-all))
1761 (open-function (filesets-entry-get-open-fn nil lookup-fs)))
1776 (fileset (filesets-get-fileset-from-name name mode))
1778 (filesets-get-fileset-from-name lookup-name)
1782 (let ((files (filesets-get-filelist fileset mode 'on-close-all))
1783 (save-function (filesets-entry-get-save-fn nil lookup-fs)))
1785 (let* ((buffer (get-file-buffer file-name)))
1812 (let* ((files (filesets-entry-get-files entry))
1838 (let* ((files (filesets-entry-get-files entry))
1856 (let ((pattern (filesets-entry-get-pattern entry))
1857 (patfiles (filesets-get-filelist entry ':pattern)))
1886 (let* ((name (concat (filesets-get-shortcut count)
1922 (filesets-get-shortcut n)
1945 (defun filesets-get-menu-epilog (something &optional
1973 (filesets-entry-get-pattern--dir
1974 (filesets-entry-get-pattern
1975 (filesets-get-fileset-from-name something ':pattern))))]
1998 (defun filesets-ingroup-get-data (master pos &optional fun)
2011 (defun filesets-ingroup-get-pattern (master)
2013 (filesets-ingroup-get-data master 2))
2015 (defun filesets-ingroup-get-remdupl-p (master)
2017 (filesets-ingroup-get-data master 1))
2028 (defun filesets-ingroup-cache-get (master)
2030 (lax-plist-get filesets-ingroup-cache master))
2036 (cons file (filesets-ingroup-cache-get emaster))
2044 (filesets-entry-get-master fs)))
2046 (filesets-ingroup-get-remdupl-p master))))
2049 (let ((cmdpatts (filesets-ingroup-get-pattern master))
2054 (let* ((this-patt (filesets-alist-get this-def ':pattern nil t))
2055 (this-name (filesets-alist-get this-def ':name "" t))
2056 (this-pp (filesets-alist-get this-def ':preprocess nil t))
2057 (this-mn (filesets-alist-get this-def ':match-number 1 t))
2059 (filesets-alist-get this-def ':scan-depth 0 t)))
2060 (this-csp (filesets-alist-get this-def ':case-sensitive nil t))
2061 (this-fn (filesets-alist-get
2062 this-def ':get-file-name 'filesets-which-file t))
2063 (this-stubp (filesets-alist-get this-def ':stubp nil t))
2064 (this-stub-flag (filesets-alist-get this-def ':stub-flag nil t))
2126 (nm (concat (filesets-get-shortcut (if (or (not other-count) files)
2152 ,@(filesets-get-menu-epilog master ':ingroup fsn)))
2166 (let ((remdupl-flag (filesets-ingroup-get-remdupl-p master)))
2205 (nm (concat (filesets-get-shortcut count)
2214 `[,(concat (filesets-get-shortcut count)
2225 (filesets-get-menu-epilog `(,dir ,patt) ':tree
2232 (let ((fd (filesets-entry-get-filter-dirs-flag entry))
2233 (depth (or (filesets-entry-get-tree-max-level entry)
2241 (filesets-data-get-name entry))))
2244 (filesets-verbosity (filesets-entry-get-verbosity entry))
2245 (this-lookup-name (concat (filesets-get-shortcut count)
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))
2268 `[,(concat (filesets-get-shortcut count)
2272 ,@(filesets-get-menu-epilog lookup-name mode
2275 (let* ((master (filesets-entry-get-master entry)))
2285 ,@(filesets-get-menu-epilog master mode lookup-name t))))
2287 (let* ((dirpatt (filesets-entry-get-tree entry))
2292 (let ((files (filesets-get-filelist entry mode 'on-open-all))
2301 `[,(concat (filesets-get-shortcut count)
2307 ,@(filesets-get-menu-epilog lookup-name mode
2334 (name (filesets-data-get-name this))
2335 (cached (lax-plist-get filesets-submenus name))
2341 (unless (filesets-entry-get-dormant-flag this)
2358 ,(filesets-get-cmd-menu)
2400 (if (get this 'custom-type)
2512 (add-hook 'first-change-hook (function filesets-reset-filename-on-change))