20 lines
599 B
EmacsLisp
20 lines
599 B
EmacsLisp
(rc/require 'org-cliplink)
|
|
|
|
(when (eq system-type 'gnu/linux)
|
|
(custom-set-variables
|
|
'(org-cliplink-transport-implementation (quote url-el))))
|
|
|
|
(global-set-key (kbd "C-x p i") 'org-cliplink)
|
|
|
|
(defun rc/cliplink-task ()
|
|
(interactive)
|
|
(org-cliplink-retrieve-title
|
|
(substring-no-properties (current-kill 0))
|
|
'(lambda (url title)
|
|
(insert (if title
|
|
(concat "* TODO " title
|
|
"\n [[" url "][" title "]]")
|
|
(concat "* TODO " url
|
|
"\n [[" url "]]"))))))
|
|
(global-set-key (kbd "C-x p t") 'rc/cliplink-task)
|