bug#34216: Shroud require xclip for x clipboard

bug#34216: Shroud require xclip for x clipboard

[Amar Singh]

I've added xclip as a propagated input for shroud as otherwise `shroud
show --clipboard` functionality didn't work, neither primary or
secondary clipboard.

xclip is about 102 MiB in size, out of which a little more than 60% is
glibc and gcc.

I am not sure if this is the best idea though.

bug#34216: Shroud require xclip for x clipboard

[Efraim Flashner]

[-- Attachment #1: Type: text/plain, Size: 5497 bytes --]

On Sun, Jan 27, 2019 at 03:47:43PM +0530, Amar Singh wrote:
> I've added xclip as a propagated input for shroud as otherwise `shroud
> show --clipboard` functionality didn't work, neither primary or
> secondary clipboard.
> 
> xclip is about 102 MiB in size, out of which a little more than 60% is
> glibc and gcc.
> 
> I am not sure if this is the best idea though.
> 

$ ./pre-inst-env guix size shroud
store item                                                       total    self
/gnu/store/9alic3caqhay3h8mx4iihpmyj6ymqpcx-guile-2.2.4            121.9    44.4  16.7%
/gnu/store/47mrg60wyx6qxj55l9slyl7j4jp3sxgz-icu4c-62.1             105.4    36.4  13.7%
/gnu/store/h90vnqw0nwd0hhm1l5dgxsdrigddfmq4-glibc-2.28              37.8    36.3  13.6%
/gnu/store/4sqps8dczv3g7rwbdibfz6rf5jlk7w90-gcc-5.5.0-lib           68.0    30.2  11.3%
/gnu/store/z5pbvw5zrhq8jgg8c4wkywg8psc0km3c-eudev-3.2.5            104.1    14.6   5.5%
/gnu/store/8k4pnixpz73kxvxbjqajgbprjjmmgpxy-util-linux-2.32.1       88.0    12.8   4.8%
/gnu/store/1fl9vk8fpafkws4qyy25vcdfpybxyh1k-guile-2.0.14            90.1    12.6   4.7%
/gnu/store/w862nkwzvv2m3ng5lg5zlic1i962g416-gnupg-2.2.12           238.8    10.1   3.8%
/gnu/store/yl1vi61qmvvh83amwiwaik7s7jc03n5z-openssl-1.0.2p          74.1     6.1   2.3%
/gnu/store/4h03mp5nggsblscs6j0n7s6sbpfy6kxh-ncurses-6.1              5.9     5.9   2.2%
/gnu/store/hnj08aavzpsi72wvi4qqrp5dqbyqxqqs-libxcb-1.13             74.5     5.6   2.1%
/gnu/store/8baabfjazsr7s4y0jig1sn84xnxf75xa-libx11-1.6.6            79.5     5.0   1.9%
/gnu/store/z0g1wsiw2n5d1hspbj7xkhj6vnc2qlvp-gnutls-3.5.18          128.3     4.5   1.7%
/gnu/store/vmmbzvpmnb0m5rqdhy207a3y8vrrzfvq-bdb-5.3.28              72.4     4.4   1.7%
/gnu/store/1xnvamrhmlhkqsnaj3z32kz3hgn3w7yz-mit-krb5-1.16.1         73.1     4.2   1.6%
/gnu/store/pba3xzrkq2k4wgh3arif4xpkblr5qz2n-sqlite-3.24.0           79.4     4.2   1.6%
/gnu/store/bc0ay3sk7aciykqag4qjbcsl3a03n0yz-openldap-2.4.46        184.6     3.7   1.4%
/gnu/store/mrzq0vrb7h5dzvp18qrzky0az712rcvr-gmp-6.1.2               70.7     2.7   1.0%
/gnu/store/hdwl1lwx0w6s1lmllla9w6yzxblwdp1g-libunistring-0.9.10     70.3     2.4   0.9%
/gnu/store/zzakf905mzla4csi1dn9qpcwmgbxj29b-bash-static-4.4.23       1.5     1.5   0.6%
/gnu/store/87fdwmippyfs01870x5hq7v2lcyfczpi-libgcrypt-1.8.3         71.4     1.5   0.6%
/gnu/store/l98sjns683w5h7yma20as3ybmzn7qrzy-libxt-1.1.5            101.6     1.4   0.5%
/gnu/store/si88gb25621k0w60kij5lxksn8l24664-readline-7.0.5          75.2     1.3   0.5%
/gnu/store/xyiyf12w4i7zf5g5b4ah0bi1mmd6i8xa-pkg-config-0.29.2       69.3     1.3   0.5%
/gnu/store/04vqghzmpqzxpd94h1q931xpmazp5s7g-libgc-7.6.6             69.9     1.2   0.5%
/gnu/store/9425b5dwpfc04bb4p58hsjypxghliyr3-xz-5.2.4                70.2     1.2   0.4%
/gnu/store/q19l04vd2za80mk1845pz7r8cz29qk43-bash-minimal-4.4.23     38.8     1.0   0.4%
/gnu/store/p6pmv0r9q3cs172q9xjv87avsix26ddc-libgpg-error-1.32       69.9     0.9   0.4%
/gnu/store/cnxzmpgnm32bbi8qqslx9xni18c122a6-nettle-3.4              71.6     0.9   0.3%
/gnu/store/lmzz56h1xll5kbppm5c3b6b4ihvswj26-cyrus-sasl-2.1.26       80.8     0.9   0.3%
/gnu/store/ly9h8d8ychiqj5i8wl14cbmfvk6k2fyn-gdbm-1.18               68.7     0.7   0.3%
/gnu/store/36113mczasb8616f9wyd337k3fkm3506-libatomic-ops-7.6.6      0.7     0.7   0.3%
/gnu/store/6lwn8v33r2z2l2pgky2dnzim3696dwnn-libbsd-0.9.1            68.7     0.7   0.3%
/gnu/store/zzxap7da8d8hjafcnv5330milpr1nj3a-libxmu-1.1.2           102.7     0.6   0.2%
/gnu/store/nlppb4wbapi33g5vdg7x0vp40qzly71p-libice-1.0.9            69.2     0.5   0.2%
/gnu/store/2dk55i5wdhcbh2z8hhn3r55x4873iyp1-libxext-1.3.3           79.9     0.4   0.2%
/gnu/store/pyj39jis185kak73rhgn69mkbd8023sy-libidn2-2.0.5           70.8     0.4   0.2%
/gnu/store/j74aabxwayjl9yfyrm6ni482gykxq48b-bzip2-1.0.6             69.4     0.4   0.2%
/gnu/store/nalqb8wz16srmrcl9qpyh1gaysxralyk-libksba-1.3.5           70.3     0.4   0.1%
/gnu/store/6mzgcp8d965jqy6rb11cal2aawqx6rl3-pcsc-lite-1.8.24       104.5     0.3   0.1%
/gnu/store/c22y67wp1s9jrs26mp2jdw93c7gw3zvp-kmod-25                 70.8     0.3   0.1%
/gnu/store/3xxqwm7axbih9n2m7yaimacznp04d5rw-libsm-1.2.2             89.5     0.3   0.1%
/gnu/store/lm3i15cvw4ybsnf2lsam5nj76kqbjg2k-libtasn1-4.13           68.3     0.3   0.1%
/gnu/store/nq4lsyipmfb0q7g26ra45rwwqrh3x8zw-zlib-1.2.11             68.2     0.2   0.1%
/gnu/store/2d0nciylmcw66nqjfr55hnh85l5fqjfs-libassuan-2.5.2         70.2     0.2   0.1%
/gnu/store/3vlscch2sxybd34qx2ianpg92crm9akm-libxdmcp-1.1.2          68.8     0.2   0.1%
/gnu/store/zk7047byh5yk7qsi8shbnqlz64qsiy8x-libltdl-2.4.6           68.1     0.2   0.1%
/gnu/store/vd35w7c44njixcagxqyqpd81frc3ngpz-libffi-3.2.1            68.1     0.1   0.1%
/gnu/store/9fxvdv33gq5kh3kpi09zc71d9bsj101s-shroud-0.1.1           266.2     0.1   0.0%
/gnu/store/4hjgv0rif8kqmv6mqc8f1igygiz3w2r1-npth-1.5                69.1     0.1   0.0%
/gnu/store/agz9m74v7235h30mc3bdmj2nmyxqga4c-xclip-0.13             102.7     0.1   0.0%
/gnu/store/mawqhgh0bdxpa4gjxs1fjyhwvv6i8w5g-libxau-1.0.8            68.0     0.0   0.0%
total: 266.2 MiB

Looks like xclip is already in the closure of shroud, so maybe we should
just patch the reference to it so shroud can always find xclip.

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]

bug#34216: Shroud require xclip for x clipboard

[nly]

> /gnu/store/w862nkwzvv2m3ng5lg5zlic1i962g416-gnupg-2.2.12           238.8    10.1   3.8%
> /gnu/store/agz9m74v7235h30mc3bdmj2nmyxqga4c-xclip-0.13             102.7     0.1   0.0%
> Looks like xclip is already in the closure of shroud,

I see, thanks.

> patch the reference to it so shroud can always find xclip.

How? 

Snippet from (shroud utils):

;; Instance of use of xclip
(define (call-with-clipboard proc)
  "Call PROC with an open output port to the X clipboard."
  (call-with-output-pipe* (list %xclip "-selection" "clipboard") proc))

;; Use of gpg
(define (call-with-encrypted-output-file file user-id proc)
  "Apply PROC with an output port that writes encrypted data to FILE
for the recipient USER-ID."
  (call-with-output-pipe* `(,(gpg-binary)
                            "--no-tty" "--batch" "--yes"
                            "--encrypt" "--armor"
                            "--recipient" ,user-id
                            "--output" ,file)
    proc))

