Emacs: Move f9-f12 bindings to f5-f8, restrict compile-* keys to prog-mode-map

.emacs.d/lisp/main.el

@@ -96,7 +96,7 @@
 (require 'tool-page) ; for `page-number-mode'
 (add-hook 'prog-mode-hook 'page-number-mode)
 
-(define-key mickey-minor-mode-map (kbd "<f5>") 'whitespace-mode)
+(define-key mickey-minor-mode-map (kbd "<f9>") 'whitespace-mode)
 (setq
  whitespace-style
  '(face empty indentation space-after-tab space-before-tab tab-mark trailing))
@@ -191,12 +191,12 @@
   (when (eq major-mode 'compilation-mode)
     (ansi-color-apply-on-region compilation-filter-start (point-max))))
 (add-hook 'compilation-filter-hook 'compilation-colorize-buffer)
-;;; Don't set these bindings in mickey as we might have to override them from
-;;; mode hooks.
-(global-set-key (kbd "C-<f10>") 'compile)
-(global-set-key (kbd "<f10>") (lambda () (interactive) (compile compile-command))) ; Do not use recompile since we want to change de compilation folder to the current buffer.
-(global-set-key (kbd "<f11>") 'previous-error)
-(global-set-key (kbd "<f12>") 'next-error)
+(global-set-key (kbd "<f7>") 'previous-error)
+(global-set-key (kbd "<f8>") 'next-error)
+(define-keys prog-mode-map
+  "C-<f6>" 'compile
+  ;; Do not use `recompile' since we want to change de compilation folder to the current buffer.
+  "<f6>" (lambda () (interactive) (compile compile-command)))
 
 (defadvice desktop-owner (after pry-from-cold-dead-hands activate)
   "Don't allow dead emacsen to own the desktop file."
@@ -259,9 +259,6 @@
 ;;; Display defun in mode line.
 (which-function-mode)
 
-;;; Replace maximized binding for fullscreen.
-;; (define-key mickey-minor-mode-map (kbd "M-<f10>") 'toggle-frame-fullscreen)
-
 ;;; Scroll zooming.
 (define-keys mickey-minor-mode-map
   "C-<wheel-down>" 'text-scale-decrease

.emacs.d/lisp/mode-cc.el

@@ -4,7 +4,7 @@
 
 (dolist (map (list c-mode-map c++-mode-map))
   (define-keys map "C-c m" 'cc-main
-    "<f9>" 'cc-clean
+    "<f5>" 'cc-clean
     "M-." 'semantic-ia-fast-jump
     "C-c C-d" 'semantic-ia-show-summary
     "M-TAB" 'semantic-complete-analyze-inline))

.emacs.d/lisp/mode-go.el

@@ -9,8 +9,8 @@
  "C-c D" 'godoc
  "C-c d" 'godoc-at-point
  "M-." #'godef-jump
- "<f9>" 'go-metalinter
- "C-<f9>" (lambda () (interactive) (go-metalinter t)))
+ "<f5>" 'go-metalinter
+ "C-<f5>" (lambda () (interactive) (go-metalinter t)))
 (when (require 'helm-go-package nil t)
   (local-set-key (kbd "C-c D") 'helm-go-package))
 

.emacs.d/lisp/mode-tex.el

@@ -21,8 +21,9 @@
 (define-keys tex-mode-map
   "C-c C-f" nil
   "C-c C-b" nil
-  "<f9>" 'tex-pdf-view
-  "<f10>" 'tex-compile)
+  "<f5>" 'tex-pdf-view
+  "C-<f6>" 'compile
+  "<f6>" 'tex-compile)
 
 (defvar-local tex-masterfile nil
   "The file that should be compiled. Useful for modular documents.")