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

This commit is contained in:
Marcus Kammer 2024-09-26 18:20:04 +02:00
commit a46cbc9bd9
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 14 additions and 7 deletions

View file

@ -527,5 +527,14 @@ an ALIAS and SERVICE as arguments and call
(global-set-key (kbd "C-<f12>") #'mk/set-frame-size-85x50)
(defun shell-new-bottom ()
"Open a shell window in the bottom third of the current window."
(interactive)
(let* ((current-window (selected-window))
(new-window (split-window-below (- (window-height) (/ (window-height) 3)))))
(select-window new-window)
(shell)
(select-window current-window)))
(provide 'bundle-mk)
;;; bundle-mk.el ends here

12
init.el
View file

@ -1688,13 +1688,11 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
;; work with org-agenda dispatcher [c] "Today Clocked Tasks" to view today's clocked tasks.
:custom-face
(org-tag ((t (:weight normal :height 0.8))))
(org-level-1 ((t (:inherit outline-1 :height 1.6))))
(org-level-2 ((t (:inherit outline-2 :height 1.4))))
(org-level-3 ((t (:inherit outline-3 :height 1.2))))
(org-level-4 ((t (:inherit outline-4 :height 1.0))))
(org-level-5 ((t (:inherit outline-5 :height 1.0)))))
(org-level-1 ((t (:slant italic :inherit outline-1 :height 1.6))))
(org-level-2 ((t (:slant italic :inherit outline-2 :height 1.4))))
(org-level-3 ((t (:slant italic :inherit outline-3 :height 1.2))))
(org-level-4 ((t (:slant italic :inherit outline-4 :height 1.0))))
(org-level-5 ((t (:slant italic :inherit outline-5 :height 1.0)))))
;; Define custom LaTeX class with specific formatting
(with-eval-after-load 'ox-latex