From 17d7f564876970b4e6c244e13ad0c49dc04db2d0 Mon Sep 17 00:00:00 2001
From: Wojciech Kozlowski <wk@wojciechkozlowski.eu>
Date: Wed, 30 Aug 2017 01:14:15 +0100
Subject: [PATCH] Add files module

---
 init.el          |   1 +
 modules/files.el | 116 +++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 117 insertions(+)
 create mode 100644 modules/files.el

diff --git a/init.el b/init.el
index 8fc4852..32974bd 100644
--- a/init.el
+++ b/init.el
@@ -99,6 +99,7 @@
   (init-packages/init '(
                         editing
                         emacs
+                        files
                         helm
                         parentheses
                         programming
diff --git a/modules/files.el b/modules/files.el
new file mode 100644
index 0000000..7b6ce29
--- /dev/null
+++ b/modules/files.el
@@ -0,0 +1,116 @@
+;;; files.el --- Module file for configuring file management.
+;;
+;; Copyright (C) 2017 Wojciech Kozlowski
+;;
+;; Author: Wojciech Kozlowski <wojciech.kozlowski@vivaldi.net>
+;; Created: 25 Aug 2017
+;;
+;; This file is not part of GNU Emacs.
+;;
+;;; Commentary:
+;;
+;; This module is used for configuring file management within Emacs.
+;;
+;;; License: GPLv3
+
+;;; Required packages:
+
+(setq init-packages/files-packages
+
+      '(vlf)
+
+      )
+
+;;; Configuration:
+
+(defun init-packages/init-files ()
+
+  ;; --------------------------------------------------------------------------
+  ;; Large file threshold.
+  ;; --------------------------------------------------------------------------
+
+  (setq large-file-warning-threshold 10485760) ;; 10 MB
+
+  ;; --------------------------------------------------------------------------
+  ;; Back up settings.
+  ;; --------------------------------------------------------------------------
+
+  (defvar backup-directory "~/.emacs.d/.backups")
+  (if (not (file-exists-p backup-directory))
+      (make-directory backup-directory t))
+
+  (setq-default
+   ;; Backup a file the first time it is saved
+   make-backup-files t
+   ;; Save backup files in ~/.emacs.d/.backups.
+   backup-directory-alist `((".*" . ,backup-directory))
+   ;; Copy the current file into backup directory.
+   backup-by-copying t
+   ;; Version numbers for backup files.
+   version-control t
+   ;; Delete unnecessary versions.
+   delete-old-versions t
+   ;; Oldest versions to keep when a new numbered backup is made.
+   kept-old-versions 2
+   ;; Newest versions to keep when a new numbered backup is made.
+   kept-new-versions 3
+   ;; Auto-save every buffer that visits a file.
+   auto-save-default t
+   ;; Number of seconds idle time before auto-save.
+   auto-save-timeout 30
+   ;; Number of keystrokes between auto-saves.
+   auto-save-interval 300)
+
+  ;; --------------------------------------------------------------------------
+  ;; Dired.
+  ;; --------------------------------------------------------------------------
+
+  (setq
+   ;; If another Dired buffer is visible, use it as target for Rename/Copy.
+   dired-dwim-target t
+   ;; "always" means no asking.
+   dired-recursive-copies 'always
+   ;; "top" means ask once for top level directory.
+   dired-recursive-deletes 'top
+   ;; Human-readable listing
+   dired-listing-switches "-lha --group-directories-first"
+   )
+
+  ;; Automatically refresh dired buffer on changes.
+  (add-hook 'dired-mode-hook 'auto-revert-mode)
+
+  (use-package dired-x
+    :init
+    (add-hook 'dired-mode-hook 'dired-omit-mode)
+    :config
+    (setq-default dired-omit-files "^\\.\\|^\\#"))
+
+  (use-package wdired
+    :config
+    (setq-default wdired-allow-to-change-permissions t
+                  wdired-allow-to-redirect-links t))
+
+  ;; --------------------------------------------------------------------------
+  ;; Recentf.
+  ;; --------------------------------------------------------------------------
+
+  (recentf-mode 1)
+  (use-package recentf-ext)
+
+  ;; --------------------------------------------------------------------------
+  ;; View large files.
+  ;; --------------------------------------------------------------------------
+
+  (use-package vlf-integrate
+    :config
+    (setq-default vlf-application 'dont-ask))
+
+  ;; --------------------------------------------------------------------------
+  ;; Remember location in file.
+  ;; --------------------------------------------------------------------------
+
+  (use-package save-place
+    :init
+    (save-place-mode 1))
+
+  )