diff options
Diffstat (limited to 'emacs/.emacs.d/lisp')
| m--------- | emacs/.emacs.d/lisp/exitter | 0 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/fediorg.el | 7 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-emms.el | 3 |
3 files changed, 6 insertions, 4 deletions
diff --git a/emacs/.emacs.d/lisp/exitter b/emacs/.emacs.d/lisp/exitter -Subproject 9af8216d544169f5385b32c73c8cd29c5cef9d2 +Subproject 36551754f548954d83af723d227dc7d14fd57d6 diff --git a/emacs/.emacs.d/lisp/my/fediorg.el b/emacs/.emacs.d/lisp/my/fediorg.el index 123545b..e2f21b8 100644 --- a/emacs/.emacs.d/lisp/my/fediorg.el +++ b/emacs/.emacs.d/lisp/my/fediorg.el @@ -215,8 +215,8 @@ Including ancestors and descendants, if any." (with-temp-buffer (insert (fediorg-make-org-link .url .type)) - (if .description - (insert ": " .description)) + (when .description + (insert ": " .description)) (when .preview_url (let ((thumb-file-name (file-name-concat @@ -226,7 +226,8 @@ Including ancestors and descendants, if any." (ignore-error 'file-already-exists (url-copy-file .preview_url thumb-file-name)) (insert "\n") - (insert-image (create-image thumb-file-name)) + (when-let ((image (create-image thumb-file-name))) + (insert-image image)) )) (buffer-string)))) attachments diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el index 6e8cf2a..e6fb0e2 100644 --- a/emacs/.emacs.d/lisp/my/my-emms.el +++ b/emacs/.emacs.d/lisp/my/my-emms.el @@ -508,7 +508,8 @@ character." If the last command is `emms-playlist-mode-play-smart', then set `my-emms-score-delta' to 2." - (when (eq last-command 'emms-playlist-mode-play-smart) + (if (not (eq last-command 'emms-playlist-mode-play-smart)) + (setq my-emms-score-delta 1) (setq my-emms-score-delta 2) (setq last-command nil)) ) |