dotemacs/contrapunctus/cp-ui.el

62 lines
1.6 KiB
EmacsLisp
Raw Normal View History

2015-11-24 22:40:07 +00:00
;; Simplify the GUI, thanks
;; http://www.masteringemacs.org/articles/2010/10/04/beginners-guide-to-emacs/
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
2018-09-04 06:06:48 +00:00
(horizontal-scroll-bar-mode -1)
2016-06-12 07:39:46 +00:00
(display-time-mode t)
2018-09-27 21:47:06 +00:00
(setq focus-follows-mouse t
mouse-autoselect-window t
display-time-format "%a, %d %h %Y %T"
display-time-interval 1
use-dialog-box nil)
2015-11-24 22:40:07 +00:00
;; Highlight current line
(global-hl-line-mode 1)
(defalias 'yes-or-no-p 'y-or-n-p)
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
(use-package shackle
:init (shackle-mode)
:config (setq shackle-rules '((Info-mode :same t))))
2015-11-24 22:40:07 +00:00
;;;; Set theme
;(load-theme 'distinguished t)
2018-09-04 06:06:48 +00:00
2015-11-24 22:40:07 +00:00
;(require 'github-theme)
2018-09-04 06:06:48 +00:00
2015-11-24 22:40:07 +00:00
;(require 'heroku-theme)
2018-09-04 06:06:48 +00:00
2015-11-24 22:40:07 +00:00
;;;; Good theme but uses different font sizes in org-mode, and (I think) some weird non-monospace font
2018-09-04 06:06:48 +00:00
;; (require 'monokai-theme)
2018-09-04 17:07:12 +00:00
(require 'molokai-theme)
2018-09-10 07:33:52 +00:00
(enable-theme 'molokai)
2015-11-24 22:40:07 +00:00
2016-06-12 07:39:55 +00:00
;; (require 'fullscreen-mode)
;; (fullscreen-mode 1)
2015-11-24 22:40:07 +00:00
;; (require 'relative-line-numbers)
;; ;; old
;; ;; (setq relative-line-numbers-motion-function 'vertical-motion)
;; ;; new
;; (setq relative-line-numbers-motion-function 'forward-visible-line)
;; (global-relative-line-numbers-mode 1)
;; (add-hook 'shell-mode-hook 'previous-buffer)
;; ;; is this what deletes windows when you run a shell command?
;; (add-hook 'shell-mode-hook 'delete-other-windows)
2018-09-04 06:06:48 +00:00
;; 2018-08-26T22:39:09+0530
(defun cp/change-split ()
"Switch between two windows in horizontal layout and vice-versa."
(interactive)
(let (()))
;; if height of window > width, we're in a vertical split
;; otherwise we're in a horizontal split
)
(provide 'cp-ui)