move dconf file

This commit is contained in:
MitchMarq42 2022-06-19 16:32:08 -08:00
parent 43d36a94cb
commit 70a729453c

View File

@ -1,5 +1,8 @@
;;; dconf.el --- Edit dconf settings in an emacs buffer ;;; dconf-mode.el --- Edit dconf settings in an emacs buffer
;;;###autoload
(add-to-list 'auto-mode-alist '("\\.gsets" . dconf-mode))
;;; Commentary: ;;; Commentary:
;; I haven't completely given up on GNOME. This is a little wrapper I've ported ;; I haven't completely given up on GNOME. This is a little wrapper I've ported
;; from my vim config to modify and save the running GNOME state to files. ;; from my vim config to modify and save the running GNOME state to files.
@ -15,16 +18,26 @@
(interactive) (interactive)
(shell-command (shell-command
(concat "cat " buffer-file-name (concat "cat " buffer-file-name
" | dconf load /org/gnome/" (file-name-base buffer-file-name) "/"))) " | dconf load /org/gnome/" (file-name-base buffer-file-name) "/")))
(defun dconf-dump-current-file ()
"Load dconf's live registry into the current file."
(interactive)
(erase-buffer)
(shell-command
(concat "dconf dump /org/gnome/" (file-name-base buffer-file-name) "/")
(current-buffer)))
(if (string-match "*.gsets" buffer-file-name) (if (string-match "*.gsets" buffer-file-name)
(progn (progn
(add-hook) ;BufReadPre ;; (add-hook) ;BufReadPre
(conf-windows-mode) ;BufReadPost might be default (conf-windows-mode) ;BufReadPost might be default
(add-hook after-save-hook
#'dconf-load-current-file)
) )
) )
(provide 'dconf) (define-derived-mode dconf-mode conf-mode "Dconf"
;;; dconf.el ends here (add-hook after-save-hook
#'dconf-load-current-file)
)
(provide 'dconf-mode)
;;; dconf-mode.el ends here