jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace dash with the built-in cl-lib

Browse source
This commit is contained in:
Bozhidar Batsov 2018-05-08 22:54:42 +03:00
parent d6842eccad
commit 007ae88ed2
4 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
core/prelude-core.el
View file

@ -33,8 +33,7 @@
;;; Code: ;;; Code:
(require 'thingatpt) (require 'thingatpt)
(require 'dash) (require 'cl-lib)
(require 'ov)
(defun prelude-buffer-mode (buffer-or-name) (defun prelude-buffer-mode (buffer-or-name)
"Retrieve the `major-mode' of BUFFER-OR-NAME." "Retrieve the `major-mode' of BUFFER-OR-NAME."
@ -139,8 +138,8 @@ With a prefix ARG updates all installed packages."
(when (y-or-n-p "Do you want to update Prelude's packages? ") (when (y-or-n-p "Do you want to update Prelude's packages? ")
(if arg (if arg
(epl-upgrade) (epl-upgrade)
(epl-upgrade (-filter (lambda (p) (memq (epl-package-name p) prelude-packages)) (epl-upgrade (cl-remove-if-not (lambda (p) (memq (epl-package-name p) prelude-packages))
(epl-installed-packages)))) (epl-installed-packages))))
(message "Update finished. Restart Emacs to complete the process."))) (message "Update finished. Restart Emacs to complete the process.")))
;;; Emacs in macOS already has fullscreen support ;;; Emacs in macOS already has fullscreen support

6
core/prelude-editor.el
View file

@ -138,9 +138,9 @@
(defun prelude-recentf-exclude-p (file) (defun prelude-recentf-exclude-p (file)
"A predicate to decide whether to exclude FILE from recentf." "A predicate to decide whether to exclude FILE from recentf."
(let ((file-dir (file-truename (file-name-directory file)))) (let ((file-dir (file-truename (file-name-directory file))))
(-any-p (lambda (dir) (cl-some (lambda (dir)
(string-prefix-p dir file-dir)) (string-prefix-p dir file-dir))
(mapcar 'file-truename (list prelude-savefile-dir package-user-dir))))) (mapcar 'file-truename (list prelude-savefile-dir package-user-dir)))))
(add-to-list 'recentf-exclude 'prelude-recentf-exclude-p) (add-to-list 'recentf-exclude 'prelude-recentf-exclude-p)

1
core/prelude-packages.el
View file

@ -59,7 +59,6 @@
beacon beacon
browse-kill-ring browse-kill-ring
crux crux
dash
discover-my-major discover-my-major
diff-hl diff-hl
diminish diminish

2
sample/prelude-pinned-packages.el
View file

@ -25,7 +25,6 @@
(cython-mode . "melpa-stable") (cython-mode . "melpa-stable")
(d-mode . "melpa-stable") (d-mode . "melpa-stable")
(dart-mode . "melpa-stable") (dart-mode . "melpa-stable")
(dash . "melpa-stable")
(diff-hl . "melpa-stable") (diff-hl . "melpa-stable")
(diminish . "melpa-stable") (diminish . "melpa-stable")
(discover-my-major . "melpa-stable") (discover-my-major . "melpa-stable")
@ -92,7 +91,6 @@
(mediawiki . "melpa-stable") (mediawiki . "melpa-stable")
(merlin . "melpa-stable") (merlin . "melpa-stable")
(operate-on-number . "melpa-stable") (operate-on-number . "melpa-stable")
(ov . "melpa-stable")
(pcache . "melpa-stable") (pcache . "melpa-stable")
(php-mode . "melpa-stable") (php-mode . "melpa-stable")
(pkg-info . "melpa-stable") (pkg-info . "melpa-stable")