guess what

main
earnest ma 2022-03-02 09:42:36 -05:00
parent 3753136b97
commit 87663cee84
Signed by: earnest ma
GPG Key ID: A343F43342EB6E2A
7 changed files with 0 additions and 94 deletions

View File

@ -1,4 +0,0 @@
etc
var
straight

View File

@ -1,33 +0,0 @@
(defvar em-core-dir (file-name-directory load-file-name)
"Core files")
(defvar em-dir (expand-file-name ".." em-core-dir)
"Emacs configuration root directory")
(add-to-list 'load-path em-core-dir)
(defconst em-modules-dir (concat em-dir "/" "modules/"))
(defun siren-recursive-add-to-load-path (dir)
"Add DIR and all its sub-directories to `load-path'."
(add-to-list 'load-path dir)
(dolist (f (directory-files dir))
(let ((name (expand-file-name f dir)))
(when (and (file-directory-p name)
(not (string-prefix-p "." f)))
(siren-recursive-add-to-load-path name)))))
(siren-recursive-add-to-load-path em-modules-dir)
(require 'em-packages)
(require 'em-utils)
(require 'em-pkg)
;; ui
;; themes
;; editing
;; modules
(provide 'em-init)

View File

@ -1,21 +0,0 @@
;; straight.el: Package management
(setq straight-vc-git-default-clone-depth 15)
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
(bootstrap-version 5))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
(setq straight-use-package-by-default t)
(straight-use-package 'use-package)
;; (require 'straight-x)
(provide 'em-packages)

View File

@ -1,8 +0,0 @@
(use-package no-littering
:demand)
(use-package exec-path-from-shell
:init
(exec-path-from-shell-initialize))
(provide 'em-pkg)

View File

@ -1,2 +0,0 @@
(provide 'em-utils)

View File

@ -1,18 +0,0 @@
(setq package-enable-at-startup nil) ;; straight.el instead of package.el
;; Garbage collection
(setq gc-cons-threshold most-positive-fixnum
gc-cons-percentage 0.6)
(add-hook 'emacs-startup-hook
(lambda ()
(setq gc-cons-threshold 16777216
gc-cons-percentage 0.1)))
;; Startup
(setq frame-inhibit-implied-resize t)
(set-language-environment "UTF-8") ; UTF-8 as default
(setq default-input-method nil)
;; GUI
(tool-bar-mode -1)

View File

@ -1,8 +0,0 @@
(setq user-full-name "earnest ma"
user-mail-address "me@earne.link"
calendar-latitude 43.7682 ; Toronto
calendar-longitude -79.4126)
;; Always load newest byte code
(setq load-prefer-newer t)
(load (concat user-emacs-directory "core/em-init") nil 'nomessage)