summaryrefslogtreecommitdiffstats
path: root/.emacs.d/jd/jd-custom.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/jd/jd-custom.el')
-rwxr-xr-x.emacs.d/jd/jd-custom.el27
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"))