Thanks,
amar

bug#34216: Shroud require xclip for x clipboard

[Efraim Flashner]

[-- Attachment #1: Type: text/plain, Size: 1607 bytes --]

On Sun, Jan 27, 2019 at 04:23:52PM +0530, nly wrote:
> 
> 
> > /gnu/store/w862nkwzvv2m3ng5lg5zlic1i962g416-gnupg-2.2.12           238.8    10.1   3.8%
> > /gnu/store/agz9m74v7235h30mc3bdmj2nmyxqga4c-xclip-0.13             102.7     0.1   0.0%
> > Looks like xclip is already in the closure of shroud,
> 
> I see, thanks.
> 
> > patch the reference to it so shroud can always find xclip.
> 
> How? 
> 
> Snippet from (shroud utils):
> 
> ;; Instance of use of xclip
> (define (call-with-clipboard proc)
>   "Call PROC with an open output port to the X clipboard."
>   (call-with-output-pipe* (list %xclip "-selection" "clipboard") proc))
> 
> ;; Use of gpg
> (define (call-with-encrypted-output-file file user-id proc)
>   "Apply PROC with an output port that writes encrypted data to FILE
> for the recipient USER-ID."
>   (call-with-output-pipe* `(,(gpg-binary)
>                             "--no-tty" "--batch" "--yes"
>                             "--encrypt" "--armor"
>                             "--recipient" ,user-id
>                             "--output" ,file)
>     proc))
> 
> Thanks,
> amar

I also looked at the code and it looks like there's already substitution
in place to record the locations of xclip and gpg. Perhaps you're trying
to paste from the wrong clipboard? "clipboard" indicates that "Control + V"
should work for pasting.

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]