guix: full refactor of configuration structure

1 files changed, 0 insertions, 127 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
deleted file mode 100644
index 23070b5..0000000
--- a/.config/emacs/init.el
+++ /dev/null
@@ -1,127 +0,0 @@
-;;; -*- 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
-        read-buffer-completion-ignore-case t)
-(setq-default tab-width 8)
-(add-to-list 'default-frame-alist '(alpha . (92 . 92)))
-(blink-cursor-mode -1)
-(indent-tabs-mode 0)
-(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