From 65af351e9ebbc82bee76dfc8fc3d4674ea2f42f8 Mon Sep 17 00:00:00 2001 From: Marcus Kammer <2262664-marcuskammer@user.noreply.gitlab.com> Date: Thu, 26 Nov 2020 09:03:34 +0100 Subject: [PATCH 1/3] Move opt to D:/ --- bundle/bundle--customfile.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bundle/bundle--customfile.el b/bundle/bundle--customfile.el index bb7d248c..d0f7e6ec 100644 --- a/bundle/bundle--customfile.el +++ b/bundle/bundle--customfile.el @@ -6,7 +6,7 @@ (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" From 440afb2a05dc0e3206a9bc6ee68af38c1ad9682d Mon Sep 17 00:00:00 2001 From: Marcus Kammer <2262664-marcuskammer@user.noreply.gitlab.com> Date: Thu, 26 Nov 2020 17:48:36 +0100 Subject: [PATCH 2/3] Re-move geiser settings --- bundle/bundle--customfile.el | 1 + bundle/custom_win32_EVG02667NB.el | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/bundle/bundle--customfile.el b/bundle/bundle--customfile.el index ab9f9820..3404a442 100644 --- a/bundle/bundle--customfile.el +++ b/bundle/bundle--customfile.el @@ -19,6 +19,7 @@ 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") diff --git a/bundle/custom_win32_EVG02667NB.el b/bundle/custom_win32_EVG02667NB.el index 329b6498..b3c942a1 100644 --- a/bundle/custom_win32_EVG02667NB.el +++ b/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) From 02960cb4e58a724ebe154cab3b127313037b1515 Mon Sep 17 00:00:00 2001 From: Marcus Kammer <2262664-marcuskammer@user.noreply.gitlab.com> Date: Thu, 26 Nov 2020 17:49:32 +0100 Subject: [PATCH 3/3] Update mode line settings --- bundle/bundle--defaults.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/bundle/bundle--defaults.el b/bundle/bundle--defaults.el index f1fa456d..3417ff1e 100644 --- a/bundle/bundle--defaults.el +++ b/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)