Lines Matching +defs:mode +defs:function
48 ;; Define your own function, e.g. browse-url, for opening a fileset's
183 ;(fset 'filesets-some 'some) ;; or use the cl function
190 (function equal))))
194 ;(fset 'filesets-member 'member*) ;; or use the cl function
248 "Set-default wrapper function."
258 "Set-default wrapper function used in conjunction with `defcustom'.
312 :set (function filesets-set-default)
319 :set (function filesets-set-default)
326 :set (function filesets-set-default)
333 :set (function filesets-set-default)
339 :set (function filesets-set-default!)
345 :set (function filesets-set-default!)
351 ; :set (function filesets-set-default!)
362 :set (function filesets-set-default)
390 :set (function filesets-set-default)
428 :set (function filesets-set-default)
436 :set (function filesets-set-default)
445 :set (function filesets-set-default)
453 :set (function filesets-set-default)
459 :set (function filesets-set-default)
463 (defcustom filesets-browse-dir-function 'dired
464 "*A function or command used for browsing directories.
469 :set (function filesets-set-default)
477 (function :tag "Function"
481 (defcustom filesets-open-file-function 'filesets-find-or-display-file
482 "*The function used for opening files.
484 `filesets-find-or-display-file' ... Filesets' default function for
485 visiting files. This function checks if an external viewer is defined
489 `filesets-find-file' ... An alternative function that always uses
494 :set (function filesets-set-default)
500 (function :tag "Function"
504 (defcustom filesets-save-buffer-function 'save-buffer
505 "*The function used to save a buffer.
507 :set (function filesets-set-default)
511 (function :tag "Function"
524 :set (function filesets-set-default)
532 :set (function filesets-set-default)
538 :set (function filesets-set-default)
544 :set (function filesets-set-default)
566 :set (function filesets-set-default)
585 function that returns one) to be run on a filesets' files.
589 :set (function filesets-set-default+)
595 (function :tag "Function"))
604 (function :tag "Function"
652 function or a command name as string.
693 :set (function filesets-set-default)
707 (function :tag "Function"))
733 (function :tag "Function"
820 Define how to find included file according to a file's mode (being
839 :get-file-name FUNCTION (default: `filesets-which-file') ... A function
856 :preprocess FUNCTION ... A function modifying a buffer holding the
858 used to narrow a buffer to the relevant region. This function could also
891 :set (function filesets-set-default)
913 (function :tag "Function"))
925 (function :tag "Function"))
937 (function :tag "Function")))))))
988 :dormant-p FUNCTION ... a function returning :dormant-flag
990 :open FUNCTION ... the function used to open file belonging to this
991 fileset. The function takes a file name as argument
993 :save FUNCTION ... the function used to save file belonging to this
1002 function used for opening files in a directory, not for opening the
1003 directory. For browsing directories, `filesets-browse-dir-function' is used.
1008 :set (function filesets-data-set-default)
1056 (function :tag "Function"))
1057 (list :tag "Save function"
1060 (function :tag "Function"))
1061 (list :tag "Open function"
1064 (function :tag "Function")))))))
1070 :set (function filesets-set-default)
1102 ACCESS-FN ... function to get the string value of LST's elements.
1108 (function identity)))
1397 "Get the directory browser's name as defined in `filesets-browse-dir-function'."
1399 ((listp filesets-browse-dir-function)
1400 (car filesets-browse-dir-function))
1402 filesets-browse-dir-function)))
1405 "Browse DIR using `filesets-browse-dir-function'."
1406 (if (functionp filesets-browse-dir-function)
1407 (funcall filesets-browse-dir-function dir)
1408 (let ((name (car filesets-browse-dir-function))
1409 (args (format (cadr filesets-browse-dir-function) (expand-file-name dir))))
1456 (defun filesets-entry-mode (entry)
1457 "Return fileset ENTRY's mode: :files, :file, :tree, :pattern, or :ingroup.
1467 "Get the open-function for FILESET-NAME.
1468 Use FILESET-ENTRY for finding the open function, if provided."
1471 ':open filesets-open-file-function t))
1474 "Get the save-function for FILESET-NAME.
1475 Use FILESET-ENTRY for finding the save function, if provided."
1478 ':save filesets-save-buffer-function t))
1538 (defun filesets-file-open (open-function file-name &optional fileset-name)
1541 (let ((open-function (or open-function
1544 (funcall open-function file-name)
1547 (defun filesets-file-close (save-function buffer)
1556 (funcall save-function))
1560 (defun filesets-get-fileset-from-name (name &optional mode)
1562 (case mode
1602 "Helper function for `filesets-run-cmd'. Apply FORMAT-FN to arg.
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))))
1698 "Wrapper function for `shell-command'."
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))
1761 (open-function (filesets-entry-get-open-fn nil lookup-fs)))
1766 (filesets-file-open open-function this))
1770 (defun filesets-close (&optional mode name lookup-name)
1772 Use LOOKUP-NAME for deducing the save-function, if provided."
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))
1783 (save-function (filesets-entry-get-save-fn nil lookup-fs)))
1787 (filesets-file-close save-function buffer)))))
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)]
1980 ; ,(list (function filesets-convert-patterns) something)]
1986 [,(concat "Close all files") (filesets-close ',mode ',something)]
1987 ["Run Command" (filesets-run-cmd nil ',something ',mode)]
2020 "Helper function for `filesets-ingroup-collect'. Find pattern PATT."
2042 "Helper function for `filesets-ingroup-collect'. Collect file names."
2112 "Helper function for `filesets-ingroup-collect'. Build the menu.
2177 "Helper function for `filesets-build-dir-submenu'."
2189 ,(list (function filesets-open)
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)]
2306 (function file-name-nondirectory))))
2307 ,@(filesets-get-menu-epilog lookup-name mode
2329 (do ((data (filesets-conditional-sort filesets-data (function car))
2510 (function filesets-build-menu-maybe))
2511 (add-hook 'kill-buffer-hook (function filesets-remove-from-ubl))
2512 (add-hook 'first-change-hook (function filesets-reset-filename-on-change))
2513 (add-hook 'kill-emacs-hook (function filesets-exit))