ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove unused awesome functions

Browse source
This commit is contained in:
Tom Willemse 2015-12-16 22:49:29 +01:00
parent 3c71390a26
commit a9f0f63a43
1 changed files with 0 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
emacs/.emacs.d/init.el
View file

@ -137,21 +137,6 @@ MODE1 is enabled and vice-versa."
;;;; Functions ;;;; Functions
(defun awesome-send (command)
"Send COMMAND through awesome-client to awesome."
(shell-command (format "echo '%s' | awesome-client" command)))
(defun awesome-update-mailbox (_gnus-group)
"Update mailcount widget for GNUS-GROUP.
But only if it is a maildir inbox."
(awesome-send "mymailwidget:set_count()"))
(defun awesome-update-current-mailbox ()
"Update mailcount widget for current gnus group."
(when (and (boundp 'gnus-newsgroup-name) gnus-newsgroup-name)
(awesome-update-mailbox gnus-newsgroup-name)))
(defun update-mailcount () (defun update-mailcount ()
"Update the mailcount in the wm." "Update the mailcount in the wm."
(shell-command-to-string "new-mail-mowedline")) (shell-command-to-string "new-mail-mowedline"))