From b2cb7a13d6732798a044804c3d2dd8d197c9a8a8 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <2262664-marcuskammer@users.noreply.gitlab.com>
Date: Thu, 26 Nov 2020 20:54:37 +0100
Subject: [PATCH] Optimize mode line and locale settings

---
 bundle/bundle--defaults.el | 31 +++++++++++++++++--------------
 1 file changed, 17 insertions(+), 14 deletions(-)

diff --git a/bundle/bundle--defaults.el b/bundle/bundle--defaults.el
index 3e327217..11a0c8ef 100644
--- a/bundle/bundle--defaults.el
+++ b/bundle/bundle--defaults.el
@@ -8,19 +8,6 @@
 (setq-default display-time-24hr-format t)
 (display-time-mode 1)
 (global-prettify-symbols-mode 1)
-(setq-default mode-line-format
-              (list "-"
-                    'system-name
-                    " "
-                    'display-time-string
-                    "-"
-                    'mode-line-frame-identification
-                    "%b "
-                    '(line-number-mode "%l ")
-                    'mode-line-process
-                    "%n"
-                    '(:eval (when-let (vc vc-mode)
-                              (list (substring vc 5) " ")))))
 
 ;; Cursor and mouse
 (column-number-mode -1)
@@ -39,10 +26,11 @@
                         (car
                          (calendar-iso-from-absolute
                           (calendar-absolute-from-gregorian
-                           (list month day year)))))
+                           (list year month day )))))
                 'font-lock-face 'font-lock-function-name-face))
 (setq-default ispell-program-name "aspell")
 (setq-default grep-command "grep -i -nH -e ")
+(setq-default display-time-format "W%W %F %R")
 (when (eq system-type 'gnu/linux)
   (setq-default shell-file-name "/bin/bash")
   (setq-default tex-shell-file-name "/bin/bash"))
@@ -82,3 +70,18 @@
          (width . 85)
          (height . 70)
          (fullscreen . fullscreen)))
+
+;; Mode line
+(setq-default mode-line-format
+              (list "-"
+                    'system-name
+                    " "
+                    'display-time-string
+                    "-"
+                    'mode-line-frame-identification
+                    "%b "
+                    '(line-number-mode "%l ")
+                    'mode-line-process
+                    "%n"
+                    '(:eval (when-let (vc vc-mode)
+                              (list (substring vc 5) " ")))))