Change directory lisp/ to modules/

FS #2

1 files changed, 68 insertions, 0 deletions

diff --git a/modules/init-gui.el b/modules/init-gui.el
new file mode 100644
index 0000000..9bd32a5
--- /dev/null
+++ b/modules/init-gui.el
@@ -0,0 +1,68 @@
+;;; init-gui.el --- .Emacs Configuration -*- lexical-binding: t -*-
+;;; Commentary:
+;;
+
+;;; Code:
+;;-----------------------
+;; Remove some GUI stuff
+;;-----------------------
+(setq use-file-dialog nil)
+(setq use-dialog-box nil)
+(setq inhibit-startup-screen t)
+(setq inhibit-startup-echo-area-message t)
+(tool-bar-mode 0)
+(set-scroll-bar-mode nil)
+(menu-bar-mode 0)
+(setq make-backup-files nil) ; stop creating backup~ files
+(setq auto-save-default nil) ; stop creating #autosave# files
+
+;;----------------------------------------------------------------------------
+;; Editor configuration
+;;----------------------------------------------------------------------------
+(setq indicate-empty-lines t)
+
+(let ((no-border '(internal-border-width . 0)))
+  (add-to-list 'default-frame-alist no-border)
+  (add-to-list 'initial-frame-alist no-border))
+
+(setq frame-title-format
+      '((:eval (if (buffer-file-name)
+                   (abbreviate-file-name (buffer-file-name))
+                 "%b"))))
+;; Non-zero values for `line-spacing' can mess up ansi-term and co,
+;; so we zero it explicitly in those cases.
+(add-hook 'term-mode-hook
+	  (lambda ()
+	    (setq line-spacing 0)))
+
+;; Font theme (Monospace, or DejaVu Sans Mono if Monospace is not
+;; present)
+(condition-case nil
+    (set-frame-font "Hack-9")
+    ;; (set-frame-font "Monospace-9")
+    ;; (set-frame-font "Anonymous Pro-10")
+  (error (set-frame-font "DejaVu Sans Mono-10")))
+
+;;----------------------------------------------------------------------------
+;; Configure keys
+;;----------------------------------------------------------------------------
+(global-unset-key (kbd "C-z")) ; Stops C-z from minimizing window
+(global-set-key (kbd "M-0") (lambda () (interactive) (modify-frame-parameters nil '((alpha . 100))))) ; M-0 standard visibility
+(global-set-key (kbd "<f11>") 'myemacs/toggle-fullscreen) ; F11 FullScreen
+(global-set-key (kbd "s-C-+") 'sacha/increase-font-size)  ; C-+ increase font size
+(global-set-key (kbd "s-C--") 'sacha/decrease-font-size)  ; C-- decrease font size
+(global-set-key (kbd "<f12>") 'revert-buffer-no-confirm)
+(global-set-key (kbd "s-h") 'global-hl-line-mode)         ; Highlight current line
+
+
+;;----------------------------------------------------------------------------
+;; clock
+;;----------------------------------------------------------------------------
+
+(setq display-time-day-and-date t)
+(display-time)
+
+(provide 'init-gui)
+
+;; End:
+;;; init-gui.el ends here