samrat

{% extends "base.html" %}
{% block title %}Archive- Samrat Man Singh{% endblock %}
{% block content %}
<div class="container" style="padding-bottom:100px;">
		<div class="row">&nbsp;</div>	
		<div class="row">&nbsp;</div>
		<div class="row">

samrat

<?xml version="1.0" encoding="UTF-8"?>
<!-- Do not edit this file, it will be overwritten on install.
        Copy the file to $HOME/.config/openbox/ instead. -->
<openbox_config xmlns="http://openbox.org/3.4/rc" xmlns:xi="http://www.w3.org/2001/XInclude">
  <resistance>
    <strength>10</strength>
    <screen_edge_strength>20</screen_edge_strength>
  </resistance>
  <focus>
    <focusNew>yes</focusNew>

samrat

import csv

books = csv.reader(open('goodreads_export.csv', 'rb'))
output_file = open('books.md', 'a')

for row in books:
    if 'read' in row:
        output = "- **"+row[1]+"** by " + row[2] + "\n"
        output_file.write(output)
        print outpu

samrat

(define cutA 7)
(define growA 3)
(define cutB 5)
(define growB 2)

(define (attack-monster heads)
  (use-sword heads 0 '()))

(define (use-sword n grow s)
  (cond ((< n 0) 0)

samrat

(define cutA 7)
(define growA 3)
(define cutB 5)
(define growB 2)

(define (attack-monster heads)
  (use-sword heads 0 null))

(define (use-sword n grow s)
  (cond ((< n 0) null)

samrat

(define cutA 7)
(define growA 3)
(define cutB 5)
(define growB 2)

(define (attack-monster heads)
  (use-sword heads 0 '()))

(define (use-sword n grow s)
  (cond ((< n 0) '())

samrat

(define golden-ratio (/ (+ 1 (sqrt 5)) 2))

(define (fib n)
  (inexact->exact (round (/ (expt golden-ratio n) (sqrt 5)))))

samrat

nrepl.el wasn't playing very well with Evil-mode(the cursor didn't move to the next line). And this fixed it:

```(defadvice nrepl-return (before switch-to-normal-mode activate)
  (evil-execute-in-emacs-state 1))```

samrat

(defn new-file-name [file]
  (let [metadata (metadata file)
        slug (or nil (:slug metadata))
        parsed-date (or (or (parse (:date metadata)) nil)
                        (local-now))]
    (if slug (-> (clojure.string/replace slug #"\/" "-")
                 (clojure.string/replace #"-blog-" ""))
        (str
             (year parsed-date) "-"
             (if (= (count (str (month parsed-date))) 2)

samrat

(defn max-key-val
  "Like max-key, but returns [x (f x)] for which (f x) is greatest"
  [f & args]
  (let [z (zipmap args (map f args))]
    (reduce (fn [max i]
                (if (> (second i) (second max))
                    i
                  max))
            (first z)
            (rest z))))