From ffe2df238c5c7ca7093d89324e9078ccaac01984 Mon Sep 17 00:00:00 2001
From: Amin Bandali <bandali@gnu.org>
Date: Thu, 26 Oct 2023 21:52:58 -0400
Subject: Various updates from adelita

---
 .emacs.d/init.el | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

(limited to '.emacs.d/init.el')

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index c3c9d1e..0d8852b 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -913,7 +913,58 @@ for all frames."
 (add-to-list 'load-path (b/lisp "ffs"))
 (run-with-idle-timer 0.5 nil #'require 'ffs)
 (with-eval-after-load 'ffs
+  (setq ffs-default-face-height 250)
   (global-set-key (kbd "C-c f s") #'ffs))
+(add-hook 'ffs-start-hook
+          (lambda ()
+            (mapc
+             (lambda (mode) (funcall mode 1)) ; enable
+             '(ffs--no-mode-line-minor-mode
+               ffs--no-cursor-minor-mode))
+            (mapc
+             (lambda (mode) (funcall mode -1)) ; disable
+             '(show-paren-local-mode
+               display-battery-mode
+               display-fill-column-indicator-mode
+               flyspell-mode
+               tool-bar-mode
+               menu-bar-mode
+               scroll-bar-mode))
+            (fringe-mode 0)))
+(add-hook 'ffs-quit-hook
+          (lambda ()
+            (mapc
+             (lambda (mode) (funcall mode -1)) ; disable
+             '(ffs--no-mode-line-minor-mode
+               ffs--no-cursor-minor-mode))
+            (mapc
+             (lambda (mode) (funcall mode 1)) ; enable
+             '(show-paren-local-mode
+               display-battery-mode
+               display-fill-column-indicator-mode
+               flyspell-mode
+               tool-bar-mode
+               menu-bar-mode
+               scroll-bar-mode))
+            (fringe-mode nil)))
+
+;; (defun my-display-centered-paragraph (text)
+;;   (let* ((buffer (get-buffer-create "*demo*"))
+;;          (window (display-buffer buffer)))
+;;     (with-current-buffer buffer
+;;       (with-selected-window window
+;;         (let ((inhibit-read-only t)
+;;               (window-height (window-body-height window t))
+;;               content-height)
+;;           (delete-region (point-min) (point-max))
+;;           (insert text)
+;;           (set-window-start window (point-min))
+;;           (unless (looking-back "\n$")
+;;             (insert "\n"))
+;;           (setq content-height (cdr (posn-x-y (posn-at-point))))
+;;           (goto-char (point-min))
+;;           (insert (propertize "\n" 'line-height
+;;                               (/ (- window-height content-height) 2))))))))
 
 (add-to-list 'load-path (b/lisp "debian-el"))
 (run-with-idle-timer 0.5 nil #'require 'debian-el)
-- 
cgit v1.2.3-83-g751a