;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/conf/.emacs

(require 'bytecomp)
(require 'cl-lib)
(require 'minibuffer)
(require 'newcomment)
(require 'package)
(require 'simple)
(require 'text-mode)

(cl-pushnew package-user-dir load-path)

(setq-default lexical-binding t)

(add-hook 'after-save-hook #'buffer-enable-undo)

;; minibuffer
(setq enable-recursive-minibuffers t)
(setq minibuffer-default-prompt-format " [%s]")

(setq garbage-collection-messages nil)

(setq inhibit-default-init t)

(let*((lisp-dir   (format "%slisp"       user-emacs-directory))
      (init-dir   (format "%semacs-init" user-emacs-directory))
      (bibtex-dir (format "%s/bibtex" init-dir))
      (erc-dir    (format "%s/erc"    init-dir))
      (gnus-dir   (format "%s/gnus"   init-dir))
      (ide-dir    (format "%s/ide"    init-dir))
      (mvc-dir    (format "%s/mvc"    init-dir))
      (w3m-dir    (format "%s/w3m"    init-dir))
      (dirs       (list
                     lisp-dir
                     init-dir
                     bibtex-dir
                     erc-dir
                     gnus-dir
                     ide-dir
                     mvc-dir
                     w3m-dir
                     )))
  (dolist (d dirs)
    (cl-pushnew d load-path) ))

(let ((files '(
              "abc"
              "align-from-left"
              "align-incal"
              "article"
              "audio"
              "batch"
              "bibtex-autokey-insert"
              "bibtex-book"
              "bibtex-field"
              "bibtex-incal"
              "bibtex-next-volume"
              "bike"
              "bmi"
              "browse"
              "buc"
              "buffer-menu"
              "c-and-cpp"
              "caps-back"
              "char"
              "close"
              "color-incal"
              "comic-book-insult"
              "compilation-incal"
              "compile-incal"
              "console-keys"
              "count"
              "custom-vars"
              "dired-incal"
              "dired-jump-target"
              "dired-kill-ext"
              "dope"
              "dwim"
              "ecat-incal"
              "echo-message"
              "edit"
              "elisp"
              "elpa"
              "emacs-shell"
              "enum"
              "epwgen"
              "erc-connect"
              "erc-incal"
              "erc-iterate"
              "erc-kill"
              "erc-log-incal"
              "erc-man"
              "erc-misc"
              "erc-show-modes"
              "erc-spell"
              "face"
              "file-write-to"
              "file"
              "fill-incal"
              "find-command-zsh"
              "frame-size"
              "geh"
              "get-search-string"
              "gnus-cite-incal"
              "gnus-incal-minimal"
              "gnus-incal"
              "gnus-score-incal"
              "gnus-server"
              "group-summary"
              "group"
              "help-incal"
              "hex"
              "html"
              "ide"
              "info-incal"
              "isbn-verify"
              "issn-verify"
              "iterate-files"
              "keys"
              "kill-path"
              "kill"
              "latex"
              "lights"
              "linux-shell"
              "lisp-incal"
              "list-quoted-functions"
              "list"
              "mail-dataswamp"
              "mail-insert"
              "mail-to-many"
              "mail-zoho"
              "mail"
              "mailrc"
              "man-incal"
              "match-data-format"
              "math"
              "measure"
              "message-header"
              "message-incal"
              "messages"
              "minor-modes"
              "misc-incal"
              "mode-by-filename"
              "mode-line"
              "model-ttt"
              "model"
              "moggle"
              "native"
              "navigate-fs-keys"
              "negative-subtraction"
              "ny"
              "mpv-incal"
              "package-style"
              "perm"
              "piles"
              "printer"
              "psea"
              "quit"
              "quote-ref"
              "random"
              "re-make-list"
              "ref-lines"
              "regexp"
              "remote"
              "replace-list"
              "restart"
              "revert-buffer"
              "scale"
              "scroll"
              "search-regexp-in-files"
              "sequence-string"
              "show-command"
              "signal"
              "slime-incal"
              "sort-incal"
              "sort-list"
              "spell"
              "stats"
              "street"
              "str-to-bits"
              "string"
              "sudo-user-path"
              "summary"
              "super"
              "survivor"
              "switch-to-buffer-regexp"
              "switch-to-buffer"
              "tabs"
              "test-face"
              "time-cmp"
              "today"
              "todo-did"
              "variance"
              "version"
              "vt"
              "w3m-bookmark-more"
              "w3m-download"
              "w3m-incal"
              "w3m-keys"
              "w3m-sem"
              "w3m-survivor"
              "w3m-swamp"
              "w3m-tabs"
              "w3m-unisearch"
              "w3m-version"
              "window-incal"
              "window-other"
              "wood"
              "world-clock-incal"
              "wrap-search"
              "x"
              "xsel"
              )))
  (dolist (f files)
    (load f) ))

(require 'mode-line)

;; auto-save
(auto-save-mode -1)
(setq auto-save-list-file-prefix nil)
(setq auto-save-no-message t)

;; backups
(setq backup-inhibited t)
(setq make-backup-files nil)

;; parens
(require 'paren)
(show-paren-mode)
(setq show-paren-delay 0)
;; (setq show-paren-predicate '(not (major-mode . erc-mode)))

;; fanfare / splash

(eval '(setq inhibit-startup-echo-area-message "incal"))

(setq byte-compile-verbose   nil)
(setq inhibit-startup-screen t)

(setq initial-scratch-message nil)
(when-let ((buf (get-buffer "*scratch*")))
  (kill-buffer buf) )

;; disable keys
(global-set-key "\C-h\C-p" #'ignore) ; view-emacs-problems
(global-set-key "\C-hr"    #'ignore) ; info-emacs-manual
(global-set-key "\C-ht"    #'ignore) ; help-with-tutorial
(global-set-key "\C-x\C-c" #'ignore) ; save-buffers-kill-terminal
(global-set-key "\C-x\C-n" #'ignore) ; set-goal-column

;; enable/disable commands
(put #'downcase-region 'disabled nil)
(put #'erase-buffer    'disabled nil)
(put #'suspend-frame   'disabled t)
(put #'upcase-region   'disabled nil)

;; aliases
(defalias 'dcase #'downcase-region)

(defun conf-space-mode-hook-f ()
  (lines) )
(add-hook 'conf-space-mode-hook #'conf-space-mode-hook-f)

(defun text-mode-hook-f ()
  (lines)
  (abbrev-mode)
  (define-key text-mode-map "\C-c\C-c" #'compile) )
(add-hook 'text-mode-hook #'text-mode-hook-f)

;; disable compose (what is this?)
(setq compose-chars-after-function nil)
(defun compose-region (&rest _) nil)

(normal-erase-is-backspace-mode 0) ; don't remap C-h and DEL

(setq comment-empty-lines t)
(setq custom-file "~/ooa/dork.el")
(setq interprogram-cut-function nil)
(setq use-short-answers t)

(setq-default case-fold-search t)
(setq-default left-margin-width nil)
(setq-default truncate-lines t)

(put #'insert 'lisp-indent-function #'common-lisp-indent-function)

;; keys (last)
(load "global-keys")
(load "navigate-fs-keys")

(with-current-buffer "*Messages*"
  (let ((buffer-read-only nil))
    (flush-lines "^Loading" (point-min) (point-max)) ))

(message "all systems ready")