summaryrefslogtreecommitdiff
path: root/emacs/inits/60-misc-configs.el
blob: 1da810e6e47262ad0c7569daf6eb4c0f37226f74 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
;; 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))))))