blob: aef824fc914e42d1019fe8dbb5c9cfb36b23414a (
plain)
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
26
27
28
29
30
31
32
33
34
35
36
|
;;; Dotfiles --- Jakub Dlugosz emacs config
;;; Commentary:
;;; Code:
(defun jd/generete-qr-from-clipboard ()
(interactive)
(let ((clipboard-value (x-get-clipboard))
(clipboard-file-path "/tmp/clipboard_value.txt")
(clipboard-out-image "/tmp/qr.png"))
(with-temp-file clipboard-file-path
(insert clipboard-value))
(shell-command (concat
"qrencode -o "
clipboard-out-image
" < "
clipboard-file-path))
(find-file clipboard-out-image)))
(defun jd-emacs/erc-notify-sound ()
(jd-exwm/run-in-background "mpv /home/jakub/.config/emacs/resources/beep.wav"))
;; (add-hook 'erc-notifications-mode-hook #'jd-emacs/erc-notify-sound)
(setq
erc-nick "bobbma"
erc-user-full-name "Jakub Dlugosz"
erc-notify-list '("akuleszaa"))
;; Define a function to connect to a server
(defun hipis-znc ()
(interactive)
(erc :server "195.74.91.18"
:port "6697"))
;;; jd-custom.el ends here
|
