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

bundle/bundle--mk.el

@@ -504,5 +504,21 @@ an ALIAS and SERVICE as arguments and call
 
 (add-hook 'org-babel-after-execute-hook 'mk/babel-ansi)
 
+(defun mk/toggle-frame-decorations ()
+  "Toggle the window decorations (title bar, menu bar, tool bar, scroll bar) for the current frame."
+  (interactive)
+  (let* ((frame (selected-frame))
+         (current-undecorated (frame-parameter frame 'undecorated))
+         (new-undecorated (not current-undecorated)))
+    (set-frame-parameter frame 'undecorated new-undecorated)
+    (if new-undecorated
+        (progn
+          (menu-bar-mode -1)
+          (tool-bar-mode -1)
+          (scroll-bar-mode -1)))
+    (message "Window decorations %s" (if new-undecorated "disabled" "enabled"))))
+
+(global-set-key (kbd "<f12>") 'mk/toggle-frame-decorations)
+
 (provide 'bundle-mk)
 ;;; bundle-mk.el ends here

early-init.el

@@ -4,4 +4,4 @@
         (width . 85)
         (height . 50)
         (and (eq system-type 'gnu/linux)
-          (undecorated . t))))
+             (undecorated . t))))

init.el

@@ -82,11 +82,17 @@
 ;; (fido-mode 1) ; replace icomplete mode
 ;; (fido-vertical-mode 1)
 ;; UTF-8 FTW
-(prefer-coding-system 'utf-8-unix)
-(set-default-coding-systems 'utf-8-unix)
+;; Prefer UTF-8 encoding
+(prefer-coding-system 'utf-8)
+(set-default-coding-systems 'utf-8)
 (set-terminal-coding-system 'utf-8)
 (set-keyboard-coding-system 'utf-8)
-(setq-default default-buffer-file-coding-system 'utf-8-unix)
+;; Treat clipboard input as UTF-8 string first; compound text next, etc.
+(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
+;; Set default file encoding to UTF-8
+(setq-default buffer-file-coding-system 'utf-8)
+;; Force UTF-8 for new files
+(setq default-buffer-file-coding-system 'utf-8)
 (setenv "PYTHONIOENCODING" "UTF-8")
 
 (when (eq system-type 'gnu/linux)
@@ -190,8 +196,7 @@
         (height . 50)
         (vertical-scroll-bars)
         ,@(cond ((eq system-type 'gnu/linux)
-                 '((fullscreen . maximized)
-                   (undecorated . t))))))
+                 '((fullscreen . maximized))))))
 
 (setq frame-resize-pixelwise t)
 
@@ -639,15 +644,17 @@
 
 (use-package jabber
   :defer t
+  :bind (("C-x j c" . jabber-connect)
+         ("C-x j d" . jabber-disconnect))
+  :init
+  (setq jabber-activity-mode nil)
+  (setq jabber-account-list '(("marcus.kammer@mailbox.org")))
   :custom
   (jabber-muc-decorate-presence-patterns
    '(("enters the room" . nil)
      ("has entered the room" . nil)
      ("joined the room" . nil)
      ("has left the chatroom" . nil)))
-  (jabber-activity-mode nil)
-  (jabber-account-list
-   '(("marcus.kammer@mailbox.org")))
   (jabber-muc-autojoin
    '("lisp@conference.a3.pm"
      "emacs@conference.conversations.im"
@@ -1300,7 +1307,6 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
           ("https://www.copernicus.eu/news/rss" klima)
           ("https://gegenblende.dgb.de/@@rss?count=10&feed=b3b8f76e-53f1-11e6-a380-525400e5a74a" arbeit gewerkschaft news)
           ("https://drewdevault.com/blog/index.xml" blog programming computer)
-          ("https://www.inverse.com/rss" culture magazin journalism)
           ("https://inkppl.com/en/rss.xml" tattoo magazin people culture)
           ("https://novaramedia.com/feed/" politics capitalism climate left media)
           ("https://www.youtube.com/feeds/videos.xml?channel_id=UCN29LJGZ8FY30ysxdTnDsaw" youtube video)