Test new mood-line-segment-vc--rev behavior

3.0.0 broke compatibility with just about everything that may have hooked into
the package, so it should be appropriate to shed this bit of cruft.

.repo-assets/benchmark.md

@@ -0,0 +1,20 @@
+```lisp
+;; Emacs 29 with native compilation, default GC threshold
+;; Run in a lisp-interaction-mode buffer with Flymake
+
+(defun time-mode-line (num &optional and-mem)
+  (let ((gc-cons-threshold (if and-mem gc-cons-threshold most-positive-fixnum))
+        (start-time (current-time)))
+    (cl-loop for i to num
+             do (format-mode-line mode-line-format))
+    (format-time-string "%s.%3N seconds" (time-since start-time))))
+
+;; Default mode line:
+(time-mode-line 10000)          ;; "0.440 seconds"
+(time-mode-line 10000 :and-mem) ;; "2.402 seconds"
+
+;; mood-line (default settings):
+(mood-line-mode t)
+(time-mode-line 10000)          ;; "0.309 seconds"
+(time-mode-line 10000 :and-mem) ;; "1.286 seconds"
+```

LICENSE

@@ -0,0 +1,339 @@
+                    GNU GENERAL PUBLIC LICENSE
+                       Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
+ 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The licenses for most software are designed to take away your
+freedom to share and change it.  By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users.  This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it.  (Some other Free Software Foundation software is covered by
+the GNU Lesser General Public License instead.)  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+  To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have.  You must make sure that they, too, receive or can get the
+source code.  And you must show them these terms so they know their
+rights.
+
+  We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+  Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software.  If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+  Finally, any free program is threatened constantly by software
+patents.  We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary.  To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+                    GNU GENERAL PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License.  The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language.  (Hereinafter, translation is included without limitation in
+the term "modification".)  Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope.  The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+  1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+  2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+    a) You must cause the modified files to carry prominent notices
+    stating that you changed the files and the date of any change.
+
+    b) You must cause any work that you distribute or publish, that in
+    whole or in part contains or is derived from the Program or any
+    part thereof, to be licensed as a whole at no charge to all third
+    parties under the terms of this License.
+
+    c) If the modified program normally reads commands interactively
+    when run, you must cause it, when started running for such
+    interactive use in the most ordinary way, to print or display an
+    announcement including an appropriate copyright notice and a
+    notice that there is no warranty (or else, saying that you provide
+    a warranty) and that users may redistribute the program under
+    these conditions, and telling the user how to view a copy of this
+    License.  (Exception: if the Program itself is interactive but
+    does not normally print such an announcement, your work based on
+    the Program is not required to print an announcement.)
+
+These requirements apply to the modified work as a whole.  If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works.  But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+  3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+    a) Accompany it with the complete corresponding machine-readable
+    source code, which must be distributed under the terms of Sections
+    1 and 2 above on a medium customarily used for software interchange; or,
+
+    b) Accompany it with a written offer, valid for at least three
+    years, to give any third party, for a charge no more than your
+    cost of physically performing source distribution, a complete
+    machine-readable copy of the corresponding source code, to be
+    distributed under the terms of Sections 1 and 2 above on a medium
+    customarily used for software interchange; or,
+
+    c) Accompany it with the information you received as to the offer
+    to distribute corresponding source code.  (This alternative is
+    allowed only for noncommercial distribution and only if you
+    received the program in object code or executable form with such
+    an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it.  For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable.  However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+  4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License.  Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+  5. You are not required to accept this License, since you have not
+signed it.  However, nothing else grants you permission to modify or
+distribute the Program or its derivative works.  These actions are
+prohibited by law if you do not accept this License.  Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+  6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions.  You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+  7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all.  For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices.  Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+  8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded.  In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+  9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number.  If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation.  If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+  10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission.  For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this.  Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+                            NO WARRANTY
+
+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+                     END OF TERMS AND CONDITIONS
+
+            How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    mood-line
+    Copyright (C) 2022  Jessie Hildebrandt
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License along
+    with this program; if not, write to the Free Software Foundation, Inc.,
+    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+    Gnomovision version 69, Copyright (C) year name of author
+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary.  Here is a sample; alter the names:
+
+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+  `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+  <signature of Ty Coon>, 1 April 1989
+  Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs.  If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library.  If this is what you want to do, use the GNU Lesser General
+Public License instead of this License.

README.md

@@ -1,45 +1,116 @@
-# mood-line
-### Version 1.1.1
+# <img src=".repo-assets/icon.png" width=50> mood-line
+
+A lightweight, drop-in replacement for the default Emacs mode line configuration.
 
 [![MELPA](https://melpa.org/packages/mood-line-badge.svg)](https://melpa.org/#/mood-line)
 [![MELPA Stable](https://stable.melpa.org/packages/mood-line-badge.svg)](https://stable.melpa.org/#/mood-line)
 
-## About
-
-`mood-line` is a minimal mode-line configuration that aims to replicate some of the features of the
-[doom-modeline](https://github.com/seagle0128/doom-modeline)
-package.
-
 ## Features
 
-* Clean, minimal design
+* Clean, informative design
 
-* Anzu and multiple-cursors counters
+* Customizable, modular segment format
 
-* Version control status indicator
+* Customizable glyph sets
 
-* Flycheck status indicator
+* Lazy-loaded extensions
 
-* Lightweight with no dependencies
+* [Lightweight](.repo-assets/benchmark.md), no dependencies
 
 ## Preview
 
-![Preview Image](https://gitlab.com/jessieh/mood-line/raw/assets/mood-line.png "Preview Image")
+![Preview Image](.repo-assets/preview.webp "Preview Image")
 
-## Installation
+## Configuration
 
-To enable `mood-line`, place this in your configuration file after loading the package:
+You can install mood-line directly via `package-install` from [MELPA](https://melpa.org/).
+After installation, you can activate the global minor mode with `M-x mood-line-mode`.
+Deactivating `mode-line-mode` will restore the default `mode-line-format`.
 
-`(mood-line-mode)`
+If you are a user of `use-package`, it is easy to configure mood-line directly in your init.el:
 
-Disabling `mood-line` can be accomplished by toggling `mood-line-mode` off.
+```elisp
+(use-package mood-line
 
-## Known Issues
+  ;; Enable mood-line
+  :config
+  (mood-line-mode)
 
-* No known issues.
+  ;; Use pretty Fira Code-compatible glyphs
+  :custom
+  (mood-line-glyph-alist mood-line-glyphs-fira-code))
+```
+
+### Format
+
+mood-line uses a modular segment format, and it is easy to reconfigure:
+
+```elisp
+;; Default format:
+;;   * init.el  4:32 Top                                         ELisp  ! Issues: 2
+(setq mood-line-format mood-line-format-default)
+
+;; Extended format:
+;;   * init.el  4:32:52 Top                    SPCx2  LF  UTF-8  ELisp  ! Issues: 2
+(setq mood-line-format mood-line-format-default-extended)
+
+;; Custom format:
+;;   * init.el : ELisp                                     Top 4:32  |  ! Issues: 2
+(setq mood-line-format
+      (mood-line-defformat
+       :left
+       (((mood-line-segment-buffer-status) . " ")
+        ((mood-line-segment-buffer-name)   . " : ")
+        (mood-line-segment-major-mode))
+       :right
+       (((mood-line-segment-scroll)             . " ")
+        ((mood-line-segment-cursor-position)    . "  ")
+        ((when (mood-line-segment-checker) "|") . "  ")
+        ((mood-line-segment-checker)            . "  "))))
+```
+
+More information on the format specification is available in the documentation:\
+`M-x describe-variable mood-line-format`\
+`M-x describe-function mood-line-defformat`
+
+### Glyphs
+
+By default, mood-line will use basic ASCII character glyphs to decorate mode line segments.
+If you'd like to see prettier Unicode glyphs, you can change the value of `mood-line-glyph-alist`:
+
+```elisp
+;; The default set of glyphs:
+;;   * myModifiedFile.js  Replace*3                 + main  JavaScript  ! Issues: 2
+(setq mood-line-glyph-alist mood-line-glyphs-ascii)
+
+;; A set of Fira Code-compatible Unicode glyphs:
+;;   ● myModifiedFile.js  Replace×3                 + main  JavaScript  → Issues: 2
+(setq mood-line-glyph-alist mood-line-glyphs-fira-code)
+
+;; A set of Unicode glyphs:
+;;   ● myModifiedFile.js  Replace✕3                 🞤 main  JavaScript  ⚑ Issues: 2
+(setq mood-line-glyph-alist mood-line-glyphs-unicode)
+```
+
+If you'd like to supply your own glyphs, you can use the customization interface
+(`M-x customize-variable mood-line-glyph-alist`) or view the documentation
+(`M-x describe-variable mood-line-glyph-alist`) for more information.
+
+You can further tweak the behavior and appearance of mood-line by viewing the customizable variables
+and faces in the `mood-line` and `mood-line-faces` customization groups. (`M-x customize-group mood-line`)
+
+## Testing
+
+To run the included tests:
+
+```bash
+./ert-test.sh
+```
+
+## Feedback
 
 If you experience any issues with this package, please
-[open an issue](https://gitlab.com/jessieh/mood-line/issues/new)
+[open an issue](https://git.tty.dog/jessieh/mood-line/issues/new)
 on the issue tracker.
 
 Suggestions for improvements and feature requests are always appreciated, as well!

ert-test.sh

@@ -0,0 +1,5 @@
+#!/bin/bash
+emacs --quick --batch --load=ert \
+      --load=test/mood-line-test.el \
+      --load=test/mood-line-segment-vc-test.el \
+      --funcall=ert-run-tests-batch-and-exit

mood-line-segment-checker.el

@@ -0,0 +1,168 @@
+;;; mood-line-segment-checker.el --- A checker status segment for mood-line -*- lexical-binding: t; -*-
+;;
+;; Author: Jessie Hildebrandt <jessieh.net>
+;; Homepage: https://gitlab.com/jessieh/mood-line
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+;;
+;; This segment displays the current status of any active checker.
+
+;;; License:
+;;
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+;; Floor, Boston, MA 02110-1301, USA.
+
+;;; Code:
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Byte-compiler declarations
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; Required features
+;; ---------------------------------- ;;
+
+(eval-when-compile
+  (require 'flymake))
+
+;; ---------------------------------- ;;
+;; External variable defs
+;; ---------------------------------- ;;
+
+(eval-when-compile
+  (defvar flycheck-current-errors))
+
+;; ---------------------------------- ;;
+;; External function decls
+;; ---------------------------------- ;;
+
+(eval-when-compile
+  (declare-function mood-line--get-glyph "mood-line")
+  (declare-function flycheck-count-errors "flycheck")
+  (declare-function flymake-running-backends "flymake")
+  (declare-function flymake-reporting-backends "flymake")
+  (declare-function flymake--lookup-type-property "flymake"))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Helper functions
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(defun mood-line-segment-checker--format-status (status error warning note)
+  "Format STATUS into a segment string with ERROR, WARNING, and NOTE counts."
+  (pcase status
+    ('running
+     (format #("%s Checking"
+               0 11 (face mood-line-status-neutral))
+             (mood-line--get-glyph :checker-checking)))
+    ('errored
+     (format #("%s Error"
+               0 2 (face mood-line-status-error))
+             (mood-line--get-glyph :checker-errored)))
+    ('interrupted
+     (format #("%s Paused"
+               0 9 (face mood-line-status-neutral))
+             (mood-line--get-glyph :checker-interrupted)))
+    ('finished
+     (cond
+      ((> error 0)
+       (let ((issues (+ error warning)))
+         (format #("%s %s Issue%s"
+                   0 2 (face mood-line-status-error))
+                 (mood-line--get-glyph :checker-issues)
+                 issues
+                 (if (> issues 1) "s" ""))))
+      ((> warning 0)
+       (format #("%s %s Issue%s"
+                 0 2 (face mood-line-status-warning))
+               (mood-line--get-glyph :checker-issues)
+               warning
+               (if (> warning 1) "s" "")))
+      ((> note 0)
+       (format #("%s %s Note%s"
+                 0 2 (face mood-line-status-info))
+               (mood-line--get-glyph :checker-info)
+               note
+               (if (> note 1) "s" "")))
+      (t
+       (format #("%s No Issues"
+                 0 12 (face mood-line-status-neutral))
+               (mood-line--get-glyph :checker-good)))))))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Flycheck update handler
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(defvar-local mood-line-segment-checker--flycheck-text nil
+  "Mode line segment string indicating the current state of `flycheck-mode'.")
+
+(defun mood-line-segment-checker--flycheck-update (&optional status)
+  "Update `mood-line-segment-checker--flycheck-text' with flycheck's STATUS."
+  (setq mood-line-segment-checker--flycheck-text
+        (let-alist (flycheck-count-errors flycheck-current-errors)
+          (when-let* ((valid-statuses '(finished running errored interrupted))
+                      (status-valid (member status valid-statuses))
+                      (error (or .error 0))
+                      (warning (or .warning 0))
+                      (note (or .info 0)))
+            (mood-line-segment-checker--format-status
+             status error warning note)))))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Flymake update handler
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(defvar-local mood-line-segment-checker--flymake-text nil
+  "Mode line segment string indicating the current state of `flymake-mode'.")
+
+(defun mood-line-segment-checker--flymake-count (type)
+  "Return count of current flymake reports of TYPE."
+  (cl-loop for diag in (flymake-diagnostics)
+           as diag-type = (flymake-diagnostic-type diag)
+           count (eq (flymake--lookup-type-property diag-type 'severity)
+                     (flymake--lookup-type-property type 'severity))))
+
+(defun mood-line-segment-checker--flymake-update (&rest _args)
+  "Update `mood-line-segment-checker--flymake-state' with flymake's status."
+  (setq mood-line-segment-checker--flymake-text
+        (when-let ((flymake-active (and (fboundp 'flymake-is-running)
+                                        (flymake-is-running)))
+                   (status (if (seq-difference (flymake-running-backends)
+                                               (flymake-reporting-backends))
+                               'running 'finished))
+                   (error (mood-line-segment-checker--flymake-count :error))
+                   (warning (mood-line-segment-checker--flymake-count :warning))
+                   (note (mood-line-segment-checker--flymake-count :note)))
+          (mood-line-segment-checker--format-status
+           status error warning note))))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Provide package
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(provide 'mood-line-segment-checker)
+
+;;; mood-line-segment-checker.el ends here

mood-line-segment-indentation.el

@@ -0,0 +1,225 @@
+;;; mood-line-segment-indentation.el --- An indentation info segment for mood-line -*- lexical-binding: t; -*-
+;;
+;; Author: Alynx Zhou <alynx.zhou@gmail.com>
+;;         Jessie Hildebrandt <jessieh.net>
+;; Homepage: https://gitlab.com/jessieh/mood-line
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+;;
+;; This segment displays indentation style information for the current buffer.
+
+;;; License:
+;;
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+;; Floor, Boston, MA 02110-1301, USA.
+
+;;; Code:
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Byte-compiler declarations
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; External function decls
+;; ---------------------------------- ;;
+
+(eval-when-compile
+  (declare-function mood-line--get-glyph "mood-line"))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Custom definitions
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; Group definitions
+;; ---------------------------------- ;;
+
+(defgroup mood-line-segment-indentation nil
+  "An indentation info segment for mood-line."
+  :group 'mood-line)
+
+;; ---------------------------------- ;;
+;; Variable definitions
+;; ---------------------------------- ;;
+
+(defcustom mood-line-segment-indentation-always-show-offset nil
+  "When non-nil, always show the indentation offset of the current mode.
+
+Default behavior of the indentation segment is to display the indentation offset
+ of the current mode when `indent-tabs-mode' is non-nil and an offset value can
+ be found for the current mode.  Otherwise, `tab-wdith' will be shown.
+
+When `mood-line-segment-indentation-always-show-offset' is set to non-nil, the
+ indentation offset will always be shown alongside `tab-width'.  If an offset
+ value cannot be found for the current mode, a \"?\" character will be displayed
+ alongside `tab-width'."
+  :group 'mood-line-segment-indentation
+  :type 'boolean)
+
+;; Assembled from `editorconfig-indentation-alist' and `doom-modeline-indent-alist':
+;; https://github.com/editorconfig/editorconfig-emacs/blob/b8043702f3d977db0e030c6c64ee4a810cad5f45/editorconfig.el#L175
+;; https://github.com/seagle0128/doom-modeline/blob/fe9ee5a2a950f9ded10261a05a12adc577ae9e36/doom-modeline-core.el#L284
+(defcustom mood-line-segment-indentation-mode-offset-alist
+  '((apache-mode apache-indent-level)
+    (awk-mode c-basic-offset)
+    (bpftrace-mode c-basic-offset)
+    (c++-mode c-basic-offset)
+    (c-mode c-basic-offset)
+    (cmake-mode cmake-tab-width)
+    (coffee-mode coffee-tab-width)
+    (cperl-mode cperl-indent-level)
+    (crystal-mode crystal-indent-level)
+    (csharp-mode c-basic-offset)
+    (css-mode css-indent-offset)
+    (d-mode c-basic-offset)
+    (emacs-lisp-mode lisp-indent-offset)
+    (enh-ruby-mode enh-ruby-indent-level)
+    (erlang-mode erlang-indent-level)
+    (ess-mode ess-indent-offset)
+    (f90-mode f90-associate-indent
+              f90-continuation-indent
+              f90-critical-indent
+              f90-do-indent
+              f90-if-indent
+              f90-program-indent
+              f90-type-indent)
+    (feature-mode feature-indent-offset
+                  feature-indent-level)
+    (fsharp-mode fsharp-continuation-offset
+                 fsharp-indent-level
+                 fsharp-indent-offset)
+    (groovy-mode groovy-indent-offset)
+    (haskell-mode haskell-indent-spaces
+                  haskell-indent-offset
+                  haskell-indentation-layout-offset
+                  haskell-indentation-left-offset
+                  haskell-indentation-starter-offset
+                  haskell-indentation-where-post-offset
+                  haskell-indentation-where-pre-offset
+                  shm-indent-spaces)
+    (haxor-mode haxor-tab-width)
+    (idl-mode c-basic-offset)
+    (jade-mode jade-tab-width)
+    (java-mode c-basic-offset)
+    (js-mode js-indent-level)
+    (js-jsx-mode js-indent-level sgml-basic-offset)
+    (js2-mode js2-basic-offset)
+    (js2-jsx-mode js2-basic-offset sgml-basic-offset)
+    (js3-mode js3-indent-level)
+    (json-mode js-indent-level)
+    (json-ts-mode json-ts-mode-indent-offset)
+    (julia-mode julia-indent-offset)
+    (kotlin-mode kotlin-tab-width)
+    (latex-mode tex-indent-basic)
+    (lisp-mode lisp-indent-offset)
+    (livescript-mode livescript-tab-width)
+    (lua-mode lua-indent-level)
+    (matlab-mode matlab-indent-level)
+    (meson-mode meson-indent-basic)
+    (mips-mode mips-tab-width)
+    (mustache-mode mustache-basic-offset)
+    (nasm-mode nasm-basic-offset)
+    (nginx-mode nginx-indent-level)
+    (nxml-mode nxml-child-indent)
+    (objc-mode c-basic-offset)
+    (octave-mode octave-block-offset)
+    (perl-mode perl-indent-level)
+    (php-mode c-basic-offset)
+    (pike-mode c-basic-offset)
+    (ps-mode ps-mode-tab)
+    (pug-mode pug-tab-width)
+    (puppet-mode puppet-indent-level)
+    (python-mode python-indent-offset)
+    (rjsx-mode js-indent-level sgml-basic-offset)
+    (ruby-mode ruby-indent-level)
+    (rust-mode rust-indent-offset)
+    (rustic-mode rustic-indent-offset)
+    (scala-mode scala-indent:step)
+    (scss-mode css-indent-offset)
+    (sgml-mode sgml-basic-offset)
+    (sh-mode sh-basic-offset sh-indentation)
+    (slim-mode slim-indent-offset)
+    (sml-mode sml-indent-level)
+    (tcl-mode tcl-indent-level
+              tcl-continued-indent-level)
+    (terra-mode terra-indent-level)
+    (typescript-mode typescript-indent-level)
+    (typescript-ts-base-mode typescript-ts-mode-indent-offset)
+    (verilog-mode verilog-indent-level
+                  verilog-indent-level-behavioral
+                  verilog-indent-level-declaration
+                  verilog-indent-level-module
+                  verilog-cexp-indent
+                  verilog-case-indent)
+    (web-mode web-mode-attr-indent-offset
+              web-mode-attr-value-indent-offset
+              web-mode-code-indent-offset
+              web-mode-css-indent-offset
+              web-mode-markup-indent-offset
+              web-mode-sql-indent-offset
+              web-mode-block-padding
+              web-mode-script-padding
+              web-mode-style-padding)
+    (yaml-mode yaml-indent-offset))
+  "Alist mapping major mode names to their respective indent offset variables.
+
+When multiple variables are specified for a given mode, the offset value will
+ be retrieved from the first variable that resolves to a value, evaluated in the
+ order provided."
+  :group 'mood-line-segment-indentation
+  :type '(alist :key-type symbol :value-type sexp))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Indentation style info segment
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; Segment function
+;; ---------------------------------- ;;
+
+(defun mood-line-segment-indentation ()
+  "Return the indentation style of the current buffer."
+  (let* ((mode-offset (symbol-value
+                       (seq-some #'identity
+                                 (cdr (assoc major-mode
+                                             mood-line-segment-indentation-mode-offset-alist))))))
+    (propertize (concat (if indent-tabs-mode "TAB" "SPC")
+                        (mood-line--get-glyph :count-separator)
+                        (if mood-line-segment-indentation-always-show-offset
+                            (format "%s:%d"
+                                    (or mode-offset "?")
+                                    tab-width)
+                          (number-to-string (if indent-tabs-mode
+                                                tab-width
+                                              (or mode-offset tab-width)))))
+                'face 'mood-line-encoding)))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Provide package
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(provide 'mood-line-segment-indentation)
+
+;;; mood-line-segment-indentation.el ends here

mood-line-segment-modal.el

@@ -0,0 +1,138 @@
+;;; mood-line-segment-modal.el --- A modal editing status segment for mood-line -*- lexical-binding: t; -*-
+;;
+;; Author: trevDev() <trev@trevdev.ca>
+;;         Jessie Hildebrandt <jessieh.net>
+;; Homepage: https://gitlab.com/jessieh/mood-line
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+;;
+;; This segment displays modal editing information for the current buffer.
+
+;;; License:
+;;
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+;; Floor, Boston, MA 02110-1301, USA.
+
+;;; Code:
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Custom definitions
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; Group definitions
+;; ---------------------------------- ;;
+
+(defgroup mood-line-segment-modal nil
+  "A modal editing status segment for mood-line."
+  :group 'mood-line)
+
+;; ---------------------------------- ;;
+;; Variable definitions
+;; ---------------------------------- ;;
+
+(defcustom mood-line-segment-modal-evil-state-alist
+  '((normal . ("<N>" . font-lock-variable-name-face))
+    (insert . ("<I>" . font-lock-string-face))
+    (visual . ("<V>" . font-lock-keyword-face))
+    (replace . ("<R>" . font-lock-type-face))
+    (motion . ("<M>" . font-lock-constant-face))
+    (operator . ("<O>" . font-lock-function-name-face))
+    (emacs . ("<E>" . font-lock-builtin-face)))
+  "Alist specifying indicators and faces for corresponding `evil-mode' states.
+The face may be either a face symbol or a property list of key-value pairs;
+e.g., (:foreground \"red\")."
+  :group 'mood-line-segment-modal
+  :type '(alist :key-type symbol
+                :value-type (cons (string :tag "Display text")
+                                  (choice :tag "Face" face plist))))
+
+(defcustom mood-line-segment-modal-meow-state-alist
+  '((normal . ("<N>" . font-lock-variable-name-face))
+    (insert . ("<I>" . font-lock-string-face))
+    (keypad . ("<K>" . font-lock-keyword-face))
+    (beacon . ("<B>" . font-lock-type-face))
+    (motion . ("<M>" . font-lock-constant-face)))
+  "Alist specifying indicators and faces corresponding `meow-mode' states.
+The face may be either a face symbol or a property list of key-value pairs;
+e.g., (:foreground \"red\")."
+  :group 'mood-line-segment-modal
+  :type '(alist :key-type symbol
+                :value-type (cons (string :tag "Display text")
+                                  (choice :tag "Face" face plist))))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Modal editing segments
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; Evil segment
+;; ---------------------------------- ;;
+
+(defun mood-line-segment-modal--evil-fn ()
+  "Return the current `evil-mode' state."
+  (when (boundp 'evil-state)
+    (let ((mode-cons (alist-get evil-state
+                                mood-line-segment-modal-evil-state-alist)))
+      (concat (propertize (car mode-cons)
+                          'face (cdr mode-cons))))))
+
+;; ---------------------------------- ;;
+;; Meow segment
+;; ---------------------------------- ;;
+
+(defun mood-line-segment-modal--meow-fn ()
+  "Return the current `meow-mode' state."
+  (when (boundp 'meow--current-state)
+    (let ((mode-cons (alist-get meow--current-state
+                                mood-line-segment-modal-meow-state-alist)))
+      (concat (propertize (car mode-cons)
+                          'face (cdr mode-cons))))))
+
+;; ---------------------------------- ;;
+;; Xah segment
+;; ---------------------------------- ;;
+
+(defun mood-line-segment-modal--xah-fn ()
+  "Display the current xah-fly-keys state."
+  (if (bound-and-true-p xah-fly-insert-state-p)
+      "<I>"
+      "<C>"))
+
+;; ---------------------------------- ;;
+;; God segment
+;; ---------------------------------- ;;
+
+(defun mood-line-segment-modal--god-fn ()
+  "Return an indicator of whether or not `god-mode' is active."
+  (if (bound-and-true-p god-local-mode)
+      (propertize "<G>" 'face 'mood-line-status-warning)
+    "---"))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Provide package
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(provide 'mood-line-segment-modal)
+
+;;; mood-line-segment-modal.el ends here

mood-line-segment-vc.el

@@ -0,0 +1,114 @@
+;;; mood-line-segment-vc.el --- A vc-mode info segment for mood-line -*- lexical-binding: t; -*-
+;;
+;; Author: Jessie Hildebrandt <jessieh.net>
+;; Homepage: https://gitlab.com/jessieh/mood-line
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+;;
+;; This segment displays the current status of vc-mode.
+
+;;; License:
+;;
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+;; Floor, Boston, MA 02110-1301, USA.
+
+;;; Code:
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Byte-compiler declarations
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; External function decls
+;; ---------------------------------- ;;
+
+(eval-when-compile
+  (declare-function mood-line--get-glyph "mood-line"))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Helper functions
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(defun mood-line-segment-vc--rev (vc-mode-str backend)
+  "Return name of current file's revision for BACKEND according to `vc-mode'.
+VC-MODE-STR is expected to be the value of `vc-mode' in the current buffer.
+If `vc-display-status' is nil, return the name of BACKEND."
+  (or (unless vc-display-status
+        (symbol-name backend))
+      (pcase backend
+        ('Git (substring-no-properties vc-mode-str 5))
+        ('Hg (substring-no-properties vc-mode-str 4)))
+      (ignore-errors
+        (substring (vc-working-revision buffer-file-name backend) 0 7))
+      "???"))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; VC segment
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(defvar-local mood-line-segment-vc--text nil
+  "Mode line segment string indicating the current state of `vc-mode'.")
+
+(defun mood-line-segment-vc--update (&rest _args)
+  "Update `mood-line-segment-vc--text' against the current VCS state."
+  (setq mood-line-segment-vc--text
+        (when-let* ((vc-active (and vc-mode buffer-file-name))
+                    (backend (vc-backend buffer-file-name))
+                    (state (vc-state buffer-file-name))
+                    (rev (mood-line-segment-vc--rev vc-mode backend)))
+          (cond
+           ((memq state '(edited added))
+            (format #("%s %s"
+                      0 2 (face mood-line-status-info))
+                    (mood-line--get-glyph :vc-added)
+                    rev))
+           ((eq state 'needs-merge)
+            (format #("%s %s"
+                      0 2 (face mood-line-status-warning))
+                    (mood-line--get-glyph :vc-needs-merge)
+                    rev))
+           ((eq state 'needs-update)
+            (format #("%s %s"
+                      0 2 (face mood-line-status-warning))
+                    (mood-line--get-glyph :vc-needs-update)
+                    rev))
+           ((memq state '(removed conflict unregistered))
+            (format #("%s %s"
+                      0 2 (face mood-line-status-error))
+                    (mood-line--get-glyph :vc-conflict)
+                    rev))
+           (t
+            (format #("%s %s"
+                      0 5 (face mood-line-status-neutral))
+                    (mood-line--get-glyph :vc-good)
+                    rev))))))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Provide package
+;;
+;; -------------------------------------------------------------------------- ;;
+
+(provide 'mood-line-segment-vc)
+
+;;; mood-line-segment-vc.el ends here

test/mood-line-segment-vc-test.el

@@ -0,0 +1,45 @@
+;;; mood-line-segment-vc-test.el --- Test specifications for mood-line-segment-vc.el -*- lexical-binding: t; -*-
+
+(add-to-list 'load-path ".")
+
+(require 'ert)
+(require 'mood-line)
+(require 'mood-line-segment-vc)
+
+;;; Code:
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Helper functions
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; mood-line-segment-vc--rev
+;; ---------------------------------- ;;
+
+(ert-deftest --rev/git ()
+  "Current rev should be cleanly extracted from git `vc-mode' status string."
+  (should (string= (mood-line-segment-vc--rev " Git:main" 'Git)
+                   "main")))
+
+(ert-deftest --rev/hg ()
+  "Current rev should be cleanly extracted from hg `vc-mode' status string."
+  (should (string= (mood-line-segment-vc--rev " Hg:main" 'Hg)
+                   "main")))
+
+(ert-deftest --rev/unknown ()
+  "Current rev should be reported as \"???\" when backend is unsupported."
+  (let ((buffer-file-name ""))
+    (should (string= (mood-line-segment-vc--rev "" 'SVN)
+                     "???"))))
+
+(ert-deftest --rev/vc-display-status-nil ()
+  "Name of the VCS backend should be reported when `vc-display-status' is nil."
+  (let ((vc-display-status nil))
+    (should (string= (mood-line-segment-vc--rev " Git:main" 'Git)
+                     "Git"))
+    (should (string= (mood-line-segment-vc--rev " Hg:main" 'Hg)
+                     "Hg"))))
+
+;;; mood-line-segment-vc-test.el ends here

test/mood-line-test.el

@@ -0,0 +1,206 @@
+;;; mood-line-test.el --- Test specifications for mood-line.el -*- lexical-binding: t; -*-
+
+(add-to-list 'load-path ".")
+
+(require 'ert)
+(require 'mood-line)
+
+;;; Code:
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Macros
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; mood-line-defformat
+;; ---------------------------------- ;;
+
+(ert-deftest -defformat/padding ()
+  "The expanded sequence should include the provided (or default) padding."
+  (should (equal (mood-line-defformat)
+                 (list
+                  ;; Left
+                  '(" ")
+                  ;; Right
+                  '(" "))))
+  (should (equal (mood-line-defformat
+                  :padding
+                  "---")
+                 (list
+                  ;; Left
+                  '("---")
+                  ;; Right
+                  '("---")))))
+
+(ert-deftest -defformat/left-right-nil ()
+  "The format sequence should expand if the left or right segment list is nil."
+  (should (equal (mood-line-defformat
+                  :left
+                  ("XYZ"))
+                 (list
+                  ;; Left
+                  '(" " "XYZ")
+                  ;; Right
+                  '(" "))))
+  (should (equal (mood-line-defformat
+                  :right
+                  ("XYZ"))
+                 (list
+                  ;; Left
+                  '(" ")
+                  ;; Right
+                  '("XYZ" " ")))))
+
+(ert-deftest -defformat/left-right ()
+  "The expanded sequence should include left and right segments lists."
+  (should (equal (mood-line-defformat
+                  :left
+                  ("ABC")
+                  :right
+                  ("XYZ"))
+                 (list
+                  ;; Left
+                  '(" " "ABC")
+                  ;; Right
+                  '("XYZ" " ")))))
+
+(ert-deftest -defformat/cons-cells ()
+  "Cons cell segments should expand into their `car' and `cdr' values."
+  (should (equal (mood-line-defformat
+                  :left
+                  ("ABC" ("ABC" . "XYZ") "XYZ")
+                  :right
+                  ("..." ((some-fn) . " ") "..."))
+                 (list
+                  ;; Left
+                  '(" " "ABC" "ABC" "XYZ" "XYZ")
+                  ;; Right
+                  '("..." (some-fn) " " "..." " ")))))
+
+(ert-deftest -defformat/exp-separators ()
+  "Non-string, non-cons expressions should expand followed by a blank string."
+  (should (equal (mood-line-defformat
+                  :left
+                  ("ABC" ("ABC" . "XYZ") some-exp "XYZ" (some-fn))
+                  :right
+                  ("..." ((some-fn) . " ") (another-fn) "..."))
+                 (list
+                  ;; Left
+                  '(" " "ABC" "ABC" "XYZ" some-exp "" "XYZ" (some-fn) "")
+                  ;; Right
+                  '("..." (some-fn) " " (another-fn) "" "..." " ")))))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; Helper functions
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; mood-line--get-glyph
+;; ---------------------------------- ;;
+
+(ert-deftest --get-glyph/unicode ()
+  "Glyphs should be fethed from `mood-line-glyph-alist'."
+  (let ((mood-line-glyph-alist '((:checker-info . ?🛈))))
+    (should (string= (mood-line--get-glyph :checker-info) "🛈"))))
+
+(ert-deftest --get-glyph/fallback-ascii ()
+  "Glyphs should be fetched from `mood-line-glyphs-ascii' as a fallback."
+  (let ((mood-line-glyph-alist nil))
+    (should (string= (mood-line--get-glyph :checker-info) "i"))))
+
+;; ---------------------------------- ;;
+;; mood-line--process-segments
+;; ---------------------------------- ;;
+
+(ert-deftest --process-segments/default ()
+  "`mood-line-format-default' should be processed without error."
+  (let* ((left (car mood-line-format-default))
+         (right (cadr mood-line-format-default))
+         (left-str (mood-line--process-segments left))
+         (right-str (mood-line--process-segments right)))
+    (should (> (length left-str) 0))
+    (should (> (length right-str) 0))))
+
+(ert-deftest --process-segments/strings ()
+  "Literal strings should be concatenated."
+  (let* ((segments '("ABC" "   " "123" "   " "XYZ"))
+         (segments-str (mood-line--process-segments segments)))
+    (should (string= segments-str "ABC   123   XYZ"))))
+
+(ert-deftest --process-segments/nil-neighbor-exclusion ()
+  "A nil value should mean skipping evaluation of the following segment."
+  (let* ((segments '("ABC" nil "   " "123" nil "   " "XYZ" nil))
+         (segments-str (mood-line--process-segments segments)))
+    (should (string= segments-str "ABC123XYZ"))))
+
+(ert-deftest --process-segments/functions ()
+  "Functions should be evaluated, and their return values concatenated."
+  (let* ((segments '((string ?A ?B ?C)
+                     (numberp nil) "   "
+                     (number-to-string (+ 100 20 3))
+                     (identity nil) "   "
+                     (concat "X" "Y" "Z")))
+         (segments-str (mood-line--process-segments segments)))
+    (should (string= segments-str "ABC123XYZ"))))
+
+;; ---------------------------------- ;;
+;; mood-line--process-format
+;; ---------------------------------- ;;
+
+(ert-deftest --process-format/default ()
+  "`mood-line-format-default' should be processed without error."
+  (let* ((format-str (mood-line--process-format mood-line-format-default)))
+    (should (> (length format-str) 0))))
+
+(ert-deftest --process-format/nil-okay ()
+  "Either segment list should process without error if the other list is nil."
+  (let* ((format-l-nil '(nil ("ABC" nil "   " "123" nil "   " "XYZ")))
+         (format-r-nil '(("ABC" nil "   " "123" nil "   " "XYZ") nil))
+         (format-l-nil-str (mood-line--process-format format-l-nil))
+         (format-r-nil-str (mood-line--process-format format-r-nil)))
+    (should (string-suffix-p "ABC123XYZ" format-l-nil-str))
+    (should (string-prefix-p "ABC123XYZ" format-r-nil-str))))
+
+;; -------------------------------------------------------------------------- ;;
+;;
+;; mood-line-mode
+;;
+;; -------------------------------------------------------------------------- ;;
+
+;; ---------------------------------- ;;
+;; mood-line--activate
+;; ---------------------------------- ;;
+
+(ert-deftest --activate/mode-line-format ()
+  "`mode-line-format' should be set by `mood-line--activate'."
+  (let* ((setting-val (alist-get 'mode-line-format
+                                 mood-line--settings-alist))
+         (mood-line--settings-alist `((mode-line-format . ,setting-val)))
+         (mood-line-format mood-line-format-default)
+         (mode-line-format '("ABC 123 XYZ"))
+         (format-str (mood-line--process-format mood-line-format)))
+    (mood-line--activate)
+    (should (string= (format-mode-line mode-line-format)
+                     (format-mode-line format-str)))))
+
+;; ---------------------------------- ;;
+;; mood-line--deactivate
+;; ---------------------------------- ;;
+
+(ert-deftest --deactivate/mode-line-format ()
+  "`mode-line-format' should be restored by `mood-line--deactivate'."
+  (let* ((setting-val (alist-get 'mode-line-format
+                                 mood-line--settings-alist))
+         (mood-line--settings-alist `((mode-line-format . ,setting-val)))
+         (mood-line--settings-backup-alist nil)
+         (mood-line-format mood-line-format-default)
+         (mode-line-format "ABC 123 XYZ"))
+    (mood-line--activate)
+    (mood-line--deactivate)
+    (should (string= mode-line-format "ABC 123 XYZ"))))
+
+;;; mood-line-test.el ends here