Variable: diredfl-font-lock-keywords-1
diredfl-font-lock-keywords-1 is a variable defined in diredfl.el.
Value
Large value
(("^ \\(.+:\\)$" 1 diredfl-dir-heading) ("^ wildcard.*$" 0 'default)
("^ (No match).*$" 0 'default)
("[^ .]\\(\\.[^. /]+\\)$" 1 diredfl-file-suffix)
("\\([^ ]+\\) -> .+$" 1 diredfl-symlink)
("\\([0-9][BkKMGTPEZYRQ]? \\(\\([0-9][0-9][0-9][0-9]-\\)?[01][0-9]-[0-3][0-9][ T][ 0-2][0-9][:.][0-5][0-9]\\(:[0-6][0-9]\\([.,][0-9]+\\)?\\( ?[-+][0-2][0-9][0-5][0-9]\\)?\\)?\\|[0-9][0-9][0-9][0-9]-[01][0-9]-[0-3][0-9]\\)\\|.*[0-9][BkKMGTPEZYRQ]? \\(\\(\\([A-Za-z']\\|[^�-]\\)\\([A-Za-z']\\|[^�-]\\)+\\.? +[ 0-3][0-9]\\|[ 0-3][0-9]\\.? \\([A-Za-z']\\|[^�-]\\)\\([A-Za-z']\\|[^�-]\\)+\\.?\\) +\\([ 0-2][0-9][:.][0-5][0-9]\\|[0-9][0-9][0-9][0-9]\\)\\|\\([A-Za-z']\\|[^�-]\\)\\([A-Za-z']\\|[^�-]\\)+\\.? +[ 0-3][0-9], +[0-9][0-9][0-9][0-9]\\|[ 0-3][0-9]-\\([A-Za-z']\\|[^�-]\\)\\([A-Za-z']\\|[^�-]\\)+\\.?-[0-9][0-9][0-9][0-9] [ 0-2][0-9][:.][0-5][0-9]\\|\\([ 0-1]?[0-9]\\([A-Za-z]\\|[^�-]\\)? [ 0-3][0-9]\\([A-Za-z]\\|[^�-]\\)? +\\|[ 0-3][0-9] [ 0-1]?[0-9] +\\)\\([ 0-2][0-9][:.][0-5][0-9]\\|[0-9][0-9][0-9][0-9]\\([A-Za-z]\\|[^�-]\\)?\\)\\)\\) +"
(7 diredfl-date-time t t) (2 diredfl-date-time t t)
("\\(.+\\)\\(\\(?:\\.\\(?:arj\\|bz2\\|gz\\|lz\\(?:h\\|ma\\)\\|t\\(?:a[rz]\\|gz\\)\\|xz\\|zip\\|[Zz]\\)\\)\\)[*]?$"
nil nil (0 diredfl-compressed-file-name keep t)))
("\\([0-9][BkKMGTPEZYRQ]? \\(\\([0-9][0-9][0-9][0-9]-\\)?[01][0-9]-[0-3][0-9][ T][ 0-2][0-9][:.][0-5][0-9]\\(:[0-6][0-9]\\([.,][0-9]+\\)?\\( ?[-+][0-2][0-9][0-5][0-9]\\)?\\)?\\|[0-9][0-9][0-9][0-9]-[01][0-9]-[0-3][0-9]\\)\\|.*[0-9][BkKMGTPEZYRQ]? \\(\\(\\([A-Za-z']\\|[^�-]\\)\\([A-Za-z']\\|[^�-]\\)+\\.? +[ 0-3][0-9]\\|[ 0-3][0-9]\\.? \\([A-Za-z']\\|[^�-]\\)\\([A-Za-z']\\|[^�-]\\)+\\.?\\) +\\([ 0-2][0-9][:.][0-5][0-9]\\|[0-9][0-9][0-9][0-9]\\)\\|\\([A-Za-z']\\|[^�-]\\)\\([A-Za-z']\\|[^�-]\\)+\\.? +[ 0-3][0-9], +[0-9][0-9][0-9][0-9]\\|[ 0-3][0-9]-\\([A-Za-z']\\|[^�-]\\)\\([A-Za-z']\\|[^�-]\\)+\\.?-[0-9][0-9][0-9][0-9] [ 0-2][0-9][:.][0-5][0-9]\\|\\([ 0-1]?[0-9]\\([A-Za-z]\\|[^�-]\\)? [ 0-3][0-9]\\([A-Za-z]\\|[^�-]\\)? +\\|[ 0-3][0-9] [ 0-1]?[0-9] +\\)\\([ 0-2][0-9][:.][0-5][0-9]\\|[0-9][0-9][0-9][0-9]\\([A-Za-z]\\|[^�-]\\)?\\)\\)\\) +"
(7 diredfl-date-time t t) (2 diredfl-date-time t t)
("\\(.+\\)$" nil nil (0 diredfl-file-name keep t)))
(diredfl-match-ignored-extensions 1 diredfl-ignored-file-name t)
("\\(\\(?:\\.\\(?:arj\\|bz2\\|gz\\|lz\\(?:h\\|ma\\)\\|t\\(?:a[rz]\\|gz\\)\\|xz\\|zip\\|[Zz]\\)\\)\\)[*]?$"
1 diredfl-compressed-file-suffix t)
("\\([*]\\)$" 1 diredfl-executable-tag t)
("\\_<\\(\\([0-9]+\\([.,][0-9]+\\)?\\)[BkKMGTPEZY]?[ /]?\\)" 1
'diredfl-number)
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*\\(d\\)[^:]"
(1 diredfl-dir-priv t)
(".+" (dired-move-to-filename) nil (0 diredfl-dir-name t)))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]........\\(x\\)"
(1 diredfl-exec-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]........\\([lsStT]\\)"
(1 diredfl-other-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps].......\\(w\\)."
(1 diredfl-write-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]......\\(r\\).."
(1 diredfl-read-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps].....\\(x\\)..."
(1 diredfl-exec-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps].....\\([lsStT]\\)..."
(1 diredfl-other-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]....\\(w\\)...."
(1 diredfl-write-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]...\\(r\\)....."
(1 diredfl-read-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]..\\(x\\)..."
(1 diredfl-exec-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]..\\([lsStT]\\)..."
(1 diredfl-other-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps].\\(w\\)...."
(1 diredfl-write-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]\\(r\\)....."
(1 diredfl-read-priv))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]........\\([-rwxlsStT]\\)"
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps].......\\([-rwxlsStT]\\)."
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]......\\([-rwxlsStT]\\).."
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps].....\\([-rwxlsStT]\\)..."
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]....\\([-rwxlsStT]\\)...."
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]...\\([-rwxlsStT]\\)....."
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]..\\([-rwxlsStT]\\)......"
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps].\\([-rwxlsStT]\\)......."
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*[-bcdlps]\\([-rwxlsStT]\\)........"
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*\\(-\\)"
(1 diredfl-no-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*\\([bcsmpS]\\)"
(1 diredfl-rare-priv keep))
("^. [0-9 ]*[.,0-9]*[BkKMGTPEZYRQ]?[ ]*\\(l\\)[-rwxlsStT]"
(1 diredfl-link-priv keep))
("^\\([^\n D].*$\\)" (1 diredfl-flag-mark-line prepend))
("^\\([^\n D]\\)" (1 diredfl-flag-mark prepend))
("^\\([D].*$\\)" (1 diredfl-deletion-file-name prepend))
("^\\([D]\\)" (1 diredfl-deletion prepend)))
Documentation
2nd level of Dired highlighting. See font-lock-maximum-decoration.
Source Code
;; Defined in /nix/store/r10m8yv1raidrn3adc3gjqdxz7rm5wi5-emacs-packages-deps/share/emacs/site-lisp/elpa/diredfl-20241201.1141/diredfl.el
;;; Define second level of fontifying.
(defconst diredfl-font-lock-keywords-1
(list
'("^ \\(.+:\\)$" 1 diredfl-dir-heading) ; Directory headers
'("^ wildcard.*$" 0 'default) ; Override others, e.g. `l' for `diredfl-other-priv'.
'("^ (No match).*$" 0 'default) ; Override others, e.g. `t' for `diredfl-other-priv'.
'("[^ .]\\(\\.[^. /]+\\)$" 1 diredfl-file-suffix) ; Suffix, including `.'.
'("\\([^ ]+\\) -> .+$" 1 diredfl-symlink) ; Symbolic links
;; 1) Date/time and 2) filename w/o suffix.
;; This is a bear, and it is fragile - Emacs can change `dired-move-to-filename-regexp'.
`(,directory-listing-before-filename-regexp
(7 diredfl-date-time t t) ; Date/time, locale (western or eastern)
(2 diredfl-date-time t t) ; Date/time, ISO
(,(concat "\\(.+\\)\\(" (concat (funcall #'regexp-opt diredfl-compressed-extensions)
"\\)[*]?$"))
nil nil (0 diredfl-compressed-file-name keep t))) ; Compressed-file suffix
`(,directory-listing-before-filename-regexp
(7 diredfl-date-time t t) ; Date/time, locale (western or eastern)
(2 diredfl-date-time t t) ; Date/time, ISO
("\\(.+\\)$" nil nil (0 diredfl-file-name keep t))) ; Filename (not a compressed file)
;; Files to ignore
'(diredfl-match-ignored-extensions 1 diredfl-ignored-file-name t)
;; Compressed-file (suffix)
(list (concat "\\(" (concat (funcall #'regexp-opt diredfl-compressed-extensions) "\\)[*]?$"))
1 diredfl-compressed-file-suffix t)
'("\\([*]\\)$" 1 diredfl-executable-tag t) ; Executable (*)
;; Inode, hard-links, & file size (. and , are for the decimal point, depending on locale)
;; See comment for `directory-listing-before-filename-regexp' in `files.el' or `files+.el'.
'("\\_<\\(\\([0-9]+\\([.,][0-9]+\\)?\\)[BkKMGTPEZY]?[ /]?\\)" 1 'diredfl-number)
;; Directory names - exclude d:/..., Windows drive letter in a dir heading.
(list (concat dired-re-maybe-mark dired-re-inode-size "\\(d\\)[^:]")
'(1 diredfl-dir-priv t) '(".+" (dired-move-to-filename) nil (0 diredfl-dir-name t)))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]........\\(x\\)") ; o x
'(1 diredfl-exec-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]........\\([lsStT]\\)") ; o misc
'(1 diredfl-other-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps].......\\(w\\).") ; o w
'(1 diredfl-write-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]......\\(r\\)..") ; o r
'(1 diredfl-read-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps].....\\(x\\)...") ; g x
'(1 diredfl-exec-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps].....\\([lsStT]\\)...") ; g misc
'(1 diredfl-other-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]....\\(w\\)....") ; g w
'(1 diredfl-write-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]...\\(r\\).....") ; g r
'(1 diredfl-read-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]..\\(x\\)...") ; u x
'(1 diredfl-exec-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]..\\([lsStT]\\)...") ; u misc
'(1 diredfl-other-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps].\\(w\\)....") ; u w
'(1 diredfl-write-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]\\(r\\).....") ; u r
'(1 diredfl-read-priv))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]........\\([-rwxlsStT]\\)") ; o -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps].......\\([-rwxlsStT]\\).") ; g -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]......\\([-rwxlsStT]\\)..") ; u -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps].....\\([-rwxlsStT]\\)...") ; o -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]....\\([-rwxlsStT]\\)....") ; g -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]...\\([-rwxlsStT]\\).....") ; u -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]..\\([-rwxlsStT]\\)......") ; o -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps].\\([-rwxlsStT]\\).......") ; g -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "[-bcdlps]\\([-rwxlsStT]\\)........") ; u -
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "\\(-\\)")
'(1 diredfl-no-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "\\([bcsmpS]\\)") ; (rare)
'(1 diredfl-rare-priv keep))
(list (concat dired-re-maybe-mark dired-re-inode-size "\\(l\\)[-rwxlsStT]") ; l
'(1 diredfl-link-priv keep))
(list (concat "^\\([^\n " (char-to-string dired-del-marker) "].*$\\)")
'(1 diredfl-flag-mark-line prepend)) ; Flag/mark lines
(list (concat "^\\([^\n " (char-to-string dired-del-marker) "]\\)") ; Flags, marks (except D)
'(1 diredfl-flag-mark prepend))
(list (concat "^\\([" (char-to-string dired-del-marker) "].*$\\)") ; Deletion-flagged lines
'(1 diredfl-deletion-file-name prepend))
(list (concat "^\\([" (char-to-string dired-del-marker) "]\\)") ; Deletion flags (D)
'(1 diredfl-deletion prepend)))
"2nd level of Dired highlighting. See `font-lock-maximum-decoration'.")