local/packages/emacs.scm


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

(define-module (local packages emacs)
  #:use-module (ice-9 popen)
  #:use-module (ice-9 rdelim)
  #:use-module (guix build utils)
  #:use-module (guix gexp)
  #:use-module (guix git-download)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages texinfo)
  #:use-module (gnu packages xdisorg)
  #:use-module (wigust packages emacs)
  #:use-module (guix build-system emacs)
  #:use-module ((guix licenses) #:prefix license:))

(define-public emacs-anywhere-mode
  (let ((commit "b11d305325ea6c366d56b0928d84b96fca6d1c26"))
    (package
      (name "emacs-anywhere-mode")
      (version (git-version "0.1" "1" commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "git://git.magnolia.local/emacs-anywhere-mode")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32
           "0fpv1vys6syyxrh4kz0sqynh46cyf375qw1k5k5j5nr29shi9si0"))))
      (build-system emacs-build-system)
      (arguments
       '(#:phases
         (modify-phases %standard-phases
           (add-after 'unpack 'patch-paths
             (lambda _
               (substitute* "emacs-anywhere"
                 (("@XDOTOOL_BIN@") (which "xdotool")))))
           (add-before 'install 'install-shell-script
             (lambda* (#:key outputs #:allow-other-keys)
               (install-file "emacs-anywhere"
                             (string-append (assoc-ref outputs "out")
                                            "/bin")))))))
      (inputs
       `(("xdotool" ,xdotool)))
      (synopsis "Emacs Anywhere mode")
      (description "This package provides an Emacs minor-mode for
capturing user input and paste it with @kbd{C-v} after exit.")
      (home-page #f)
      (license license:gpl3+))))

(define-public emacs-redshift
  (let ((commit "303f58cf65fb6c7701b587cdd048ca785019ebd0"))
    (package
      (name "emacs-redshift")
      (version (git-version "0.0.1" "1" commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "git://git.magnolia.local/emacs-redshift")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32
           "112l3hr9vckna8l38x4wi8sdq0mfv3hh4ip10vlz0q78kgkf9q0m"))))
      (build-system emacs-build-system)
      (home-page "https://github.com/wigust/emacs-redshift")
      (synopsis "Emacs interface to Redshift")
      (description
       "This package provides an Emacs interface to Redshift")
      (license license:gpl3+))))

(define-public emacs-guix-local-checkout
  (let ((commit "2b37bf20e52acf8d3f7f2960748f1c2649da3b95")
        (revision "1"))
    (package
      (inherit emacs-guix)
      (name "emacs-guix-checkout")
      (version (git-version (package-version emacs-guix) "1" commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "git://git.magnolia.local/emacs-guix")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32
           "13fjk4rhiidss47csaj68x19jms0gga92g4b915glw7yc80pb3h5"))))
      (arguments
       `(#:phases
         (modify-phases %standard-phases
           (add-after 'unpack 'autogen
             (lambda _ (zero? (system* "sh" "autogen.sh")))))
         ,@(substitute-keyword-arguments (package-arguments emacs-guix)
             ((#:configure-flags flags)
              `(cons (string-append "--with-editindirect-lispdir="
                                    (assoc-ref %build-inputs "emacs-edit-indirect")
                                    "/share/emacs/site-lisp/guix.d/edit-indirect-"
                                    ,(package-version emacs-edit-indirect))
                     ,flags)))))
      (native-inputs
       `(("emacs-edit-indirect" ,emacs-edit-indirect)
         ("autoconf" ,autoconf)
         ("automake" ,automake)
         ("texinfo" ,texinfo)
         ,@(package-native-inputs emacs-guix))))))

(define-public emacs-terminal-here-checkout
  (let ((commit "918b3894baaa475e30d86b389ddca73a5ea58638"))
    (package
      (inherit emacs-terminal-here)
      (name "emacs-terminal-here-checkout")
      (version (git-version "1.0" "1" commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "git://git.magnolia.local/emacs-terminal-here")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32
           "1i6b7gma6zqyj2hmqwvw8khq0fbf52qjypv269rrs10hg0zzk81h")))))))