;;; -*- lexical-binding: t -*-

;; Time-stamp: <2022-11-16 07h55 CET (anker)>

(use-package dired
  :defer t
  :config
  (setq dired-listing-switches "--group-directories-first -alh"
    dired-auto-revert-buffer t
    dired-dwim-target t
    ;; ???
    ;; dired-guess-shell-alist-user '(("\\.djvu\\'" "zathura")
    ;;                                ("\\.pdf\\'" "zathura")
    ;;                                ("\\.ps\\'" "zathura"))
    ))

(use-package browse-url
  :defer t
  :config
  (setq browse-url-generic-program "firefox"
    browse-url-browser-function 'browse-url-default-browser))

(setq backup-directory-alist `((".*" . ,temporary-file-directory))
      auto-save-file-name-transforms `((".*" ,temporary-file-directory t)))


(defun set-selective-display-dlw (&optional level)
  "Fold text indented same of more than the cursor.
If level is set, set the indent level to LEVEL.
If 'selective-display' is already set to LEVEL, clicking
F5 again will unset 'selective-display' by setting it to 0."
  (interactive "P")
  (if (eq selective-display (1+ (current-column)))
      (set-selective-display 0)
    (set-selective-display (or level (1+ (current-column))))))