emacs updates

emacs/super-emacs/file-modes.el

@@ -4,10 +4,9 @@
 
 
 
-(defvar dwlisp-mode-hook nil)
-(add-to-list 'auto-mode-alist '("\\.lisp\\'" . dwlisp-mode))
 
-(define-derived-mode dwlisp-mode
-  lisp-mode "dwlisp"
-  "major mode for dwlisp"
-  (setq lisp-body-indent 2))
+(setq lisp-body-indent 2)
+
+;cc mode
+(setq c-default-style "linux"
+      c-basic-offset 4)

emacs/super-emacs/interface.el

@@ -1,6 +1,6 @@
 ;Change title-bar text
 (setq frame-title-format
-      "%b %F")
+      "%F %b ")
 
 ;Disable menu-bar
 (menu-bar-mode -1)
@@ -21,3 +21,11 @@
 
 ;line numbers
 (global-linum-mode)
+
+  ;; ITERM2 MOUSE SUPPORT
+(unless window-system
+  (require 'mouse)
+  (xterm-mouse-mode t)
+  (defun track-mouse (e))
+  (setq mouse-sel-mode t)
+  )

emacs/super-emacs/misc.el

@@ -22,6 +22,7 @@
 (global-whitespace-mode)
  (setq whitespace-line-column 500)
 
+(add-hook 'before-save-hook 'delete-trailing-whitespace)
 ;Enable winner-mode
 (winner-mode t)
 
@@ -70,3 +71,27 @@
 (setq clean-buffer-list-kill-never-regexps
       (append '("^\\*EMMS Playlist\\*.*$")
               clean-buffer-list-kill-never-regexps-init))
+
+
+;https://stackoverflow.com/questions/43765/pin-emacs-buffers-to-windows-for-cscope
+(defun toggle-window-dedicated ()
+
+"Toggle whether the current active window is dedicated or not"
+
+(interactive)
+
+(message
+
+ (if (let (window (get-buffer-window (current-buffer)))
+
+       (set-window-dedicated-p window
+
+        (not (window-dedicated-p window))))
+
+    "Window '%s' is dedicated"
+
+    "Window '%s' is normal")
+
+ (current-buffer)))
+
+(global-set-key (kbd "<f12>") 'toggle-window-dedicated)

emacs/super-emacs/packages.el

@@ -56,27 +56,15 @@
 (setq company-minimum-prefix-length 2)
 
 (global-company-mode)
-;; (defvar company-mode-whitelist
-;;   '(
-;;     js-mode-hook
-;;     python-mode-hook
-;;     rust-mode-hook
-;;     lisp-mode-hook
-;;     terraform-mode-hook
-;;     org-mode-hook
-;;     ))
-;; (mapc (lambda (h)
-;;         (add-hook h #'company-mode))
-;;       company-mode-whitelist)
 
 
 ;Set up ace-jump-mode
-(autoload 'ace-jump-mode 
-  "ace-jump-mode" 
+(autoload 'ace-jump-mode
+  "ace-jump-mode"
   "Emacs quick move minor mode"
   t)
-(autoload 'ace-jump-mode-pop-mark 
-  "ace-jump-mode" 
+(autoload 'ace-jump-mode-pop-mark
+  "ace-jump-mode"
   "Ace jump back:-"
   t)
 
@@ -85,6 +73,7 @@
 (setq powerline-default-separator
       'slant)
 
+
 ;Configure theme-looper
 (theme-looper-set-theme-set '(deeper-blue
                               wheatgrass
@@ -144,3 +133,10 @@
 
 ;;flycheck
 (setq flycheck-flake8-maximum-line-length 500)
+
+
+(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
+
+(require 'semantic)
+(semantic-mode 1)
+(global-semantic-stickyfunc-mode 1)