;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Matthew Jordan <matthewjordandevops@yandex.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages rails)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module (gnu packages ruby)
  #:use-module (guix build-system ruby))

(define-public ruby-spring
  (package
    (name "ruby-spring")
    (version "1.7.2")
    (source
     (origin
       (method url-fetch)
       (uri
        (string-append "https://github.com/rails/spring/archive/v"
                           version ".tar.gz"))
       (file-name (string-append name "-" version ".tar.gz"))
       (sha256
        (base32
         "1dd58y0cpsm2izj74yscn0ybfygmgcbbfdw1891g7cq41aai4b35"))))
    (build-system ruby-build-system)
    (arguments
     `(#:test-target "test:unit"
       #:phases
       (modify-phases %standard-phases
         (add-before 'check 'remove-bump
           (lambda _
             (substitute* "spring.gemspec"
               (("gem.add_development_dependency 'bump'") "")
               (("gem.add_development_dependency 'activesupport'.*")
                "gem.add_development_dependency 'activesupport'\n"))
             (substitute* "Rakefile"
               (("require \\\"bump/tasks\\\"") ""))
             #t)))))
    (native-inputs
     `(("bundler" ,bundler)
       ("ruby-activesupport" ,ruby-activesupport)))
    (synopsis "Ruby on Rails application preloader")
    (description
     "Spring is a Ruby on Rails application preloader.  It speeds up
development by keeping your application running in the background so the
application does need to boot it every time you run a test, rake task or
migration.")
    (home-page "https://github.com/rails/spring")
    (license license:expat)))

(define-public ruby-debug-inspector
  (package
    (name "ruby-debug-inspector")
    (version "0.0.3")
    (source
     (origin
       (method url-fetch)
       (uri (rubygems-uri "debug_inspector" version))
       (sha256
        (base32
         "0vxr0xa1mfbkfcrn71n7c4f2dj7la5hvphn904vh20j3x4j5lrx0"))))
    (build-system ruby-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (replace 'check
           (lambda _
             (and
              (zero? (system* "rake" "compile"))
              (zero?
               (system*
                "ruby" "-Ilib" "-e"
                (string-append
                 "require 'debug_inspector'; RubyVM::DebugInspector."
                 "open{|dc| p dc.backtrace_locations}")))))))))
    (synopsis "Ruby wrapper for the MRI 2.0 debug_inspector API")
    (description
     "This package provides a Ruby wrapper for the MRI 2.0 debug_inspector
API.")
    (home-page
     "https://github.com/banister/debug_inspector")
    (license license:expat)))

(define-public ruby-actioncable
  (package
   (name "ruby-actioncable")
   (version "5.1.4")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "actioncable" version))
     (sha256
      (base32
       "05k9slwr3bjc6n564l9qr5b22ss2ig5sf1k3rf4fx8kacgsnina7"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f)) ; tests not included
   (propagated-inputs
    `(("ruby-actionpack" ,ruby-actionpack)
      ("ruby-nio4r" ,ruby-nio4r)
      ("ruby-websocket-driver" ,ruby-websocket-driver)))
   (synopsis
    "Structure many real-time application concerns into channels over a single WebSocket connection.")
   (description
    "Structure many real-time application concerns into channels over a single WebSocket connection.")
   (home-page "http://rubyonrails.org")
   (license license:expat)))

(define-public ruby-actionmailer
  (package
   (name "ruby-actionmailer")
   (version "5.1.4")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "actionmailer" version))
     (sha256
      (base32
       "1scqqmpbs6f56qs3k4n1m21j2sc9n3b8fs00rh1zi16j1f2rirss"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f)) ; tests not included
   (propagated-inputs
    `(("ruby-actionpack" ,ruby-actionpack)
      ("ruby-actionview" ,ruby-actionview)
      ("ruby-activejob" ,ruby-activejob)
      ("ruby-mail" ,ruby-mail)
      ("ruby-rails-dom-testing"
       ,ruby-rails-dom-testing)))
   (synopsis
    "Email on Rails. Compose, deliver, receive, and test emails using the familiar controller/view pattern. First-class support for multipart email and attachments.")
   (description
    "Email on Rails.  Compose, deliver, receive, and test emails using the familiar controller/view pattern.  First-class support for multipart email and attachments.")
   (home-page "http://www.rubyonrails.org")
   (license license:expat)))

