Removed tabbar, workgroups2, auto-complete. Added company mode, persp-mode. Updated ein.

Author: UndeadKernel

appearance.el

@@ -1,8 +1,11 @@
-;; Taken from https://github.com/jimeh/.emacs.d and edited by me.
+;;----------------------- Cursor ------------------------
+(setq-default cursor-type 'hollow)
 
+;; Taken from https://github.com/jimeh/.emacs.d and edited by me.
 ;; Disable splash page
 (setq inhibit-startup-message t)
 
+;;----------------------- Fonts ------------------------
 ;; Set the default font
 ;; Large
 (set-face-attribute 'default nil :family "Inconsolata" :height 110)
@@ -13,6 +16,8 @@
 ;; (set-face-attribute 'default nil :family "Menlo" :height 100)
 ;; (set-face-attribute 'default nil :family "Inconsolata" :height 110)
 
+
+;;----------------------- Theme ------------------------
 ;; Change the appearance in GUI and terminal frames
 (add-to-list 'load-path "~/.emacs.d/themes")
 (add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
@@ -233,6 +238,8 @@
 
 ;; Cursor
 (blink-cursor-mode t)
+; Never stop blinking the cursor. Default: stop after 10 blinks.
+(setq blink-cursor-blinks 0)
 (setq initial-frame-alist
       (cons '(cursor-type . bar) (copy-alist initial-frame-alist)))
 (setq default-frame-alist
@@ -264,3 +271,44 @@
 ;;   (let ((my-linum-current-line-number (line-number-at-pos)))
 ;;     ad-do-it))
 ;; (ad-activate 'linum-update)
+
+;;----------------------- White space Mode ----------------------
+;; display only tails of lines longer than 110 columns, tabs and
+;; trailing white spaces
+(require 'whitespace)
+(setq whitespace-line-column 110)
+(setq-default whitespace-style '(face tabs trailing lines-tail))
+
+;; face for long lines' tails
+(set-face-attribute 'whitespace-line nil
+                    :background "#31191f"
+                    :foreground "yellow"
+                    :weight 'bold)
+
+;; face for Tabs
+(set-face-attribute 'whitespace-tab nil
+                    :background "#31191f"
+                    :foreground "yellow"
+                    :weight 'bold)
+;; face for spaces
+(set-face-attribute 'whitespace-trailing nil
+                    :background "#31191f"
+                    :foreground "yellow"
+                    :weight 'bold)
+
+;; Customize Whitespace Characters
+;;  - Newline: \u00AC = ¬
+;;  - Tab:     \u2192 = →
+;;             \u00BB = »
+;;             \u25B6 = ▶
+(setq whitespace-display-mappings
+      (quote ((newline-mark ?\n [?\u00AC ?\n] [?$ ?\n])
+              (tab-mark     ?\t [?\u2192 ?\t] [?\u00BB ?\t] [?\\ ?\t]))))
+
+(setq whitespace-style
+      (quote (face tabs trailing space-before-tab newline
+                   indentation space-after-tab tab-mark newline-mark
+                   empty)))
+
+;; activate minor whitespace mode for all files.
+(global-whitespace-mode t)

conf.el

@@ -41,7 +41,7 @@
 ; Allow files to end with a blank line
 (setq require-final-newline t)
 
-;;-----------------------= Mouse ----------------------------
+;;------------------------ Mouse ----------------------------
 
 ; Enable the mouse in a regular terminal
 (cond (window-system

init.el

@@ -55,4 +55,4 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
- '(org-hide ((((background light)) (:foreground "black")) (((background dark)) (:foreground "black")))))
+ '(org-hide ((((background light)) (:foreground "DarkSlateGray")) (((background dark)) (:foreground "DarkSlateGray")))))

looks.el

@@ -1,11 +1,14 @@
-;;---------------------- Formato -----------------------
+;;----------------------- Cursor ------------------------
+(setq cursor-type "box")
+
+;;----------------------- Fonst ------------------------
 
 ; Font size, type, position, etc...
 ;; (setq default-frame-alist
 ;;       '(
-;; 	(font . "-*-lucidatypewriter-*-*-*-*-14-140-*-*-*-*-*")
-;; 	(frame-title-format '("%b"))
-;; 	))
+;;     (font . "-*-lucidatypewriter-*-*-*-*-14-140-*-*-*-*-*")
+;;     (frame-title-format '("%b"))
+;;     ))
 (set-default-font "Inconsolata-11")
 
 ;;------------------ Emacs Colors ----------------------
@@ -18,6 +21,8 @@
 (set-mouse-color      "black") ; Mouse color
 (set-cursor-color     "blue") ; Cursor color
 
+;;------------------------ Misc Things -----------------------
+
 ; Use color highlighting if supported
 (global-font-lock-mode t)
 ; Let parentheses be closed

modes.el

@@ -1,51 +1,6 @@
 ;;------------------------- Markdown Mode -----------------------
 (autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files" t)
 
-;;----------------------- White space Mode ----------------------
-
-;; display only tails of lines longer than 80 columns, tabs and
-;; trailing white spaces
-(require 'whitespace)
-(setq whitespace-line-column 110)
-(setq-default whitespace-style '(face tabs trailing lines-tail))
-
-;; face for long lines' tails
-(set-face-attribute 'whitespace-line nil
-                    :background "#31191f"
-                    :foreground "yellow"
-                    :weight 'bold)
-
-;; face for Tabs
-(set-face-attribute 'whitespace-tab nil
-                    :background "#31191f"
-                    :foreground "yellow"
-                    :weight 'bold)
-;; face for spaces
-(set-face-attribute 'whitespace-trailing nil
-                    :background "#31191f"
-                    :foreground "yellow"
-                    :weight 'bold)
-
-;; Customize Whitespace Characters
-;;  - Newline: \u00AC = ¬
-;;  - Tab:     \u2192 = →
-;;             \u00BB = »
-;;             \u25B6 = ▶
-(setq whitespace-display-mappings
-      (quote ((newline-mark ?\n [?\u00AC ?\n] [?$ ?\n])
-              (tab-mark     ?\t [?\u2192 ?\t] [?\u00BB ?\t] [?\\ ?\t]))))
-
-(setq whitespace-style
-      (quote (face tabs trailing space-before-tab newline
-                   indentation space-after-tab tab-mark newline-mark
-                   empty)))
-
-;; activate minor whitespace mode for all files.
-(global-whitespace-mode t)
-
-;(add-hook 'js-mode-hook 'whitespace-mode)
-
-
 ;;-------------------------- CC Mode ---------------------------
 ; Changes that apply to all C-like languages such as java, objective-c and awk.
 (add-hook 'c-mode-common-hook

plugins.el

@@ -48,13 +48,6 @@
 
 (global-set-key (kbd "C-x g") 'magit-status)
 
-;;--------------------- Key Chords -----------------------
-;; (require 'key-chord)
-;; (key-chord-define-global "fg" 'forward-word)
-;; (key-chord-define-global "df" 'backward-word)
-;; (key-chord-define-global "hj" 'undo)
-;; (key-chord-mode 1)
-
 ;;------------------- Switch Window ----------------------
 (require 'switch-window)
 (global-set-key (kbd "C-x o") 'switch-window)
@@ -117,80 +110,60 @@
 (define-key helm-gtags-mode-map (kbd "C-c <") 'helm-gtags-previous-history)
 (define-key helm-gtags-mode-map (kbd "C-c >") 'helm-gtags-next-history)
 
-;;-------------------- Workgroups ------------------------
-(require 'workgroups2)
-;; Prefix key
-(setq wg-prefix-key (kbd "C-c w"))
-(setq wg-session-file "~/.emacs.d/.workgroups")
-;; Keyboard shortcuts - load, save, switch
-(global-set-key (kbd "<pause>")     'workgroups-mode)
-(global-set-key (kbd "C-<pause>")   'wg-save-session)
-(global-set-key (kbd "s-z")         'wg-switch-to-workgroup)
-(global-set-key (kbd "s-/")         'wg-switch-to-previous-workgroup)
-(set-face-attribute 'wg-brace-face nil :inherit font-lock-builtin-face :weight 'normal :height 0.8)
-(set-face-attribute 'wg-divider-face nil :inherit font-lock-builtin-face :weight 'normal :height 0.8)
-(set-face-attribute 'wg-mode-line-face nil :weight 'thin :height 0.8)
-; When using emacs as a daemon, do not load the WGs automatically.
-;(setq wg-use-default-session-file nil)
-;; Do not start it by default.
-;(workgroups-mode 1)
-
-;;----------------------- IDO ---------------------------
-;; (require 'ido)
-;; (ido-mode)
-;; ;; Display ido results vertically, rather than horizontally.
-;; (require 'ido-vertical-mode)
-;; (ido-vertical-mode 1)
-;; ;; Use ido completion in projectile.
-;; (setq projectile-completion-system 'ido)
+;;-------------------- persp-mode ------------------------
+(require 'persp-mode)
+(global-set-key (kbd "<pause>")     'persp-mode)
+(global-set-key (kbd "s-z")         'persp-switch)
+; Location where perspectives are stored.
+(setq persp-save-dir "/home/boy/.emacs.d/.persp/")
+; Load the auto saved perpectives as soon as persp-mode is activated.
+(setq persp-auto-resume-time 0.1)
 
 ;;------------------ Maximize Window --------------------
-;(require 'maxframe)
-;(setq mf-max-width 1920)
-;(add-hook 'window-setup-hook 'maximize-frame t)
 (add-to-list 'initial-frame-alist '(fullscreen . maximized))
-;(add-to-list 'default-frame-alist '(fullscreen . maximized))
 
 ;;-------------------- Yasnippet ------------------------
 (add-to-list 'load-path "~/.emacs.d/plugins/yasnippet")
 (require 'yasnippet)
 ;(yas-reload-all)
 (yas-global-mode 1)
 ; Display a popup for the available options.
-(add-to-list 'load-path "~/.emacs.d/plugins/auto-complete/lib/popup")
-(require 'popup)
-; Add some shotcuts in popup menu mode
-(define-key popup-menu-keymap (kbd "M-n") 'popup-next)
-(define-key popup-menu-keymap (kbd "TAB") 'popup-next)
-(define-key popup-menu-keymap (kbd "<tab>") 'popup-next)
-(define-key popup-menu-keymap (kbd "<backtab>") 'popup-previous)
-(define-key popup-menu-keymap (kbd "M-p") 'popup-previous)
-
-(defun yas-popup-isearch-prompt (prompt choices &optional display-fn)
-  (when (featurep 'popup)
-    (popup-menu*
-     (mapcar
-      (lambda (choice)
-        (popup-make-item
-         (or (and display-fn (funcall display-fn choice))
-             choice)
-         :value choice))
-      choices)
-     :prompt prompt
-     ;; start isearch mode immediately
-     :isearch t
-     )))
-(setq yas-prompt-functions '(yas-popup-isearch-prompt yas-no-prompt))
-;; (add-hook 'js-mode-hook
-;;               '(lambda ()
-;;                  (yas-minor-mode)))
+;; (add-to-list 'load-path "~/.emacs.d/plugins/auto-complete/lib/popup")
+;; (require 'popup)
+;; ; Add some shotcuts in popup menu mode
+;; (define-key popup-menu-keymap (kbd "M-n") 'popup-next)
+;; (define-key popup-menu-keymap (kbd "TAB") 'popup-next)
+;; (define-key popup-menu-keymap (kbd "<tab>") 'popup-next)
+;; (define-key popup-menu-keymap (kbd "<backtab>") 'popup-previous)
+;; (define-key popup-menu-keymap (kbd "M-p") 'popup-previous)
+
+;; (defun yas-popup-isearch-prompt (prompt choices &optional display-fn)
+;;   (when (featurep 'popup)
+;;     (popup-menu*
+;;      (mapcar
+;;       (lambda (choice)
+;;         (popup-make-item
+;;          (or (and display-fn (funcall display-fn choice))
+;;              choice)
+;;          :value choice))
+;;       choices)
+;;      :prompt prompt
+;;      ;; start isearch mode immediately
+;;      :isearch t
+;;      )))
+;; (setq yas-prompt-functions '(yas-popup-isearch-prompt yas-no-prompt))
+
+;;---------------------- Company Mode----------------------
+(add-to-list 'load-path "~/.emacs.d/plugins/company-mode")
+(require 'company)
+(add-hook 'after-init-hook 'global-company-mode)
 
 ;;--------------------- Auto Complete----------------------
-(add-to-list 'load-path "~/.emacs.d/plugins/auto-complete")
-(require 'auto-complete-config)
-(add-to-list 'ac-dictionary-directories "~/.emacs.d/plugins/auto-complete/dict")
-(setq ac-comphist-file  "~/.emacs.d/plugins/auto-complete/ac-comphist.dat")
-(ac-config-default)
+;; (add-to-list 'load-path "~/.emacs.d/plugins/auto-complete")
+;; (require 'auto-complete-config)
+;; (add-to-list 'ac-dictionary-directories "~/.emacs.d/plugins/auto-complete/dict")
+;; (setq ac-comphist-file  "~/.emacs.d/plugins/auto-complete/ac-comphist.dat")
+;; (ac-config-default)
 ; set the trigger key so that it can work together with yasnippet on tab key,
 ; if the word exists in yasnippet, pressing tab will cause yasnippet to
 ; activate, otherwise, auto-complete will
@@ -200,14 +173,3 @@
 
 ;;-------------------- Smooth Scroll ----------------------
 (require 'smooth-scrolling)
-
-;;----------------------- Tabbar --------------------------
-
-;; (cond (window-system
-;;        (require 'tabbar)
-;;        (tabbar-mode 1)
-;;        (global-set-key [(control shift up)] 'tabbar-backward-group)
-;;        (global-set-key [(control shift down)] 'tabbar-forward-group)
-;;        (global-set-key [(control shift left)] 'tabbar-backward)
-;;        (global-set-key [(control shift right)] 'tabbar-forward)
-;; ))