From d1a611007164b1633fc6aa462084fe9541aaef88 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Sun, 27 Oct 2024 16:51:36 -0700 Subject: emacs: mv logos.el to package rul-wm --- .emacs.d/rul-lisp/packages/rul-wm.el | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) (limited to '.emacs.d/rul-lisp/packages/rul-wm.el') diff --git a/.emacs.d/rul-lisp/packages/rul-wm.el b/.emacs.d/rul-lisp/packages/rul-wm.el index a0638a9..99480c3 100644 --- a/.emacs.d/rul-lisp/packages/rul-wm.el +++ b/.emacs.d/rul-lisp/packages/rul-wm.el @@ -63,6 +63,38 @@ Also see `prot-window-delete-popup-frame'." command) :config (setq olivetti-body-width 100)) +(use-package logos +:ensure t +:config + +;; If you want to use outlines instead of page breaks (the ^L) +(setq logos-outlines-are-pages t) +(setq logos-outline-regexp-alist + `((emacs-lisp-mode . "^;;;+ ") + (org-mode . "^\\*+ +") + (markdown-mode . "^\\#+ +") + )) + +;; These apply when `logos-focus-mode' is enabled. Their value is +;; buffer-local. +(setq-default logos-hide-mode-line t + logos-hide-buffer-boundaries t + logos-hide-fringe t + logos-variable-pitch nil + logos-buffer-read-only nil + logos-scroll-lock nil + logos-olivetti t + olivetti-body-width 100 + ) + + +(let ((map global-map)) + (define-key map [remap narrow-to-region] #'logos-narrow-dwim) + (define-key map [remap forward-page] #'logos-forward-page-dwim) + (define-key map [remap backward-page] #'logos-backward-page-dwim) + (define-key map (kbd "") #'logos-focus-mode)) +) + (use-package beframe :ensure t :hook (after-init . beframe-mode) -- cgit v1.2.3