From e4f0d2fd0b80e7130de11cf1d9ab808fb1aed190 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 19 Jan 2023 17:52:06 +0100 Subject: [PATCH 1/2] Update customfile win32 --- bundle/custom_win32.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/bundle/custom_win32.el b/bundle/custom_win32.el index 1a233937..f8905ada 100644 --- a/bundle/custom_win32.el +++ b/bundle/custom_win32.el @@ -4,19 +4,20 @@ ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(Info-additional-directory-list '("~/.emacs.d/info/")) - '(custom-enabled-themes '(doom-nord)) '(custom-safe-themes - '("fce3524887a0994f8b9b047aef9cc4cc017c5a93a5fb1f84d300391fba313743" "171d1ae90e46978eb9c342be6658d937a83aaa45997b1d7af7657546cae5985b" "37046960cf667c5ab3b76235d35a5db4763c531e706502a9067fa78db5a775c0" "9e39a8334e0e476157bfdb8e42e1cea43fad02c9ec7c0dbd5498cf02b9adeaf1" "37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8" default)) + '("1a1ac598737d0fcdc4dfab3af3d6f46ab2d5048b8e72bc22f50271fd6d393a00" "fce3524887a0994f8b9b047aef9cc4cc017c5a93a5fb1f84d300391fba313743" "171d1ae90e46978eb9c342be6658d937a83aaa45997b1d7af7657546cae5985b" "37046960cf667c5ab3b76235d35a5db4763c531e706502a9067fa78db5a775c0" "9e39a8334e0e476157bfdb8e42e1cea43fad02c9ec7c0dbd5498cf02b9adeaf1" "37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8" default)) '(default-frame-alist '((font . "MonoLisa-11") (width . 94) (height . 70))) + '(initial-buffer-choice "d:/visua/Documents/journal/notes.org") '(initial-frame-alist '((fullscreen . maximized))) '(nov-unzip-program "c:/msys64/usr/bin/unzip.exe") '(olivetti-body-width 82 nil nil "Customized with use-package olivetti") '(org-agenda-files '("d:/visua/Documents/journal")) '(org-default-notes-file "notes.org") '(org-directory "D:/visua/Documents/journal") - '(org-roam-directory "d:/visua/Documents/org-roam") + '(org-roam-db-location "~/org-roam.db") + '(org-roam-directory "d:/visua/Documents/notes/") '(package-selected-packages - '(powershell ox-reveal org-web-tools org-tree-slide org-roam elfeed erc-image magit go-translate simple-httpd slime racket-mode web-mode go-mode geiser-guile geiser-racket geiser eglot nov shrface vertico smartparens emojify ace-window olivetti rainbow-delimiters helpful doom-modeline doom-themes all-the-icons-dired all-the-icons use-package)) + '(org-roam powershell ox-reveal org-web-tools org-tree-slide elfeed erc-image magit go-translate simple-httpd slime racket-mode web-mode go-mode geiser-guile geiser-racket geiser eglot nov shrface vertico smartparens emojify ace-window olivetti rainbow-delimiters helpful doom-modeline doom-themes all-the-icons-dired all-the-icons use-package)) '(python-shell-interpreter "ipython") '(python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True") '(ring-bell-function 'ignore) @@ -34,5 +35,5 @@ ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. - '(font-lock-keyword-face ((t (:foreground "#81A1C1" :slant italic)))) - '(variable-pitch ((t (:height 1.3 :family "Roboto Condensed"))))) + '(font-lock-keyword-face ((t (:slant italic)))) + '(variable-pitch ((t (:height 1.2 :family "Roboto Slab Light"))))) From 5603e102b39cd84e8b7f4c6e1d513895bcedf8f9 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 20 Jan 2023 16:32:13 +0100 Subject: [PATCH 2/2] Load slime filename translations on different OS --- bundle/bundle--package.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/bundle/bundle--package.el b/bundle/bundle--package.el index 05a68b5a..18e5d93c 100644 --- a/bundle/bundle--package.el +++ b/bundle/bundle--package.el @@ -194,8 +194,14 @@ slime-lisp-implementations `((sbcl (,sbcl-exe "--noinform" "--core" ,sbcl-core)))) (setq inferior-lisp-program "/usr/bin/sbcl --noinform")) (let ((helper (expand-file-name "~/quicklisp/slime-helper.el"))) - (when (file-exists-p helper) (load helper)))) - + (when (file-exists-p helper) (load helper))) + (let ((docs-dir nil) + (file "/slime_filename_translations.el")) + (if (eq system-type 'windows-nt) + (setq docs-dir (expand-file-name "d:/visua/Documents/")) + (setq docs-dir (expand-file-name "~/Documents"))) + (when (file-exists-p (concat docs-dir file)) + (load-file (concat docs-dir file))))) (use-package simple-httpd :defer t)