seven-languages-in-seven-weeks/announcements.org

120 lines
5.4 KiB
Org Mode
Raw Permalink Normal View History

#+TITLE: Extreme Tech Seminar
2015-06-08 04:13:14 +00:00
#+AUTHOR: Correl Roush
#+EMAIL: correl@gmail.com
#+OPTIONS: H:1 toc:nil ^:nil
#+STARTUP: beamer indent
#+COLUMNS: %45ITEM %10BEAMER_env(Env) %10BEAMER_act(Act) %4BEAMER_col(Col) %8BEAMER_opt(Opt)
#+PROPERTY: BEAMER_col_ALL 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 0.0 :ETC
#+LaTeX_CLASS: beamer
#+LaTeX_CLASS_OPTIONS: [presentation,aspectratio=169]
#+begin_src emacs-lisp :exports results :results silent
2015-06-15 01:43:52 +00:00
(defun org-get-scheduled-end-time (pom &optional inherit)
(let ((parse-end-time
(lambda (time)
(let ((ts-regexp (concat org-ts-regexp1
"\\(-\\([0-9]\\{1,2\\}\\):\\([0-9]\\{2\\}\\)\\)")))
(when (string-match ts-regexp time)
(org-parse-time-string (string-join (list (string-join (list (match-string 2 time)
(match-string 3 time)
(match-string 4 time))
"-")
(match-string 5 time)
(string-join (list (match-string 10 time)
(match-string 11 time))
":"))
" ")))))))
(let* ((time (org-entry-get pom "SCHEDULED"))
(end-time (org-habit-streaks--parse-scheduled-end-time time)))
(if end-time
(apply 'encode-time end-time)
(org-get-scheduled-time pom inherit)))))
(defun xts-announcement (location language)
(print (string-join `("#+LATEX: \\fontspec{Antonio-Bold}\\color{trek@lightyellow}"
"#+LATEX: \\Huge"
"#+BEGIN_CENTER"
"THE EXTREME TECH SEMINAR"
"#+END_CENTER"
"#+LATEX: \\Large\\color{trek@lightorange}"
"#+BEGIN_CENTER"
2015-06-15 01:43:52 +00:00
,(concat (format-time-string "%a, %B %e @%l:%M%p"
(org-get-scheduled-time (point)))
(format-time-string "-%l:%M%p" (org-get-scheduled-end-time (point))))
"#+END_CENTER"
"#+LATEX: \\normalsize\\color{trek@lightblue}"
"#+BEGIN_CENTER"
"Come join us as we study Bruce Tate's book, \"Seven Languages in Seven Weeks: A Pragmatic Guide to Learning Programming Languages\"."
"#+END_CENTER"
"#+LATEX: \\small\\color{trek@darkorange}"
"#+BEGIN_CENTER"
,(concat "THIS WEEK: " language)
"#+END_CENTER"
"#+LATEX: \\small\\color{trek@midblue}"
"#+BEGIN_CENTER"
"pragprog.com/book/btlang\\\\"
2015-06-12 20:29:33 +00:00
"COUPON CODE: ExtremeTech7\\\\"
"#+END_CENTER"
"#+LATEX: \\footnotesize\\color{trek@darkpurple}"
"#+BEGIN_CENTER"
"FOOD WILL BE PROVIDED"
"#+END_CENTER")
"\n")))
#+end_src
2015-06-08 04:13:14 +00:00
* Ruby
SCHEDULED: <2015-05-27 Wed 18:00-20:00>
#+begin_src emacs-lisp :exports results :results raw
(xts-announcement "Franklin Training Room"
"The object-oriented langauge, \"Ruby\"")
#+end_src
* Io
SCHEDULED: <2015-06-10 Wed 18:00-20:00>
#+begin_src emacs-lisp :exports results :results raw
(xts-announcement "Franklin Training Room"
"The prototype language, \"Io\"")
#+end_src
* Prolog
SCHEDULED: <2015-06-24 Wed 18:00-20:00>
#+begin_src emacs-lisp :exports results :results raw
(xts-announcement "Franklin Training Room"
"The logic programming language, \"Prolog\"")
#+end_src
2015-06-12 20:29:33 +00:00
#+begin_src emacs-lisp :results code
(let ((scheduled (concat "<" (org-entry-get (point) "SCHEDULED") ">")))
(string-match org-ts-regexp1 scheduled)
(match-string 20 scheduled)
(s-match-strings-all org-ts-regexp1 scheduled)
;;(org-parse-time-string (match-string 2))
)
#+end_src
#+RESULTS:
#+BEGIN_SRC emacs-lisp
(("2015-06-24 Wed 18:00" "2015-06-24 Wed 18:00" "2015" "06" "24" "Wed" " 18:00" "18" "00"))
#+END_SRC
* Scala
SCHEDULED: <2015-07-08 Wed 18:00-20:00>
#+begin_src emacs-lisp :exports results :results raw
(xts-announcement "Franklin Training Room"
"The functional/object-oriented hybrid JVM language, \"Scala\"")
#+end_src
* Erlang
SCHEDULED: <2015-07-22 Wed 18:00-20:00>
#+begin_src emacs-lisp :exports results :results raw
(xts-announcement "Franklin Training Room"
"The concurrent, functional language, \"Erlang\"")
#+end_src
* Closure
SCHEDULED: <2015-08-05 Wed 18:00-20:00>
#+begin_src emacs-lisp :exports results :results raw
(xts-announcement "Franklin Training Room"
"The JVM lisp, \"Closure\"")
#+end_src
* Haskell
SCHEDULED: <2015-08-19 Wed 18:00-20:00>
#+begin_src emacs-lisp :exports results :results raw
(xts-announcement "Franklin Training Room"
"The pure functional language \"Haskell\"")
#+end_src