周报模板

zhoubao.md

定义一个 markdown-mode下的 snippet
<pre>
# -*- mode: snippet -*-
# name: zhoubao
# key: zhoubao
# binding: C-c C-n
# --
## ${1:#你的名字#}周报

`(concat "__" (yesterday-is 1) " ~ " (tommorow-is 5) "__")`

### 本周

*****

#### ${2:#项目名字1#}

1. $0


### 下周

*****

#### $2

1. bla~bla~

</pre>

***** 

用到的两个函数:

```Emacs-lisp
;;; used for zhoubao snippet
(defun yesterday-is (day)
  ""
  (let* ((cur (current-time))
         (seconds (+ (lsh (car cur) 16) (cadr cur))))
    (while (/= day (what-day-is-today seconds))
      (setq seconds (- seconds (* 24 60 60))))
    ;;; return %Y-%m-%d
    (format-time-string "%Y-%m-%d" (cons (lsh seconds -16) (logand seconds #xFFFF)))
    ))

(defun tommorow-is (day)
  ""
  (let* ((cur (current-time))
         (seconds (+ (lsh (car cur) 16) (cadr cur))))
    (while (/= day (what-day-is-today seconds))
      (setq seconds (+ seconds (* 24 60 60))))
    ;;; return %Y-%m-%d
    (format-time-string "%Y-%m-%d" (cons (lsh seconds -16) (logand seconds #xFFFF)))
    ))

(defun what-day-is-today (seconds)
  (nth 6 (decode-time (cons (lsh seconds -16) (logand seconds #xFFFF)))))
```