;;; 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)
  #: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)))

(define-public ruby-rails-dom-testing
  (package
   (name "ruby-rails-dom-testing")
   (version "2.0.2")
   (source
    (origin
      (method url-fetch)
      ;; The gem does not include a Rakefile, so we fetch the tarball from
      ;; Github.
      (uri (string-append "https://github.com/rails/rails-dom-testing/archive/v"
                          version ".tar.gz"))
      (file-name (string-append name "-" version ".tar.gz"))
      (sha256
       (base32
        "1bjc0mm4hc2xrq0066q7kbgzzmdn1vdnsv08xwy90vf2b6x70lxf"))))
   (build-system ruby-build-system)
   (native-inputs
    `(("bundler" ,bundler)))
   (propagated-inputs
    `(("ruby-activesupport" ,ruby-activesupport)
      ("ruby-nokogiri" ,ruby-nokogiri)))
   (synopsis
    " This gem can compare doms and assert certain elements exists in doms using Nokogiri. ")
   (description
    " This gem can compare doms and assert certain elements exists in doms using Nokogiri. ")
   (home-page
    "https://github.com/rails/rails-dom-testing")
   (license license:expat)))

(define-public ruby-rails-html-sanitizer
  (package
   (name "ruby-rails-html-sanitizer")
   (version "1.0.3")
   (source
    (origin
     (method url-fetch)
     (uri (rubygems-uri "rails-html-sanitizer" version))
     (sha256
      (base32
       "138fd86kv073zqfx0xifm646w6bgw2lr8snk16lknrrfrss8xnm7"))))
   (build-system ruby-build-system)
   (arguments
     `(#:tests? #f)) ; tests not included
   (propagated-inputs
    `(("ruby-loofah" ,ruby-loofah)))
   (synopsis
    "HTML sanitization for Rails applications")
   (description
    "HTML sanitization for Rails applications")
   (home-page
    "https://github.com/rails/rails-html-sanitizer")
   (license license:expat)))

(define-public ruby-sass-rails
  (package
    (name "ruby-sass-rails")
    (version "5.0.6")
    (source
     (origin
       (method url-fetch)
       (uri (rubygems-uri "sass-rails" version))
       (sha256
        (base32
         "0iji20hb8crncz14piss1b29bfb6l89sz3ai5fny3iw39vnxkdcb"))))
    (build-system ruby-build-system)
    (arguments
     `(#:tests? #f)) ; No tests are included in gem.
    (propagated-inputs
     `(("ruby-railties" ,ruby-railties)
       ("ruby-sass" ,ruby-sass)
       ("ruby-sprockets" ,ruby-sprockets)
       ("ruby-sprockets-rails" ,ruby-sprockets-rails)
       ("ruby-tilt" ,ruby-tilt)))
    (synopsis
     "Sass adapter for the Rails asset pipeline.")
    (description
     "Sass adapter for the Rails asset pipeline.")
    (home-page "https://github.com/rails/sass-rails")
    (license license:expat)))

(define-public ruby-coffee-rails
  (package
    (name "ruby-coffee-rails")
    (version "4.2.1")
    (source
     (origin
       (method url-fetch)
       ;; Tests are not distributed at rubygems.org so download from GitHub
       ;; instead.
       (uri (string-append "https://github.com/rails/coffee-rails/archive/v"
                           version ".tar.gz"))
       (file-name (string-append name "-" version ".tar.gz"))
       (sha256
        (base32
         "0a7cac67n1ndky3n8b1vdrdq67cahq6sn76saiw5xgzd296b3zjy"))
       (patches (search-patches "ruby-coffee-rails-fix-rakefile.patch"))))
    (build-system ruby-build-system)
    (arguments
     `(#:tests? #f)) ; Tests require rails, disable to precent circular dependency.
    (propagated-inputs
     `(("ruby-coffee-script" ,ruby-coffee-script)
       ("ruby-railties" ,ruby-railties)))
    (synopsis
     "CoffeeScript adapter for the Rails asset pipeline.")
    (description
     "CoffeeScript adapter for the Rails asset pipeline.")
    (home-page
     "https://github.com/rails/coffee-rails")
    (license license:expat)))

(define-public ruby-jquery-rails
  (package
    (name "ruby-jquery-rails")
    (version "4.3.1")
    (source
     (origin
       (method url-fetch)
       (uri (rubygems-uri "jquery-rails" version))
       (sha256
        (base32
         "02ii77vwxc49f2lrkbdzww2168bp5nihwzakc9mqyrsbw394w7ki"))))
    (build-system ruby-build-system)
    (arguments
     '(#:tests? #f))
    (native-inputs
     `(("bundler" ,bundler)))
    (propagated-inputs
     `(("ruby-rails-dom-testing"
        ,ruby-rails-dom-testing)
       ("ruby-railties" ,ruby-railties)
       ("ruby-thor" ,ruby-thor)))
    (synopsis
     "This gem provides jQuery and the jQuery-ujs driver for your Rails 4+ application.")
    (description
     "This gem provides jQuery and the jQuery-ujs driver for your Rails 4+ application.")
    (home-page
     "http://rubygems.org/gems/jquery-rails")
    (license license:expat)))

(define-public ruby-web-console
  (package
    (name "ruby-web-console")
    (version "3.3.1")
    (source
     (origin
       (method url-fetch)
       ;; Download from GitHub as test files are not provided in the gem.
       (uri (string-append "https://github.com/rails/web-console/archive/v"
                           version ".tar.gz"))
       (file-name (string-append name "-" version ".tar.gz"))
       (sha256
        (base32
         "1gmymwvgwqjv4gmg2vb0abm6flwax9sg73wmh6yb7m818pn2lz3n"))))
    (build-system ruby-build-system)
    (arguments
     `(#:tests? #f)) ; Do not test to prevent dependency cycle with rails.
    ;; (arguments
    ;;  `(#:phases
    ;;    (modify-phases %standard-phases
    ;; (add-before 'check 'setenv
    ;;                    (lambda _
    ;;                      (setenv "RUBYLIB" "lib")
    ;;                      ;; (substitute* "Rakefile"
    ;;                      ;;   (("require 'web_console") ; This is not required for
    ;;                      ;;                  ; travis, so hmm.
    ;;                      ;;    "require 'pathname'; require 'uri'; require 'web_console"))
    ;;                      #t)))))
    ;; (native-inputs
    ;;  `(("bundler" ,bundler)))
    (propagated-inputs
     `(("ruby-actionview" ,ruby-actionview)
       ("ruby-activemodel" ,ruby-activemodel)
       ("ruby-debug-inspector" ,ruby-debug-inspector)
       ("ruby-railties" ,ruby-railties)))
    (synopsis
     "A debugging tool for your Ruby on Rails applications.")
    (description
     "This package provides a debugging tool for your Ruby on Rails applications.")
    (home-page
     "https://github.com/rails/web-console")
    (license license:expat)))