myuhe

;;; org-gcal.el --- Org sync with Google Calendar -*- lexical-binding: t -*-

;; Author: myuhe <yuhei.maeda_at_gmail.com>
;; URL: https://github.com/myuhe/org-gcal.el
;; Version: 0.1
;; Maintainer: myuhe
;; Copyright (C) :2014 myuhe all rights reserved.
;; Created: :14-01-03
;; Package-Requires: ((request-deferred "0.2.0") (alert "1.1") (emacs "24") (cl-lib "0.5") (org "8.2.4"))

myuhe

打ち合わせ

<2014-03-04 火 13:00-15:30>

会議

<2014-03-06 木 15:00-16:00>

試験

<2014-03-27 木 13:00-15:00>

休み

myuhe

(add-hook 'after-save-hook (lambda ()
                             (when (string= (buffer-file-name) "your_file_name")
                               (org-gcal-post-at-point))))

myuhe

(plist-get (plist-get hoge :error) :message)"Invalid Credentials"

myuhe

({filter:{name:"", regexp:{}, children:[{name:"AD", regexp:{title:/^\W?(?:ADV?|PR)\b/}, children:[], hitcount:172, lasthit:1378381183263}, {name:"pr", regexp:{}, children:[], hitcount:0, lasthit:0}], hitcount:172, lasthit:1378381183263}})

myuhe

(require 'mu4e)

;; default
(setq mu4e-maildir (expand-file-name "~/Maildir"))

(setq mu4e-drafts-folder "/[Gmail].Drafts")
(setq mu4e-sent-folder   "/[Gmail].Sent Mail")
(setq mu4e-trash-folder  "/[Gmail].Trash")

(setq mu4e-html2text-command "w3m -dump -T text/html")

myuhe

#!/usr/bin/python2
# -*- coding: utf-8 -*-

import sys
import re, os
import binascii
import codecs
import netrc

def get_password_emacs(machine, login, port):

myuhe

diff -r 88dc0036b12c .emacs.d/vendor/elpa/pophint-20130804.1927/pophint.el
--- a/.emacs.d/vendor/elpa/pophint-20130804.1927/pophint.el	Mon Aug 05 09:22:40 2013 +0900
+++ b/.emacs.d/vendor/elpa/pophint-20130804.1927/pophint.el	Mon Aug 05 17:28:19 2013 +0900
@@ -530,10 +530,10 @@
         (with-selected-window (or (and (windowp window) (window-live-p window) window)
                                   (nth 0 (get-buffer-window-list)))
           (save-restriction
-            (narrow-to-region (save-excursion (or (when (forward-line -100) (point))
-                                                  (point-min)))
-                              (save-excursion (or (when (forward-line 100) (point))

myuhe

(defun image-mode ()
  "Major mode for image files.
You can use \\<image-mode-map>\\[image-toggle-display]
to toggle between display as an image and display as text."
  (interactive)
  (condition-case err
      (progn
        (unless (display-images-p)
          (error "Display does not support images"))

myuhe

  (require 'notifications)
  (defadvice aabc/display-function (around ad-aabc/display-function activate)
    "バイトコンパイルの終了をnotifyで通知する。"
    ad-do-it
    (if (eq status 'normal)
        (notifications-notify
         :title "Emacsからのお知らせ"
         :body  (concat process-name "のコンパイルが終りました")
         :timeout 10000))))