Merge branch 'main' of git.sr.ht:~marcuskammer/emacs.d

bundle/bundle--customfile.el

@@ -36,7 +36,7 @@
   ;;       '(("de_DE_frami" "~/Library/Spelling/de_DE_frami.aff")
   ;;         ("en_US" "/usr/share/hunspell/en_US.aff")))
 
-  (defvar mk/slime-filename-translations "~/Documents/slime_filename_translations.el"))
+)
 
 (when (eq system-type 'windows-nt)
   ;; (add-to-list 'exec-path "C:/msys64/mingw64/bin")
@@ -48,7 +48,6 @@
 
   (setq custom-file "~/.emacs.d/bundle/custom_win32.el")
   (setq org-babel-python-command "python")
-  (defvar mk/slime-filename-translations "d:/visua/Documents/slime_filename_translations.el")
 
   ;; (defun powershell (&optional buffer)
   ;;   "Launches a powershell in buffer *powershell* and switches to it."

bundle/bundle--gui.el

@@ -25,7 +25,7 @@
 (use-package rainbow-delimiters :hook (prog-mode . rainbow-delimiters-mode))
 
 (use-package olivetti
-  :custom (olivetti-body-width 89)
+  :custom (olivetti-body-width 83)
   :bind ("<f6>" . olivetti-mode))
 
 (add-hook 'Info-mode-hook (lambda () (make-local-variable 'olivetti-body-width) (setq olivetti-body-width 75) (olivetti-mode)))

bundle/bundle--news.el

@@ -62,6 +62,7 @@
      ("https://www.colinmclear.net/posts/index.xml" research emacs blog)
      ("http://nullprogram.com/feed/" lisp blog)
      ("https://howardism.org/index.xml" emacs blog)
+     ("https://www.timmons.dev/rss.xml" lisp blog)
     ;("http://planet.clojure.in/atom.xml" clojure news hacking jvm java)
     ;("https://lisp-journey.gitlab.io/index.xml" lisp blog)
      ))

bundle/bundle--package.el

@@ -17,6 +17,8 @@
 
 (add-hook 'emacs-lisp-mode-hook (lambda () (prettify-symbols-mode)))
 
+(use-package htmlize)
+
 (use-package shrface
   :defer t
   :config
@@ -159,10 +161,15 @@
             inferior-lisp-program "sbcl"
             slime-lisp-implementations `((sbcl (,sbcl-exe "--noinform" "--core" ,sbcl-core))))
     (setq inferior-lisp-program "/usr/bin/sbcl --noinform"))
-  (when (file-exists-p mk/slime-filename-translations)
-    (load-file mk/slime-filename-translations))
   (let ((helper (expand-file-name "~/quicklisp/slime-helper.el")))
-    (when (file-exists-p helper) (load-file helper))))
+    (when (file-exists-p helper) (load-file helper)))
+  (let ((hunchentoot
+         (slime-create-filename-translator
+          :machine-instance "hunchentoot"
+          :remote-host "hunchentoot.metaebene.dev"
+          :username "marcus")))
+    (push hunchentoot slime-filename-translations)))
+
 
 (use-package simple-httpd
   :defer t)

bundle/custom_gnu.el

@@ -9,9 +9,9 @@
  '(ansi-color-faces-vector
    [default default default italic underline success warning error])
  '(backup-directory-alist '(("." . "~/.backup_filez")))
- '(calendar-latitude 49.4)
- '(calendar-location-name "Nuremberg, DE")
- '(calendar-longitude 11.0)
+ '(calendar-latitude 49.4 t)
+ '(calendar-location-name "Nuremberg, DE" t)
+ '(calendar-longitude 11.0 t)
  '(default-frame-alist
     '((tab-bar-lines . 0)
       (font . "MonoLisa-11")
@@ -44,12 +44,6 @@
  '(inferior-lisp-program "/usr/bin/sbcl --noinform" t)
  '(initial-buffer-choice "~/Documents/org/agenda/tasks.org")
  '(initial-frame-alist '((fullscreen . maximized) (undecorated . t)))
- '(jabber-account-list '(("marcus.kammer@mailbox.org")))
- '(jabber-muc-autojoin
-   '("angrytux@conference.trashserver.net" "openhardware@conference.magicbroccoli.de" "lisp@conference.a3.pm" "emacs@salas.suchat.org"))
- '(jabber-muc-default-nicknames
-   '(("lisp@conference.a3.pm" . "marcus")
-     ("emacs@salas.suchat.org" . "marcus")))
  '(message-user-organization "")
  '(org-agenda-files
    '("agenda/journal.org" "agenda/meetings.org" "agenda/tasks.org" "agenda/logbook.org" "agenda/appointments.org"))
@@ -61,7 +55,7 @@
  '(org-roam-directory "~/Documents/org")
  '(package-enable-at-startup t)
  '(package-selected-packages
-   '(nim-mode hyperbole ox-rss keepass-mode jabber ox-pandoc mastodon w3m spotify cider clojure-mode mpv markdown-mode csv-mode ox-reveal ob-go org-web-tools org-tree-slide org-roam elfeed erc-image magit go-translate simple-httpd slime racket-mode web-mode go-mode eglot nov vertico emojify ace-window olivetti rainbow-delimiters helpful doom-modeline doom-themes all-the-icons-dired all-the-icons use-package))
+   '(htmlize nim-mode hyperbole ox-rss keepass-mode jabber ox-pandoc mastodon w3m spotify cider clojure-mode mpv markdown-mode csv-mode ox-reveal ob-go org-web-tools org-tree-slide org-roam elfeed erc-image magit go-translate simple-httpd slime racket-mode web-mode go-mode eglot nov vertico emojify ace-window olivetti rainbow-delimiters helpful doom-modeline doom-themes all-the-icons-dired all-the-icons use-package))
  '(plantuml-default-exec-mode 'jar)
  '(python-shell-interpreter "ipython")
  '(python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True")