From 4620d2a0c5144a7b2dbb52cf14f19df77c4cbeb3 Mon Sep 17 00:00:00 2001 From: Wojciech Kozlowski Date: Sun, 27 Aug 2017 11:49:39 +0100 Subject: [PATCH] Set log files to log-view-mode --- init-packages/init-packages.el | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/init-packages/init-packages.el b/init-packages/init-packages.el index 98cc3ac..80ec8c7 100644 --- a/init-packages/init-packages.el +++ b/init-packages/init-packages.el @@ -62,6 +62,18 @@ after attempting to install all other packages first." ;;; Print functions +(defun init-packages/set-logs-read-only () + "Set log buffer to log-view-mode." + (when init-packages/print-logs + + (save-excursion + (set-buffer (get-buffer-create init-packages/log)) + (log-view-mode)) + + (save-excursion + (set-buffer (get-buffer-create init-packages/error-log)) + (log-view-mode)))) + (defun init-packages/erase-logs () "Erase both log buffers." (when init-packages/print-logs @@ -69,12 +81,14 @@ after attempting to install all other packages first." ;; Erase `init-packages/log'. (save-excursion (set-buffer (get-buffer-create init-packages/log)) + (read-only-mode 0) (erase-buffer) (goto-char (point-min))) ;; Erase `init-packages/error-log'. (save-excursion (set-buffer (get-buffer-create init-packages/error-log)) + (read-only-mode 0) (erase-buffer) (goto-char (point-min))))) @@ -265,7 +279,8 @@ this macro." "Initialise all modules in MODLIST." (init-packages/load-module-list modlist) (init-packages/install-packages (init-packages/cons-package-list modlist)) - (init-packages/init-module-list modlist)) + (init-packages/init-module-list modlist) + (init-packages/set-logs-read-only)) (provide 'init-packages)