(pcase (ff/battery-state ff/battery-dirs)
(`charging (format "c%d%%" (ff/battery-percent)))
(`discharging (format "d%d%%" (ff/battery-percent)))
(pcase (ff/battery-state ff/battery-dirs)
(`charging (format "c%d%%" (ff/battery-percent)))
(`discharging (format "d%d%%" (ff/battery-percent)))