(require 'use-package)
(require 'cl-lib)
(require 'seq)
(require 'server)
(require 'edebug)
(require 'site-gentoo)

(global-unset-key (kbd "<left>"))
(global-unset-key (kbd "<right>"))
(global-unset-key (kbd "<up>"))
(global-unset-key (kbd "<down>"))
(global-unset-key (kbd "<C-left>"))
(global-unset-key (kbd "<C-right>"))
(global-unset-key (kbd "<C-up>"))
(global-unset-key (kbd "<C-down>"))
(global-set-key   (kbd "C-x k")     'kill-this-buffer)
(global-set-key   (kbd "C-x C-b")   'ibuffer)

(setq auth-source-save-behavior nil
      auto-save-default nil
      change-major-mode-with-file-name nil
      custom-buffer-indent 4
      custom-file (file-name-concat user-emacs-directory "custom.el")
      custom-theme-directory (file-name-concat user-emacs-directory "themes/")
      debugger 'edebug
      display-buffer-base-action '(display-buffer-same-window display-buffer-reuse-window)
      initial-buffer-choice (lambda ()
                              (let ((initial-file (file-name-concat
                                                   user-emacs-directory
                                                   "initial-buffer")))
                                (if (file-exists-p initial-file)
                                    (find-file initial-file)
                                  (get-buffer-create "*scratch*"))))
      enable-local-variables :safe
      inhibit-splash-screen t
      make-backup-files nil
      mouse-wheel-progressive-speed nil
      tab-width 4
      temporary-file-directory (file-name-concat (or (getenv "TMPDIR") "/tmp") ".emacs")
      use-package-always-demand t
      use-package-ensure-function 'ignore)

(setq-default display-fill-column-indicator-column 120
              indent-tabs-mode nil)

(setq-default mode-line-format '("%*"
                                 " "
                                 (:eval (if buffer-file-name
                                            (abbreviate-file-name buffer-file-name)
                                          (buffer-name)))
                                 " "
                                 "(" mode-name ")"
                                 " "
                                 "(" (:eval (if server-process
                                                (process-name server-process)
                                              "_"))
                                 ")"))

(load-file (locate-user-emacs-file "lisp/packages.el"))

(cl-loop with packages-directory = (file-name-concat user-emacs-directory "packages")
         for package in (directory-files packages-directory t)
         unless (seq-contains-p '("." "..") (file-name-base package))
         do (load-file package))

(mkdir temporary-file-directory t)

(cua-mode 1)
(save-place-mode 1)
(show-paren-mode 1)
(recentf-mode 1)
(savehist-mode 1)
(when (featurep 'pixel-scroll)
  (pixel-scroll-mode 1))

(menu-bar-mode 0)
(scroll-bar-mode 0)
(tool-bar-mode 0)
(tooltip-mode 0)

(load-theme 'wombat)
(load-theme 'badger t)

(set-face-attribute
 'default nil
 :family "Noto Sans Mono"
 :foundry "GOOG"
 :slant 'normal)