Merge branch 'main' of gitlab.com:marcuskammer/emacs.d into main

bundle/bundle--customfile.el

@@ -12,13 +12,14 @@
 (when (eq system-type 'windows-nt)
   (setq custom-file "~/.emacs.d/bundle/custom_win32.el")
   (add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets"))
-  (cd "~/opt")
+  (cd "d:/opt")
   (setq sbcl-exe (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\2.0.0\\sbcl.exe")
         sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\2.0.0\\sbcl.core")
 	inferior-lisp-program "sbcl"
 	slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))
 
   (setq python-shell-interpreter "python")
+  (setq geiser-active-implementations '(guile))
 
   (when (string= (system-name) "EVG02667NB")
     (add-to-list 'Info-default-directory-list "~/Info")

bundle/bundle--defaults.el

@@ -6,13 +6,19 @@
 (global-hl-line-mode 1)
 (define-key menu-bar-tools-menu [games] nil)
 (display-time-mode 1)
+(setq-default display-time-24hr-format t)
 (global-prettify-symbols-mode 1)
 (setq-default mode-line-format
               (list "-"
-                    (system-name)
+                    '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) " ")))))
 
@@ -41,6 +47,7 @@
   (setq-default shell-file-name "/bin/bash")
   (setq-default tex-shell-file-name "/bin/bash"))
 
+
 ;; Files and sessions
 (setq-default auto-save-timeout 60)
 

bundle/custom_win32_EVG02667NB.el

@@ -32,7 +32,7 @@
     (("github.com" "api.github.com" "github.com" forge-github-repository)
      ("gitlab.com" "gitlab.com/api/v4" "gitlab.com" forge-gitlab-repository)
      ("code.siemens.com" "code.siemens.com/api/v4" "code.siemens.com" forge-gitlab-repository))))
- '(geiser-default-implementation (quote racket))
+
  '(initial-buffer-choice
    "d:/UserData/marcus.kammer/OneDrive - Siemens AG/documents/Journal/notes.org")
  '(initial-frame-alist nil)