From 4019155ffc80b68303c33527ac273f6fa9017516 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 26 Sep 2024 18:16:40 +0200 Subject: [PATCH 1/2] Update fonts in org-mode --- init.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/init.el b/init.el index 66784000..3626915f 100755 --- a/init.el +++ b/init.el @@ -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 From 0d3d39b1090e5c95beca4d1084b539ebccf08d00 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 26 Sep 2024 18:17:09 +0200 Subject: [PATCH 2/2] Add function to open shell at the bottom --- bundle/bundle--mk.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index d49ee26c..ceda75e8 100644 --- a/bundle/bundle--mk.el +++ b/bundle/bundle--mk.el @@ -527,5 +527,14 @@ an ALIAS and SERVICE as arguments and call (global-set-key (kbd "C-") #'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