<commit_before>;; Setup modeline items
(defun gcs-propertized-evil-mode-tag ()
  (propertize evil-mode-line-tag 'font-lock-face
    ;; Don't propertize if we're not in the selected buffer
    (cond ((not (eq (current-buffer) (car (buffer-list)))) '())
          ((evil-insert-state-p) '(:background "green3" :foreground "black"))
          ((evil-emacs-state-p)  '(:background "red" :foreground "black"))
          ((evil-motion-state-p) '(:background "purple" :foreground "black"))
          ((evil-visual-state-p) '(:background "gray" :foreground "black"))
          ((evil-normal-state-p)  '(:background "orange" :foreground "black"))
          (t '()))))

(setq-default mode-line-format
'("%e"
  (:eval
   (let* ((active (eq (frame-selected-window) (selected-window)))
          (face1 (if active 'powerline-active1 'powerline-inactive1))
          (face2 (if active 'powerline-active2 'powerline-inactive2))
          (lhs (list
                (powerline-raw "%*" nil 'l)
                (powerline-buffer-size nil 'l)
                (powerline-buffer-id nil 'l)

                (powerline-raw " ")
                (powerline-arrow-right nil face1)

                (powerline-major-mode face1 'l)
                (powerline-minor-modes face1 'l)
                (powerline-raw " " face1)
                (powerline-raw mode-line-process face1 'l)

                (powerline-narrow face1 'l)

                (powerline-curve-right face1 face2)

                (powerline-vc face2)
                ))
          (rhs (list
                (powerline-raw global-mode-string face2 'r)

                (powerline-curve-left face2 face1)

                (powerline-raw "%4l" face1 'r)
                (powerline-raw ":" face1)
                (powerline-raw "%3c" face1 'r)

                (powerline-arrow-left face1 nil)
                (powerline-raw " ")

                (powerline-raw "%6p" nil 'r)

                (powerline-hud face2 face1))))
     (concat
      (gcs-propertized-evil-mode-tag)
      (powerline-render lhs)
      (powerline-fill face2 (powerline-width rhs))
      (powerline-render rhs))))))<commit_msg>Tweak spacing between area of powerline.<commit_after>;; Setup modeline items
(defun gcs-propertized-evil-mode-tag ()
  (propertize evil-mode-line-tag 'font-lock-face
    ;; Don't propertize if we're not in the selected buffer
    (cond ((not (eq (current-buffer) (car (buffer-list)))) '())
          ((evil-insert-state-p) '(:background "green3" :foreground "black"))
          ((evil-emacs-state-p)  '(:background "red" :foreground "black"))
          ((evil-motion-state-p) '(:background "purple" :foreground "black"))
          ((evil-visual-state-p) '(:background "gray" :foreground "black"))
          ((evil-normal-state-p)  '(:background "orange" :foreground "black"))
          (t '()))))

(setq-default mode-line-format
'("%e"
  (:eval
   (let* ((active (eq (frame-selected-window) (selected-window)))
          (face1 (if active 'powerline-active1 'powerline-inactive1))
          (face2 (if active 'powerline-active2 'powerline-inactive2))
          (lhs (list
                (powerline-raw "%*" nil 'l)
                (powerline-buffer-size nil 'l)
                (powerline-buffer-id nil 'l)

                (powerline-raw " ")
                (powerline-arrow-right nil face1)

                (powerline-major-mode face1 'l)
                (powerline-minor-modes face1 'l)
                (powerline-raw mode-line-process face1 'l)

                (powerline-raw " " face1)
                (powerline-narrow face1 'l)

                (powerline-curve-right face1 face2)

                (powerline-vc face2)
                ))
          (rhs (list
                (powerline-raw global-mode-string face2 'r)

                (powerline-raw " " face2)
                (powerline-curve-left face2 face1)

                (powerline-raw "%4l" face1 'r)
                (powerline-raw ":" face1)
                (powerline-raw "%3c" face1 'r)

                (powerline-arrow-left face1 nil)
                (powerline-raw " ")

                (powerline-raw "%6p" nil 'r)

                (powerline-hud face2 face1))))
     (concat
      (gcs-propertized-evil-mode-tag)
      (powerline-render lhs)
      (powerline-fill face2 (powerline-width rhs))
      (powerline-render rhs))))))
{'fraction_non_alphanumeric': 0.14460050656228413, 'fraction_numerical': 0.013585079438176375, 'mean_word_length': 1.873015873015873, 'pattern_counts': {'":': 2, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4714355', 'n_tokens_mistral': 1426, 'n_tokens_neox': 1325, 'n_words': 294}