;; (`unknown "f")
(`charging (format "↑%d%%" (ff/battery-percent)))
(`discharging (format "↓%d%%" (ff/battery-percent)))
;; (`unknown "f")
(`charging (format "↑%d%%" (ff/battery-percent)))
(`discharging (format "↓%d%%" (ff/battery-percent)))
(while (re-search-forward "[0-9\.]+" nil t)
(let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
(delete-region (match-beginning 0) (match-end 0))
(while (re-search-forward "[0-9\.]+" nil t)
(let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
(delete-region (match-beginning 0) (match-end 0))