This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import Music.Prelude.Basic hiding (Interval) | |
import Music.Pitch.Common.Interval (Interval) | |
main :: IO () | |
main = openLilypond . showAnnotations' "" | |
. intervalAnnotations subjectDiff | |
. scat $ map reify subject | |
subject :: [BasicPitch] | |
subject = [c, d, f, e, f, g, a, g, e, d, c] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; packages.el --- cdlatex Layer packages File for Spacemacs | |
;; | |
;; Copyright (c) 2012-2014 Sylvain Benner | |
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors | |
;; | |
;; Author: Sylvain Benner <sylvain.benner@gmail.com> | |
;; URL: https://github.com/syl20bnr/spacemacs | |
;; | |
;; This file is not part of GNU Emacs. | |
;; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ pkgs }: { | |
allowUnfree = true; | |
packageOverrides = super: let self = super.pkgs; in { | |
haskellPackages = super.haskellPackages.override { | |
overrides = self: super: { | |
ghc-mod = self.callPackage /home/meditans/code/haskell/ghc-mod/default.nix {}; | |
cabal-helper = self.callPackage /home/meditans/code/haskell/cabal-helper-0.3.4.0/default.nix {}; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ pkgs }: { | |
allowUnfree = true; | |
packageOverrides = super: let self = super.pkgs; in { | |
haskellPackages = super.haskellPackages.override { | |
overrides = self: super: { | |
mkDerivation = drv: super.mkDerivation (drv // {enableLibraryProfiling = true;}); | |
ghc-mod = self.callPackage /home/meditans/code/haskell/ghc-mod/default.nix {}; | |
cabal-helper = self.callPackage /home/meditans/code/haskell/cabal-helper-0.3.4.0/default.nix {}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import qualified Control.Monad.WeightedSearch as W | |
import Data.List (sortBy) | |
import Data.Ord (comparing) | |
import Control.Applicative | |
data BTree = Leaf | Branch BTree BTree deriving (Show, Eq) | |
-- I can lazily list all the btrees | |
btrees :: W.T Integer BTree | |
btrees = pure Leaf <|> W.weight 1 (Branch <$> btrees <*> btrees) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; -*- mode: emacs-lisp -*- | |
;; This file is loaded by Spacemacs at startup. | |
;; It must be stored in your home directory. | |
(defun dotspacemacs/layers () | |
"Configuration Layers declaration. | |
You should not put any user code in this function besides modifying the variable | |
values." | |
(setq-default | |
;; Base distribution to use. This is a layer contained in the directory |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; -*- mode: emacs-lisp -*- | |
(defun dotspacemacs/layers () | |
(setq-default | |
dotspacemacs-distribution 'spacemacs | |
dotspacemacs-configuration-layer-path '() | |
dotspacemacs-configuration-layers '( | |
emacs-lisp |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; -*- mode: emacs-lisp -*- | |
(defun dotspacemacs/layers () | |
(setq-default | |
dotspacemacs-distribution 'spacemacs | |
dotspacemacs-configuration-layer-path '() | |
dotspacemacs-configuration-layers '( | |
emacs-lisp |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
inverseMap grid f i = valueAtI | |
where iGrid = iover (itraversed <.> itraversed) const grid | |
valueAtI = (f iGrid) ^?! (itraversed <.> itraversed) . index i |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; Global settings for redshift | |
[redshift] | |
; Set the day and night screen temperatures | |
temp-day=5700 | |
temp-night=3500 | |
; Enable/Disable a smooth transition between day and night | |
; 0 will cause a direct change from day to night screen temperature. | |
; 1 will gradually increase or decrease the screen temperature. | |
transition=1 |
OlderNewer