summaryrefslogtreecommitdiff
path: root/local/packages/emacs.scm
blob: 9d23460e69a887b4464e0e6724e50af215b7b87a (about) (plain)
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
(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 "80a5aa81b7102d27f83e67fb361388a2c80dbc88"))
    (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
           "0avqg4abv7fngwn4vpphf8p6dvasglllrdibhv7rdswg11dpbs22"))))
      (build-system emacs-build-system)
      (arguments
       '(#:phases
         (modify-phases %standard-phases
           (add-after 'unpack 'patch-paths
             (lambda _
               (substitute* "emacs-anywhere"
                 (("@XDOTOOL_BIN@") (which "xdotool")))
               (substitute* "anywhere-mode.el"
                   (("@XCLIP_BIN@") (which "xclip")))))
           (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)
         ("xclip" ,xclip)))
      (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 "c6d2fd3d62bbfffdfee91c8dbea7d15b05d9db68")
        (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
           "1dig4sfqc7nf54c9ag44kb9g5mir1bxgi6knrhnxwb73w5anshyv"))))
      (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 "8d976f632859dcab79b434f0051e6642d0ed8713"))
    (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
           "1fs6afkvz59m8rg346qmmd3j1jyxp75wkamfn4m1d3pqmbh74vgl")))))))

(define-public emacs-hydra-timestamp
  (let ((commit "49b029193be57eafe542247e42b28a86fd34cdab"))
    (package
      (name "emacs-hydra-timestamp")
      (version (string-append "0.1" "-" (string-take commit 7)))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "git://git.magnolia.local/emacs-hydra-timestamp")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32
           "0pyqsmz3144c6avy075bxddv7czwar9g0rzzgm62saxywfwxjxm8"))))
      (build-system emacs-build-system)
      (synopsis "Insert timestamps with Emacs Hydra")
      (description
       "This package provides an Emacs Hydra for inserting timestamps.")
      (home-page #f)
      (license license:gpl3+))))