diff options
Diffstat (limited to '.emacs.d/jd/jd-custom.el')
-rwxr-xr-x | .emacs.d/jd/jd-custom.el | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/.emacs.d/jd/jd-custom.el b/.emacs.d/jd/jd-custom.el index 8383e41..a634baa 100755 --- a/.emacs.d/jd/jd-custom.el +++ b/.emacs.d/jd/jd-custom.el | |||
@@ -3,33 +3,6 @@ | |||
3 | 3 | ||
4 | ;;; Code: | 4 | ;;; Code: |
5 | 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/dired-open-file-in-kill-ring () | ||
21 | (interactive) | ||
22 | (let* ((last-killed (car kill-ring)) | ||
23 | (exists-p (file-exists-p last-killed)) | ||
24 | (dir-p (file-directory-p last-killed))) | ||
25 | (cond | ||
26 | ((not exists-p) (message "File doesn't exists!")) | ||
27 | (dir-p (dired last-killed)) | ||
28 | ((not dir-p) (find-file last-killed))))) | ||
29 | |||
30 | (global-set-key (kbd "C-c O") #'jd/dired-open-file-in-kill-ring) | ||
31 | |||
32 | |||
33 | (setq erc-nick "bobbma" | 6 | (setq erc-nick "bobbma" |
34 | erc-user-full-name "Jakub Dlugosz" | 7 | erc-user-full-name "Jakub Dlugosz" |
35 | erc-notify-list '("akuleszaa")) | 8 | erc-notify-list '("akuleszaa")) |