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