;;; system.el -*- lexical-binding: t; -*-
;;;
;;; Author:  Jakob L. Kreuze <zerodaysfordays@sdf.org>
;;; URL:     https://git.sr.ht/~jakob/.emacs.d/
;;;
;;; Configuration for packages which work at the operating system level
;;; (particularly the file system).
;;;

;; Set up keybindings for calling 'ag'.

(use-package rg
  :bind
  ("C-c k" . counsel-rg))

(use-package dired
  :straight nil
  ;; Hide the targets of symbolic links in `dired' listings. This is a visual
  ;; preference of mine.
  :init
  (setq-default dired-listing-switches "-alL")

  ;; Show '.eln' files the same way that '.elc' files are.
  :config
  (push ".eln" completion-ignored-extensions)

  :bind
  (:map dired-mode-map
    ("C-M-," . find-name-dired)))

(use-package dired-rmjunk
  ;; Set up a keybinding for invoking `dired-rmjunk' from `dired-mode'.
  :bind
  (:map dired-mode-map
    ("r" . dired-rmjunk))

  ;; Implement my customizations from =rmshit.py=.
  :init
  (setq dired-rmjunk-patterns
        '(".recently-used"
          ".local/share/recently-used.xbel"
          ".thumbnails"
          ".gconfd"
          ".gconf"
          ".local/share/gegl-0.2"
          ".gstreamer-0.10"
          ".esd_auth"
          ".config/enchant"
          ".parallel"
          ".dbus"
          "ca2"
          "ca2~"
          ".nv/"
          ".npm/"
          ".java/"
          ".oracle_jre_usage/"
          ".jssc/"
          ".tox/"
          ".pylint.d/"
          ".guile_history"
          ".sqlite_history"
          ".python_history"
          ".hy-history"
          ".lesshst"
          ".audacity-data"
          ".wget-hsts"
          ".scapy_history"
          ".gdb_history"
          ".binwalk"
          ".lyrics"
          ".slime-history.eld"
          ".w3m")))