contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Move cp-ui into init.org

This commit is contained in:
contrapunctus 2022-01-06 11:19:40 +05:30
parent c960da5d18
commit 8f55255e40
2 changed files with 74 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
contrapunctus/cp-ui.el
View File

@ -1,78 +0,0 @@
;; 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)

78
init.org
View File

@ -183,12 +183,82 @@ NAME is the name of the process and its buffer."
#+END_SRC
* user interface
#+BEGIN_SRC emacs-lisp
(use-package cp-ui
:demand
:load-path "~/.emacs.d/contrapunctus/")
;; 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)
(add-to-list 'load-path "~/.emacs.d/user/")
;; 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
)
#+END_SRC
* ediff
#+BEGIN_SRC emacs-lisp