245 lines
8.2 KiB
Nix
245 lines
8.2 KiB
Nix
{ config, lib, pkgs, ... }:
|
|
|
|
with lib;
|
|
|
|
let
|
|
fn = import (toString ../fn.nix) { inherit lib; };
|
|
modefiles = fn.lst { p = (toString ./emacs); b = true; };
|
|
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 = (elem "emacs" config.machine.pkgs);
|
|
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)
|
|
(setq split-height-threshold 200)
|
|
(setq split-width-threshold nil)
|
|
|
|
|
|
|
|
;; Text Scaling
|
|
(global-set-key (kbd "C-+") 'text-scale-increase)
|
|
(global-set-key (kbd "C--") 'text-scale-decrease)
|
|
|
|
|
|
|
|
;; 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)
|
|
|
|
;; Fix keyboard input of 'dead-keys'
|
|
(require 'iso-transl)
|
|
|
|
|
|
|
|
;; Some small helper functions
|
|
;; These are based on the already existing 'kill' versions of the function
|
|
;; It's literally just a M-x r-str kill delete (and getting rid of tabs)
|
|
(defun delete-word (arg)
|
|
"Delete characters forward until encountering the end of a word.
|
|
With argument ARG, do this that many times."
|
|
(interactive "p")
|
|
(delete-region (point) (progn (forward-word arg) (point))))
|
|
(define-key global-map [remap kill-word] 'delete-word)
|
|
;; (define-key global-map (kbd <>) 'kill-word)
|
|
|
|
(defun backward-delete-word (arg)
|
|
"Delete characters backward until encountering the beginning of a word.
|
|
With argument ARG, do this that many times."
|
|
(interactive "p")
|
|
(delete-word (- arg)))
|
|
(define-key global-map [remap backward-kill-word] 'backward-delete-word)
|
|
|
|
(defun delete-whole-line (&optional arg)
|
|
"Delete current line.
|
|
With prefix ARG, delete that many lines starting from the current line.
|
|
If ARG is negative, delete backward. Also delete the preceding newline.
|
|
\(This is meant to make \\[repeat] work well with negative arguments.)
|
|
If ARG is zero, delete current line but exclude the trailing newline."
|
|
(interactive "p")
|
|
(or arg (setq arg 1))
|
|
(if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))
|
|
(signal 'end-of-buffer nil))
|
|
(if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp)))
|
|
(signal 'beginning-of-buffer nil))
|
|
(unless (eq last-command 'delete-region)
|
|
(delete-new "")
|
|
(setq last-command 'delete-region))
|
|
(cond ((zerop arg)
|
|
;; We need to delete in two steps, because the previous command
|
|
;; could have been a delete command, in which case the text
|
|
;; before point needs to be prepended to the current delete
|
|
;; ring entry and the text after point appended. Also, we
|
|
;; need to use save-excursion to avoid copying the same text
|
|
;; twice to the delete ring in read-only buffers.
|
|
(save-excursion
|
|
(delete-region (point) (progn (forward-visible-line 0) (point))))
|
|
(delete-region (point) (progn (end-of-visible-line) (point))))
|
|
((< arg 0)
|
|
(save-excursion
|
|
(delete-region (point) (progn (end-of-visible-line) (point))))
|
|
(delete-region (point)
|
|
(progn (forward-visible-line (1+ arg))
|
|
(unless (bobp) (backward-char))
|
|
(point))))
|
|
(t
|
|
(save-excursion
|
|
(delete-region (point) (progn (forward-visible-line 0) (point))))
|
|
(delete-region (point)
|
|
(progn (forward-visible-line arg) (point))))))
|
|
(define-key global-map [remap kill-whole-line] 'delete-whole-line)
|
|
'';
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
### OLD STUFF
|
|
# 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
|
|
# ];
|
|
}
|