Skip to content

Commit

Permalink
Remove spaceline configuration
Browse files Browse the repository at this point in the history
  • Loading branch information
TheBB committed Nov 2, 2015
1 parent 20949bd commit 1104810
Showing 1 changed file with 0 additions and 35 deletions.
35 changes: 0 additions & 35 deletions layers/+window-management/perspectives/packages.el
Original file line number Diff line number Diff line change
Expand Up @@ -11,26 +11,10 @@
;;; License: GPLv3
(setq perspectives-packages
'(
spaceline
persp-mode
helm
helm-projectile))

(defun perspectives/pre-init-spaceline ()
(spacemacs|use-package-add-hook spaceline-config
:post-config
(progn
(spaceline-define-segment persp-number
(spacemacs/persp-number)
:when (and (bound-and-true-p persp-mode)
(spacemacs/persp-number)))
(setq spaceline-left
(cons '((persp-number workspace-number window-number)
:fallback evil-state
:separator "|"
:face highlight-face)
(cdr spaceline-left))))))

(defun perspectives/init-persp-mode ()
(use-package persp-mode
:no-require t
Expand Down Expand Up @@ -106,25 +90,6 @@ Cancels autosave on exiting perspectives mode."
(propertize string-name 'face 'persp-selected-face)
string-name)))

(defun spacemacs/persp-number ()
"Return the number of the current workspace."
(let* ((num (position (persp-curr-name)
(persp-names-current-frame-fast-ordered)))
(str (if num (int-to-string num))))
(cond
((not (dotspacemacs|symbol-value
dotspacemacs-mode-line-unicode-symbols)) str)
((equal str "0") "")
((equal str "1") "")
((equal str "2") "")
((equal str "3") "")
((equal str "4") "")
((equal str "5") "")
((equal str "6") "")
((equal str "7") "")
((equal str "8") "")
((equal str "9") ""))))

(defun spacemacs/persp-switch-by-pos (pos)
"Switch to perspective of position (1-index)."
(let ((persp-to-switch
Expand Down

0 comments on commit 1104810

Please sign in to comment.