From fb5ec068ddd50f6bce41c7a0bad45673db787940 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Tue, 1 Sep 2020 10:17:43 +0100 Subject: More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors. --- emacs/.emacs.d/wpc/clipboard.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'emacs/.emacs.d/wpc/clipboard.el') diff --git a/emacs/.emacs.d/wpc/clipboard.el b/emacs/.emacs.d/wpc/clipboard.el index 5fad0fbd0567..c5375b18c5e7 100644 --- a/emacs/.emacs.d/wpc/clipboard.el +++ b/emacs/.emacs.d/wpc/clipboard.el @@ -1,5 +1,9 @@ ;;; clipboard.el --- Working with X11's pasteboard -*- lexical-binding: t -*- + ;; Author: William Carroll +;; Version: 0.0.1 +;; URL: https://git.wpcarro.dev/wpcarro/briefcase +;; Package-Requires: ((emacs "24.3")) ;;; Commentary: ;; Simple functions for copying and pasting. @@ -23,17 +27,17 @@ ;; Library ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(cl-defun clipboard/copy (x &key (message "[clipboard.el] Copied!")) +(cl-defun clipboard-copy (x &key (message "[clipboard.el] Copied!")) "Copy string, X, to X11's clipboard." (kill-new x) (message message)) -(cl-defun clipboard/paste (&key (message "[clipboard.el] Pasted!")) +(cl-defun clipboard-paste (&key (message "[clipboard.el] Pasted!")) "Paste contents of X11 clipboard." (yank) (message message)) -(defun clipboard/contents () +(defun clipboard-contents () "Return the contents of the clipboard as a string." (substring-no-properties (current-kill 0))) -- cgit 1.4.1