Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Fix: Attempted fix for fireplace not resizing easily #33

Open
wants to merge 3 commits into
base: master
Choose a base branch
from
Open

Fix: Attempted fix for fireplace not resizing easily #33

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
7296ced
Fix: Attempted fix for fireplace not resizing easily
Mallchad Jul 20, 2021
05f8f09
Fix: Opening up a new fireplace no longer enables transient-mark-mode
Mallchad Jul 20, 2021
507bb06
Addition: Disable some more modes to further prettify the fireplace
Mallchad Jul 20, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
27 changes: 19 additions & 8 deletions fireplace.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -195,14 +195,25 @@
(defun fireplace--disable-minor-modes ()
"Disable minor modes that might affect rendering."
(switch-to-buffer fireplace-buffer-name)
(setq truncate-lines t
cursor-type nil
show-trailing-whitespace nil
indicate-empty-lines nil)
(transient-mark-mode nil)
(buffer-disable-undo))

(defun fireplace--update-locals-vars ()
;; Use local variables to avoid messing with the actual editing enviornment
(setq-local truncate-lines t
cursor-type nil
show-trailing-whitespace nil
indicate-empty-lines nil
transient-mark-mode nil
hl-line-mode nil
;; global-hl-line mode overrides the local hl-line-mode
;; *for some reason* and it's still called global-hl-line-mode
;; *even though* you can set 'global-hl-line-mode' as a buffer-local.
global-hl-line-mode nil
;; non-standard emacs packages
beacon-mode nil
)
;; Reference the fireplace buffer in-case the current buffer
;; isn't the fireplace, for some reason.
(buffer-disable-undo fireplace-buffer-name)
)
(defun fireplace--update-locals-vars (&optional stub-window)
"Update `fireplace' local variables."
(setq fireplace--bkgd-height (- (floor (window-height (get-buffer-window fireplace-buffer-name))) 1)
fireplace--bkgd-width (- (round (window-width (get-buffer-window fireplace-buffer-name))) 1)
Expand Down