1 files changed, 127 insertions, 0 deletions
diff --git a/guix/kolwynia/home/bdunahu/files/.config/emacs/init.el b/guix/kolwynia/home/bdunahu/files/.config/emacs/init.el
new file mode 100644
index 0000000..7243419
--- /dev/null
+++ b/guix/kolwynia/home/bdunahu/files/.config/emacs/init.el
@@ -0,0 +1,127 @@
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+
+;;;; auto-generated files
+;; disable the custom file by making it temporary
+(setopt custom-file (make-temp-file "emacs-custom-")
+        tramp-auto-save-directory (expand-file-name "tmp/auto_saves/sessions/" user-emacs-directory)
+        ;; disable lockfiles
+        create-lockfiles nil
+        ;; move auto-saves to tmp folder
+        auto-save-list-file-prefix (expand-file-name "tmp/auto_saves/sessions/" user-emacs-directory)
+        auto-save-file-transforms `((".*" ,(expand-file-name "tmp/auto_saves/" user-emacs-directory) t))
+        ;; move backups to tmp folder
+        backup-directory-alist `(("." . ,(expand-file-name "tmp/backups/" user-emacs-directory))))
+(make-directory (expand-file-name "tmp/auto_saves/" user-emacs-directory) t)
+
+(setenv "PATH" (format "%s:%s" (expand-file-name "~/.local/bin/") (getenv "PATH")))
+
+(keymap-global-unset "C-z")
+(keymap-global-unset "C-x C-z")
+(keymap-global-set "C-x C-b" #'ibuffer)
+(keymap-global-set "C-c SPC" #'pop-to-mark-command)
+
+(mapc
+ (lambda (command)
+   (put command 'disabled nil))
+ '(upcase-region downcase-region))
+
+(setopt warning-minimum-level :error
+
+        inhibit-startup-message t
+        initial-major-mode 'eshell-mode
+        initial-scratch-message nil
+
+        text-scale-mode-step 1.1
+
+        set-mark-command-repeat-pop t
+
+        kill-whole-line t
+        kill-ring-max 1000
+        undo-limit 320000
+
+        sentence-end-double-space nil
+        next-line-add-newlines t
+        scroll-up-aggressively '0.50
+        scroll-down-aggressively '0.50
+        scroll-step 1
+
+        use-short-answers t
+        vc-follow-symlinks t
+        completion-ignore-case t
+        save-place-mode t
+	indent-tabs-mode nil
+        read-buffer-completion-ignore-case t)
+(setq-default tab-width 8)
+(add-to-list 'default-frame-alist '(alpha . (92 . 92)))
+(blink-cursor-mode -1)
+(fringe-mode '(0 . 0))
+(global-visual-line-mode t)
+(menu-bar-mode -1)
+(minibuffer-depth-indicate-mode 1)
+(scroll-bar-mode -1)
+(tool-bar-mode -1)
+(tooltip-mode -1)
+(add-hook #'before-save-hook #'delete-trailing-whitespace)
+
+(keymap-global-set "C-c m" #'gnus)
+(setopt readmail-command 'gnus
+        mail-user-agent 'gnus-user-agent
+
+        gnus-init-file (expand-file-name "gnus" user-emacs-directory)
+        gnus-home-directory (expand-file-name "gnus-home" user-emacs-directory)
+        gnus-directory (expand-file-name "News" gnus-home-directory)
+        mail-source-directory (expand-file-name "Mail" gnus-home-directory)
+
+        gnus-save-newsrc-file nil
+        gnus-read-newsrc-file nil)
+
+
+(if (file-directory-p "~/.guix-profile")
+    ;; packages installed via guix
+    (progn (setopt package-archives nil
+                   package-enable-at-startup t)
+           (add-to-list 'load-path (expand-file-name "~/.guix-home/profile/share/emacs/site-lisp"))
+           (require 'guix-emacs)
+           (guix-emacs-autoload-packages)
+           (guix-prettify-global-mode 1)
+           (setopt guix-directory "/home/bdunahu/pt/guix"))
+  (require 'package)
+  (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
+  (package-initialize))
+
+
+;;;; add my modules to load path
+(mapc
+ (lambda (path)
+   (add-to-list 'load-path (locate-user-emacs-file path)))
+ '("modules" "libraries"))
+
+
+;;;; load modules
+(require 'bd--utility)
+(require 'bd--secret) ;; contains bookmarks/email vars---git ignored
+(require 'bd--gpg)
+(require 'bd--tabs)
+(require 'bd--browse)
+(require 'bd--project)
+(require 'bd--files)
+(require 'bd--dictionary)
+(require 'bd--chat)
+(require 'bd--shells)
+(require 'bd--minibuffer)
+(require 'bd--buffer)
+(require 'bd--window)
+(require 'bd--devel)
+(require 'bd--org)
+(require 'bd--notes)
+(require 'bd--emms)
+(require 'bd--modeline)
+(if (not (string= (system-name) "surt"))
+    (require 'bd--exwm))
+(require 'bd--themes)
+
+
+;;; init.el ends here