Personalizzazioni per emacs

.emacs.rc/org-cliplink-rc.el

@@ -0,0 +1,19 @@
+(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)