diff options
| author | Amin Bandali <amin@aminb.org> | 2018-04-20 19:02:09 -0400 |
|---|---|---|
| committer | Amin Bandali <amin@aminb.org> | 2018-04-20 19:02:09 -0400 |
| commit | 6089982a89bcec4c02874f5a2af5cd879a473017 (patch) | |
| tree | 706709b33221478a21720b6ef391649596997454 | |
| parent | 35ea1ba40ebdaff54de627a98d2785058cf74ac1 (diff) | |
| download | configs-6089982a89bcec4c02874f5a2af5cd879a473017.tar.gz configs-6089982a89bcec4c02874f5a2af5cd879a473017.tar.xz configs-6089982a89bcec4c02874f5a2af5cd879a473017.zip | |
optimize and measure emacs startup time, saner indentation for org src blocks
| -rw-r--r-- | emacs/.gitignore | 8 | ||||
| -rw-r--r-- | emacs/init.org | 46 |
2 files changed, 50 insertions, 4 deletions
diff --git a/emacs/.gitignore b/emacs/.gitignore new file mode 100644 index 0000000..2de0f3c --- /dev/null +++ b/emacs/.gitignore @@ -0,0 +1,8 @@ +*.elc +/init.el +/auto-save-list/ +/var/ +/elpa/ +/recentf +/smex-items +/network-security.data diff --git a/emacs/init.org b/emacs/init.org index 1801baf..7c74728 100644 --- a/emacs/init.org +++ b/emacs/init.org @@ -41,7 +41,7 @@ file. ** Commentary -#+begin_src emacs-lisp +#+begin_src emacs-lisp :comments none ;;; Commentary: ;; Emacs configuration of Amin Bandali, computer scientist and functional @@ -52,15 +52,53 @@ file. * Config -#+begin_src emacs-lisp +#+begin_src emacs-lisp :comments none ;;; Code: #+end_src -TODO +** Org + +#+begin_src emacs-lisp +(setq org-src-tab-acts-natively t + org-src-preserve-indentation nil + org-edit-src-content-indentation 0) +#+end_src + +** Startup time + +Measure and display startup time. Also, temporarily increase +~gc-cons-threshhold~ during startup to reduce reduce garbage +collection frequency. Taken from [[https://github.com/dieggsy/dotfiles/tree/3d95bc08033920e077855caf545a975eba52d28d/emacs.d#startup-time][here]]. + +#+begin_src emacs-lisp +(defconst aminb/emacs-start-time (current-time)) +(defconst aminb/gc-cons-threshold gc-cons-threshold) +(defconst aminb/gc-cons-percentage gc-cons-percentage) +(defvar aminb/file-name-handler-alist file-name-handler-alist) +(setq gc-cons-threshold 400000000 + gc-cons-percentage 0.6 + file-name-handler-alist nil + ;; sidesteps a bug when profiling with esup + esup-child-profile-require-level 0) +#+end_src + +Reset the variables back to default after init. + +#+begin_src emacs-lisp +(add-hook + 'after-init-hook + `(lambda () + (setq gc-cons-threshold aminb/gc-cons-threshold + gc-cons-percentage aminb/gc-cons-percentage + file-name-handler-alist aminb/file-name-handler-alist) + (let ((elapsed (float-time (time-subtract (current-time) + aminb/emacs-start-time)))) + (message "Loading %s...done (%.3fs) [after-init]" + ,load-file-name elapsed)))) +#+end_src * Footer #+begin_src emacs-lisp :comments none - ;;; init.el ends here #+end_src |