<commit_before>;;; radian-dired.el --- Filesystem management via Dired

(require 'radian-bind-key)
(require 'radian-os)

;; Make C-x C-j jump to the current file in Dired. For some reason,
;; the autoload for `dired-jump' does not appear to work correctly, so
;; we have to autoload the functions explicitly.

(autoload #'dired-jump "dired-x")
(autoload #'dired-jump-other-window "dired-x")

(bind-keys
 ("C-x C-j" . dired-jump)
 ("C-x 4 C-j" . dired-jump-other-window))

;; Dired has some trouble parsing out filenames that have e.g. leading
;; spaces, unless the ls program used has support for Dired. GNU ls
;; has this support, so if it is available we tell Dired to use it.
;; Otherwise, we tell Dired to not attempt to use the --dired option
;; and to just do its best.
(radian-with-operating-system macOS
  (if (executable-find "gls")
      (setq insert-directory-program "gls")
    (setq dired-use-ls-dired nil)))

(provide 'radian-dired)

;;; radian-dired.el ends here<commit_msg>Silence auato-revert-mode in Dired<commit_after>;;; radian-dired.el --- Filesystem management via Dired

(require 'radian-bind-key)
(require 'radian-os)

;; Make C-x C-j jump to the current file in Dired. For some reason,
;; the autoload for `dired-jump' does not appear to work correctly, so
;; we have to autoload the functions explicitly.

(autoload #'dired-jump "dired-x")
(autoload #'dired-jump-other-window "dired-x")

(bind-keys
 ("C-x C-j" . dired-jump)
 ("C-x 4 C-j" . dired-jump-other-window))

;; Dired has some trouble parsing out filenames that have e.g. leading
;; spaces, unless the ls program used has support for Dired. GNU ls
;; has this support, so if it is available we tell Dired to use it.
;; Otherwise, we tell Dired to not attempt to use the --dired option
;; and to just do its best.
(radian-with-operating-system macOS
  (if (executable-find "gls")
      (setq insert-directory-program "gls")
    (setq dired-use-ls-dired nil)))

;; Prevent `auto-revert-mode' from showing messages in the echo area
;; in Dired mode.

(defun radian--silence-auto-revert-mode ()
  "Silence `auto-revert-mode' in the current buffer.
This function is to be placed on `dired-mode-hook'."
  (setq-local auto-revert-verbose nil))

(add-hook 'dired-mode-hook #'radian--silence-auto-revert-mode)

(provide 'radian-dired)

;;; radian-dired.el ends here
{'fraction_non_alphanumeric': 0.12900469884664673, 'fraction_numerical': 0.0008543357539513029, 'mean_word_length': 3.789366053169734, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1181071', 'n_tokens_mistral': 841, 'n_tokens_neox': 820, 'n_words': 288}