Re: [External] : Re: Propose to add setup-wizard.el to ELPA

[Yuan Fu <casouri@gmail.com>]

> On Jan 3, 2022, at 8:05 AM, Stefan Monnier <monnier@iro.umontreal.ca> wrote:
> 
> Sean Whitton [2022-01-02 23:42:11] wrote:
>> On Sun 02 Jan 2022 at 05:14pm -05, Stefan Kangas wrote:
>>> Drew Adams <drew.adams@oracle.com> writes:
>>>> Customize should not write to your init file ...  That's a bad Emacs
>>>> design choice, IMO.  It especially should not be the default behavior.
>>> +1, FWIW.
>> Hmm, then where should it write to?
> 
> Please rename this thread which is orthogonal to `setup-wizard.el`.
> (`setup-wizard.el` should simply set the variable via Custom and
> then ask Custom to save the result, so `setup-wizard.el` shouldn't know
> or care where or how the result is saved).

Custom cannot save some of the results produced by the wizard, for example, key bindings and Unicode fonts. And I don’t know if package-selected-packages is enough for packages. Here is an example for the generated configuration:

;; Load modus-operandi theme
(load-theme 'modus-operandi)

;; Set bindings for copy/cut/paste.
(global-set-key
 (kbd "s-c")
 #'kill-ring-save)

(global-set-key
 (kbd "s-x")
 #'kill-region)

(global-set-key
 (kbd "s-v")
 #'yank)

;; Display line number.
(global-display-line-numbers-mode 1)

;; Set default font.
(set-face-attribute 'default nil :family "IBM Plex Mono")

;; Set variable-pitch font.
(set-face-attribute 'variable-pitch nil :family "Charter")

;; Set CJK font.
(dolist
    (charset
     '(kana han cjk-misc))
  (set-fontset-font t charset
                    (font-spec :family "Source Han Serif")))

;; Set font size.
(set-face-attribute 'default nil :height 130)

;; Use linear undo style.
(global-set-key
 [remap undo]
 #'undo-only)

;; Install and enable ‘ivy-mode’ and ‘counsel-mode’.
(progn
  (require 'package)
  (unless
      (package-installed-p 'ivy)
    (package-install 'ivy))
  (package-activate 'ivy)
  (require 'ivy)
  (ivy-mode))

(setq enable-recursive-minibuffers t ivy-use-selectable-prompt t ivy-use-virtual-buffers t)

(progn
  (require 'package)
  (unless
      (package-installed-p 'counsel)
    (package-install 'counsel))
  (package-activate 'ivy)
  (require 'counsel)
  (counsel-mode))

Yuan