config.org

@@ -112,7 +112,6 @@ Sources:
 (setq-default truncate-lines t)
 (setq-default global-visual-line-mode t)
 (add-hook 'org-mode-hook 'visual-line-mode)
-(add-hook 'prog-mode-hook 'visual-line-mode)
 #+end_src
 
 ** Delete trailing white-space
@@ -342,7 +341,6 @@ Source: [[https://stackoverflow.com/a/744681][Stack Overflow: Unable to hide wel
 
 #+begin_src emacs-lisp
 (add-hook 'text-mode-hook #'hl-line-mode)
-(add-hook 'prog-mode-hook #'hl-line-mode)
 (add-hook 'org-agenda-finalize-hook #'hl-line-mode)
 #+end_src
 
@@ -415,38 +413,17 @@ Setting =frame-resize-pixelwise= to non-nil (as described in [[https://github.co
 My typeface is not loading when using emacsclient. So I set it explicitly when creating a frame. The same fix is applied for the scroll bars.
 
 #+begin_src emacs-lisp
-(setq mmk2410/frame-font "Jetbrains Mono 11"
-      mmk2410/frame-font-present "Jetbrains Mono 16"
-      mmk2410/fixed-font-name "Jetbrains Mono"
-      mmk2410/fixed-font-height 110
-      mmk2410/fixed-font-present-height 160
-      mmk2410/variable-font-name "Open Sans"
-      mmk2410/variable-font-height 130
-      mmk2410/variable-font-present-height 160)
+(setq my-font "Jetbrains Mono 11")
+
+(set-frame-font my-font nil t)
 
 (add-hook 'after-make-frame-functions
           #'(lambda (frame)
-              (set-frame-font mmk2410/frame-font nil t)))
+              (set-frame-font my-font nil t)))
 
-(defun mmk2410/display-normal-typeface-size ()
-  (interactive)
-  (set-frame-font mmk2410/frame-font nil t)
-  (set-face-attribute 'default nil :font mmk2410/fixed-font-name :height mmk2410/fixed-font-height :weight 'regular)
-  (set-face-attribute 'variable-pitch nil :font mmk2410/variable-font-name :height mmk2410/variable-font-height :weight 'regular)
-  (set-face-attribute 'fixed-pitch nil :font mmk2410/fixed-font-name :height mmk2410/fixed-font-height :weight 'regular))
-
-(mmk2410/display-normal-typeface-size)
-#+end_src
-
-Sometimes (most often a work) I share my screen during a video call to discuss some code. Since I personally like to see larger fonts on video calls and I don't know what display size and resolution the other participants have I wrote two functions for resizing Emacs.
-
-#+begin_src emacs-lisp
-(defun mmk2410/display-present-typeface-size ()
-  (interactive)
-  (set-frame-font mmk2410/frame-font-present nil t)
-  (set-face-attribute 'default nil :font mmk2410/fixed-font-name :height mmk2410/fixed-font-present-height :weight 'regular)
-  (set-face-attribute 'variable-pitch nil :font mmk2410/variable-font-name :height mmk2410/variable-font-present-height :weight 'regular)
-  (set-face-attribute 'fixed-pitch nil :font mmk2410/fixed-font-name :height mmk2410/fixed-font-present-height :weight 'regular))
+(set-face-attribute 'default nil :font "Jetbrains Mono" :height 110 :weight 'regular)
+(set-face-attribute 'variable-pitch nil :font "Open Sans" :height 130 :weight 'regular)
+(set-face-attribute 'fixed-pitch nil :font "Jetbrains Mono" :height 110 :weight 'regular)
 #+end_src
 
 ** Set theme
@@ -670,12 +647,7 @@ Source: [[https://github.com/myrjola/diminish.el][GitHub: myrjola/diminish.el]]
   (diminish 'buffer-face-mode)
   (diminish 'flyspell-mode)
   (diminish 'org-indent-mode)
-  (diminish 'org-cdlatex-mode)
-  (diminish 'visual-line-mode)
-  (diminish 'buffer-face-mode)
-  (diminish 'highlight-indent-guides-mode)
-  (diminish 'eldoc-mode)
-  (diminish 'subword-mode))
+  (diminish 'visual-line-mode))
 #+end_src
 
 ** crux
@@ -824,10 +796,7 @@ Vertico is a minimal completion UI that uses core Emacs functionality whenever p
   (vertico-mode)
   (setq vertico-scroll-margin 0)
   (setq vertico-resize t)
-  (setq vertico-cycle t)
-  ;; Hide commands in M-x which do not work in the current mode.
-  (setq read-extended-command-predicate
-      #'command-completion-default-include-p))
+  (setq vertico-cycle t))
 #+end_src
 
 ** orderless
@@ -2634,13 +2603,3 @@ Since version 27 Emacs features a tab bar. In contrast to e.g. a browser a tab d
   :load-path "packages/"
   :bind ("C-c f" . mmk2410/tab-bar/body))
 #+end_src
-
-* Work
-
-For my workplace I have some additional packages and configuration that I keep in an own file.
-
-#+begin_src emacs-lisp
-(if (mmk2410/work)
-    (org-babel-load-file
-     (expand-file-name "work/config.org" user-emacs-directory)))
-#+end_src