dired-single settings, flymake and flymake-tuareg, flymake-jslint

site-start.d/init_dired.el

@@ -30,9 +30,6 @@
 
 (setq ls-lisp-dirs-first t)
 
-;; use single dired buffer
-(require 'dired-single)
-
 ;; TODO : when refersh(press 'g' in dired,
 ;;        it require flymake-mode, pretty wired.
 (require 'flymake)
@@ -67,13 +64,26 @@ Works in Microsoft Windows, Mac OS X, Linux."
 (defun my-dired-init ()
   "Bunch of stuff to run for dired, either immediately or when it's
    loaded."
+  (require 'dired-single)
   ;; <add other stuff here>
-  (define-key dired-mode-map [return] 'dired-single-buffer)
-  (define-key dired-mode-map [mouse-1] 'dired-single-buffer-mouse)
-  (define-key dired-mode-map "^"
+  ;; original single-buffer
+  (when (fboundp 'dired-single-buffer)
+    (define-key dired-mode-map [return] 'dired-single-buffer)
+    (define-key dired-mode-map "^"
+    (function
+     (lambda nil (interactive) (dired-single-buffer "..")))))
+  (when (fboundp 'dired-single-buffer-mouse)
+    (define-key dired-mode-map [mouse-1] 'dired-single-buffer-mouse))
+
+  ;; joc single-buffer
+  (when (fboundp 'joc-dired-single-buffer)
+    (define-key dired-mode-map [return] 'joc-dired-single-buffer)
+    (define-key dired-mode-map "^"
     (function
-     (lambda nil (interactive) (dired-single-buffer ".."))))
-
+     (lambda nil (interactive) (joc-dired-single-buffer "..")))))
+  (when (fboundp 'joc-dired-single-buffer-mouse)
+    (define-key dired-mode-map [mouse-1] 'joc-dired-single-buffer-mouse))
+
   ;; allow dired to be able to delete or copy a whole dir.
   ;; “always” means no asking. “top” means ask once. Any other symbol means ask each and every time for a dir and subdir.
   (setq dired-recursive-copies (quote always))

site-start.d/init_ocaml.el

@@ -24,6 +24,11 @@
 
 ;;; Code:
 
+;; flymake-tuareg
+(require 'flymake-tuareg)
+(add-hook 'tuareg-mode-hook 'flymake-tuareg-load)
+
+;; utop-mode
 (when (executable-find "utop")
   (add-to-list 'load-path (my-dotfile-vendor "utop"))
 

site-start.d/init_packages.el

@@ -62,8 +62,11 @@
     marmalade
     oddmuse
     scala-mode
+
+    ;;;;;;;;;;;;;;;;;;;;
+    ;; Web Dev
     js2-mode
-    
+
     ;;;;;;;;;;;;;;;;;;;;
     ;; latex
     auctex
@@ -89,6 +92,12 @@
     ;;;;;;;;;;;;;;;;;;;;
     ;; Auto-complete
     auto-complete
+
+    ;;;;;;;;;;;;;;;;;;;;
+    ;; Flymake
+    flymake
+    flymake-jslint
+    flymake-tuareg
 
     ;;;;;;;;;;;;;;;;;;;;
     ;; Text Editing

site-start.d/init_web.el

@@ -39,5 +39,8 @@
 (autoload 'js2-mode "js2-mode" nil t)
 (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
 
+;; flymake-jslint
+(add-hook 'js-mode-hook 'flymake-jslint-load)
+
 (provide 'init_web)
 ;;; init_html.el ends here