From 7a1ab57606a2d7a89f370057670db11071ecaf41 Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Thu, 27 Aug 2020 23:46:00 +0100 Subject: [PATCH] feat(workspaces): strip down frame parameters saved to desktop file Most visual/theme related frame parameters I prefer coming from the active config, rather than being restored to what they were when the desktop/session file was saved. --- modules/workspaces/siren-desktop.el | 27 ++++++++++++++++++++++++++- 1 file changed, 26 insertions(+), 1 deletion(-) diff --git a/modules/workspaces/siren-desktop.el b/modules/workspaces/siren-desktop.el index 25d5486..fc56979 100644 --- a/modules/workspaces/siren-desktop.el +++ b/modules/workspaces/siren-desktop.el @@ -24,11 +24,36 @@ :config (add-to-list 'desktop-clear-preserve-buffers "\\*Async-native-compile-log\\*") + (push '(alpha . :never) frameset-filter-alist) + (push '(background-color . :never) frameset-filter-alist) + (push '(background-mode . :never) frameset-filter-alist) + (push '(border-width . :never) frameset-filter-alist) + (push '(bottom-divider-width . :never) frameset-filter-alist) + (push '(cursor-color . :never) frameset-filter-alist) + (push '(cursor-type . :never) frameset-filter-alist) + (push '(display-type . :never) frameset-filter-alist) + (push '(environment . :never) frameset-filter-alist) (push '(font . :never) frameset-filter-alist) (push '(fontsize . :never) frameset-filter-alist) + (push '(foreground-color . :never) frameset-filter-alist) (push '(fullscreen . :never) frameset-filter-alist) (push '(fullscreen-restore . :never) frameset-filter-alist) - (push '(alpha . :never) frameset-filter-alist) + (push '(horizontal-scroll-bars . :never) frameset-filter-alist) + (push '(internal-border-width . :never) frameset-filter-alist) + (push '(left-fringe . :never) frameset-filter-alist) + (push '(line-spacing . :never) frameset-filter-alist) + (push '(menu-bar-lines . :never) frameset-filter-alist) + (push '(ns-appearance . :never) frameset-filter-alist) + (push '(ns-transparent-titlebar . :never) frameset-filter-alist) + (push '(powerline-cache . :never) frameset-filter-alist) + (push '(right-divider-width . :never) frameset-filter-alist) + (push '(right-fringe . :never) frameset-filter-alist) + (push '(scroll-bar-height . :never) frameset-filter-alist) + (push '(scroll-bar-width . :never) frameset-filter-alist) + (push '(tab-bar-lines . :never) frameset-filter-alist) + (push '(tool-bar-lines . :never) frameset-filter-alist) + (push '(tool-bar-position . :never) frameset-filter-alist) + (push '(vertical-scroll-bars . :never) frameset-filter-alist) :init (defun siren-desktop-setup ()