Skip to content

Instantly share code, notes, and snippets.

View fourier's full-sized avatar

fourier fourier

View GitHub Profile
# su - postgres
$ psql
postgres=# CREATE USER diaspora WITH PASSWORD 'myubercoolpassword';
postgres=# CREATE DATABASE diaspora OWNER diaspora;
postgres=# ALTER USER diaspora CREATEDB;
(eval-after-load "yasnippet"
'(progn
(yas/initialize)
(define-key yas-minor-mode-map (kdb "C-c k") 'yas-expand)))
(eval-after-load "iedit-mode"
'(progn
(define-key global-map (kbd "C-c o") 'iedit-mode)))
(setq visible-bell t)
(require 'package)
(require 'json)
(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
("marmalade" . "http://marmalade-repo.org/packages/")
("melpa" . "http://melpa.milkbox.net/packages/")))
(package-initialize)
(require 'elpy)
(defun txm-dired-open-file ()
"Open files using Mac OS X open command or Linux xdg-open command"
(interactive)
(dolist (file-name (dired-get-marked-files t current-prefix-arg))
(if (file-exists-p file-name)
(cond ((eq system-type 'darwin)
(call-process "/usr/bin/open" nil 0 nil file-name))
((eq system-type 'gnu/linux)
(call-process "/usr/bin/xdg-open" nil 0 nil file-name))))))
(defun txm-dired-open-file ()
"Open files using Mac OS X open command or Linux xdg-open command"
(interactive)
(dolist (file-name (dired-get-marked-files t current-prefix-arg))
(if (file-exists-p file-name)
(cond ((eq system-type 'darwin)
(call-process "/usr/bin/open" nil 0 nil file-name))
((eq system-type 'gnu/linux)
(call-process "/usr/bin/xdg-open" nil 0 nil file-name))))))
Started POST "/status_messages" for 83.251.149.249 at 2015-04-20 20:13:19 +0200
Processing by StatusMessagesController#create as JSON
Parameters: {"status_message"=>"[FILTERED]", "aspect_ids"=>"all_aspects", "location_coords"=>"", "poll_question"=>"", "poll_answers"=>["", ""]}
user:1 dispatching StatusMessage:d907daa0c9b6013224df040140297901
{:event=>:sign_with_key, :status=>:complete}
{:event=>:sign_with_key, :status=>:complete}
user:1 dispatching Participation:d9151330c9b6013224df040140297901
Completed 201 Created in 215.1ms (Views: 16.1ms | ActiveRecord: 48.3ms)
2015-04-17T00:05:54Z 4064 TID-iq8x0 WARN: lib/diaspora/relayable.rb:24:in `rescue in parent_author'
lib/diaspora/relayable.rb:21:in `parent_author'
lib/postzord/receiver/public.rb:73:in `xml_author'
lib/postzord/receiver.rb:16:in `author_does_not_match_xml_author?'
lib/postzord/receiver/public.rb:60:in `save_object'
lib/postzord/receiver/public.rb:26:in `receive!'
lib/postzord/receiver.rb:12:in `perform!'
app/workers/receive_unencrypted_salmon.rb:13:in `block in perform'
app/workers/base.rb:13:in `suppress_annoying_errors'
app/workers/receive_unencrypted_salmon.rb:10:in `perform'
@fourier
fourier / erc-customize.el
Created January 7, 2016 22:03
Ctrl-up/down in ERC to move between phrases
;; Use ctrl up/down to move between users phrases of different users
(define-key erc-mode-map [C-up] 'txm-goto-previous-phrase)
(define-key erc-mode-map [C-down] 'txm-goto-next-phrase)
(defun txm-goto-previous-phrase ()
"Go to the previous phrase"
(interactive)
;; first go to the beginning of the line
(goto-char
(line-beginning-position))
@fourier
fourier / esc.el
Created January 29, 2018 22:11
Emacs bind esc to close temporary windows
;; use Esc to close temporary windows
(let ((hotkey
(if window-system (kbd "<escape>") "\M-q")))
(global-set-key hotkey 'txm-close-temporary-window)
;; in cc-modes M-q redefined
(define-key c-mode-map hotkey 'txm-close-temporary-window)
(define-key c++-mode-map hotkey 'txm-close-temporary-window))
(defun txm-close-temporary-window ()
"Close all temporary windows in current frame.