Revert "update emacs-init.nix"

This reverts commit 808bf84e9c.
This commit is contained in:
Cadey Ratio 2023-01-14 22:45:06 -05:00
parent dbe9ab45d9
commit 245aa77ee3
1 changed files with 103 additions and 179 deletions

View File

@ -1,9 +1,30 @@
# Copyright (c) 2019 Robert Helgesson
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in all
# copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.
#
# Vendored from: https://gitlab.com/rycee/nur-expressions/blob/master/hm-modules/emacs-init.nix
{ config, lib, pkgs, ... }: { config, lib, pkgs, ... }:
with lib; with lib;
let let
cfg = config.programs.emacs.init; cfg = config.programs.emacs.init;
packageFunctionType = mkOptionType { packageFunctionType = mkOptionType {
@ -36,14 +57,6 @@ let
''; '';
}; };
defines = mkOption {
type = types.listOf types.str;
default = [ ];
description = ''
The entries to use for <option>:defines</option>.
'';
};
demand = mkOption { demand = mkOption {
type = types.bool; type = types.bool;
default = false; default = false;
@ -72,14 +85,6 @@ let
''; '';
}; };
functions = mkOption {
type = types.listOf types.str;
default = [ ];
description = ''
The entries to use for <option>:functions</option>.
'';
};
mode = mkOption { mode = mkOption {
type = types.listOf types.str; type = types.listOf types.str;
default = [ ]; default = [ ];
@ -119,6 +124,18 @@ let
''; '';
}; };
bindStar = mkOption {
type = types.attrsOf types.str;
default = { };
example = {
"M-<up>" = "drag-stuff-up";
"M-<down>" = "drag-stuff-down";
};
description = ''
The entries to use for <option>:bind*</option>.
'';
};
bindKeyMap = mkOption { bindKeyMap = mkOption {
type = types.attrsOf types.str; type = types.attrsOf types.str;
default = { }; default = { };
@ -152,6 +169,14 @@ let
''; '';
}; };
general = mkOption {
type = types.lines;
default = "";
description = ''
Code to place in the <option>:general</option> section.
'';
};
hook = mkOption { hook = mkOption {
type = types.listOf types.str; type = types.listOf types.str;
default = [ ]; default = [ ];
@ -160,18 +185,6 @@ let
''; '';
}; };
earlyInit = mkOption {
type = types.lines;
default = "";
description = ''
Lines to add to <option>programs.emacs.init.earlyInit</option> when
this package is enabled.
</para><para>
Note, the package is not automatically loaded so you will have to
<literal>require</literal> the necessary features yourself.
'';
};
init = mkOption { init = mkOption {
type = types.lines; type = types.lines;
default = ""; default = "";
@ -180,14 +193,6 @@ let
''; '';
}; };
extraPackages = mkOption {
type = types.listOf types.package;
default = [ ];
description = ''
Extra packages to add to <option>home.packages</option>.
'';
};
assembly = mkOption { assembly = mkOption {
type = types.lines; type = types.lines;
readOnly = true; readOnly = true;
@ -205,11 +210,10 @@ let
mkAfter = vs: optional (vs != [ ]) ":after (${toString vs})"; mkAfter = vs: optional (vs != [ ]) ":after (${toString vs})";
mkCommand = vs: optional (vs != [ ]) ":commands (${toString vs})"; mkCommand = vs: optional (vs != [ ]) ":commands (${toString vs})";
mkDefines = vs: optional (vs != [ ]) ":defines (${toString vs})";
mkDiminish = vs: optional (vs != [ ]) ":diminish (${toString vs})"; mkDiminish = vs: optional (vs != [ ]) ":diminish (${toString vs})";
mkMode = map (v: ":mode ${v}"); mkMode = map (v: ":mode ${v}");
mkFunctions = vs: optional (vs != [ ]) ":functions (${toString vs})";
mkBind = mkBindHelper "bind" ""; mkBind = mkBindHelper "bind" "";
mkBindStar = mkBindHelper "bind*" "";
mkBindLocal = bs: mkBindLocal = bs:
let mkMap = n: v: mkBindHelper "bind" ":map ${n}" v; let mkMap = n: v: mkBindHelper "bind" ":map ${n}" v;
in flatten (mapAttrsToList mkMap bs); in flatten (mapAttrsToList mkMap bs);
@ -222,16 +226,17 @@ let
else else
[ ":defer ${toString v}" ]; [ ":defer ${toString v}" ];
mkDemand = v: optional v ":demand t"; mkDemand = v: optional v ":demand t";
extraAfter = optional (config.general != "") "general";
in concatStringsSep "\n " ([ "(use-package ${name}" ] in concatStringsSep "\n " ([ "(use-package ${name}" ]
++ mkAfter config.after ++ mkBind config.bind ++ mkAfter (config.after ++ extraAfter) ++ mkBind config.bind
++ mkBindKeyMap config.bindKeyMap ++ mkBindLocal config.bindLocal ++ mkBindStar config.bindStar ++ mkBindKeyMap config.bindKeyMap
++ mkChords config.chords ++ mkCommand config.command ++ mkBindLocal config.bindLocal ++ mkChords config.chords
++ mkDefer config.defer ++ mkDefines config.defines ++ mkCommand config.command ++ mkDefer config.defer
++ mkFunctions config.functions ++ mkDemand config.demand ++ mkDemand config.demand ++ mkDiminish config.diminish
++ mkDiminish config.diminish ++ mkHook config.hook ++ mkHook config.hook ++ mkMode config.mode
++ mkMode config.mode
++ optionals (config.init != "") [ ":init" config.init ] ++ optionals (config.init != "") [ ":init" config.init ]
++ optionals (config.config != "") [ ":config" config.config ] ++ optionals (config.config != "") [ ":config" config.config ]
++ optionals (config.general != "") [ ":general" config.general ]
++ optional (config.extraConfig != "") config.extraConfig) + ")"; ++ optional (config.extraConfig != "") config.extraConfig) + ")";
}; };
}); });
@ -258,7 +263,7 @@ let
gcSettings = '' gcSettings = ''
(defun hm/reduce-gc () (defun hm/reduce-gc ()
"Reduce the frequency of garbage collection." "Reduce the frequency of garbage collection."
(setq gc-cons-threshold most-positive-fixnum (setq gc-cons-threshold 402653184
gc-cons-percentage 0.6)) gc-cons-percentage 0.6))
(defun hm/restore-gc () (defun hm/restore-gc ()
@ -266,12 +271,9 @@ let
(setq gc-cons-threshold 16777216 (setq gc-cons-threshold 16777216
gc-cons-percentage 0.1)) gc-cons-percentage 0.1))
;; Make GC more rare during init, while minibuffer is active, and ;; Make GC more rare during init and while minibuffer is active.
;; when shutting down. In the latter two cases we try doing the (eval-and-compile #'hm/reduce-gc)
;; reduction early in the hook. (add-hook 'minibuffer-setup-hook #'hm/reduce-gc)
(hm/reduce-gc)
(add-hook 'minibuffer-setup-hook #'hm/reduce-gc -50)
(add-hook 'kill-emacs-hook #'hm/reduce-gc -50)
;; But make it more regular after startup and after closing minibuffer. ;; But make it more regular after startup and after closing minibuffer.
(add-hook 'emacs-startup-hook #'hm/restore-gc) (add-hook 'emacs-startup-hook #'hm/restore-gc)
@ -293,52 +295,50 @@ let
hasDiminish = any (p: p.diminish != [ ]) (attrValues cfg.usePackage); hasDiminish = any (p: p.diminish != [ ]) (attrValues cfg.usePackage);
# Whether the configuration makes use of `:bind`. # Whether the configuration makes use of `:bind`.
hasBind = any (p: p.bind != { } || p.bindLocal != { } || p.bindKeyMap != { }) hasBind =
(attrValues cfg.usePackage); any (p: p.bind != { } || p.bindStar != { }) (attrValues cfg.usePackage);
# Whether the configuration makes use of `:chords`. # Whether the configuration makes use of `:chords`.
hasChords = any (p: p.chords != { }) (attrValues cfg.usePackage); hasChords = any (p: p.chords != { }) (attrValues cfg.usePackage);
# Whether the configuration makes use of `:diminish`.
hasGeneral = any (p: p.general != "") (attrValues cfg.usePackage);
usePackageSetup = '' usePackageSetup = ''
(eval-when-compile (eval-when-compile
(require 'package)
(setq package-archives nil
package-enable-at-startup nil
package--init-file-ensured t)
(require 'use-package) (require 'use-package)
;; To help fixing issues during startup. ;; To help fixing issues during startup.
(setq use-package-verbose ${ (setq use-package-verbose ${
if cfg.usePackageVerbose then "t" else "nil" if cfg.usePackageVerbose then "t" else "nil"
})) }))
'' + optionalString hasDiminish '' '' + optionalString hasDiminish ''
;; For :diminish in (use-package). ;; For :diminish in (use-package).
(require 'diminish) (require 'diminish)
'' + optionalString hasBind '' '' + optionalString hasBind ''
;; For :bind in (use-package). ;; For :bind in (use-package).
(require 'bind-key) (require 'bind-key)
;; Fixes "Symbols function definition is void: use-package-autoload-keymap".
(autoload #'use-package-autoload-keymap "use-package-bind-key")
'' + optionalString hasChords '' '' + optionalString hasChords ''
;; For :chords in (use-package). ;; For :chords in (use-package).
(use-package use-package-chords (use-package use-package-chords
:config (key-chord-mode 1)) :config (key-chord-mode 1))
''; '' + optionalString hasGeneral ''
;; For :general in (use-package).
earlyInitFile = '' (use-package general
;;; hm-early-init.el --- Emacs configuration à la Home Manager -*- lexical-binding: t; -*- :config
;; (general-evil-setup))
;;; Commentary:
;;
;; The early init component of the Home Manager Emacs configuration.
;;
;;; Code:
${cfg.earlyInit}
(provide 'hm-early-init)
;; hm-early-init.el ends here
''; '';
initFile = '' initFile = ''
;;; hm-init.el --- Emacs configuration à la Home Manager -*- lexical-binding: t; -*- ;;; hm-init.el --- Emacs configuration à la Home Manager.
;;
;; -*- lexical-binding: t; -*-
;; ;;
;;; Commentary: ;;; Commentary:
;; ;;
@ -348,14 +348,13 @@ let
;;; Code: ;;; Code:
${optionalString cfg.startupTimer '' ${optionalString cfg.startupTimer ''
(defun hm/print-startup-stats () ;; Remember when configuration started. See bottom for rest of this.
"Prints some basic startup statistics." ;; Idea taken from http://writequit.org/org/settings.html.
(let ((elapsed (float-time (time-subtract after-init-time (defconst emacs-start-time (current-time))
before-init-time))))
(message "Startup took %.2fs with %d GCs" elapsed gcs-done)))
(add-hook 'emacs-startup-hook #'hm/print-startup-stats)
''} ''}
${optionalString cfg.recommendedGcSettings gcSettings}
${cfg.prelude} ${cfg.prelude}
${usePackageSetup} ${usePackageSetup}
@ -364,13 +363,18 @@ let
${cfg.postlude} ${cfg.postlude}
${optionalString cfg.startupTimer ''
;; Make a note of how long the configuration part of the start took.
(let ((elapsed (float-time (time-subtract (current-time)
emacs-start-time))))
(message "Loading settings...done (%.3fs)" elapsed))
''}
(provide 'hm-init) (provide 'hm-init)
;; hm-init.el ends here ;; hm-init.el ends here
''; '';
in { in {
imports = [ ./emacs-init-defaults.nix ];
options.programs.emacs.init = { options.programs.emacs.init = {
enable = mkEnableOption "Emacs configuration"; enable = mkEnableOption "Emacs configuration";
@ -381,14 +385,6 @@ in {
startupTimer = mkEnableOption "Emacs startup duration timer"; startupTimer = mkEnableOption "Emacs startup duration timer";
earlyInit = mkOption {
type = types.lines;
default = "";
description = ''
Configuration lines to add in <filename>early-init.el</filename>.
'';
};
prelude = mkOption { prelude = mkOption {
type = types.lines; type = types.lines;
default = ""; default = "";
@ -407,30 +403,12 @@ in {
''; '';
}; };
packageQuickstart = mkOption {
type = types.bool;
default = true;
description = ''
Whether to enable package-quickstart. This will make sure that
<literal>package.el</literal> is activated and all autoloads are
available.
</para><para>
If disabled you can save quite a few milliseconds on the startup time,
but you will most likely have to tweak the <literal>command</literal>
option of various packages.
</para><para>
As an example, running <literal>(emacs-init-time)</literal> on an Emacs
configuration with this option enabled reported ~300ms. Disabling the
option dropped the init time to ~200ms.
'';
};
usePackageVerbose = mkEnableOption "verbose use-package mode"; usePackageVerbose = mkEnableOption "verbose use-package mode";
usePackage = mkOption { usePackage = mkOption {
type = types.attrsOf usePackageType; type = types.attrsOf usePackageType;
default = { }; default = { };
example = literalExpression '' example = literalExample ''
{ {
dhall-mode = { dhall-mode = {
mode = [ '''"\\.dhall\\'"''' ]; mode = [ '''"\\.dhall\\'"''' ];
@ -444,33 +422,6 @@ in {
}; };
config = mkIf (config.programs.emacs.enable && cfg.enable) { config = mkIf (config.programs.emacs.enable && cfg.enable) {
# Collect the extra packages that should be included in the user profile.
# These are typically tools called by Emacs packages.
home.packages = concatMap (v: v.extraPackages)
(filter (getAttr "enable") (builtins.attrValues cfg.usePackage));
programs.emacs.init.earlyInit = let
standardEarlyInit = mkBefore ''
${optionalString cfg.recommendedGcSettings gcSettings}
${if cfg.packageQuickstart then ''
(setq package-quickstart t
package-quickstart-file "hm-package-quickstart.el")
'' else ''
(setq package-enable-at-startup nil)
''}
;; Avoid expensive frame resizing. Inspired by Doom Emacs.
(setq frame-inhibit-implied-resize t)
'';
# Collect the early initialization strings for each package.
packageEarlyInits = map (p: p.earlyInit)
(filter (p: p.earlyInit != "") (builtins.attrValues cfg.usePackage));
in mkMerge ([ standardEarlyInit ] ++ packageEarlyInits);
programs.emacs.extraPackages = epkgs: programs.emacs.extraPackages = epkgs:
let let
getPkg = v: getPkg = v:
@ -480,57 +431,30 @@ in {
optional (isString v && hasAttr v epkgs) epkgs.${v}; optional (isString v && hasAttr v epkgs) epkgs.${v};
packages = concatMap (v: getPkg (v.package)) packages = concatMap (v: getPkg (v.package))
(filter (getAttr "enable") (builtins.attrValues cfg.usePackage)); (builtins.attrValues cfg.usePackage);
in [ in [
(epkgs.trivialBuild { ((epkgs.trivialBuild {
pname = "hm-early-init";
src = pkgs.writeText "hm-early-init.el" earlyInitFile;
packageRequires = packages;
preferLocalBuild = true;
allowSubstitutes = false;
})
(epkgs.trivialBuild {
pname = "hm-init"; pname = "hm-init";
version = "0";
src = pkgs.writeText "hm-init.el" initFile; src = pkgs.writeText "hm-init.el" initFile;
packageRequires = [ epkgs.use-package ] ++ packages packageRequires = lists.unique ([ epkgs.use-package ] ++ packages
++ optional hasBind epkgs.bind-key ++ optional hasBind epkgs.bind-key
++ optional hasDiminish epkgs.diminish ++ optional hasDiminish epkgs.diminish
++ optional hasChords epkgs.use-package-chords; ++ optional hasChords epkgs.use-package-chords
++ optional hasGeneral epkgs.general);
preferLocalBuild = true; preferLocalBuild = true;
allowSubstitutes = false; allowSubstitutes = false;
preBuild = '' }).overrideAttrs (attr: {
# Do a bit of basic formatting of the generated init file. buildPhase = ''
emacs -Q --batch \ runHook preBuild
--eval '(find-file "hm-init.el")' \ runHook postBuild
--eval '(let ((indent-tabs-mode nil) (lisp-indent-offset 2)) (indent-region (point-min) (point-max)))' \
--eval '(write-file "hm-init.el")'
${optionalString cfg.packageQuickstart ''
# Generate a package quickstart file to make autoloads and such
# available.
emacs -Q --batch \
--eval "(require 'package)" \
--eval "(setq package-quickstart-file \"hm-package-quickstart.el\")" \
--eval "(package-quickstart-refresh)"
# We know what we're doing?
sed -i '/no-byte-compile: t/d' hm-package-quickstart.el
''}
''; '';
}) }))
]; ];
home.file = { home.file.".emacs.d/init.el".text = ''
".emacs.d/early-init.el".text = '' (require 'hm-init)
(require 'hm-early-init) (provide 'init)
(provide 'early-init) '';
'';
".emacs.d/init.el".text = ''
(require 'hm-init)
(provide 'init)
'';
};
}; };
} }