diff options
Diffstat (limited to '')
| -rw-r--r-- | .emacs.d/init.el | 51 |
1 files changed, 51 insertions, 0 deletions
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) |