blob: 01ed5472bd03b4cbf4071fd65efbb55dfe30705f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
;;; clipmenu.el --- Emacs client for clipmenu -*- lexical-binding: t -*-
;; Author: William Carroll <wpcarro@gmail.com>
;;; Commentary:
;; Ivy integration with the excellent program, clipmenu.
;;
;; clipmenu is a simple clipboard manager xsel. Usually clipmenu integrates with
;; dmenu. This Emacs module integrates with ivy. Launch this when you want to
;; select a clip.
;;
;; The following environment variables allow you to customize clipmenu's
;; behavior:
;;
;; - CM_DIR: specify the base directory to store the cache dir in
;; (default: $XDG_RUNTIME_DIR, $TMPDIR, or /tmp)
;; - CM_HISTLENGTH: specify the number of lines to show in ivy. (default: 8)
;;
;; Other variables for customizing clipmenu are defined herein.
;;
;; For more information, see `clipmenu --help`.
;;; Code:
;; TODO: Support an ivy action of deleting an entry from clipmenu.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'f)
(require 's)
(require 'dash)
(prelude/assert
(prelude/executable-exists? "clipmenud"))
(prelude/assert
(prelude/executable-exists? "clipmenu"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TODO: Remove this if you're publishing it.
(defcustom clipmenu/install-kbds? t
"When t, install the keybindings defined herein")
(defcustom clipmenu/directory
(or (getenv "XDG_RUNTIME_DIR")
(getenv "TMPDIR")
"/tmp")
"Base directory for clipmenu data.")
(defconst clipmenu/major-version 5
"The major version number for clipmenu.")
(defconst clipmenu/cache-directory
(f-join clipmenu/directory
(format "clipmenu.%s.%s"
clipmenu/major-version
(getenv "USER")))
"Directory where the clips are stored.")
(defconst clipmenu/cache-file-pattern
(f-join clipmenu/cache-directory "line_cache_*")
"Glob pattern matching the locations on disk for clipmenu's labels.")
(defcustom clipmenu/history-length
(or (getenv "CM_HISTLENGTH") 20)
"Limit the number of clips in the history.
This value defaults to 20.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TODO: Ensure the clips are sorted in a LRU order.
;; TODO: Ensure entries are deduped.
;; TODO: Ensure multiline entries can be handled.
(defun clipmenu/list-clips ()
"Return a list of the content of all of the clips."
(->> clipmenu/cache-file-pattern
f-glob
(-map (lambda (path)
(->> path f-read (s-split "\n"))))
-flatten
(-sort (lambda (a b)
(> (->> a (s-split " ") (nth 0) string-to-number)
(->> b (s-split " ") (nth 0) string-to-number))))
(-map (lambda (entry)
(->> entry (s-split " ") (nth 1))))
;; TODO: Here we should actually only be deleting adjacent
;; duplicates. This will be both faster and more similar to the behavior
;; of the clipmenu program the author wrote.
delete-dups
(-take clipmenu/history-length)))
;; TODO: Add tests.
(defun clipmenu/escape-quotes (x)
"Escape double and single quotes in X."
(->> x
(s-replace "\"" "\\\"")
(s-replace "'" "\\'")))
;; TODO: Properly handle errors when the file doesn't exist.
(defun clipmenu/line-to-clip (line)
"Map the chosen LINE to a clip stored on disk."
(->> line
clipmenu/cksum
(f-join clipmenu/cache-directory)
f-read
clipboard/copy))
;; TODO: Consider supporting :history keyword.
;; TODO: Ensure ivy maintains the sort from `clipmenu/list-clips'.
;; TODO: Ensure you can handle special characters like:
;; r}_rh,pmj~kCR.<5w"PUk#Z^>.
;; TODO: Consider adding tests.
(defun clipmenu/ivy-copy ()
"Use `ivy-read' to select and copy a clip."
(interactive)
(ivy-read "Clipmenu: "
(clipmenu/list-clips)
:action #'clipmenu/line-to-clip))
;; TODO: Delete this once `clipmenu/ivy-copy' is working as expected.
;; TODO: Use this to compare behavior with `clipmenu/ivy-copy'. These functions
;; should behave in almost exactly the same way.
(defun clipmenu/dmenu-copy ()
"Call clipmenu with dmenu as the client."
(interactive)
(prelude/start-process
:name "clipboard/select"
:command "clipmenu"))
;; TODO: Write a faster alternative because this currently takes 1/2s to run,
;; which is ridiculous. Perhaps `call-process' is what we need.
(defun clipmenu/cksum (content)
"Return the CRC checksum of CONTENT."
(->> (shell-command-to-string
(format "zsh -c 'cksum <<<\"%s\"'"
;; TODO: I'm not sure this is working as intended.
(clipmenu/escape-quotes content)))
s-trim-right))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keybindings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(when clipmenu/install-kbds?
;; TODO: Delete this once `clipmenu/ivy-copy' is working as expected.
(exwm-input-set-key
(kbd "C-M-S-v") #'clipmenu/dmenu-copy)
(exwm-input-set-key
(kbd "C-M-v") #'clipmenu/ivy-copy))
(provide 'clipmenu)
;;; clipmenu.el ends here
|
