Add a function to guess the module name of the current buffer

jwiegley · Dec 22, 2013 · dc3a02f · dc3a02f
1 parent c910ed0
commit dc3a02f
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/haskell-mode.el b/haskell-mode.el
@@ -863,6 +863,16 @@ given a prefix arg."
     (font-lock-fontify-buffer)
     (buffer-substring (point-min) (point-max))))
 
+(defun haskell-guess-module-name ()
+  "Guess the current module name of the buffer."
+  (interactive)
+  (let ((components (loop for part
+                          in (reverse (split-string (buffer-file-name) "/"))
+                          while (let ((case-fold-search nil))
+                                  (string-match "^[A-Z]+" part))
+                          collect (replace-regexp-in-string "\\.l?hs$" "" part))))
+    (mapconcat 'identity (reverse components) ".")))
+
 
 ;; Provide ourselves: