79 lines
2.4 KiB
EmacsLisp
79 lines
2.4 KiB
EmacsLisp
;; 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)
|
|
(horizontal-scroll-bar-mode -1)
|
|
(display-time-mode t)
|
|
(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)
|
|
|
|
;; Highlight current line
|
|
(global-hl-line-mode 1)
|
|
|
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
|
|
|
(use-package shackle
|
|
:init (shackle-mode)
|
|
:config (setq shackle-rules '((Info-mode :same t))))
|
|
|
|
;; nicked from https://github.com/tarsius/moody
|
|
;; (use-package solarized-theme
|
|
;; :config
|
|
;; (load-theme 'solarized-light t)
|
|
;; (let ((line (face-attribute 'mode-line :underline)))
|
|
;; (set-face-attribute 'mode-line nil :overline line)
|
|
;; (set-face-attribute 'mode-line-inactive nil :overline line)
|
|
;; (set-face-attribute 'mode-line-inactive nil :underline line)
|
|
;; (set-face-attribute 'mode-line nil :box nil)
|
|
;; (set-face-attribute 'mode-line-inactive nil :box nil)
|
|
;; (set-face-attribute 'mode-line-inactive nil :background "#f9f2d9")))
|
|
|
|
(use-package moody
|
|
:config
|
|
(setq x-underline-at-descent-line t)
|
|
(moody-replace-mode-line-buffer-identification)
|
|
(moody-replace-vc-mode))
|
|
|
|
;;;; Set theme
|
|
;(load-theme 'distinguished t)
|
|
|
|
;(require 'github-theme)
|
|
|
|
;(require 'heroku-theme)
|
|
|
|
;;;; Good theme but uses different font sizes in org-mode, and (I think) some weird non-monospace font
|
|
;; (require 'monokai-theme)
|
|
|
|
;; ;; disabled on 2021-02-11T19:58:37+0530 - was coloring Org source blocks as comments? :\
|
|
;; (require 'molokai-theme)
|
|
;; (enable-theme 'molokai)
|
|
|
|
;; (require 'fullscreen-mode)
|
|
;; (fullscreen-mode 1)
|
|
|
|
;; (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-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)
|