diff options
Diffstat (limited to '.config/emacs/jd-emacs/jd-emacs-custom.el')
-rw-r--r-- | .config/emacs/jd-emacs/jd-emacs-custom.el | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/.config/emacs/jd-emacs/jd-emacs-custom.el b/.config/emacs/jd-emacs/jd-emacs-custom.el new file mode 100644 index 0000000..aef824f --- /dev/null +++ b/.config/emacs/jd-emacs/jd-emacs-custom.el | |||
@@ -0,0 +1,36 @@ | |||
1 | ;;; Dotfiles --- Jakub Dlugosz emacs config | ||
2 | ;;; Commentary: | ||
3 | |||
4 | ;;; Code: | ||
5 | |||
6 | (defun jd/generete-qr-from-clipboard () | ||
7 | (interactive) | ||
8 | (let ((clipboard-value (x-get-clipboard)) | ||
9 | (clipboard-file-path "/tmp/clipboard_value.txt") | ||
10 | (clipboard-out-image "/tmp/qr.png")) | ||
11 | (with-temp-file clipboard-file-path | ||
12 | (insert clipboard-value)) | ||
13 | (shell-command (concat | ||
14 | "qrencode -o " | ||
15 | clipboard-out-image | ||
16 | " < " | ||
17 | clipboard-file-path)) | ||
18 | (find-file clipboard-out-image))) | ||
19 | |||
20 | (defun jd-emacs/erc-notify-sound () | ||
21 | (jd-exwm/run-in-background "mpv /home/jakub/.config/emacs/resources/beep.wav")) | ||
22 | |||
23 | ;; (add-hook 'erc-notifications-mode-hook #'jd-emacs/erc-notify-sound) | ||
24 | |||
25 | (setq | ||
26 | erc-nick "bobbma" | ||
27 | erc-user-full-name "Jakub Dlugosz" | ||
28 | erc-notify-list '("akuleszaa")) | ||
29 | |||
30 | ;; Define a function to connect to a server | ||
31 | (defun hipis-znc () | ||
32 | (interactive) | ||
33 | (erc :server "195.74.91.18" | ||
34 | :port "6697")) | ||
35 | |||
36 | ;;; jd-custom.el ends here | ||