;;; -*- 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)

(setq-default lexical-binding t)

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

(cl-pushnew
 (file-name-concat user-emacs-directory "emacs-init")
 load-path
 :test #'string=)

;; (load-file "~/public_html/bad/bad-paths.el")
;; (load-file "~/public_html/bad/bad.el")
;; (require 'bad)
;; (require 'bad-lib)

(dolist (d (list
                 "erc"
                 "ide"
                 "random-urandom"
                 "w3m"
                 "bibtex"
                 "gnus"
                 "mvc"
                 "script"))
  (cl-pushnew (format "%s%s/%s"
                      user-emacs-directory
                      "emacs-init"
                      d)
              load-path))

(dolist (d (list
                 "apt-sources-list-20180527.1241"
                 "macrostep-20240328.2134"
                 "markdown-mode-20240318.1307"
                 "slime-20240416.1756"
                 "w3m-20231023.653"))
  (cl-pushnew (format "%s/%s" package-user-dir d) load-path))

(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)

(load-file (format "%s/emacs-init/paths.el" user-emacs-directory))

(let ((files '(
               "abc"
               "align-from-left"
               "align-incal"
               "article"
               "auto-version"
               "bibtex-autokey-insert"
               "bibtex-book"
               "bibtex-field"
               "bibtex-incal"
               "bibtex-next-volume"
               "browse"
               "buc"
               "buffer-menu"
               "button-incal"
               "c-and-cpp"
               "caps-back"
               "char"
               "close"
               "color-incal"
               "comic-book-insult"
               "compilation-incal"
               "compile-incal"
               "console-keys"
               "dired-incal"
               "dired-jump-target"
               "dired-kill-ext"
               "dope"
               "draw"
               "dwim"
               "echo-message"
               "edit"
               "elisp"
               "elpa"
               "emacs-shell"
               "enum"
               "erc-connect"
               "erc-incal"
               "erc-iterate"
               "erc-kill"
               "erc-log-incal"
               "erc-man"
               "erc-misc"
               "erc-show-modes"
               "erc-spell"
               "file-incal"
               "file-write-to"
               "fill-incal"
               "find-command-zsh"
               "font-incal"
               "frame-size"
               "fun-names"
               "get-search-string"
               "gnus-cite-incal"
               "gnus-incal"
               "gnus-incal-minimal"
               "gnus-score-incal"
               "gnus-server"
               "group"
               "group-summary"
               "help-incal"
               "hex-incal"
               "html"
               "ide"
               "info-incal"
               "isbn-verify"
               "iterate-files"
               "kill"
               "kill-path"
               "latex"
               "linux-shell"
               "lisp-incal"
               "list"
               "list-quoted-functions"
               "mail"
               "mail-dataswamp"
               "mail-insert"
               "mail-to-many"
               "mailrc"
               "man-incal"
               "match-data-format"
               "math-incal"
               "message-header"
               "message-incal"
               "messages"
               "minor-modes"
               "misc-incal"
               "mode-by-filename"
               "mode-line"
               "moggle"
               "native"
               "navigate-fs-keys"
               "package-style"
               "pos"
               "quit"
               "quote-ref"
               "random"
               "re-make-list"
               "ref-lines"
               "regexp"
               "remote"
               "replace-list"
               "restart"
               "revert-buffer"
               "scroll"
               "search-regexp-in-files"
               "sequence-string"
               "show-command"
               "slime-incal"
               "sort-incal"
               "sort-list"
               "spell"
               "stats"
               "string"
               "sudo-user-path"
               "summary"
               "super"
               "switch-to-buffer"
               "switch-to-buffer-regexp"
               "tabs"
               "test-face"
               "time-cmp"
               "today"
               "todo-did"
               "version-incal"
               "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"
               "world-clock-incal"
               "wrap-search"
               "x-incal"
               "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)
(setq show-paren-context-when-offscreen t)
(setq show-paren-delay 0)

;; 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))

;; 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)
  (auto-fill-mode)
  (keymap-set 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)

(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))))

(require 'draw)
(defalias 'hl  #'draw-line)
(defalias 'isc #'draw-center-string)

(load "~/.emacs.d/emacs-init/face")

(require 'x-incal)
(require 'font-incal)
(when (display-graphic-p)
  (do-x)
  (font-init))

(message "all systems ready")
(put 'dired-find-alternate-file 'disabled nil)