Nondv

;; I often find myself simply jumping around the code to read it.
;; However, it's a bit daunting to keep the Ctrl pressed.
;; I don't like vim but I'd like some simple one button navigation
;;
;; For a while, I used god-mode for that but its purpose is quite different
;; which sometimes caused some weird behaviour when I had it enabled. 
;; Plus, some shortcuts simply aren't improved by this (e.g. C-M-f).
;; So I decided to write my own minor mode specifically for navigation *I*
;; need.
;;

Nondv

(comment
  ;; To run code from the file:
  (stupid-eval
    '()
    (read-string (slurp "code.lisp")))
)

(declare stupid-eval)

(defn third [lst]

Nondv

# frozen_string_literal: true

require_relative 'app'

# or any callable object e.g. a lambda
run Sinatra::Application

Nondv

require 'rspec/autorun'

RSpec.describe 'Multiple changes' do
  subject do
    proc do
      a << 123
      a << 456
      b[:key] = 789
    end
  end

Nondv

AllCops:
  DisplayStyleGuide: true
  ExtraDetails: true
  UseCache: false
  Exclude:
    # These files are generated automaticaly
    - 'bin/**/*'
    - "db/schema.rb"

# I think 80 is kinda obsolete. Nowdays we can easily read 120+ chars

Nondv

module CreatedAtScopes
  extend ActiveSupport::Concern

  # Lambda does not pollute a class namespace but do the job.
  tz_time_today = -> { Time.zone.now.beginning_of_day }
  included do
    scope :created_before, ->(time) { where(arel_table[:created_at].lt(time)) }
    scope :created_after, ->(time) { where(arel_table[:created_at].gt(time)) }
    scope :created_today, -> { created_after(tz_time_today[]) }
    scope :created_yesterday, -> { created_after(tz_time_today[] - 1.day).created_before(tz_time_today[]) }

Nondv

proto = '(https?://)'
domain = '([\w\-\.]+\w)'
path = '((/[\w\-]*)+)'
format = '(\.\w*)'
params = '(\?[^\n]*)' # whatever except \n

re = Regexp.new("\\A#{proto}#{domain}(#{path}#{format}?)?#{params}?\\z")
# ==> /\A(https?:\/\/)([\w\-\.]+\w)(((\/[\w\-]*)+)(\.\w*)?)?(\?[^\n]*)?\z/

Nondv

; Write a function which can rotate a sequence in either direction.
;
; (= (__ 2 [1 2 3 4 5]) '(3 4 5 1 2))
; (= (__ -2 [1 2 3 4 5]) '(4 5 1 2 3))
; (= (__ 6 [1 2 3 4 5]) '(2 3 4 5 1))
; (= (__ 1 '(:a :b :c)) '(:b :c :a))
; (= (__ -4 '(:a :b :c)) '(:c :a :b))
; (= (__ -4 '(:a :b :c)) '(:c :a :b))

#(let [r (mod %1 (count %2))] (flatten [(drop r %2) (take r %2)]))