Create accountLogin

Recent searches

No recent searches

Search options

Only available when logged in.
mastodon.social is one of the many independent Mastodon servers you can use to participate in the fediverse.
The original server operated by the Mastodon gGmbH non-profit

Administered by:

Server stats:

352K
active users

mastodon.social: AboutStatusProfiles directoryPrivacy policy

Mastodon: AboutGet the appKeyboard shortcutsView source codev4.4.0-nightly.2025-03-25

lhp

Wrote a quick'n'dirty lisp function to import appointments exported from StudIP (used by some universities for course management) to my org-mode agenda.

Emacs lisp code, pasted verbatim below: (defun studip-to-org (short-name agenda-name) "Convert exported StudIP dates to org appointments." (interactive "sShort name (used as file name): \nsName displayed in agenda: ") (let* ((name (car (split-string (buffer-name) "-Ablaufplan"))) ;; If an appointment has a comment, it most likely is just ;; a holiday-placeholder. (appointments (seq-filter (lambda (appointment) (string= (nth 5 appointment) "")) (mapcar (lambda (line) (split-string line ";")) (cdr (split-string (buffer-string) "\n")))))) (with-temp-file (concat (car org-agenda-files) "/" short-name ".org") (erase-buffer) (insert (concat "#+title: Termine für \"" name "\"\n\n")) (insert (mapconcat (lambda (appointment) (let ((date (string-split (nth 1 appointment) "\\."))) (concat "* <" (nth 2 date) "-" (nth 1 date) "-" (nth 0 date) " " (nth 2 appointment) (when (not (string= (nth 3 appointment) "")) (concat "-" (nth 3 appointment))) "> " agenda-name (if-let ((i (string-match (rx "SR" digit) (nth 9 appointment)))) (concat ", " (substring (nth 9 appointment) i (+ i 3)))) (if-let ((i (string-match (rx (any "A-F") "." digit digit "." digit digit digit) (nth 9 appointment)))) (concat ", " (substring (nth 9 appointment) i (+ i 8))))))) appointments "\n")))))
Dec 05, 2024, 02:29 AM·Public·Web
1boost·3favorites
ExploreLive feeds
About