diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index 9104b867..f362cbd7 100644 --- a/bundle/bundle--mk.el +++ b/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 "") 'mk/toggle-frame-decorations) + (provide 'bundle-mk) ;;; bundle-mk.el ends here 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)))) diff --git a/init.el b/init.el index 88dc6d54..b75faad8 100755 --- a/init.el +++ b/init.el @@ -97,11 +97,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) @@ -202,8 +208,7 @@ (height . 50) (vertical-scroll-bars) ,@(cond ((eq system-type 'gnu/linux) - '((fullscreen . maximized) - (undecorated . t)))))) + '((fullscreen . maximized)))))) (setq frame-resize-pixelwise t) @@ -314,11 +319,15 @@ (use-package doc-view :ensure nil :custom + (doc-view-continuous nil) + (doc-view-scale-internally nil) + (doc-view-cache-size 32) + (doc-view-prefetch-pages t) (doc-view-dvipdfm-program "mutool") (doc-view-odf->odf-converter-program "soffice") (dov-view-odf->pdf-converter-function 'doc-view-odf->pdf-converter-soffice) (doc-view-pdf->png-converter-function 'doc-view-pdf->png-converter-mupdf) - (doc-view-resolution 300)) + (doc-view-resolution 200)) (use-package hideshow :hook ((prog-mode . (lambda () (hs-minor-mode 1)))) @@ -651,15 +660,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" @@ -761,7 +772,7 @@ ("C-c C-k" . gptel-abort)) :config (when (eq system-type 'windows-nt) - (setq gptel-use-curl t)) + (setq gptel-use-curl nil)) (setq gptel-prompt-prefix-alist '((markdown-mode . "# ") (org-mode . "* ") @@ -1312,7 +1323,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) @@ -1324,6 +1334,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory." ("https://ourworldindata.org/atom-data-insights.xml" data world) ("https://ourworldindata.org/atom.xml" data world) ("https://www.amazon.science/index.rss" science blog amazon data) + ("https://feed.theregister.com/atom?a=Liam%20Proven" register foss) )) (setq elfeed-search-filter "@7-day-ago +unread") (let ((feeds (expand-file-name "~/feeds.el")))