diff options
Diffstat (limited to '.emacs.d/jd/jd-custom.el')
-rwxr-xr-x | .emacs.d/jd/jd-custom.el | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/.emacs.d/jd/jd-custom.el b/.emacs.d/jd/jd-custom.el new file mode 100755 index 0000000..96d13c6 --- /dev/null +++ b/.emacs.d/jd/jd-custom.el | |||
@@ -0,0 +1,31 @@ | |||
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 | (setq erc-nick "bobbma" | ||
21 | erc-user-full-name "Jakub Dlugosz" | ||
22 | erc-notify-list '("akuleszaa")) | ||
23 | |||
24 | (defun hipis-znc () | ||
25 | (interactive) | ||
26 | (erc :server "195.74.91.18" | ||
27 | :port "6697")) | ||
28 | |||
29 | (provide 'jd-custom) | ||
30 | |||
31 | ;;; jd-custom.el ends here | ||