From 1104810902cae630869b6eaa7501cb514e396a3a Mon Sep 17 00:00:00 2001 From: Eivind Fonn Date: Mon, 2 Nov 2015 20:17:38 +0100 Subject: [PATCH] Remove spaceline configuration --- .../perspectives/packages.el | 35 ------------------- 1 file changed, 35 deletions(-) diff --git a/layers/+window-management/perspectives/packages.el b/layers/+window-management/perspectives/packages.el index bfdd1ce68d00..dd13f3497605 100644 --- a/layers/+window-management/perspectives/packages.el +++ b/layers/+window-management/perspectives/packages.el @@ -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 @@ -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