(define-public ruby-actionpack
  (package
   (name "ruby-actionpack")
   (version "5.1.4")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "actionpack" version))
     (sha256
      (base32
       "1ip4al2k6q814i7m1ydank9jdl2k8ckmrg1bjffz28qr0m3ygl7m"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f)) ; tests not included
   (propagated-inputs
    `(("ruby-actionview" ,ruby-actionview)
      ("ruby-activesupport" ,ruby-activesupport)
      ("ruby-rack" ,ruby-rack)
      ("ruby-rack-test" ,ruby-rack-test)
      ("ruby-rails-dom-testing"
       ,ruby-rails-dom-testing)
      ("ruby-rails-html-sanitizer"
       ,ruby-rails-html-sanitizer)))
   (synopsis
    "Web apps on Rails. Simple, battle-tested conventions for building and testing MVC web applications. Works with any Rack-compatible server.")
   (description
    "Web apps on Rails.  Simple, battle-tested conventions for building and testing MVC web applications.  Works with any Rack-compatible server.")
   (home-page "http://www.rubyonrails.org")
   (license license:expat)))

(define-public ruby-actionview
  (package
   (name "ruby-actionview")
   (version "5.0.0")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "actionview" version))
     (sha256
      (base32
       "10f9d1jl945vr0l4sfr8v7rf3lkdbq33f5yvnx36aa2vskz529m1"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f)) ; tests not included
   (propagated-inputs
    `(("ruby-activesupport" ,ruby-activesupport)
      ("ruby-builder" ,ruby-builder)
      ("ruby-erubis" ,ruby-erubis)
      ("ruby-rails-dom-testing"
       ,ruby-rails-dom-testing)
      ("ruby-rails-html-sanitizer"
       ,ruby-rails-html-sanitizer)))
   (synopsis
    "Simple, battle-tested conventions and helpers for building web pages.")
   (description
    "Simple, battle-tested conventions and helpers for building web pages.")
   (home-page "http://www.rubyonrails.org")
   (license license:expat)))

(define-public ruby-activejob
  (package
   (name "ruby-activejob")
   (version "5.1.4")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "activejob" version))
     (sha256
      (base32
       "1jkbrfhhnwww468sw6x64pwcpjskxjnwas2gfzvgg4km9bglz0gp"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f))
   (propagated-inputs
    `(("ruby-activesupport" ,ruby-activesupport)
      ("ruby-globalid" ,ruby-globalid)))
   (synopsis
    "Declare job classes that can be run by a variety of queueing backends.")
   (description
    "Declare job classes that can be run by a variety of queueing backends.")
   (home-page "http://www.rubyonrails.org")
   (license license:expat)))

(define-public ruby-activemodel
  (package
   (name "ruby-activemodel")
   (version "5.1.4")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "activemodel" version))
     (sha256
      (base32
       "0qws28wsgbh4hyx92zjip979xczq7dsblfhplzrxsjg1aj7ss220"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f))
   (propagated-inputs
    `(("ruby-activesupport" ,ruby-activesupport)))
   (synopsis
    "A toolkit for building modeling frameworks like Active Record. Rich support for attributes, callbacks, validations, serialization, internationalization, and testing.")
   (description
    "This package provides a toolkit for building modeling frameworks like Active Record.  Rich support for attributes, callbacks, validations, serialization, internationalization, and testing.")
   (home-page "http://www.rubyonrails.org")
   (license license:expat)))

(define-public ruby-activerecord
  (package
   (name "ruby-activerecord")
   (version "5.1.4")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "activerecord" version))
     (sha256
      (base32
       "0gj1nap7dn8fcx1nvni79zvl034jp6113sjjrr3hq1v2r5s7igl9"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f))
   (propagated-inputs
    `(("ruby-activemodel" ,ruby-activemodel)
      ("ruby-activesupport" ,ruby-activesupport)
      ("ruby-arel" ,ruby-arel)))
   (synopsis
    "Databases on Rails. Build a persistent domain model by mapping database tables to Ruby classes. Strong conventions for associations, validations, aggregations, migrations, and testing come baked-in.")
   (description
    "Databases on Rails.  Build a persistent domain model by mapping database tables to Ruby classes.  Strong conventions for associations, validations, aggregations, migrations, and testing come baked-in.")
   (home-page "http://www.rubyonrails.org")
   (license license:expat)))

(define-public ruby-railties
  (package
   (name "ruby-railties")
   (version "5.1.4")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "railties" version))
     (sha256
      (base32
       "00c0laqxcsa243nv7dzln4x9vyxwvv63lg53b15n63w1nhrg6xz4"))))
   (build-system ruby-build-system)
   (arguments
    `(#:tests? #f)) ; tests not included
   (propagated-inputs
    `(("ruby-actionpack" ,ruby-actionpack)
      ("ruby-activesupport" ,ruby-activesupport)
      ("ruby-method-source" ,ruby-method-source)
      ("ruby-thor" ,ruby-thor)))
   (synopsis
    "Rails internals: application bootup, plugins, generators, and rake tasks.")
   (description
    "Rails internals: application bootup, plugins, generators, and rake tasks.")
   (home-page "http://www.rubyonrails.org")
   (license license:expat)))

(define-public ruby-sprockets-rails
  (package
   (name "ruby-sprockets-rails")
   (version "3.1.1")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "sprockets-rails" version))
     (sha256
      (base32
       "1sak0as7ka964f6zjb1w8hkvfkkbf55kpcyvh7k6nyrb6pqnwmnf"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f)) ; tests not included
   (propagated-inputs
    `(("ruby-actionpack" ,ruby-actionpack)
      ("ruby-activesupport" ,ruby-activesupport)
      ("ruby-sprockets" ,ruby-sprockets)))
   (synopsis "Sprockets Rails integration")
   (description "Sprockets Rails integration")
   (home-page
    "https://github.com/rails/sprockets-rails")
   (license license:expat)))