semperos

(defn digits
  "Generate a list of digits contained in the number"
  [number]
  (loop [found-digits '() base (quot number 10) digit (rem number 10)]
    (let [found-digits (conj found-digits (if (neg? digit) (- digit) digit))]
      (if (zero? base)
        found-digits
        (recur found-digits (quot base 10) (rem base 10))))))

(defn divisible-digits

orderthruchaos

if ! Enum.member?(:erlang.loaded, IEx.UserDrv.Config) do
  defmodule IEx.UserDrv.Config do
    import Process, only: [group_leader: 0]

    @moduledoc """
    Structure to hold :user_drv configuration information.
    """

    defstruct node: Node.self, pid: nil, port: nil, leader: group_leader

glv

# This sets up fish so that, if you type a command that should be
# run using Bundler, it first automatically prepends "bundle exec"
# to the command line buffer before executing it. Works for all
# commands found in the "bin" directory of the current bundle.
#
# To override this behavior and run such a command without Bundler,
# prefix with "command" (e.g., `command rake -T`)
#
# Pros (vs binstubs or aliases):
# * automatically adjusts to bundle changes

bazzargh

! Block friends favourited tweets
twitter.com##.tweet-has-context:not([data-retweeter])
! fake activity
twitter.com##li[data-component-context="generic_activity"]

! since you were away
twitter.com##.TimelineTweetsModule

! don't care what's trending
twitter.com##.trends.Trends.module

JoeyBurzynski

58 bytes of CSS to look great nearly everywhere

When making this website, i wanted a simple, reasonable way to make it look good on most displays. Not counting any minimization techniques, the following 58 bytes worked well for me:

main {
  max-width: 38rem;
  padding: 2rem;
  margin: auto;
}

cgrand

;; (cond-let 
;;   (odd? x) [x n] (inc x)  
;;   (< n 10) [y (inc n)] 10
;;   :else n))

;; we want the above to yield
;; (let [x n]
;;   (if (odd? x)
;;      (inc x)