Merge `sensible-defaults` branch to `stable` branch

This closes RFC #2 

4 files changed, 167 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/.gitignore
diff --git a/early-init.el b/early-init.el
new file mode 100644
index 0000000..37222a4
--- /dev/null
+++ b/early-init.el
@@ -0,0 +1,60 @@
+;;; -*- lexical-binding: t; -*-
+;;; early-init.el
+;;
+;; Early Init file for MMOSMacs. This is loaded before the GUI and
+;; package system are initialized. This should contain only what
+;; absolutely must be in Early Init.
+
+
+;; ---------------------------------------------------------------------
+;;; UI Adjustments
+;; ---------------
+;; The primary goal of this Section is to prevent Emacs from flashing or
+;; stuttering visually on startup.
+;;
+;; If these customizations were placed in `init.el', as is the norm,
+;; Emacs would initialize the UI elements, then make whatever
+;; customizations we wrote.
+;;
+;; By placing the customizations here, they are applied before the UI is
+;; initialized, preventing any visual glitches altogether.
+;; ---------------------------------------------------------------------
+
+;; ---------------------------------
+;; Disable superfluous UI elements
+;; -------------------------------
+;; These UI elements are useless in
+;; a keyboard-centric environment.
+;; ---------------------------------
+
+;; Disable the menu bar
+(push '(menu-bar-lines . 0) default-frame-alist)
+
+;; Disable the tool-bar
+(push '(tool-bar-lines . 0) default-frame-alist)
+
+;; Disable scroll bars
+(push '(vertical-scroll-bars . 0) default-frame-alist)
+
+
+;; ---------------------------------
+;; Maximize frame on startup
+;; -------------------------
+;; Resizing is one of the primary
+;; sources of visual glitching.
+;; ---------------------------------
+
+(push '(fullscreen . maximized) initial-frame-alist)
+(push '(ns-transparent-titlebar . t) default-frame-alist)
+(setq frame-inhibit-implied-resize t
+      frame-resize-pixelwise t)
+
+
+;; ---------------------------------
+;; Start with a black background
+;; -----------------------------
+;; This is necessary to prevent eye
+;; damage
+;; ---------------------------------
+
+(set-face-attribute 'default nil :background "#000000" :foreground "#FFFFFF")
diff --git a/eln-cache/28.2-64ac1258/subr--trampoline-7965732d6f722d6e6f2d70_yes_or_no_p_0.eln b/eln-cache/28.2-64ac1258/subr--trampoline-7965732d6f722d6e6f2d70_yes_or_no_p_0.eln
new file mode 100755
index 0000000..fc27aca
--- /dev/null
+++ b/eln-cache/28.2-64ac1258/subr--trampoline-7965732d6f722d6e6f2d70_yes_or_no_p_0.eln
diff --git a/init.el b/init.el
new file mode 100644
index 0000000..ba7a20e
--- /dev/null
+++ b/init.el
@@ -0,0 +1,107 @@
+;;; -*- lexical-binding: t; -*-
+;;; init.el
+;;
+;; Main configuration file for MMOSMacs.
+
+
+;; ---------------------------------------------------------------------
+;;; File Management
+;; ----------------
+;; Everything to do with file or directory management goes here.
+;; ---------------------------------------------------------------------
+
+;; ---------------------------------
+;; Disable backups
+;; ---------------
+;; By default, Emacs saves backup
+;; files, adding a `~' to the name.
+;; Stop saving them.
+;; ---------------------------------
+
+(setq backup-inhibited t)
+
+
+;; ---------------------------------
+;; Disable auto-saves
+;; ------------------
+;; Auto-saves are the files with
+;; hashes before and after the name.
+;; They should not exist.
+;; ---------------------------------
+
+(setq auto-save-default nil           ; don't create auto-saves
+      auto-save-list-file-prefix nil) ; don't create auto-save-list dir
+
+
+;; ---------------------------------
+;; Disable lockfiles
+;; -----------------
+;; Sometimes I want to edit a locked
+;; file. I can handle myself, let me
+;; do what I want.
+;; ---------------------------------
+
+(setq create-lockfiles nil)
+
+
+
+
+;; ---------------------------------------------------------------------
+;;; Keybinds
+;; ---------
+;; For now, just a few simple changes.
+;; In the future there will be whole custom keybind system.
+;; ---------------------------------------------------------------------
+
+;; ---------------------------------
+;; Fix ESC behavior
+;; ----------------
+;; The default behavior of the ESC
+;; key is atrocious. Why in God's
+;; name would I want it to close all
+;; my windows when I press it twice?
+;;
+;; This fixes the behavior to do
+;; what ESC should do: "escape" the
+;; current thing I'm doing, like the
+;; minibuffer or a popup window.
+;; ---------------------------------
+
+;; Define fixed version of `keyboard-escape-quit' which does not close
+;; windows or change their layout.
+(defun mm/keyboard-escape-quit-keep-windows ()
+  "Alternative version of `keyboard-escape-quit' that does not change window layout."
+  (interactive)
+  (cond ((eq last-command 'mode-exited) nil)
+        ((region-active-p)
+         (deactivate-mark))
+        ((> (minibuffer-depth) 0)
+         (abort-recursive-edit))
+        (current-prefix-arg
+         nil)
+        ((> (recursion-depth) 0)
+         (exit-recursive-edit))
+        (buffer-quit-function
+         (funcall buffer-quit-function))
+        ;; The following lines are from `keyboard-escape-quit'.
+        ;; They have been commented to disable the unwanted behavior
+        ;; ((not (one-window-p t))
+        ;;  (delete-other-windows)
+        ((string-match "^ \\*" (buffer-name (current-buffer)))
+         bury-buffer)))
+
+;; Fix the keybinds for the ESC key
+(global-set-key (kbd "<escape>") 'mm/keyboard-escape-quit-keep-windows)
+(global-unset-key (kbd "C-x ESC ESC"))
+
+
+;; ---------------------------------
+;; Replace yes/no prompts with y/n
+;; -------------------------------
+;; It's too much to ask for me to
+;; type 3 whole letters to confirm
+;; something. I demand to only have
+;; to press a single key.
+;; ---------------------------------
+
+(defalias 'yes-or-no-p 'y-or-n-p)