Skip to content

Instantly share code, notes, and snippets.

View bbatsov's full-sized avatar

Bozhidar Batsov bbatsov

View GitHub Profile
"devDependencies": {
"@toptal/testshot": "^0.1.2",
"assets-webpack-plugin": "3.5.1",
"autoprefixer": "7.1.1",
"babel-cli": "^6.18.0",
"babel-core": "6.10.4",
"babel-eslint": "6.1.0",
"babel-loader": "6.4.1",
"babel-plugin-espower": "2.3.2",
"babel-plugin-lodash": "3.2.11",
@bbatsov
bbatsov / devise.bg.yml
Created March 12, 2012 13:12
Bulgarian translations for Devise
# Additional translations at https://github.com/plataformatec/devise/wiki/I18n
bg:
errors:
messages:
expired: "е изтекъл, моля заявете нов"
not_found: "не е намерен"
already_confirmed: "е вече потвърден, моля опитайте да влезете в профила си с него"
not_locked: "не бе заключен"
not_saved:
(defun ffip-project-root ()
"Return the root of the project.
If `locate-dominating-file' is bound we use it directly - otherwise we use
a replacement for it. A list of project files is search for - the first
match is used to determine the root of the project."
(let ((project-files (copy-sequence ffip-project-files))
(project-root nil))
(while (or project-root project-files)
(message (car project-files))
(defn loves [x y]
(str x " loves " y))
(defn test-rebind []
(println (loves "ricky" "lucy"))
(let [str-orig str]
(binding [str (fn [& args]
(println "Logging str")
(apply str-orig args))]
(println (loves "fred" "ethel")))))
(test-rebind)
(ido-mode t)
(setq ido-enable-prefix nil
ido-enable-flex-matching t
ido-create-new-buffer 'always
ido-use-filename-at-point 'guess
ido-max-prospects 10)