compile mode

custom.el

@@ -15,6 +15,9 @@
 (setq ac-dictionary-files (list (concat user-emacs-directory ".dict")))
 (ac-config-default)
 
+(require 'compile)
+(setq-default compilation-auto-jump-to-first-error t)
+
 (require 'flymake)
 (require 'flymake-cursor)
 
@@ -40,6 +43,8 @@
 
 ;; keys
 (put 'downcase-region 'disabled nil)
+(global-set-key (kbd "C-u") 'scroll-down-command)
 (global-set-key (kbd "C-x g") 'goto-line)
 (global-set-key (kbd "C-x f") 'find-grep-dired)
 (global-set-key (kbd "C-c w") 'delete-trailing-whitespace)
+(global-set-key (kbd "C-x C-k") 'compile)

custom/c.el

@@ -27,7 +27,9 @@
 (defun maybe-vmware-style ()
   (when (and buffer-file-name
              (string-match "bora" buffer-file-name))
-    (c-set-style "vmware")))
+    (c-set-style "vmware")
+    (set (make-local-variable 'compile-command)
+         (concat "iscons " buffer-file-name))))
 
 (add-hook 'c-mode-common-hook 'maybe-vmware-style)
 (add-hook 'c-mode-common-hook 'esk-prog-mode-hook)