diff --git a/machines/Lilim/options.nix b/machines/Lilim/options.nix
index 3d07b81..239686f 100644
--- a/machines/Lilim/options.nix
+++ b/machines/Lilim/options.nix
@@ -21,6 +21,7 @@ with lib;
"base"
"dict"
"emacs"
+ "emacs::solarized-theme"
"extra"
"cpp"
"haskell"
diff --git a/options/emacs-init-defaults.nix b/options/emacs-init-defaults.nix
new file mode 100644
index 0000000..e28b1c2
--- /dev/null
+++ b/options/emacs-init-defaults.nix
@@ -0,0 +1,79 @@
+# Original Source:
+# https://gitlab.com/rycee/nur-expressions/raw/master/hm-modules/emacs-init-defaults.nix (49ff2d63e867c09e658c959c0d8a73d641061c30)
+
+# MIT License
+
+# 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.
+
+
+{ pkgs, ... }:
+
+{
+ programs.emacs.init.usePackage = {
+ deadgrep = {
+ config = ''
+ (setq deadgrep-executable "${pkgs.ripgrep}/bin/rg")
+ '';
+ };
+
+ ggtags = {
+ config = ''
+ (setq ggtags-executable-directory "${pkgs.global}/bin")
+ '';
+ };
+
+ idris-mode = {
+ config = ''
+ (setq idris-interpreter-path "${pkgs.idris}/bin/idris")
+ '';
+ };
+
+ lsp-rust = {
+ config = ''
+ (setq lsp-rust-rls-server-command "${pkgs.rls}/bin/rls")
+ '';
+ };
+
+ ob-plantuml = {
+ config = ''
+ (setq org-plantuml-jar-path "${pkgs.plantuml}/lib/plantuml.jar")
+ '';
+ };
+
+ pandoc-mode = {
+ config = ''
+ (setq pandoc-binary "${pkgs.pandoc}/bin/pandoc")
+ '';
+ };
+
+ plantuml-mode = {
+ config = ''
+ (setq plantuml-jar-path "${pkgs.plantuml}/lib/plantuml.jar")
+ '';
+ };
+
+ ripgrep = {
+ config = ''
+ (setq ripgrep-executable "${pkgs.ripgrep}/bin/rg")
+ '';
+ };
+ };
+}
diff --git a/options/emacs-init.nix b/options/emacs-init.nix
new file mode 100644
index 0000000..8c15687
--- /dev/null
+++ b/options/emacs-init.nix
@@ -0,0 +1,421 @@
+# Original Source:
+# https://gitlab.com/rycee/nur-expressions/raw/master/hm-modules/emacs-init.nix (b83922825b19de97786c38885e99abb613214e11)
+
+# MIT License
+
+# 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.
+
+
+{ config, lib, pkgs, ... }:
+
+with lib;
+
+let
+
+ cfg = config.programs.emacs.init;
+
+ emacsPackageType =
+ types.coercedTo
+ types.str
+ (pkgName: epkgs: [ epkgs.${pkgName} ])
+ (types.nullOr types.unspecified);
+
+ usePackageType = types.submodule ({ name, config, ... }: {
+ options = {
+ enable = mkEnableOption "Emacs package ${name}";
+
+ package = mkOption {
+ type = emacsPackageType;
+ default = name;
+ description = ''
+ The package to use for this module. Either the package name
+ within the Emacs package set or a function taking the Emacs
+ package set and returning a package.
+ '';
+ };
+
+ defer = mkOption {
+ type = types.either types.bool types.ints.positive;
+ default = false;
+ description = ''
+ The setting.
+ '';
+ };
+
+ demand = mkOption {
+ type = types.bool;
+ default = false;
+ description = ''
+ The setting.
+ '';
+ };
+
+ diminish = mkOption {
+ type = types.listOf types.str;
+ default = [];
+ description = ''
+ The entries to use for .
+ '';
+ };
+
+ mode = mkOption {
+ type = types.listOf types.str;
+ default = [];
+ description = ''
+ The entries to use for .
+ '';
+ };
+
+ after = mkOption {
+ type = types.listOf types.str;
+ default = [];
+ description = ''
+ The entries to use for .
+ '';
+ };
+
+ bind = mkOption {
+ type = types.attrsOf types.str;
+ default = {};
+ example = { "M-" = "drag-stuff-up"; "M-" = "drag-stuff-down"; };
+ description = ''
+ The entries to use for .
+ '';
+ };
+
+ bindLocal = mkOption {
+ type = types.attrsOf (types.attrsOf types.str);
+ default = {};
+ example = { helm-command-map = { "C-c h" = "helm-execute-persistent-action"; }; };
+ description = ''
+ The entries to use for local keymaps in .
+ '';
+ };
+
+ bindKeyMap = mkOption {
+ type = types.attrsOf types.str;
+ default = {};
+ example = { "C-c p" = "projectile-command-map"; };
+ description = ''
+ The entries to use for .
+ '';
+ };
+
+ command = mkOption {
+ type = types.listOf types.str;
+ default = [];
+ description = ''
+ The entries to use for .
+ '';
+ };
+
+ config = mkOption {
+ type = types.lines;
+ default = "";
+ description = ''
+ Code to place in the section.
+ '';
+ };
+
+ extraConfig = mkOption {
+ type = types.lines;
+ default = "";
+ description = ''
+ Additional lines to place in the use-package configuration.
+ '';
+ };
+
+ hook = mkOption {
+ type = types.listOf types.str;
+ default = [];
+ description = ''
+ The entries to use for .
+ '';
+ };
+
+ init = mkOption {
+ type = types.lines;
+ default = "";
+ description = ''
+ The entries to use for .
+ '';
+ };
+
+ assembly = mkOption {
+ type = types.lines;
+ readOnly = true;
+ internal = true;
+ description = "The final use-package code.";
+ };
+ };
+
+ config = mkIf config.enable {
+ assembly =
+ let
+ quoted = v: ''"${escape ["\""] v}"'';
+ mkBindHelper = cmd: prefix: bs:
+ optionals (bs != {}) (
+ [ ":${cmd} (${prefix}" ]
+ ++ mapAttrsToList (n: v: " (${quoted n} . ${v})") bs
+ ++ [ ")" ]
+ );
+
+ mkAfter = vs: optional (vs != []) ":after (${toString vs})";
+ mkCommand = vs: optional (vs != []) ":commands (${toString vs})";
+ mkDiminish = vs: optional (vs != []) ":diminish (${toString vs})";
+ mkMode = map (v: ":mode ${v}");
+ mkBind = mkBindHelper "bind" "";
+ mkBindLocal = bs:
+ let
+ mkMap = n: v: mkBindHelper "bind" ":map ${n}" v;
+ in
+ flatten (mapAttrsToList mkMap bs);
+ mkBindKeyMap = mkBindHelper "bind-keymap" "";
+ mkHook = map (v: ":hook ${v}");
+ mkDefer = v:
+ if isBool v then optional v ":defer t"
+ else [ ":defer ${toString v}" ];
+ mkDemand = v: optional v ":demand t";
+ in
+ concatStringsSep "\n " (
+ [ "(use-package ${name}" ]
+ ++ mkAfter config.after
+ ++ mkBind config.bind
+ ++ mkBindKeyMap config.bindKeyMap
+ ++ mkBindLocal config.bindLocal
+ ++ mkCommand config.command
+ ++ mkDefer config.defer
+ ++ mkDemand config.demand
+ ++ mkDiminish config.diminish
+ ++ mkHook config.hook
+ ++ mkMode config.mode
+ ++ optionals (config.init != "") [ ":init" config.init ]
+ ++ optionals (config.config != "") [ ":config" config.config ]
+ ++ optional (config.extraConfig != "") config.extraConfig
+ ) + ")";
+ };
+ });
+
+ usePackageStr = name: pkgConfStr: ''
+ (use-package ${name}
+ ${pkgConfStr})
+ '';
+
+ mkRecommendedOption = type: extraDescription: mkOption {
+ type = types.bool;
+ default = false;
+ example = true;
+ description = ''
+ Whether to enable recommended ${type} settings.
+ '' + optionalString (extraDescription != "") ''
+
+ ${extraDescription}
+ '';
+ };
+
+ # Recommended GC settings.
+ gcSettings = ''
+ (defun hm/reduce-gc ()
+ "Reduce the frequency of garbage collection."
+ (setq gc-cons-threshold 402653184
+ gc-cons-percentage 0.6))
+
+ (defun hm/restore-gc ()
+ "Restore the frequency of garbage collection."
+ (setq gc-cons-threshold 16777216
+ gc-cons-percentage 0.1))
+
+ ;; Make GC more rare during init and while minibuffer is active.
+ (eval-and-compile #'hm/reduce-gc)
+ (add-hook 'minibuffer-setup-hook #'hm/reduce-gc)
+
+ ;; But make it more regular after startup and after closing minibuffer.
+ (add-hook 'emacs-startup-hook #'hm/restore-gc)
+ (add-hook 'minibuffer-exit-hook #'hm/restore-gc)
+
+ ;; Avoid unnecessary regexp matching while loading .el files.
+ (defvar hm/file-name-handler-alist file-name-handler-alist)
+ (setq file-name-handler-alist nil)
+
+ (defun hm/restore-file-name-handler-alist ()
+ "Restores the file-name-handler-alist variable."
+ (setq file-name-handler-alist hm/file-name-handler-alist)
+ (makunbound 'hm/file-name-handler-alist))
+
+ (add-hook 'emacs-startup-hook #'hm/restore-file-name-handler-alist)
+ '';
+
+ # Whether the configuration makes use of `:diminish`.
+ hasDiminish = any (p: p.diminish != []) (attrValues cfg.usePackage);
+
+ # Whether the configuration makes use of `:bind`.
+ hasBind = any (p: p.bind != {}) (attrValues cfg.usePackage);
+
+ usePackageSetup =
+ ''
+ (eval-when-compile
+ (require 'package)
+
+ (setq package-archives nil
+ package-enable-at-startup nil
+ package--init-file-ensured t)
+
+ (require 'use-package)
+
+ ;; To help fixing issues during startup.
+ (setq use-package-verbose ${
+ if cfg.usePackageVerbose then "t" else "nil"
+ }))
+ ''
+ + optionalString hasDiminish ''
+ ;; For :diminish in (use-package).
+ (require 'diminish)
+ ''
+ + optionalString hasBind ''
+ ;; For :bind in (use-package).
+ (require 'bind-key)
+ '';
+
+ initFile = ''
+ ;;; hm-init.el --- Emacs configuration à la Home Manager.
+ ;;
+ ;; -*- lexical-binding: t; -*-
+ ;;
+ ;;; Commentary:
+ ;;
+ ;; A configuration generated from a Nix based configuration by
+ ;; Home Manager.
+ ;;
+ ;;; Code:
+
+ ${optionalString cfg.startupTimer ''
+ ;; Remember when configuration started. See bottom for rest of this.
+ ;; Idea taken from http://writequit.org/org/settings.html.
+ (defconst emacs-start-time (current-time))
+ ''}
+
+ ${optionalString cfg.recommendedGcSettings gcSettings}
+
+ ${cfg.prelude}
+
+ ${usePackageSetup}
+ ''
+ + concatStringsSep "\n\n"
+ (map (getAttr "assembly")
+ (filter (getAttr "enable")
+ (attrValues cfg.usePackage)))
+ + ''
+
+ ${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)
+ ;; hm-init.el ends here
+ '';
+
+in
+
+{
+ imports = [ ./emacs-init-defaults.nix ];
+
+ options.programs.emacs.init = {
+ enable = mkEnableOption "Emacs configuration";
+
+ recommendedGcSettings = mkRecommendedOption "garbage collection" ''
+ This will reduce garbage collection frequency during startup and
+ while the minibuffer is active.
+ '';
+
+ startupTimer = mkEnableOption "Emacs startup duration timer";
+
+ prelude = mkOption {
+ type = types.lines;
+ default = "";
+ description = ''
+ Configuration lines to add in the beginning of
+ init.el.
+ '';
+ };
+
+ postlude = mkOption {
+ type = types.lines;
+ default = "";
+ description = ''
+ Configuration lines to add in the end of
+ init.el.
+ '';
+ };
+
+ usePackageVerbose = mkEnableOption "verbose use-package mode";
+
+ usePackage = mkOption {
+ type = types.attrsOf usePackageType;
+ default = {};
+ example = literalExample ''
+ {
+ dhall-mode = {
+ mode = [ '''"\\.dhall\\'"''' ];
+ };
+ }
+ '';
+ description = ''
+ Attribute set of use-package configurations.
+ '';
+ };
+ };
+
+ config = mkIf cfg.enable {
+ environment.systemPackages = let
+ finalPackage = (pkgs.emacsWithPackages (epkgs:
+ let
+ getPkg = v:
+ if isFunction v then [ (v epkgs) ]
+ else optional (isString v && hasAttr v epkgs) epkgs.${v};
+ in
+ [ epkgs.use-package ]
+ ++ optional hasBind epkgs.bind-key
+ ++ optional hasBind epkgs.diminish
+ ++ (
+ concatMap (v: getPkg (v.package))
+ (builtins.attrValues cfg.usePackage)
+ )));
+ in [
+ ((pkgs.emacsPackagesNgGen finalPackage).trivialBuild {
+ pname = "hm-init";
+ version = "0";
+ src = pkgs.writeText "hm-init.el" initFile;
+ preferLocalBuild = true;
+ allowSubstitutes = false;
+ })
+ ];
+
+ environment.etc."emacs.d/init.el".text = ''
+ (require 'hm-init)
+ (provide 'init)
+ '';
+ };
+}
diff --git a/options/machine.nix b/options/machine.nix
index bbad460..bf1acd0 100644
--- a/options/machine.nix
+++ b/options/machine.nix
@@ -5,9 +5,10 @@ with lib;
let
cfg = config.machine;
- metapkgs = (lists.forEach
- (attrNames (filterAttrs (n: v: v == "regular" ) (readDir ../pkgs/pkgsets)))
- (v: replaceStrings [ ".nix" ] [ "" ] v));
+ fn = import (toString ../fn.nix) { inherit lib; };
+ metapkgs = let
+ pPath = (toString ./../pkgs/pkgsets);
+ in (lists.forEach (fn.lsfRec pPath true) (v: replaceStrings [ "${pPath}/" "/" ".nix" ] [ "" "::" "" ] v));
pkgOption = pname: {
name = pname;
value = rec {
diff --git a/pkgs/pkgsets/emacs.nix b/pkgs/pkgsets/emacs.nix
index a4f2cee..010e620 100644
--- a/pkgs/pkgsets/emacs.nix
+++ b/pkgs/pkgsets/emacs.nix
@@ -1,62 +1,165 @@
-{ config, pkgs, ... }:
+{ config, lib, pkgs, ... }:
+
+with lib;
let
gitpkgs = import /nixpkgs {};
-in {
- config.machine.pkgsets.emacs.pkgwrap = [ (gitpkgs.emacsWithPackages (epkgs: with epkgs; config.machine.pkgsets.emacs.pkgs)) ];
- config.machine.pkgsets.emacs.pkgs = with pkgs; with pkgs.emacsPackages; [
- /* Theming */
- solarized-theme color-theme-sanityinc-tomorrow moe-theme powerline moody minions
- /*General Stuff */
- rainbow-delimiters # color parenthesis by indentation
- color-identifiers-mode
- /* Python */
- company-jedi pylint elpy flycheck-mypy
- /* Git support */
- magit
- emms # multimedia support
- wsd-mode
- plantuml-mode
- /* Other Stuff, not yet sorted */
- mu4e-alert
- google-translate
- tramp
- transmission
- org-plus-contrib orgit ox-gfm ox-rst
- easy-jekyll markdown-mode impatient-mode simple-httpd htmlize
- eclim
- auto-complete
- pkgs.aspell pkgs.aspellDicts.en pkgs.aspellDicts.de
- use-package diminish bind-key
- smartparens
- evil-surround evil-indent-textobject evil-cleverparens avy undo-tree
- cdlatex # for math expressions
- helm
- /* LaTeX */ auctex helm-bibtex cdlatex
- markdown-mode
- flycheck
- pkgs.ledger
- yaml-mode
- company
- # Irony is currently broken.
- /* C/C++ */ irony company-irony company-irony-c-headers flycheck-irony clang-format pkgs.clang-tools
- /* Haskell */ haskell-mode flycheck-haskell
- /* Org */ org org-ref pdf-tools org-bullets org-caldav
- /* Rust */ rust-mode flycheck-rust racer
- /* mail */ messages-are-flowing
- /* Nix */ nix-buffer nix-mode nixos-options company-nixos-options nix-sandbox
- paganini-theme
- json-navigator
- spaceline # modeline beautification
- winum eyebrowse # window management
- auto-compile
- /* Maxima */ pkgs.maxima
- visual-fill-column
- web-mode
- melpaStablePackages.idris-mode helm-idris
- /* Java */
-# projectile yasnippet lsp-mode hydra company-lsp lsp-ui lsp-java dap-mode
- cl-lib meghanada autodisass-java-bytecode google-c-style realgud
- weechat
+ modefiles = lists.forEach
+ (attrNames
+ (filterAttrs (n: v: v == "regular")
+ (builtins.readDir ./emacs)))
+ (v: "./emacs/${v}");
+in rec {
+ nixpkgs.overlays = [
+ (import (builtins.fetchTarball {
+ url = https://github.com/nix-community/emacs-overlay/archive/master.tar.gz;
+ }))
];
+ imports = [
+ ../../options/emacs-init.nix
+# modefiles
+ ];
+
+ programs.emacs.init = {
+ enable = true;
+ recommendedGcSettings = true;
+ prelude = ''
+ ;; Disable UI Clutter
+ (menu-bar-mode -1)
+ (tool-bar-mode -1)
+ (scroll-bar-mode -1)
+ (tooltip-mode -1)
+ (blink-cursor-mode -1)
+ (setq ring-bell-function 'ignore)
+ (setq inhibit-startup-buffer-menu t)
+ (setq use-dialog-box nil)
+ (setq inhibit-startup-message t)
+ (setq inhibit-splash-screen t)
+ (setq initial-scratch-message nil)
+ (fset 'yes-or-no-p 'y-or-n-p)
+ (setq-default show-trailing-whitespace t)
+
+
+
+ ;; Save and Backup behaviour
+ (add-hook 'before-save-hook 'delete-trailing-whitespace)
+ (setq create-lockfiles nil)
+ (setq backup-directory-alist `(("." . "~/.emacs_saves")))
+ (setq backup-by-copying t)
+ (setq delete-old-versions t
+ kept-new-versions 6
+ kept-old-versions 2
+ version-control t)
+
+
+
+ ;; Tabs vs Spaces... I like Spaces
+ (setq-default indent-tabs-mode nil
+ tab-width 4
+ c-basic-offset 4)
+
+
+
+ ;; General Functions I want
+ (put 'narrow-to-region 'disabled nil)
+ (put 'upcase-region 'disabled nil)
+ (put 'downcase-region 'disabled nil)
+
+
+
+ ;; Global UI related Modes
+ (global-display-line-numbers-mode)
+ (setq display-line-numbers-width-start t)
+ (setq display-line-numbers-grow-only t)
+ (column-number-mode t)
+ (global-hl-line-mode t)
+ (size-indication-mode t)
+ (show-paren-mode t)
+
+
+
+ ;; Font Config
+ (defun set-fonts (frame)
+ (interactive)
+ "Adjust the font settings of FRAME so Emacs can display emoji and chinese properly."
+ (set-fontset-font t 'ascii (font-spec :family "DejaVu Sans Mono") frame 'preprend)
+ (set-fontset-font t 'big5 (font-spec :family "AR PL UMing TW") frame)
+ (set-fontset-font t 'chinese-gbk (font-spec :family "AR PL UMing CN") frame)
+ (set-fontset-font t 'symbol (font-spec :family "Symbola") frame 'prepend))
+
+ ;; For when Emacs is started in GUI mode:
+ (set-fonts nil)
+ ;; Hook for when a frame is created with emacsclient
+ ;; see https://www.gnu.org/software/emacs/manual/html_node/elisp/Creating-Frames.html
+ (add-hook 'after-make-frame-functions 'set-fonts)
+ '';
+ };
+
+# machine.pkgsets.emacs.pkgwrap = [(gitpkgs.pkgs.emacsWithPackages (ps: with ps; config.machine.pkgsets.emacs.pkgs))];
+#[
+# (pkgs.emacsWithPackagesFromUsePackage {
+# # config = (concatStringsSep "\n" machine.pkgsets.emacs.config);
+# config = ''
+# # (package-initialize)
+# # (org-babel-load-file "~/.emacs.d/configuration.org")
+# '';
+# package = pkgs.emacsGit;
+# extraEmacsPackages = (ep: with ep; config.machine.pkgsets.emacs.pkgs);
+# })
+# ];
+# machine.pkgsets.emacs.pkgs = with pkgs; with pkgs.emacsPackages; [
+# /* Theming */
+# solarized-theme color-theme-sanityinc-tomorrow moe-theme powerline moody minions
+# /*General Stuff */
+# rainbow-delimiters # color parenthesis by indentation
+# color-identifiers-mode
+# /* Python */
+# company-jedi pylint elpy flycheck-mypy
+# /* Git support */
+# magit
+# emms # multimedia support
+# wsd-mode
+# plantuml-mode
+# /* Other Stuff, not yet sorted */
+# mu4e-alert
+# google-translate
+# tramp
+# transmission
+# org-plus-contrib orgit ox-gfm ox-rst
+# easy-jekyll markdown-mode impatient-mode simple-httpd htmlize
+# eclim
+# auto-complete
+# pkgs.aspell pkgs.aspellDicts.en pkgs.aspellDicts.de
+# use-package diminish bind-key
+# smartparens
+# evil-surround evil-indent-textobject evil-cleverparens avy undo-tree
+# cdlatex # for math expressions
+# helm
+# /* LaTeX */ auctex helm-bibtex cdlatex
+# markdown-mode
+# flycheck
+# pkgs.ledger
+# yaml-mode
+# company
+# # Irony is currently broken.
+# /* C/C++ */ irony company-irony company-irony-c-headers flycheck-irony clang-format pkgs.clang-tools
+# /* Haskell */ haskell-mode flycheck-haskell
+# /* Org */ org org-ref pdf-tools org-bullets org-caldav
+# /* Rust */ rust-mode flycheck-rust racer
+# /* mail */ messages-are-flowing
+# /* Nix */ nix-buffer nix-mode nixos-options company-nixos-options nix-sandbox
+# paganini-theme
+# json-navigator
+# spaceline # modeline beautification
+# winum eyebrowse # window management
+# auto-compile
+# /* Maxima */ pkgs.maxima
+# visual-fill-column
+# web-mode
+# melpaStablePackages.idris-mode helm-idris
+# /* Java */
+# # projectile yasnippet lsp-mode hydra company-lsp lsp-ui lsp-java dap-mode
+# cl-lib meghanada autodisass-java-bytecode google-c-style realgud
+# weechat
+# ];
}
diff --git a/pkgs/pkgsets/emacs/company.nix b/pkgs/pkgsets/emacs/company.nix
new file mode 100644
index 0000000..b00ae90
--- /dev/null
+++ b/pkgs/pkgsets/emacs/company.nix
@@ -0,0 +1,19 @@
+{ config, ... }:
+
+mkIf (elem "emacs-company" config.machine.pkgs) {
+ programs.emacs.init.usePackage.company = {
+ enable = true;
+ diminish = [ "company-mode" ];
+ hook = [ "(after-init . global-company-mode)" ];
+ bind = { "\t" = "'company-complete-common"; };
+ config = ''
+ (setq company-idle-delay 0.3
+ company-show-numbers t)
+ '';
+ extraConfig = ''
+ :bind (:map company-mode-map
+ ([remap completion-at-point] . company-complete-common)
+ ([remap complete-symbol] . company-complete-common))
+ '';
+ };
+}
diff --git a/pkgs/pkgsets/emacs/flyspell.nix b/pkgs/pkgsets/emacs/flyspell.nix
new file mode 100644
index 0000000..63f0c2d
--- /dev/null
+++ b/pkgs/pkgsets/emacs/flyspell.nix
@@ -0,0 +1,28 @@
+{ config, ... }:
+
+mkIf (elem "emacs-flyspell" config.machine.pkgs) {
+ programs.emacs.init.usePackage.flyspell = {
+ enable = true;
+ diminish = [ "flyspell-mode" ];
+ command = [ "flyspell-mode" "flyspell-prog-mode" ];
+ hook = [];
+ bind = {
+ "C-M-" = "flyspell-switch-dictionary";
+ "C-c f" = "ispell-word";
+ };
+ config = ''
+ ;; Make flyspell less verbose and disable annoying keybind
+ (setq flyspell-issue-message-flag nil
+ flyspell-issue-welcome-flag nil
+ flyspell-use-meta-tab nil)
+
+ (defun flyspell-switch-dictionary ()
+ (interactive)
+ (let* ((dic ispell-current-dictionary)
+ (change (if (string= dic "deutsch8") "english" "deutsch8")))
+ (ispell-change-dictionary change)
+ (message "Dictionary switched to %s" change)
+ ))
+ '';
+ };
+}
diff --git a/pkgs/pkgsets/emacs/mu4e.nix b/pkgs/pkgsets/emacs/mu4e.nix
new file mode 100644
index 0000000..dd02185
--- /dev/null
+++ b/pkgs/pkgsets/emacs/mu4e.nix
@@ -0,0 +1,100 @@
+{ config, lib, pkgs, ... }:
+
+with lib;
+
+mkIf (elem "emacs-mu4e" config.machine.pkgs) {
+ programs.emacs.init.usePackage.mu4e = {
+ enable = true;
+ package = epkgs: null;
+ command = [ "mu4e" ];
+ diminish = [ "mu4e-mode" ];
+ hook = [
+ "('mu4e-view-mode-hook #'visual-line-mode)"
+ "('mu4e-compose-mode-hook 'flyspell-mode)"
+ ];
+ bind = { "\t" = "'company-complete-common"; };
+ config = ''
+ (setq mail-user-agent 'mu4e-user-agent)
+ (setq org-mu4e-link-query-in-headers-mode t)
+ (setq mu4e-maildir "~/.mail/Mail")
+ (setq mu4e-get-mail-command "${pkgs.isync}/bin/mbsync -a")
+ (setq mu4e-context-policy 'pick-first)
+ (setq mu4e-change-filenames-when-moving t)
+ (setq starttls-use-gnutls t)
+ (setq message-send-mail-function 'smtpmail-send-it)
+ (setq mu4e-update-interval 300)
+ (setq mu4e-use-fancy-chars t)
+ (setq mu4e-view-show-addresses t)
+ (setq mu4e-headers-show-threads t)
+ (setq mu4e-headers-skip-duplicates t)
+ (setq mail-user-agent 'mu4e-user-agent)
+ (defvaralias 'mu4e-compose-signature 'message-signature)
+ (setq-default mu4e-save-multiple-attachments-without-asking t)
+ (setq-default mu4e-view-show-addresses t)
+ (setq-default mu4e-confirm-quit nil)
+ (setq-default mu4e-hide-index-messages t)
+ (setq-default mu4e-index-update-in-background t)
+ (setq mu4e-compose-in-new-frame nil)
+
+ ;;rename files when moving
+ ;;NEEDED FOR MBSYNC
+ (setq mu4e-change-filenames-when-moving t)
+
+ (setq mu4e-html2text-command "iconv -c -t utf-8 | ${pkgs.pandoc}/bin/pandoc -f html -t plain")
+ (setq mu4e-view-show-images t)
+ (when (fboundp 'imagemagick-register-types)
+ (imagemagick-register-types))
+ (setq message-kill-buffer-on-exit t)
+
+
+ (setq mu4e-contexts
+ `(${map
+ (rec { name, fullName, address, sServer, sPort, sUser ? address }: ''
+ ,(make-mu4e-context
+ :name ${name}
+ :vars '((user-mail-address . ${address} )
+ (user-full-name . ${fullName} )
+ (mu4e-sent-folder . "/Sent")
+ (mu4e-drafts-folder . "/Drafts")
+ (mu4e-trash-folder . "/Deleted")
+ (mu4e-refile-folder . "/Archiv")
+ (smtpmail-smtp-user . ${sUser} )
+ (smtpmail-auth-credentials . (expand-file-name "~/mail/secret/.authinfo.gpg"))
+ (smtpmail-default-smtp-server . ${sServer} )
+ (smtpmail-smtp-server . ${sServer} )
+ (smtpmail-stream-type . starttls)
+ (smtpmail-smtp-service . ${sPort} )
+ )
+ )
+ '';
+ )
+ (import "${config.machine.secretPath}/secrets.nix").mu4e}
+ ))
+
+
+ (defun my-browse-url-firefox-privately (url &optional new-window)
+ "Make firefox open URL in private-browsing window."
+ (interactive (browse-url-interactive-arg "URL: "))
+ (let ((process-environment (browse-url-process-environment)))
+ (apply 'start-process
+ (concat "firefox " url)
+ nil
+ browse-url-firefox-program
+ (list "-private-window" url))))
+ (setq browse-url-browser-function 'my-browse-url-firefox-privately)
+ (add-to-list 'mu4e-view-actions
+ '("ViewInBrowser" . mu4e-action-view-in-browser) t)
+ '';
+ extraConfig = ''
+ :load-path ${pkgs.mu4e}/share/emacs/site-lisp/mu4e
+ '';
+ };
+ programs.emacs.init.usePackage.mu4e-alert = {
+ enable = true;
+ hook = [ "'after-init-hook" = "#'mu4e-alert-enable-mode-line-display" ];
+ };
+ environment.systemPackages = [
+ mu4e
+ isync
+ ];
+}
diff --git a/pkgs/pkgsets/emacs/powerline.nix b/pkgs/pkgsets/emacs/powerline.nix
new file mode 100644
index 0000000..57c4f7c
--- /dev/null
+++ b/pkgs/pkgsets/emacs/powerline.nix
@@ -0,0 +1,14 @@
+{ config, ... }:
+
+mkIf (elem "emacs-poerline" config.machine.pkgs) {
+ programs.emacs.init.usePackage.solarized-theme = {
+ enable = true;
+ config = ''
+ ;; color palette from https://github.com/kuanyui/moe-theme.el/blob/master/moe-theme.el#L283
+ (set-face-attribute 'mode-line nil :background "#afd7ff" :foreground "#005f87")
+ (set-face-attribute 'mode-line-buffer-id nil :background "#afd7ff" :foreground "#080808")
+ (set-face-attribute 'minibuffer-prompt nil :foreground "#5fafd7" :background "#3a3a3a")
+ (powerline-default-theme)
+ '';
+ };
+}
diff --git a/pkgs/pkgsets/emacs/solarized-theme.nix b/pkgs/pkgsets/emacs/solarized-theme.nix
new file mode 100644
index 0000000..a1e0265
--- /dev/null
+++ b/pkgs/pkgsets/emacs/solarized-theme.nix
@@ -0,0 +1,8 @@
+{ config, ... }:
+
+mkIf (elem "emacs-solarized-theme" config.machine.pkgs) {
+ programs.emacs.init.usePackage.solarized-theme = {
+ enable = true;
+ config = "(load-theme 'solarized-dark t)";
+ };
+}
diff --git a/pkgs/systemPackages.nix b/pkgs/systemPackages.nix
index 99fa244..0c51c08 100644
--- a/pkgs/systemPackages.nix
+++ b/pkgs/systemPackages.nix
@@ -5,7 +5,7 @@ with lib;
let
cfg = config.machine;
pkgsets = (lists.forEach
- (attrNames (filterAttrs (n: v: v == "regular") (builtins.readDir ./pkgsets)))
+ (attrNames (filterAttrs (n: v: v == "regular") (builtins.readDir (toString ./pkgsets))))
(v: (./. + "/pkgsets/${v}")));
in {
imports = pkgsets;
@@ -14,10 +14,10 @@ in {
(attrVals cfg.pkgs cfg.pkgsets)
(v: v.pkgwrap));
- services.emacs = mkIf (elem "emacs" cfg.pkgs) {
- defaultEditor = true;
- enable = true;
- install = true;
- package = (elemAt cfg.pkgsets.emacs.pkgwrap 0);
- };
+ # services.emacs = mkIf (elem "emacs" cfg.pkgs) {
+ # defaultEditor = true;
+ # enable = true;
+ # install = true;
+ # package = (elemAt cfg.pkgsets.emacs.pkgwrap 0);
+ # };
}