Created
April 21, 2019 20:14
-
-
Save antonlogvinenko/f5b8b9b15e1970a4250cb57eff149361 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (setq inhibit-splash-screen t) ;; Don't show initial Emacs-logo and info | |
| (defun myfun () | |
| (setq top-left (selected-window)) | |
| (setq bottom-left (split-window top-left nil 'below)) | |
| (setq bottom-right (split-window bottom-left nil 'right)) | |
| (setq top-right (split-window top-left nil 'right)) | |
| (setq ghcid (generate-new-buffer "ghcid")) | |
| (with-selected-window bottom-left | |
| (shell ghcid) | |
| (with-current-buffer ghcid | |
| (insert "export TERM=xterm-256color") | |
| (comint-send-input) | |
| (insert "cd ~/dev/haskell/javelin") | |
| (comint-send-input) | |
| (insert "TERM=xterm-256color ghcid --command=\"stack ghci\"") | |
| (comint-send-input))) | |
| (setq ghci (generate-new-buffer "ghci")) | |
| (with-selected-window bottom-right | |
| (shell ghci) | |
| (with-current-buffer ghci | |
| (insert "export TERM=xterm-256color") | |
| (comint-send-input) | |
| (insert "cd ~/dev/haskell/javelin") | |
| (comint-send-input) | |
| (insert "TERM=xterm-256color stack ghci") | |
| (comint-send-input))) | |
| ) | |
| (add-hook 'after-init-hook #'myfun) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment