From 132a9e4eba319b537be79d2bc7a563680d878d0a Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sat, 14 Sep 2024 11:27:59 +0200 Subject: [PATCH 1/7] Update rss feeds --- init.el | 1 - 1 file changed, 1 deletion(-) diff --git a/init.el b/init.el index 8539d17d..455f524a 100755 --- a/init.el +++ b/init.el @@ -1300,7 +1300,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) From 1ba59326c2d1542b0486513e08dc33688ad2f4a8 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 15 Sep 2024 10:09:07 +0200 Subject: [PATCH 2/7] Toggle frame decoration --- bundle/bundle--mk.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index 9104b867..afb0a264 100644 --- a/bundle/bundle--mk.el +++ b/bundle/bundle--mk.el @@ -504,5 +504,25 @@ 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)) + (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 "") 'mk/toggle-frame-decorations) + (provide 'bundle-mk) ;;; bundle-mk.el ends here From fd354df07124bfc0d5bd2f958d361a93dd19c099 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 15 Sep 2024 10:10:01 +0200 Subject: [PATCH 3/7] New created frames are decorated --- init.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/init.el b/init.el index 46660893..cc0ffd1b 100755 --- a/init.el +++ b/init.el @@ -190,8 +190,7 @@ (height . 50) (vertical-scroll-bars) ,@(cond ((eq system-type 'gnu/linux) - '((fullscreen . maximized) - (undecorated . t)))))) + '((fullscreen . maximized)))))) (setq frame-resize-pixelwise t) From f56a44a21389361e99821a8057d1f33284ff601b Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 15 Sep 2024 10:10:13 +0200 Subject: [PATCH 4/7] Fix code indentation --- early-init.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/early-init.el b/early-init.el index ec085762..fcb8c124 100644 --- a/early-init.el +++ b/early-init.el @@ -4,4 +4,4 @@ (width . 85) (height . 50) (and (eq system-type 'gnu/linux) - (undecorated . t)))) + (undecorated . t)))) From 02aeb16991d61d10ef394affa2bf781c44f8aa06 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 15 Sep 2024 10:41:45 +0200 Subject: [PATCH 5/7] Dont show menu-bar or tool-bar by calling toggle-frame --- bundle/bundle--mk.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index afb0a264..f362cbd7 100644 --- a/bundle/bundle--mk.el +++ b/bundle/bundle--mk.el @@ -515,11 +515,7 @@ an ALIAS and SERVICE as arguments and call (progn (menu-bar-mode -1) (tool-bar-mode -1) - (scroll-bar-mode -1)) - (progn - (menu-bar-mode 1) - (tool-bar-mode 1) - (scroll-bar-mode 1))) + (scroll-bar-mode -1))) (message "Window decorations %s" (if new-undecorated "disabled" "enabled")))) (global-set-key (kbd "") 'mk/toggle-frame-decorations) From 164251b1d271884d55e4c7597608b64441f6045b Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 15 Sep 2024 12:28:22 +0200 Subject: [PATCH 6/7] Update utf-8 settings --- init.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index cc0ffd1b..fcfe14c0 100755 --- a/init.el +++ b/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) From 17f96fd67f2d0b33cc25bfbeb61a0cf9eb9bceeb Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 15 Sep 2024 16:38:58 +0200 Subject: [PATCH 7/7] Prevent jabber package from loading --- init.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index fcfe14c0..7492dd11 100755 --- a/init.el +++ b/init.el @@ -644,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"