diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index 5f37346b..00b2728a 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 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