From bc591dcedf45b80f70661f33c42c68dbd581e901 Mon Sep 17 00:00:00 2001 From: jdlugosz963 Date: Mon, 11 Aug 2025 17:36:57 +0200 Subject: Migrate to RDE --- files/.emacs.d/jd/jd-misc.el | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 files/.emacs.d/jd/jd-misc.el (limited to 'files/.emacs.d/jd/jd-misc.el') diff --git a/files/.emacs.d/jd/jd-misc.el b/files/.emacs.d/jd/jd-misc.el deleted file mode 100644 index 2b7d1bd..0000000 --- a/files/.emacs.d/jd/jd-misc.el +++ /dev/null @@ -1,34 +0,0 @@ -;;; 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/dired-open-file-in-kill-ring () - (interactive) - (let* ((last-killed (car kill-ring)) - (exists-p (file-exists-p last-killed)) - (dir-p (file-directory-p last-killed))) - (cond - ((not exists-p) (message "File doesn't exists!")) - (dir-p (dired last-killed)) - ((not dir-p) (find-file last-killed))))) - -(global-set-key (kbd "C-c O") #'jd/dired-open-file-in-kill-ring) - -(provide 'jd-misc) - -;;; jd-misc.el ends here -- cgit v1.2.3