Drop unnecessary requirements

This commit is contained in:
Vasilij Schneidermann
2014-09-23 19:32:44 +02:00
parent 2a9090b483
commit f89d18a2e7

View File

@ -1,11 +1,11 @@
;;; eyebrowse.el --- Easy window config switching -*- lexical-binding: t -*- ;;; eyebrowse.el --- Easy window config switching
;; Copyright (C) 2014 Vasilij Schneidermann <v.schneidermann@gmail.com> ;; Copyright (C) 2014 Vasilij Schneidermann <v.schneidermann@gmail.com>
;; Author: Vasilij Schneidermann <v.schneidermann@gmail.com> ;; Author: Vasilij Schneidermann <v.schneidermann@gmail.com>
;; URL: https://github.com/wasamasa/eyebrowse ;; URL: https://github.com/wasamasa/eyebrowse
;; Version: 0.3.1 ;; Version: 0.3.1
;; Package-Requires: ((dash "2.4.0") (s "1.4.0") (emacs "24")) ;; Package-Requires: ((dash "2.4.0"))
;; Keywords: convenience ;; Keywords: convenience
;; This file is NOT part of GNU Emacs. ;; This file is NOT part of GNU Emacs.
@ -37,7 +37,6 @@
;;; Code: ;;; Code:
(require 'dash) (require 'dash)
(require 's)
;; --- variables ------------------------------------------------------------- ;; --- variables -------------------------------------------------------------
@ -252,12 +251,13 @@ This function keeps the sortedness intact."
(or (eq eyebrowse-mode-line-style 'always) (or (eq eyebrowse-mode-line-style 'always)
(and (eq eyebrowse-mode-line-style 'smart) (and (eq eyebrowse-mode-line-style 'smart)
(> (length window-configs) 1)))) (> (length window-configs) 1))))
(s-concat (concat
left-delimiter left-delimiter
(s-join separator (mapconcat 'identity
(-replace-at (-elem-index (number-to-string current-slot) (-replace-at (-elem-index (number-to-string current-slot)
window-config-slots) window-config-slots)
active-item window-config-slots)) active-item window-config-slots)
separator)
right-delimiter) right-delimiter)
""))) "")))