X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=sugar.git;a=blobdiff_plain;f=dot-files%2F_emacs_el;fp=dot-files%2F_emacs_el;h=6cc8fb65d204dadd6b853d25c050ebadcad16a13;hp=8bc9e204a81daecf00d95be115c053ac3b12adc2;hb=0e79153face425059cbd67f6b55d19f11d45c3a4;hpb=396fcbc1394dc47f211c7342890d21341b523572

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 8bc9e20..6cc8fb6 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -157,8 +157,8 @@
 
 ;; flycheck
 (require-if-present 'flycheck)
-(if (featurep 'flycheck)
-    (global-flycheck-mode))
+;(if (featurep 'flycheck)
+;    (global-flycheck-mode))
 
 (require-if-present 'flycheck-inline)
 (if (featurep 'flycheck-inline)
@@ -282,6 +282,13 @@ Will prompt you shell name when you type `C-u' before this command." t)
 (autoload 'lua-mode "lua-mode" "Lua editing mode." t)
 (add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
 
+;; projectile-mode
+(require-if-present 'projectile)
+(if (featurep 'projectile)
+    (progn
+      (projectile-mode +1)
+      (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)))
+
 ;; protobuf-mode
 (autoload 'protobuf-mode "protobuf-mode")
 (add-to-list 'auto-mode-alist '("\\.proto\\'" . protobuf-mode))
@@ -407,7 +414,9 @@ Will prompt you shell name when you type `C-u' before this command." t)
 (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
 (add-hook 'haskell-mode-hook 'turn-on-haskell-ghci)
 
-(load-if-present "~/sandbox/_input-method/haskell-unicode-input-method/haskell-unicode-input-method")
+;(add-hook 'haskell-mode-hook #'flycheck-haskell-setup)
+
+(load-if-present "~/sandbox/_input-method/emacs-haskell-unicode-input-method/haskell-unicode-input-method")
  (add-hook 'haskell-mode-hook
    (lambda () (set-input-method "haskell-unicode")))
 
@@ -717,7 +726,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
      ("melpa" . "https://melpa.org/packages/"))))
  '(package-selected-packages
    (quote
-    (flycheck-inline flycheck-rust undo-tree auto-complete typescript-mode cargo toml-mode rust-mode)))
+    (projectile elixir-mode flycheck-haskell flycheck-inline flycheck-rust undo-tree auto-complete typescript-mode cargo toml-mode rust-mode)))
  '(rcirc-server-alist (quote (("irc1.ymir.jp" :nick "PHO`cons" nil nil))))
  '(riece-layout "default")
  '(riece-layout-alist