Akira's Tech Notes

Java/JVM | GNU/Linux | Emacs/Lisp | 知的好奇心駆動

header-icon
ネイティブでない日本語で思い付くことや気になることをダラダラ書く、体裁とかは気にしない。読みづらいと感じた時に随時更新する。

My Profile in Elisp

;; Filename: profile.el
;; Description: a profile focuses on what's important or interesting about me
;; Author: luozengbin <jalen.cn_at_gmail.com>
;; Maintainer: luozengbin
;; Copyright (C) :2014,2015 luozengbin all rights reserved.
;; Created: :2014-10-11
;; Version: 1.0.0
;; URL: https://luoznegbin.github.io/profile.el

;;; Changelog:

;;
;; 2015-05-09 update skill content
;;

(require 'profile-support)

(message "Hello World")                 ; => "Hello World"

(defstruct human name sex birthday address description skills qualifications publish contact favicon status)

(setq me (make-human
          :name '((chinese-name  .  "LuoZengBin")
                  (japanese-name .  "Wakana Akira"))
          :sex                      "male"
          :birthday                 "1984~2005, Fujian, China"
          :address                  "2005~2015, Tokyo,  Japan"
          :description              "a programmer work in SIer company"
          :skills                 '("Java" "Linux" "Elisp")
          :qualifications         '("2014 Linux Professional Institute Certification Level 2"
          :qualifications         '("2014 Linux Professional Institute Certification Level 1"
                                    "2013 Product Specialist for RedHat JBoss EAP"
                                    "2013 Product Specialist for RedHat JDG"
                                    "2013 Product Specialist for RedHat JBoss EDS"
                                    "2013 Product Specialist for RedHat JBoss BRMS"
                                    "2011 Product Specialist for Oracle SOA/BPM Suite"
                                    "2010 Oracle Silver DBA 10g")
          :publish   '((blog     .  "http://luozengbin.github.io/"))
          :contact   '((mail     .  "jalen.cn_at_gmail.com")
                       (twitter  .  "@luozengbin")
                       (github   .  "https://github.com/luozengbin")
                       (facebook .  "https://www.facebook.com/luozengbin/allactivity"))
          :favicon                '("" "")
          :status    '(lambda () (if (is-holiday (current-time))
                                     '("Child Rearing" "Coding" "Sleeping")
                                   '("Working" "Sleeping")))))


(funcall (human-status me))             ; => ("Child Rearing" "Coding" "Sleeping")