From 207d21b5cd9a985aa75a2e40c9761145dc0ce2e1 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@tradeo.com>
Date: Sat, 15 Dec 2012 20:42:19 +0200
Subject: [PATCH] migrated a bit more code to dash.el

---
 prelude/prelude-core.el     | 19 +++++++++++--------
 prelude/prelude-packages.el | 13 +++++++------
 2 files changed, 18 insertions(+), 14 deletions(-)

diff --git a/prelude/prelude-core.el b/prelude/prelude-core.el
index 6d54949..a9da450 100644
--- a/prelude/prelude-core.el
+++ b/prelude/prelude-core.el
@@ -160,11 +160,12 @@ there's a region, all lines that region covers will be duplicated."
         (exchange-point-and-mark))
     (setq end (line-end-position))
     (let ((region (buffer-substring-no-properties beg end)))
-      (dotimes (i arg)
-        (goto-char end)
-        (newline)
-        (insert region)
-        (setq end (point)))
+      (-dotimes arg
+                (lambda ()
+                  (goto-char end)
+                  (newline)
+                  (insert region)
+                  (setq end (point))))
       (goto-char (+ origin (* (length region) arg) arg)))))
 
 ;; TODO doesn't work with uniquify
@@ -283,9 +284,11 @@ there's a region, all lines that region covers will be duplicated."
 (defun prelude-kill-other-buffers ()
   "Kill all buffers but the current one. Doesn't mess with special buffers."
   (interactive)
-  (dolist (buffer (buffer-list))
-    (unless (or (eql buffer (current-buffer)) (not (buffer-file-name buffer)))
-      (kill-buffer buffer))))
+  (-each
+   (->> (buffer-list)
+     (-filter #'buffer-file-name)
+     (--remove (eql (current-buffer) it)))
+   #'kill-buffer))
 
 (require 'repeat)
 
diff --git a/prelude/prelude-packages.el b/prelude/prelude-packages.el
index 8ed8253..2a94569 100644
--- a/prelude/prelude-packages.el
+++ b/prelude/prelude-packages.el
@@ -104,12 +104,13 @@
   (add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
   (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)))
 
-(dolist (entry prelude-auto-install-alist)
-  (let ((extension (first entry))
-        (package (second entry))
-        (mode (third entry)))
-    (unless (package-installed-p package)
-      (prelude-auto-install extension package mode))))
+(-each prelude-auto-install-alist
+  (lambda (entry)
+    (let ((extension (first entry))
+          (package (second entry))
+          (mode (third entry)))
+      (unless (package-installed-p package)
+        (prelude-auto-install extension package mode)))))
 
 (provide 'prelude-packages)
 ;;; prelude-packages.el ends here