et2010

(setq url-gateway-method 'socks)
(setq socks-server '("Default server" "127.0.0.1" 1080 5))

et2010

  (defun et/rename-org-link-file (path)
    (interactive
     (list
      (let* ((link (org-element-context))
             (old-path (org-element-property :path link)))
        (read-string "PATH: " old-path nil old-path))))
    (let ((old-path (org-element-property :path (org-element-context))))
      (mkdir (file-name-directory path) t)
      (rename-file old-path path)
      (save-excursion

et2010

#!/usr/bin/env bash
#-------------------------------------------------------------------------------------------------------------
# Copyright (c) Microsoft Corporation. All rights reserved.
# Licensed under the MIT License. See https://go.microsoft.com/fwlink/?linkid=2090316 for license information.
#-------------------------------------------------------------------------------------------------------------

# Syntax: ./common-debian.sh <install zsh flag> <username> <user UID> <user GID>

set -e

et2010

Multiple SSH Keys settings for different github account

create different public key

create different ssh key according the article Mac Set-Up Git

$ ssh-keygen -t rsa -C "your_email@youremail.com"

et2010

Build Emacs-w64 with MSYS2/MinGW-w64

Instructions are modified from emacs-w64 Wiki page by zklhp. Many thanks for sharing!

1. Download MSYS2 (msys2-x86_64-20161025.exe) from this download page.

2. Install MSYS2 to, for example, C:\msys2 (make sure no space in path).

3. Optionally prettify the MSYS2 console mintty with ~/.minttyrc to make it more pleasing to eyes. Thanks to this awesome theme!

et2010

(defmacro value-bound-lambda (args symbols &rest body)
  "Returns a lambda expression with ARGS, where each symbol in SYMBOLS is
available for use and is bound to it's value at creation.

Symbols needs to be a list of variables or functions available globally."
  (declare (indent defun))
  (let ((vars (remove-if-not 'boundp symbols))
        (funcs (remove-if-not 'functionp symbols)))
    `(lambda ,args
       (let ,(mapcar (lambda (sym) (list sym (symbol-value sym))) vars)

et2010

#-*- coding: utf-8 -*-

# Python 3.4
# author: http://blog.dokenzy.com/
# date: 2015. 4. 8

# References
# http://www.imcore.net/encrypt-decrypt-aes256-c-objective-ios-iphone-ipad-php-java-android-perl-javascript/
# http://stackoverflow.com/questions/12562021/aes-decryption-padding-with-pkcs5-python
# http://stackoverflow.com/questions/12524994/encrypt-decrypt-using-pycrypto-aes-256

et2010

(defun et/fixup-whitespace ()
  "Fixup white space between objects around point.
Leave one space or none, according to the context."
  (interactive "*")
  (save-excursion
    (delete-horizontal-space)
    (if (or (looking-at "^\\|\\s)")
            (save-excursion (forward-char -1)
                            ;; we adapted the regexp here:
                            (looking-at "\\cc\\|$\\|\\s(\\|\\s'")))

et2010

(defun jw/gather-alist-cdrs (ALIST)
  "Return a list whose elements are cdrs from ALIST"
  (-mapcat (lambda (x) (list (cdr x))) ALIST))

et2010

(defmacro jw/concat-string-list (&rest strings)
  "Concat all elements in LIST whose elements are all strings"
  `(concat ,@strings))