forked from kzar/emacs.d
/
paws.el
25 lines (20 loc) · 963 Bytes
/
paws.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
; Settings for my old Thinkpad T420
; Play Skype message sound on rcirc-notify IRC notifications
(add-hook 'rcirc-notify-page-me-hooks
(lambda (msg)
(start-process "beep-process" nil "aplay"
"/usr/share/skype/sounds/ChatIncoming.wav")))
(defun current-date ()
(replace-regexp-in-string "[\s\n]*$" ""
(shell-command-to-string "date +'%d/%b/%Y %H:%M:%S'")))
; Store a log of notifications in case I need to look back through them
(shell-command "touch" "~/.cache/irc-notifications.log")
(add-hook 'rcirc-notify-page-me-hooks
(lambda (msg)
(write-region (format "[%s] - %s\n" (current-date) msg)
nil "~/.cache/irc-notifications.log" 'append)))
; Fix Unicode symbols
(when (member "Symbola" (font-family-list))
(set-fontset-font t 'unicode "Symbola" nil 'prepend))
; Make highlighted text "yankable"
(setq x-select-enable-primary t)