Spaceline format has been updated

This commit is contained in:
Sameer Rahmani 2018-02-14 17:25:07 +00:00
parent 5d2b2524f3
commit c13f135b86
4 changed files with 46 additions and 9 deletions

View File

@ -1,6 +1,6 @@
;; Vars -------------------------------
(defvar about_fg42_msg "
FG42 %%VERSION%% Copyright © 2010-2015 Sameer Rahmani <lxsameer@gnu.org>
FG42 %%VERSION%% Copyright © 2010-2018 Sameer Rahmani <lxsameer@gnu.org>
FG42 release under the term of GPLv2.
Home page:
@ -13,6 +13,8 @@ Credits:
\tNima Nazari (niman)
\tKeyvan Hedayati (k1-hedayati)
\tBehnam Khan Beigi (@yottanami)
\tEhsan Mahmoudi
"
"About FG42")

View File

@ -89,15 +89,15 @@
(spaceline-compile
"ati"
'(
'(((ati-projectile ati-mode-icon ati-buffer-id) :face default-face)
((ati-modified ati-window-numbering ati-buffer-size lxdrive) :face highlight-face :skip-alternate t)
((ati-projectile ati-mode-icon ati-buffer-id) :face default-face)
((ati-process ati-position ati-region-info) :face highlight-face :separator " | ")
((ati-vc-icon ati-flycheck-status ati-(point)ackage-updates purpose) :separator " · " :face other-face))
((ati-flycheck-status ati-(point)ackage-updates purpose) :separator " | " :face other-face))
;; ((minor-modes) :face default-face)
'(((ati-time) :separator " | " :face default-face)))
'(((ati-vc-icon " ") :face default-face :skip-alternate t :tight t)))
@ -315,7 +315,8 @@
(require 'extensions/editor/about)
(require 'extensions/editor/custom)
(require 'extensions/editor/session-management)
(require 'extensions/editor/lxdrive-mode))
(require 'extensions/editor/lxdrive-mode)
(require 'extensions/editor/lxmodeline))
(provide 'extensions/editor/init)

View File

@ -0,0 +1,34 @@
;;; lxmode-line --- A small utility library to toggle the modeline.
;;; Commentary:
;;; Code:
(defvar hidden-modeline nil)
(defun hide-modeline ()
"Hide the mode-line."
(interactive)
(message "Hidding mode-line...")
(setq hidden-modeline mode-line-format)
(setq mode-line-format nil))
(defun show-modeline ()
"Show the mode-line."
(interactive)
(message "Showing mode-line...")
(setq mode-line-format hidden-modeline)
(setq hidden-modeline nil))
(defun toggle-modeline ()
"Toggle the modeline."
(interactive)
(if (not hidden-modeline)
(hide-modeline)
(show-modeline)))
(ability togglable-modeline ()
"Togglable modeline"
(global-set-key (kbd "<f6>") 'toggle-modeline))
(provide 'extensions/editor/lxmodeline)
;;; lxmodeline ends here

View File

@ -51,7 +51,7 @@
(spaceline-define-segment
ati-projectile "An `all-the-icons' segment for current `projectile' project"
(concat
(propertize "|" 'face '(:height 1.1 :inherit))
(propertize "" 'face '(:height 1.1 :inherit))
" "
(if (and (fboundp 'projectile-project-name)
(projectile-project-name))
@ -134,7 +134,7 @@
(let ((branch (mapconcat 'concat (cdr (split-string vc-mode "[:-]")) "-")))
(concat
(propertize (all-the-icons-alltheicon "git") 'face '(:height 1.1 :inherit) 'display '(raise 0.1))
(propertize " · ")
(propertize " ")
(propertize (format "%s" (all-the-icons-octicon "git-branch"))
'face `(:family ,(all-the-icons-octicon-family) :height 1.0 :inherit)
'display '(raise 0.2))
@ -145,7 +145,7 @@
(let ((revision (cadr (split-string vc-mode "-"))))
(concat
(propertize (format " %s" (all-the-icons-faicon "cloud")) 'face `(:height 1.2) 'display '(raise -0.1))
(propertize (format " · %s" revision) 'face `(:height 0.9)))))
(propertize (format " %s" revision) 'face `(:height 0.9)))))
(spaceline-define-segment