(defvar modi/gc-cons-threshold--orig gc-cons-threshold)

(setq gc-cons-threshold (* 100 1024 1024)) ;100 MB before garbage collection

(setq user-full-name (replace-regexp-in-string "\\." " " user-full-name))

(defvar user-home-directory (file-name-as-directory (getenv "HOME")))

(setq user-emacs-directory (file-name-as-directory (expand-file-name ".emacs.d" user-home-directory)))

(defvar modi/temporary-file-directory (let ((dir (file-name-as-directory (expand-file-name user-login-name temporary-file-directory))))

(make-directory dir :parents)

dir)

"User-specific temporary directory name.")

(setq org-directory (let ((dir (file-name-as-directory (expand-file-name "org" user-home-directory))))

(make-directory dir :parents)

dir))

(defvar user-personal-directory (let ((dir (file-name-as-directory (expand-file-name "personal" user-emacs-directory))))

(make-directory dir :parents)

dir)

"User's personal directory to contain non-git-controlled files.")

(setq custom-file (expand-file-name "custom-file.el" user-personal-directory))

(defvar emacs-version-short (format "%s_%s"

emacs-major-version emacs-minor-version)

"A variable to store the current emacs versions as <MAJORVER>_<MINORVER>.

So, for emacs version 25.0.50.1, this variable will be 25_0.")

(defvar modi/org-version-select 'elpa

"Variable to choose the version of Org to be loaded.

need Org version to be at least 9.x.")

(defconst my-packages

'(ace-window

adaptive-wrap ; indented line wrapping

ag wgrep wgrep-ag s ; ag > ack > grep

; wgrep+wgrep-ag allow editing files

; directly in ag buffer

all all-ext ; edit ALL lines matching regex

anzu ; shows total search hits in mode line, > query-replace

ascii-art-to-unicode

auto-complete fuzzy

auto-highlight-symbol

avy ; > ace-jump-mode

beacon ; visual flash to show the cursor position

benchmark-init

bm ; visual bookmarks

buffer-move

command-log-mode ; for logging commands; useful when demoing emacs

cperl-mode

csv-nav ; editing csv files

deft ; quick note taking and management

diff-hl

dired-single dired+ dired-collapse

drag-stuff

easy-escape ; Make the \\ escape chars more pleasant looking in elisp regexps

el2markdown ; Generate README.md files from Commentary section in .el files

elfeed

engine-mode ; search engines

expand-region

eww-lnum ; jump to links in eww buffer ace-jump style

fill-column-indicator

flycheck ; sh-shellcheck

flyspell-correct-ivy ; ivy interface for correct spelling suggestions

fold-this

gist

git-timemachine ; walk through git revisions

ggtags etags-select etags-table ctags-update

hardcore-mode

header2

help-fns+

hideshow-org hideshowvis

htmlize

hl-line+

hungry-delete

hydra

ibuffer-projectile

imenu-list

indent-guide

info+

interleave ; takes notes associated to pdf files in org mode

isend-mode ; used in setup-perl.el

ivy swiper counsel

iy-go-to-char ; Go to next char which is similar to "f" and "t" in vim

key-chord ; map pairs of simultaneously pressed keys to commands

keyfreq ; find which commands you use the most

kurecolor ; Quick tweaks to color codes in CSS files

magit ; for git management

manage-minor-mode

markdown-mode

minibuffer-line

multi-term

multiple-cursors

neotree

nov ;Ebook (.epub) reader

org-cliplink ; paste copied links as well-formatted org-mode links with desc

org-tree-slide

outorg navi-mode ; supporting packages for outshine

outshine ; org-mode navigation and organization outside org-mode

paradox ; package menu improvements

page-break-lines ; Convert the ^L (form feed) chars to horizontal lines

pomodoro

poporg ; edit comments from any other mode in org mode

rainbow-delimiters

rainbow-mode

region-bindings-mode ; complements really well with multiple-cursors

rpn-calc

shackle

smart-compile

smart-mark

smart-mode-line popup rich-minority

smex ; smart M-x

sunshine forecast ; weather

sx

tiny

tldr ;Concise "man pages"

transpose-frame ; for the priceless `rotate-frame' and `transpose-frame'

undo-tree ; supercool undo visualization

use-package use-package-chords ; optimize package loading

visual-regexp

volatile-highlights

web-mode

webpaste ; Paste code snippets to ptpb.pw (default), ix.io, etc.

which-key ; > guide-key

wolfram ; query wolframalpha; needs user to sign up for a developer AppID

wordnut ; offline dictionary (requires installing Wordnet wn application)

wrap-region ; wrap selection with punctuations, tags (org-mode, markdown-mode, ..)

writegood-mode ; highlight passive voice, weasel words and duplicates

xkcd ; comic

yafolding ; indentation detected code folding

yaml-mode ; Useful for editing Octopress' _config.yml

yasnippet

zop-to-char

;; Themes

;; zenburn-theme ; < fork

;; smyx-theme ; < fork

ample-theme ; ample, ample-flat, ample-light

darktooth-theme ; coffee

leuven-theme ; awesome white background theme

planet-theme ; dark blue

tao-theme ; monochrome

twilight-bright-theme

twilight-anti-bright-theme

;; Crypt

;; nlinum ; better performance than linum ; Sticking to frozen version 1.7 in my config

;; bookmark+ ; able to bookmark desktop sessions

;; ox-twbs ; export to twitter bootstrap html < fork (supports org 9.0+)

;; ox-reveal ; used to export to HTML slides; < git clone

;; git-link ; get git links with line numbers and commit-hash/branch ; < fork

;; ido-vertical-mode flx-ido ido-ubiquitous ; < ivy, counsel

;; git-gutter git-gutter-fringe git-gutter+ git-gutter-fringe+ ; < diff-hl

;; popwin ; < shackle

;; helm helm-swoop ; < swiper

;; helm-gtags ; < ggtags

;; projectile ; Better than fiplr < fork

)

"A list of packages to ensure are installed at launch")

(require 'subr-x) ;For when-let*, if-let*, ..

(add-to-list 'load-path user-personal-directory)

(require 'setup-var-overrides nil :noerror)

(load custom-file :noerror :nomessage) ; Load the `M-x customize` generated file

(load (locate-user-emacs-file "general.el") nil :nomessage)

(load (locate-user-emacs-file "setup-packages.el") nil :nomessage)

(require 'benchmark-init)

(eval-when-compile

(require 'use-package) ;Auto-requires `bind-key' too

(setq use-package-always-ensure nil))

(require 'use-package-chords)

(when (not (bound-and-true-p disable-pkg-modi-mode))

(require 'modi-mode))

(require 'temp-mode)

(require 'setup-paradox)

(require 'setup-region-bindings-mode)

(require 'setup-key-chord)

(require 'setup-hydra)

(require 'setup-tags)

(require 'setup-mode-line)

(require 'setup-visual)

(require 'setup-shackle)

(require 'setup-abbrev)

(require 'setup-ace-window)

(when (executable-find "ag")

(require 'setup-ag))

(require 'setup-all)

(require 'setup-artist)

(require 'setup-auto-complete)

(require 'setup-beacon)

(require 'setup-bookmarks)

(require 'setup-buffer-move)

(require 'setup-calc)

(require 'setup-command-log-mode)

(require 'setup-counsel)

(require 'setup-de-ansify)

(require 'setup-deft)

(require 'setup-devdocs)

(require 'setup-dired)

(require 'setup-drag-stuff)

(require 'setup-elfeed)

(when (executable-find "tmux")

(require 'setup-emamux))

(require 'setup-eww)

(require 'setup-el2markdown)

(require 'setup-engine-mode)

(require 'setup-expand-region)

(require 'setup-fci)

(require 'setup-fold)

(require 'setup-flycheck)

(require 'setup-gist)

(when (executable-find "git")

(require 'setup-diff)

(require 'setup-git-link)

(require 'setup-git-timemachine)

(require 'setup-magit))

(require 'setup-hardcore)

(require 'setup-header2)

(require 'setup-highlight)

(require 'setup-htmlize)

(require 'setup-hugo)

(require 'setup-hungry-delete)

(require 'setup-ibuffer)

(if (bound-and-true-p disable-pkg-ivy)

(require 'setup-ido)

(require 'setup-ivy))

(require 'setup-imenu-list)

(require 'setup-indent-guide)

(require 'setup-info)

(require 'setup-keyfreq)

(require 'setup-kurecolor)

(require 'setup-linum)

(require 'setup-manage-minor-mode)

(require 'setup-mastodon)

(require 'setup-multiple-cursors)

(require 'setup-neotree)

(require 'setup-news)

(require 'setup-nov)

(require 'setup-org)

(require 'setup-outshine)

(require 'setup-page-break-lines)

(require 'setup-pcache)

(require 'setup-pomodoro)

(require 'setup-poporg)

(with-eval-after-load 'setup-tags

;; Below causes `help-function-arglist' error on evaluating "(string-match-p "." nil)"

;; on emacs 25.1 or older.

;; http://debbugs.gnu.org/cgi/bugreport.cgi?bug=23949

(require 'setup-projectile))

(require 'setup-rainbow-delimiters)

(require 'setup-rainbow-mode)

(when (executable-find "rg")

(require 'setup-rg))

(require 'setup-server)

(require 'setup-smex)

(require 'setup-sx)

(require 'setup-term)

(require 'setup-tiny)

(require 'setup-tldr)

(require 'setup-undo-tree)

(require 'setup-weather)

(require 'setup-webpaste)

(require 'setup-which-func)

(require 'setup-which-key)

(require 'setup-wolfram)

(when (executable-find "wn")

(require 'setup-wordnut))

(require 'setup-wrap-region)

(require 'setup-writegood)

(require 'setup-xkcd)

(require 'setup-yasnippet)

(require 'setup-conf)

(when (executable-find "dmd")

(require 'setup-d))

(require 'setup-elisp)

(require 'setup-gujarati)

(require 'setup-latex)

(require 'setup-markdown)

(when (executable-find "matlab")

(require 'setup-matlab))

(when (executable-find "nim")

(require 'setup-nim))

(require 'setup-perl)

(require 'setup-python)

(require 'setup-shell)

(require 'setup-spice)

(when (executable-find "sml")

(require 'setup-sml))

(require 'setup-tcl)

(require 'setup-verilog)

(require 'setup-web-mode)

(require 'setup-yaml-mode)

(>=e "25.1"

nil ; Emacs 25.1 has `M-.' bound to `xref-find-definitions' by default

; which works better than elisp-slime-nav

(require 'setup-elisp-slime-nav))

(require 'setup-backup)

(require 'setup-compile)

(require 'setup-editing)

(require 'setup-image)

(require 'setup-launcher)

(require 'setup-mouse)

(require 'setup-navigation)

(require 'setup-pdf)

(require 'setup-print)

(require 'setup-registers)

(require 'setup-search)

(when (or (executable-find "aspell")

(executable-find "hunspell"))

(require 'setup-spell))

(require 'setup-toggles)

(require 'setup-unicode)

(require 'setup-windows-buffers)

(require 'setup-work nil :noerror)

(require 'setup-personal nil :noerror)

(require 'setup-misc)

(use-package setup-desktop :defer 1)

(defun modi/font-check ()

"Do font check, then remove self from `focus-in-hook'; need to run this just once."

(require 'setup-font-check)

(remove-hook 'focus-in-hook #'modi/font-check))

(add-hook 'focus-in-hook #'modi/font-check)

(when (and (bound-and-true-p emacs-initialized)

(featurep 'setup-visual))

(funcall default-theme-fn)) ; defined in `setup-visual.el'

(setq emacs-initialized t)

(when modi/gc-cons-threshold--orig

(run-with-idle-timer 5 nil (lambda () (setq gc-cons-threshold modi/gc-cons-threshold--orig))))