f3824311a1
Kenames like `Control-n` or `meta-p` should not be quoted or they don't work. Keyseqs like `\C-p` or `ab` must continue to be quoted. See also: https://www.gnu.org/software/bash/manual/html_node/Readline-Init-File-Syntax.html Fixes https://github.com/nix-community/home-manager/issues/3611
85 lines
2 KiB
Nix
85 lines
2 KiB
Nix
{ config, lib, pkgs, ... }:
|
|
|
|
with lib;
|
|
|
|
let
|
|
|
|
cfg = config.programs.readline;
|
|
|
|
mkSetVariableStr = n: v:
|
|
let
|
|
mkValueStr = v:
|
|
if v == true then
|
|
"on"
|
|
else if v == false then
|
|
"off"
|
|
else if isInt v then
|
|
toString v
|
|
else if isString v then
|
|
v
|
|
else
|
|
abort ("values ${toPretty v} is of unsupported type");
|
|
in "set ${n} ${mkValueStr v}";
|
|
|
|
mkBindingStr = k: v:
|
|
let
|
|
isKeynameNotKeyseq = k:
|
|
builtins.elem (builtins.head (lib.splitString "-" (toLower k))) [
|
|
"control"
|
|
"meta"
|
|
];
|
|
in if isKeynameNotKeyseq k then "${k}: ${v}" else ''"${k}": ${v}'';
|
|
|
|
in {
|
|
options.programs.readline = {
|
|
enable = mkEnableOption "readline";
|
|
|
|
bindings = mkOption {
|
|
default = { };
|
|
type = types.attrsOf types.str;
|
|
example = literalExpression ''
|
|
{ "\\C-h" = "backward-kill-word"; }
|
|
'';
|
|
description = "Readline bindings.";
|
|
};
|
|
|
|
variables = mkOption {
|
|
type = with types; attrsOf (either str (either int bool));
|
|
default = { };
|
|
example = { expand-tilde = true; };
|
|
description = ''
|
|
Readline customization variable assignments.
|
|
'';
|
|
};
|
|
|
|
includeSystemConfig = mkOption {
|
|
type = types.bool;
|
|
default = true;
|
|
description = "Whether to include the system-wide configuration.";
|
|
};
|
|
|
|
extraConfig = mkOption {
|
|
type = types.lines;
|
|
default = "";
|
|
description = ''
|
|
Configuration lines appended unchanged to the end of the
|
|
<filename>~/.inputrc</filename> file.
|
|
'';
|
|
};
|
|
};
|
|
|
|
config = mkIf cfg.enable {
|
|
home.file.".inputrc".text = let
|
|
configStr = concatStringsSep "\n"
|
|
(optional cfg.includeSystemConfig "$include /etc/inputrc"
|
|
++ mapAttrsToList mkSetVariableStr cfg.variables
|
|
++ mapAttrsToList mkBindingStr cfg.bindings);
|
|
in ''
|
|
# Generated by Home Manager.
|
|
|
|
${configStr}
|
|
${cfg.extraConfig}
|
|
'';
|
|
};
|
|
}
|