General cleanup + update readme

core/defuns/defuns-buffers.el

@@ -55,18 +55,15 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
                 (funcall (if (eq project-p 'not) '-remove '-filter)
                          (lambda (b) (projectile-project-buffer-p b it))
                          buffers)
-              buffers)
-            (list doom-buffer))))
+              buffers))))
 
 ;;;###autoload
 (defun doom/get-buffer-names (&optional project-p)
-  (mapcar (lambda (b) (buffer-name b))
-          (doom/get-buffers project-p)))
+  (mapcar #'buffer-name (doom/get-buffers project-p)))
 
 ;;;###autoload
 (defun doom/get-visible-windows (&optional buffer-list)
-  (-map #'get-buffer-window
-        (doom/get-visible-buffers (or buffer-list (doom/get-buffers)))))
+  (mapcar #'get-buffer-window (doom/get-visible-buffers (or buffer-list (doom/get-buffers)))))
 
 ;;;###autoload
 (defun doom/get-visible-buffers (&optional buffer-list)

core/defuns/defuns-helm.el

@@ -90,5 +90,13 @@ buffers."
       (set-face-attribute 'helm-source-header nil :height 0.1 :foreground "#111111")
     (set-face-attribute 'helm-source-header nil :height 1.0 :foreground doom-helm-header-fg)))
 
+(defvar doom-helm-force-project-buffers nil
+  "If non-nil, helm-buffers-list will only show project buffers.")
+
+;;;###autoload
+(defun helm*buffer-list (&rest _)
+  (append (doom/get-buffer-names doom-helm-force-project-buffers)
+          (list doom-buffer-name)))
+
 (provide 'defuns-helm)
 ;;; defuns-helm.el ends here

core/defuns/defuns-nlinum.el

@@ -52,8 +52,8 @@
               (doom|nlinum-unhl-line)
               (let ((str (nth 1 (get-text-property 0 'display (overlay-get ov 'before-string)))))
                 (put-text-property 0 (length str) 'face 'doom-nlinum-highlight str)
-                (setq doom--hl-nlinum-overlay ov
-                      doom--hl-nlinum-line line-no))))))))
+                (setq doom--hl-nlinum-line line-no
+                      doom--hl-nlinum-overlay ov))))))))
 
 (provide 'defuns-nlinum)
 ;;; defuns-nlinum.el ends here

core/defuns/defuns-popups.el

@@ -13,7 +13,7 @@
        (--any? (if (window-live-p it) t (doom/popup-remove it) nil)
                doom-popup-windows)
        (if window
-           (--any? (eq window it) doom-popup-windows)
+           (memq window doom-popup-windows)
          t)))
 
 ;;;###autoload