From abed523395908ed917bd27bff24ec3bdeec7cca6 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 8 Jun 2012 18:22:38 +0100
Subject: added PerlySense integration

---
 init.el | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/init.el b/init.el
index 88b3eb1..601179c 100755
--- a/init.el
+++ b/init.el
@@ -239,3 +239,49 @@
 ; change dictionary with a single key
 (global-set-key [XF86Launch5] (lambda () (interactive) (ispell-change-dictionary "italiano")))
 (global-set-key [XF86MenuKB] (lambda () (interactive) (ispell-change-dictionary "en_GB")))
+
+; PerlySense
+;; *** PerlySense Config ***
+ 
+;; ** PerlySense **
+(setq ps/external-dir (shell-command-to-string "perly_sense external_dir"))
+(if (string-match "Devel.PerlySense.external" ps/external-dir)
+    (progn
+      (message
+       "PerlySense elisp files  at (%s) according to perly_sense, loading..."
+       ps/external-dir)
+      (setq load-path (cons
+                       (expand-file-name
+                        (format "%s/%s" ps/external-dir "emacs")
+                        ) load-path))
+      ;; The PerlySense prefix key (unset only if needed, like for \C-o)
+      (global-unset-key "\C-o")
+      (setq ps/key-prefix "\C-o")
+      ;; ** Flymake **
+      ;; Load flymake if t
+      (setq ps/load-flymake t)
+      ;; *** PerlySense load (don't touch) ***
+      (load "perly-sense")
+      ;; ** Flymake Config **
+      ;; If you only want syntax check whenever you save, not continously
+      (setq flymake-no-changes-timeout 9999)
+      (setq flymake-start-syntax-check-on-newline nil)
+      ;; ** Code Coverage Visualization **
+      ;; If you have a Devel::CoverX::Covered database handy and want to
+      ;; display the sub coverage in the source, set this to t
+      (setq ps/enable-test-coverage-visualization nil)
+      ;; ** Color Config **
+      ;; The following colors work fine with a white X11
+      ;; background. They may not look that great on a console with the
+      ;; default color scheme.
+      (set-face-background 'flymake-errline "OrangeRed1")
+      (set-face-background 'flymake-warnline "blue1")
+      (set-face-background 'dropdown-list-face "lightgrey")
+      (set-face-background 'dropdown-list-selection-face "grey")
+      ;; ** Misc Config **
+      ;; Run calls to perly_sense as a prepared shell command. Experimental
+      ;; optimization, please try it out.
+      (setq ps/use-prepare-shell-command t)
+ )
+)
+;; *** PerlySense End ***
\ No newline at end of file
-- 
cgit v1.2.3