New Yours API Help 633 bytes, Common Lisp Soft wrap Raw text Duplicate 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ( defun my-modeline () ( list "%n | %W ^>" ' ( :eval ( run-shell-command "date '+%a %b %d | %I:%M%P' | tr -d '\\n'" t )) " | " ' ( :eval ( run-shell-command "echo 'scale=1;' $(cat /sys/class/power_supply/BAT0/energy_now) '* 100 /' $(cat /sys/class/power_supply/BAT0/energy_full_design) | bc -l | tr -d '\\n'" t )) "%" )) ( setf *mode-line-border-width* 0 *mode-line-position* :bottom *mode-line-background-color* "#000000" *mode-line-foreground-color* "#FFFFFF" *screen-mode-line-format* ( my-modeline )) Pasted 4 seconds ago — Expires in 1 day URL: http://dpaste.com/3CWJNBA About dpaste.com ...